268. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:15 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

268.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMTP.m Mon Nov 5 16:39:42 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMTP.m Mon Nov 5 17:54:37 2018 UTC

268.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 2 150
Changed 1 2
Inserted 0 0
Removed 0 0

268.3 Comparison options

Whitespace
Character case Differences in character case are significant
Line endings Differences in line endings (CR and LF characters) are ignored
CR/LF characters Not shown in the comparison detail

268.4 Active regular expressions

No regular expressions were active.

268.5 Comparison detail

  1   CHOHIMTP ; CVA/JEH;ME DICARE FRO M OTHER OH I REPORT -  PRINT;08/ 14/03  11: 43 AM
  2    ;;1.0
  3    ;
  4    ;JEH 9/5/ 08 TT DEV0 05622-01 -  REPLACED  REFERENCE  TO PCPAY T O PMPAY
  5   START S U= "^"
  6    S ENVIR=" "
  7    S AYGSYS= XQVOL   ;  SETTING EN VIRONMENT
  8    S RUNDT=" " S RUNDT= DT
  9    S ENVIR=$ S(AYGSYS=" ROU":"LIVE ",AYGSYS=" XOU":"TRAI N",AYGSYS= "TOU":"TES T",AYGSYS= "DOU":"DEV ")
  10    S IOOUT=" HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]TOT AL_OHI_"_R UNDT_".XLS "
  11    O IOOUT:" NWS"
  12    D INIT
  13    S RUNDT=" "
  14    S Y=DT D  DD^%DT S R UNDT=Y
  15    F I="INP" ,"OUT","DE N","TVL"," DME","PHR"  D
  16    .S RTYPE= $S(I="INP" :"INPATIEN T",I="OUT" :"OUTPATIE NT",I="DEN ":"DENTAL" ,I="TVL":" TRAVEL",I= "DME":"DME ",I="PHR": "PHARMACY" )
  17    .U:I="INP " IOINP
  18    .U:I="OUT " IOOUT
  19    .U:I="DEN " IODEN
  20    .U:I="TVL " IOTVL
  21    .U:I="DME " IODME
  22    .U:I="PHR " IOPHR
  23    .D RPTHDR
  24    D RPTDATA
  25    G END
  26    Q
  27   RPTHDR ;
  28    W !,"CHAM PVA OHI Re port (",RT YPE,")"
  29    W !,"Run  date: ",RU NDT
  30    W !
  31    W !,^CHMZ HOLD("OHIR PT","HDR1" )
  32    W !,^CHMZ HOLD("OHIR PT","HDR2" ),!
  33    W !,^CHMZ HOLD("OHIR PT","SHDR" )
  34    Q
  35   RPTDATA ;
  36    S I=0 F   S I=$O(^CH MZHOLD("OH IRPT",I))  Q:'I  D
  37    .S TOS=""
  38    .S TOS=$P (^CHMZHOLD ("OHIRPT", I),"^",1)
  39    .S TOS=$S (TOS="OUTP ATIENT":"O UT",TOS="I NPATIENT": "INP",TOS= "TRAVEL":" TVL",TOS=" DENTAL":"D EN",TOS="P HARMACY":" PHR",TOS=" DURABLE ME DICAL":"DM E")
  40    .U:TOS="I NP" IOINP
  41    .U:TOS="O UT" IOOUT
  42    .U:TOS="D EN" IODEN
  43    .U:TOS="T VL" IOTVL
  44    .U:TOS="D ME" IODME
  45    .U:TOS="P HR" IOPHR
  46    .W !,$P(^ CHMZHOLD(" OHIRPT",I) ,"^",2)
  47    D TRLR
  48    Q
  49   INIT ;Init ialize sub  heading
  50    S TAB=$C( 9)
  51    S ^CHMZHO LD("OHIRPT ","SHDR")= SHD1_TAB_S HD2_TAB_SH D3_TAB_SHD 4_TAB_SHD5 _TAB_SHD6_ TAB_SHD7_T AB_SHD8
  52    Q
  53   TRLR ;TRAI LER RECS -  REPORT TO TALS
  54    S TOS=""  F  S TOS=$ O(PRTARRY( TOS)) Q:TO S=""  D
  55    .U:TOS="I NPATIENT"  IOINP
  56    .U:TOS="O UTPATIENT"  IOOUT
  57    .U:TOS="D ENTAL" IOD EN
  58    .U:TOS="T RAVEL" IOT VL
  59    .U:TOS="D URABLE MED ICAL" IODM E
  60    .U:TOS="P HARMACY" I OPHR
  61    .I (PRTAR RY(TOS,1)= "")&(PRTAR RY(TOS,2)= "")&(PRTAR RY(TOS,3)= "")&(PRTAR RY(TOS,4)= "")&(PRTAR RY(TOS,5)= "")&(PRTAR RY(TOS,6)= "") D
  62    ..W !!,"* ** Data No t Availabl e ***"
  63    .E  D
  64    ..B  ; JE H - CHK PR TARRY
  65    ..S PRTAR RY(TOS,1)= $FN(PRTARR Y(TOS,1)," P",2)
  66    ..S PRTAR RY(TOS,2)= $FN(PRTARR Y(TOS,2)," P",2)
  67    ..S PRTAR RY(TOS,3)= $FN(PRTARR Y(TOS,3)," P",2)
  68    ..S PRTAR RY(TOS,4)= $FN(PRTARR Y(TOS,4)," P",2)
  69    ..S PRTAR RY(TOS,5)= $FN(PRTARR Y(TOS,5)," P",2)
  70    ..S PRTAR RY(TOS,6)= $FN(PRTARR Y(TOS,6)," P",2)
  71    ..W !!,TA B_"Totals: "_TAB_PRTA RRY(TOS,1) _TAB_PRTAR RY(TOS,2)_ TAB_PRTARR Y(TOS,3)_T AB_PRTARRY (TOS,4)_TA B_PRTARRY( TOS,5)_TAB _PRTARRY(T OS,6)
  72    Q
  73   END ;
  74    C IOINP,I OOUT,IOPHR ,IODEN,IOT VL,IODME
  75    ;W !,"End  of listin g. See Net work file. "
  76    Q