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 | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 150 |
Changed | 1 | 2 |
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 | 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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.