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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 13 | 244 |
Changed | 12 | 24 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.