266. 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.

266.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMP.m Mon Nov 5 16:41:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHOHIMP.m Mon Nov 5 17:54:37 2018 UTC

266.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 13 244
Changed 12 24
Inserted 0 0
Removed 0 0

266.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

266.4 Active regular expressions

No regular expressions were active.

266.5 Comparison detail

  1   CHOHIMP ;C VA/JEH;MED ICARE FROM  OTHER OHI  REPORT -  PRINT;08/1 4/03  11:4 3 AM
  2    ;;1.0;CHA MPVA SYSTE M;;JUNE 25 , 2015
  3    ;JEH 9/5/ 08 TT DEV0 05622-01 -  REPLACED  REFERENCE  TO PCPAY T O PMPAY
  4    ;;DEF0165 54 REPLACE  DECNET WI TH FTP      06/25/201 5  DRW
  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    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  11    X "D $SYS TEM.Proces s.SetZEOF( 1)"                              ;;DEF01655 4 OPEN AND  CLOSE MOD IFIED  07/ 30/2015
  12    ;S IOOUT= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI OUT_"_RUND T_".XLS"
  13    ;O IOOUT: "NWS" 
  14    S FILENM= "OHIOUT_"_ RUNDT_".XL S"                         ;;DEF 016554 DRW
  15    S IOOUT=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM             ;;DEF 016554 DRW
  16    I UCI'="H AC" S IOOU T="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM            ; ;DEF016554  DRW
  17    I '$$OPEN FIWR^CHTFL IB9(.IOOUT ,"IOOUT")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  18    ;S IOINP= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI INP_"_RUND T_".XLS"
  19    ;O IOINP: "NWS" 
  20    S FILENM= "OHIINP_"_ RUNDT_".XL S"
  21    S IOINP=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  22    I UCI'="H AC" S IOIN P="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  23    I '$$OPEN FIWR^CHTFL IB9(.IOINP ,"IOINP")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  24    ;S IOPHR= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI PHR_"_RUND T_".XLS"
  25    ;O IOPHR: "NWS" 
  26    S FILENM= "OHIPHR_"_ RUNDT_".XL S"
  27    S IOPHR=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  28    I UCI'="H AC" S IOPH R="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  29    I '$$OPEN FIWR^CHTFL IB9(.IOPHR ,"IOPHR")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  30    ;S IODEN= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI DEN_"_RUND T_".XLS"
  31    ;O IODEN: "NWS" 
  32    S FILENM= "OHIDEN_"_ RUNDT_".XL S"
  33    S IODEN=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  34    I UCI'="H AC" S IODE N="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  35    I '$$OPEN FIWR^CHTFL IB9(.IODEN ,"IODEN")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  36    ;S IOTVL= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI TVL_"_RUND T_".XLS"
  37    ;O IOTVL: "NWS" 
  38    S FILENM= "OHITVL_"_ RUNDT_".XL S"
  39    S IOTVL=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  40    I UCI'="H AC" S IOTV L="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  41    I '$$OPEN FIWR^CHTFL IB9(.IOTVL ,"IOTVL")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  42    ;S IODME= "HACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]OHI DME_"_RUND T_".XLS"
  43    ;O IODME: "NWS" 
  44    S FILENM= "OHIDME_"_ RUNDT_".XL S"
  45    S IODME=" HAC_HFS$:[ SCR.TEMP_F ILES]"_FIL ENM
  46    I UCI'="H AC" S IODM E="HAC_HFS $:[DSMMANA G.CHAMPVA] "_FILENM
  47    I '$$OPEN FIWR^CHTFL IB9(.IODME ,"IODME")  W "FILE NO T AVAILABL E AT THIS  MOMENT" 
  48    D INIT
  49    S RUNDT=" "
  50    S Y=DT D  DD^%DT S R UNDT=Y
  51    F I="INP" ,"OUT","DE N","TVL"," DME","PHR"  D
  52    .S RTYPE= $S(I="INP" :"INPATIEN T",I="OUT" :"OUTPATIE NT",I="DEN ":"DENTAL" ,I="TVL":" TRAVEL",I= "DME":"DME ",I="PHR": "PHARMACY" )
  53    .U:I="INP " IOINP
  54    .U:I="OUT " IOOUT
  55    .U:I="DEN " IODEN
  56    .U:I="TVL " IOTVL
  57    .U:I="DME " IODME
  58    .U:I="PHR " IOPHR
  59    .D RPTHDR
  60    D RPTDATA
  61    G END
  62    Q
  63   RPTHDR ;
  64    W !,"CHAM PVA OHI Re port (",RT YPE,")"
  65    W !,"Run  date: ",RU NDT
  66    W !
  67    W !,^CHMZ HOLD("OHIR PT","HDR1" )
  68    W !,^CHMZ HOLD("OHIR PT","HDR2" ),!
  69    W !,^CHMZ HOLD("OHIR PT","SHDR" )
  70    Q
  71   RPTDATA ;
  72    S I=0 F   S I=$O(^CH MZHOLD("OH IRPT",I))  Q:'I  D
  73    .S TOS=""
  74    .S TOS=$P (^CHMZHOLD ("OHIRPT", I),"^",1)
  75    .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")
  76    .U:TOS="I NP" IOINP
  77    .U:TOS="O UT" IOOUT
  78    .U:TOS="D EN" IODEN
  79    .U:TOS="T VL" IOTVL
  80    .U:TOS="D ME" IODME
  81    .U:TOS="P HR" IOPHR
  82    .W !,$P(^ CHMZHOLD(" OHIRPT",I) ,"^",2)
  83    D TRLR
  84    Q
  85   INIT ;Init ialize sub  heading
  86    S TAB=$C( 9)
  87    S SHD1="T OS"
  88    S SHD2="C laim #"
  89    S SHD3="B illed Char ge"
  90    S SHD4="A llowed Amo unt"
  91    S SHD5="O HI Payment "
  92    S SHD6="C VA Payment "
  93    S SHD7="B ene Liabil ity (after  OHI/CVA p ayment)"
  94    S SHD8="C VA Payment  if no OHI "
  95    S ^CHMZHO LD("OHIRPT ","SHDR")= SHD1_TAB_S HD2_TAB_SH D3_TAB_SHD 4_TAB_SHD5 _TAB_SHD6_ TAB_SHD7_T AB_SHD8
  96    Q
  97   TRLR ;TRAI LER RECS -  REPORT TO TALS
  98    S TOS=""  F  S TOS=$ O(PRTARRY( TOS)) Q:TO S=""  D
  99    .U:TOS="I NPATIENT"  IOINP
  100    .U:TOS="O UTPATIENT"  IOOUT
  101    .U:TOS="D ENTAL" IOD EN
  102    .U:TOS="T RAVEL" IOT VL
  103    .U:TOS="D URABLE MED ICAL" IODM E
  104    .U:TOS="P HARMACY" I OPHR
  105    .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
  106    ..W !!,"* ** Data No t Availabl e ***"
  107    .E  D
  108    ..B  ; JE H - CHK PR TARRY
  109    ..S PRTAR RY(TOS,1)= $FN(PRTARR Y(TOS,1)," P",2)
  110    ..S PRTAR RY(TOS,2)= $FN(PRTARR Y(TOS,2)," P",2)
  111    ..S PRTAR RY(TOS,3)= $FN(PRTARR Y(TOS,3)," P",2)
  112    ..S PRTAR RY(TOS,4)= $FN(PRTARR Y(TOS,4)," P",2)
  113    ..S PRTAR RY(TOS,5)= $FN(PRTARR Y(TOS,5)," P",2)
  114    ..S PRTAR RY(TOS,6)= $FN(PRTARR Y(TOS,6)," P",2)
  115    ..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)
  116    Q
  117   END ;CLOSE  FILES OPE NED EARLIE R AND WRIT E FILES OU T TO FS3BI G
  118    ;C IOINP, IOOUT,IOPH R,IODEN,IO TVL,IODME
  119    ;W !,"End  of listin g. See Net work file. "
  120    S FLDER=" /FS3BIG/PM PAY/"_ENVI R
  121    D CLOSEF^ CHTFLIB9(I OOUT,"IOOU T")
  122    D FTPFILE ^CHTFLIB9( IOOUT," DNS     fs3. DNS             ",FLDER,"P UT")
  123    D CLOSEF^ CHTFLIB9(I OINP,"IOIN P")
  124    D FTPFILE ^CHTFLIB9( IOINP," DNS     fs3. DNS             ",FLDER,"P UT")
  125    D CLOSEF^ CHTFLIB9(I OPHR,"IOPH R")
  126    D FTPFILE ^CHTFLIB9( IOPHR," DNS     fs3. DNS             ",FLDER,"P UT")
  127    D CLOSEF^ CHTFLIB9(I ODEN,"IODE N")
  128    D FTPFILE ^CHTFLIB9( IODEN," DNS     fs3. DNS             ",FLDER,"P UT")
  129    D CLOSEF^ CHTFLIB9(I OTVL,"IOTV L")
  130    D FTPFILE ^CHTFLIB9( IOTVL," DNS     fs3. DNS             ",FLDER,"P UT")
  131    D CLOSEF^ CHTFLIB9(I ODME,"IODM E")
  132    D FTPFILE ^CHTFLIB9( IODME," DNS     fs3. DNS             ",FLDER,"P UT")
  133    X "D $SYS TEM.Proces s.SetZEOF( 0)"                 ; ;DEF016554  CLOSE MOD IFIED 07/3 0/2015
  134    Q