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 | CHOHIMT.m | Mon Nov 5 16:43:26 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHOHIMT.m | Mon Nov 5 17:54:37 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 222 |
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 | CHOHIMT ;J EH/DEN;MED ICARE FROM OTHER OHI REPORT - GRAND TOTA L;02/2/05 8:40 AM | |
2 | ;V1.0 | |
3 | ; | |
4 | ;JEH 9/5/ 08 TT DEV0 05622-01 - REPLACED REFERENCE TO PCPAY T O PMPAY | |
5 | D INIT | |
6 | Q ; COMMENT TO RUN HOT JE H | |
7 | START ;I ' $D(STOP) D | |
8 | D GETDATA | |
9 | D PRTTOT | |
10 | G END | |
11 | ; | |
12 | GETDATA ;G ATHERING D ATA | |
13 | F I="INPA TIENT","OU TPATIENT", "DENTAL"," TRAVEL","D URABLE MED ICAL","PHA RMACY" D | |
14 | .S PRTARR Y(I)=0 | |
15 | S CTR=0 | |
16 | S CTRE=0 | |
17 | S I=99999 999999 F S I=$O(^CH MINDEX(I), -1) Q:'I D ;!( CTR=300) D ;<---- ---------- --- REMOVE CTR=300 | |
18 | .S X1=I D PROGTYP^C HFCD001 | |
19 | .I $D(@(G LPAY_"I,0) ")) D | |
20 | ..I $P(@( GLPAY_"I,0 )"),"^",2) '=0 D | |
21 | ...I $P(@ (GLPAY_"I, 0)"),"^",2 5)>STRTDAT E_".000000 "&($P(@(GL PAY_"I,0)" ),"^",25)< ENDDATE_". 999999") D | |
22 | ....S TOS =$P(^CHMDI C(741002.0 5,$P(@(GLP AY_"I,0)") ,"^",7),0) ,"^",1) | |
23 | ....;S PR TARRY(TOS) =PRTARY(TO S)+1 | |
24 | ....S CLM NM=$P(@(GL PAY_"I,0)" ),"^",1) | |
25 | ....S OHI PYMT=0 | |
26 | ....I $D( @(GLPAY_"I ,1)")) D | |
27 | .....S OH IPYMT=$P(@ (GLPAY_"I, 1)"),"^",7 ) | |
28 | .....S:OH IPYMT'["." &(OHIPYMT' ="") OHIPY MT=OHIPYMT _".00" | |
29 | .....S CV APYMT=$P(@ (GLPAY_"I, 1)"),"^",1 ) | |
30 | .....S:CV APYMT'["." &(CVAPYMT' ="") CVAPY MT=CVAPYMT _".00" | |
31 | ....;I (O HIPYMT'="" )&(CVAPYMT '="") D | |
32 | ....S GTO T=GTOT+1 | |
33 | ....I (OH IPYMT>0) D | |
34 | .....S CT R=CTR+1 | |
35 | .....S PR TARRY(TOS) =PRTARRY(T OS)+1 | |
36 | .....;U 0 W:(OHIPYM T>0)&(CVAP YMT>0) !,? 5,CTR,")", ?30,"***** ****** ",C LMNM," O - ",OHIPY MT," C - ",CVAPYM T | |
37 | ....E D | |
38 | .....S CT RE=CTRE+1 | |
39 | .....;U 0 W !,CTRE, ")",?20,CL MNM," O - ",OHIPYM T," C - ",CVAPYMT | |
40 | ; | |
41 | Q | |
42 | END1 ; | |
43 | Q | |
44 | ; | |
45 | INIT ;INIT ILIZING VA RIABLES | |
46 | S CTRQ=0, ECTR=0,GTO T=0 | |
47 | S TAB=$C( 9) | |
48 | ;DISPLAY MENU TITLE | |
49 | W @IOF,?3 0,"CHAMPVA OHI Grand Total Rep ort",! | |
50 | S1 ;SET ST ART DATE | |
51 | S STRTDAT E="" K DIR | |
52 | S DIR(0)= "D" S DIR( "A")="Ente r START da te (mm/dd/ yy)" D ^DI R | |
53 | S STRTDAT E=Y | |
54 | S:STRTDAT E="^" STOP ="" Q:$D(S TOP) | |
55 | G:STRTDAT E="" S1 | |
56 | E1 ;SET EN D DATE | |
57 | S ENDDATE ="" | |
58 | S DIR(0)= "D" S DIR( "A")="Ente r END date (mm/dd/yy )" D ^DIR | |
59 | S ENDDATE =Y K DIR | |
60 | S:ENDDATE ="^" STOP= "" Q:$D(ST OP) | |
61 | G:ENDDATE ="" E1 | |
62 | S (HSDT,H EDT)="" | |
63 | S Y=STRTD ATE D DD^% DT S HSDT= Y | |
64 | S Y=ENDDA TE D DD^%D T S HEDT=Y | |
65 | ;SET QUEU E | |
66 | Q:$D(STOP ) | |
67 | D QUEUE Q | |
68 | Q | |
69 | PRTTOT ;PR INTING OUT GRAND TOT AL | |
70 | S ENVIR=" " | |
71 | S AYGSYS= XQVOL ; SETTING EN VIRONMENT | |
72 | S RUNDT=" " S RUNDT= DT | |
73 | S ENVIR=$ S(AYGSYS=" ROU":"LIVE ",AYGSYS=" XOU":"TRAI N",AYGSYS= "TOU":"TES T",AYGSYS= "DOU":"DEV ") | |
74 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .PMPAY."_E NVIR_"]TOT AL_OHI_"_R UNDT_".TXT " | |
75 | O IO:"NWS " | |
76 | U IO | |
77 | W !,"CHAM PVA OHI Re port Total s" | |
78 | W !,"Run date: ",RU NDT | |
79 | W !!,"Fro m: ",STRTD ATE," to " ,ENDDATE | |
80 | W !!,"OHI CLAIM PAY MENT TOTAL :",?15,CTR | |
81 | W !!,?5," INPATIENT Total:",PR TARRY("INP ATIENT") | |
82 | W !,?5,"O UTPATIENT Total:",PR TARRY("OUT PATIENT") | |
83 | W !,?5,"D ENTAL Tota l:",PRTARR Y("DENTAL" ) | |
84 | W !,?5,"T RAVEL Tota l:",PRTARR Y("TRAVEL" ) | |
85 | W !,?5,"D URABLE MED ICAL Total :",PRTARRY ("DURABLE MEDICAL") | |
86 | W !,?5,"P HARMACY To tal:",PRTA RRY("PHARM ACY") | |
87 | W !!,?5," TOTAL OF C LAIMS WITH OUT OHI: " ,CTRE | |
88 | W !!,"GRA ND TOTAL O F CLAIMS: ",GTOT | |
89 | C IO | |
90 | Q | |
91 | QUEUE ;QUE UE THE REP ORT | |
92 | ;Q ;<-- ---------- ---------- --REMOVE T O QUEUE JO B | |
93 | S ZTRTN=" START^CHOH IMT" | |
94 | S ZTDESC= "OHI REPOR T" | |
95 | S ZTSAVE( "STRTDATE" )="" | |
96 | S ZTSAVE( "ENDDATE") ="" | |
97 | S ZTSAVE( "TAB")="" | |
98 | S ZTSAVE( "PRTARRY") ="" | |
99 | S ZTSAVE( "XQVOL")=" " | |
100 | S ZTSAVE( "CTRQ")="" | |
101 | S ZTSAVE( "ECTR")="" | |
102 | S ZTSAVE( "GTOT")="" | |
103 | S FIO="" | |
104 | S ZTIO="" ,ZTSAVE("F IO")="" | |
105 | D ^%ZTLOA D ; C OMMENT TO RUN HOT JEH | |
106 | Q | |
107 | END ; | |
108 | U 0 W !," *** End of OHI Repor t Processi ng Totals* **" | |
109 | Q | |
110 | END2 W !!, "*** DATA FILE ERROR HAS OCCUR ED ***",!! | |
111 | G END | |
112 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.