Produced by Araxis Merge on 11/9/2018 12:33:42 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 | CHCGWLK1.m | Mon Nov 5 16:45:00 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCGWLK1.m | Tue Nov 6 22:02:13 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 250 |
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 | CHCGWLK1 ; AEB/CVA;CG STIPEND L OOKUP FUNC TIONS;1/12 /2014 4:2 3 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 5 | |
3 | PAY; | |
4 | S CHST="" K ^TMP($J ,"CG-STIPE NDS"),^TMP ($J,"CG-RE SENDS") | |
5 | A1 S CHST= $O(^CHCGPA Y(741850.6 ,"D",CHST) ) G:'CHST END | |
6 | S CGI=0 | |
7 | A10 S CGI= $O(^CHCGPA Y(741850.6 ,"D",CHST, CGI)) G:'C GI A1 | |
8 | I '$D(^CH CGPAY(7418 50.6,CGI,0 )) G A10 | |
9 | S CGPREC0 =$G(^CHCGP AY(741850. 6,CGI,0)) G:CGPREC0= "" A10 | |
10 | S CGVPT=$ P(CGPREC0, "^",5) ;P OINTER TO VETERAN | |
11 | G:CGVPT=" " A10 | |
12 | S CGCPT=$ P(CGPREC0, "^",6) ;P OINTER TO CAREGIVER | |
13 | G:CGCPT=" " A10 | |
14 | S CGBDAT= $P(CGPREC0 ,"^",9) ; RANGE BEG DATE | |
15 | G:CGBDAT= "" A10 | |
16 | S CGEDAT= $P(CGPREC0 ,"^",10) ;RANGE END DATE | |
17 | G:CGEDAT= "" A10 | |
18 | S CGSSN=$ P($G(^CHCG VETS(74185 0.7,CGVPT, 100,CGCPT, 0)),"^",4) S:CGSSN=" " CGSSN="U NKNOWN" S CGSSN="Z"_ CGSSN | |
19 | I '$D(^TM P($J,"CG-S TIPENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-STI PENDS",CGS SN,CGVPT,C GCPT,CGBDA T,CGEDAT)= CGI G A10 | |
20 | T I $D(^TM P($J,"CG-S TIPENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) I $D(^T MP($J,"CG- RESENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-RES ENDS",CGSS N,CGVPT,CG CPT,CGBDAT ,CGEDAT)=^ TMP($J,"CG -RESENDS", CGSSN,CGVP T,CGCPT,CG BDAT,CGEDA T)_"^"_CGI | |
21 | I $D(^TMP ($J,"CG-ST IPENDS",CG SSN,CGVPT, CGCPT,CGBD AT,CGEDAT) ) I '$D(^T MP($J,"CG- RESENDS",C GSSN,CGVPT ,CGCPT,CGB DAT,CGEDAT )) S ^TMP( $J,"CG-RES ENDS",CGSS N,CGVPT,CG CPT,CGBDAT ,CGEDAT)=^ TMP($J,"CG -STIPENDS" ,CGSSN,CGV PT,CGCPT,C GBDAT,CGED AT)_"^"_CG I | |
22 | G A10 | |
23 | END ; | |
24 | K ^TMP($J ,"CG-STIPE NDS") | |
25 | ;D PRT | |
26 | Q | |
27 | PRT0 D PAY ^CHCGWLK1 | |
28 | D HEAD | |
29 | PRT ; | |
30 | I '$D(^TM P($J,"CG-R ESENDS")) D Q | |
31 | .W !?20," No resent stipends f ound" | |
32 | S TCGSSN= "" | |
33 | PR S TCGSS N=$O(^TMP( $J,"CG-RES ENDS",TCGS SN)) Q:TCG SSN="" | |
34 | S TVPT=0 | |
35 | PR1 S TVPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT)) G :'TVPT PR | |
36 | S TCPT=0 | |
37 | PR2 S TCPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT,TCP T)) G:'TCP T PR1 | |
38 | S TBDAT=0 | |
39 | PR3 S TBDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT)) G:'TBDAT PR2 | |
40 | S TEDAT=0 | |
41 | PR4 S TEDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT)) G:' TEDAT PR3 | |
42 | S ^CHMZHO LD("TONY") ="PRT4" | |
43 | S NPCE=$L (^TMP($J," CG-RESENDS ",TCGSSN,T VPT,TCPT,T BDAT,TEDAT ),"^") ;S TORE THE N UMBER OF T IMES SENT | |
44 | F I=1:1:N PCE S PT(I )=$P(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT),"^", I) | |
45 | S CGNAME= $P(^CHCGVE TS(741850. 7,TVPT,100 ,TCPT,0)," ^",1) | |
46 | S CGSSN=$ P(^CHCGVET S(741850.7 ,TVPT,100, TCPT,0),"^ ",4) | |
47 | S CGAMT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",7) | |
48 | S CGBDAT= $$FMTE^XLF DT(TBDAT," 5D") | |
49 | S CGEDAT= $$FMTE^XLF DT(TEDAT," 5D") | |
50 | S CGPDT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",3) | |
51 | S CGPDT=$ $FMTE^XLFD T(CGPDT,"5 D") | |
52 | S CGSTAT= $P(^CHCGPA Y(741850.6 ,PT(1),0), "^",2) | |
53 | S CGST=$S (CGSTAT=0: "REJ",CGST AT=1:"INPR OGRESS",CG STAT=2:"PA Y REQ",CGS TAT=3:"COM PL",CGSTAT =4:"REWORK ",CGSTAT=5 :"RESEND", 1:"") | |
54 | W !,CGNAM E,?35,CGSS N | |
55 | W !,CGPDT ,?15,CGAMT ,?30,CGBDA T,?45,CGED AT,?60,CGS T | |
56 | F I=2:1:N PCE D | |
57 | .S CGAMT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",7) | |
58 | .S CGPDT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",3) | |
59 | .S CGPDT= $$FMTE^XLF DT(CGPDT," 5D") | |
60 | .S CGSTAT =$P(^CHCGP AY(741850. 6,PT(I),0) ,"^",2) | |
61 | .S CGST=$ S(CGSTAT=0 :"REJ",CGS TAT=1:"INP ROGRESS",C GSTAT=2:"P AY REQ",CG STAT=3:"CO MPL",CGSTA T=4:"REWOR K",CGSTAT= 5:"RESEND" ,1:"") | |
62 | .W !,CGPD T,?15,CGAM T,?30,CGBD AT,?45,CGE DAT,?60,CG ST | |
63 | W ! | |
64 | G PR4 | |
65 | Q | |
66 | PRT2 ; | |
67 | N IVALUE | |
68 | S TMPI=IN PUT | |
69 | ;S DUZ=%s ession.Dat a("CG","DU Z") | |
70 | D NOW^%DT C S RDT=% | |
71 | I INPUT=" F" D FILE Q ;PRINT REPORT TO FILE | |
72 | S IVALUE= 0 S IVALUE =$O(^%ZIS( 1,"B",INPU T,IVALUE)) I 'IVALUE D Q | |
73 | .W "Print er name no t valid" | |
74 | S ION=$P( $G(^%ZIS(1 ,IVALUE,0) ),"^",1) | |
75 | S ZTIO=IO N | |
76 | S ZTDTH=R DT | |
77 | S PFLG="" | |
78 | S ZTRTN=" PRT0^CHCGW LK1",ZTDES C="PRINT R ESENT STIP END PAYMEN TS" | |
79 | K ZTIO S ZTSAVE("PF LG")="" ;,ZTSAVE(D UZ)="" | |
80 | D ^%ZTLOA D | |
81 | W "Reques t queued." | |
82 | Q | |
83 | FILE; | |
84 | D PAY^CHC GWLK1 | |
85 | Q:'$D(^TM P($J,"CG-R ESENDS")) | |
86 | D NOW^%DT C S TMPDT= % S T=$C(9 ) S CON(". ")="_" S T MPDT=$$REP LACE^XLFST R(%,.CON) | |
87 | S TMPIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]CGR ESENDS_"_T MPDT_".XLS " | |
88 | I '$$OPEN FIWR^CHTFL IB9(.TMPIO ,"FIO") W !,"NOT OPE NED ",TMP IO Q | |
89 | U TMPIO W "Printed on: ",$$FM TE^XLFDT(% ,"5D") | |
90 | S TCGSSN= "" | |
91 | FL S TCGSS N=$O(^TMP( $J,"CG-RES ENDS",TCGS SN)) G:TCG SSN="" FEN D | |
92 | S TVPT=0 | |
93 | FL1 S TVPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT)) G :'TVPT FL | |
94 | S TCPT=0 | |
95 | FL2 S TCPT =$O(^TMP($ J,"CG-RESE NDS",TCGSS N,TVPT,TCP T)) G:'TCP T FL1 | |
96 | S TBDAT=0 | |
97 | FL3 S TBDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT)) G:'TBDAT FL2 | |
98 | S TEDAT=0 | |
99 | FL4 S TEDA T=$O(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT)) G:' TEDAT FL3 | |
100 | S NPCE=$L (^TMP($J," CG-RESENDS ",TCGSSN,T VPT,TCPT,T BDAT,TEDAT ),"^") ;S TORE THE N UMBER OF T IMES SENT | |
101 | F I=1:1:N PCE S PT(I )=$P(^TMP( $J,"CG-RES ENDS",TCGS SN,TVPT,TC PT,TBDAT,T EDAT),"^", I) | |
102 | S CGNAME= $P(^CHCGVE TS(741850. 7,TVPT,100 ,TCPT,0)," ^",1) | |
103 | S CGSSN=$ P(^CHCGVET S(741850.7 ,TVPT,100, TCPT,0),"^ ",4) | |
104 | S CGAMT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",7) | |
105 | S CGBDAT= $$FMTE^XLF DT(TBDAT," 5D") | |
106 | S CGEDAT= $$FMTE^XLF DT(TEDAT," 5D") | |
107 | S CGPDT=$ P(^CHCGPAY (741850.6, PT(1),0)," ^",3) | |
108 | S CGPDT=$ $FMTE^XLFD T(CGPDT,"5 D") | |
109 | S CGSTAT= $P(^CHCGPA Y(741850.6 ,PT(1),0), "^",2) | |
110 | U TMPIO W !,CGNAME_ T_CGSSN | |
111 | F I=2:1:N PCE D | |
112 | .S CGAMT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",7) | |
113 | .S CGPDT= $P(^CHCGPA Y(741850.6 ,PT(I),0), "^",3) | |
114 | .S CGPDT= $$FMTE^XLF DT(CGPDT," 5D") | |
115 | .S CGSTAT =$P(^CHCGP AY(741850. 6,PT(I),0) ,"^",2) | |
116 | .S CGST=$ S(CGSTAT=0 :"REJ",CGS TAT=1:"INP ROGRESS",C GSTAT=2:"P AY REQ",CG STAT=3:"CO MPL",CGSTA T=4:"REWOR K",CGSTAT= 5:"RESEND" ,1:"") | |
117 | .U TMPIO W !,CGPDT_ T_CGAMT_T_ CGBDAT_T_C GEDAT_T_CG ST | |
118 | G FL4 | |
119 | FEND ; | |
120 | D CLOSEF^ CHTFLIB9(T MPIO,"FIO" ) | |
121 | D FTPFILE ^CHTFLIB9( TMPIO," DNS . DNS ","/FS3BIG /Caregiver _Reports", "PUT") | |
122 | Q | |
123 | HEAD ; | |
124 | W !,?20," CBOPC" | |
125 | W !,?10," List of Re sent Stipe nd Payment s" | |
126 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.