Produced by Araxis Merge on 11/9/2018 12:33:45 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 | CHELIGRT.m | Mon Nov 5 16:43:33 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHELIGRT.m | Mon Nov 5 17:38:15 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 550 |
Changed | 3 | 6 |
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 | CHELIGRT ;TLH/CVA E LIGIBILITY REPORTS C HECKS QE D ATE AND TE RMINATION OF REMARRI AGE DATES | |
2 | ;VERSION 1 ; 10/12 /07 | |
3 | ;;DEF016 554, SBB, 12/27/13 - Updating with PST A PI functio n calls | |
4 | ;;DEF016 554, SBB, 07/30/15 - Adding ch anges for DECNET | |
5 | ; | |
6 | ;VARIABL E LIST | |
7 | ;DFN - S PONSOR NUM BER | |
8 | ;BFN - B ENE NUMBER | |
9 | ;BNAME - BENE NAME | |
10 | ;BSSN - BENE SSN | |
11 | ;QEDT - QE DATE OF BENE | |
12 | ;TERMDT - REMARRAI GE TERMINA TION DATE | |
13 | ;TERMFG - TERMINAT ION FLAG | |
14 | ;STATUS - BENE STA TUS | |
15 | ;QECNT - QE DATE R EPORT COUN T | |
16 | ;TERMCNT - NO TERM INATION DA TE REPORT COUNT | |
17 | ;BTWCNT - TERMINAT ED DATE BE TWEEN REPO RT COUNT | |
18 | ZSET ; | |
19 | S:'$D(DUZ ) DUZ=1,DU Z(0)="" I '$D(DT) S %DT="",X=" T" D ^%DT S DT=Y | |
20 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
21 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
22 | ZNAM ; | |
23 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
24 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") D | |
25 | .W #,?10, "ELIGIBILI TY DATA RE PORTS",!! | |
26 | .W !,"PLE ASE SELECT A PRINTER ",!! S IOP ="Q" D ^%Z IS G:POP E ND | |
27 | .S ZTIO=I ON | |
28 | .S ZTRTN= "CALC^CHEL IGRT",ZTDE SC="ELIGIB ILITY DATA REPORTS" | |
29 | .;D ^%ZTL OAD | |
30 | .W !!,"YO UR TASK NU MBER IS ", ZTSK | |
31 | .S IOP=0 D HOME^%ZI S | |
32 | .D CALC^C HELIGRT | |
33 | .Q | |
34 | I CHUCI=" HAC" D | |
35 | .W #,?10, "ELIGIBILI TY DATA RE PORTS",!! | |
36 | .;S ION=" CHVDEV$PRT " ;PRINTE R NOT USED IN PRODUC TION | |
37 | .S ZTIO=" ",CHFIO="" ,ZTSAVE("C HFIO")="" K ION | |
38 | .S ZTRTN= "CALC^CHEL IGRT",ZTDE SC="ELIGIB ILITY DATA REPORTS" | |
39 | .D ^%ZTLO AD | |
40 | .W !!,"YO UR TASK NU MBER IS ", ZTSK | |
41 | .S IOP=0 D HOME^%ZI S | |
42 | .;D CALC^ CHELIGRT | |
43 | Q | |
44 | CALC | |
45 | ; | |
46 | N POP1,PO P2,POP3 | |
47 | S POP1=0, POP2=0,POP 3=0 | |
48 | D INIT | |
49 | I 'POP1!' POP2!'POP3 D | |
50 | . I 'POP1 ,CHUCI'="H AC" U 0 W !,"File: " _IOFILE1_" couldn't be opened. " | |
51 | . I 'POP2 ,CHUCI'="H AC" U 0 W !,"File: " _IOFILE2_" couldn't be opened. " | |
52 | . I 'POP3 ,CHUCI'="H AC" U 0 W !,"File: " _IOFILE3_" couldn't be opened. " | |
53 | . Q | |
54 | K ^CHMZHO LD($J,"QE_ DATE") K ^ CHMZHOLD($ J,"NO_TERM _DATE") K ^CHMZHOLD( $J,"TERM_B ETWEEN") | |
55 | GETSPN ;TH IS WILL FI ND THE SPO NSOR | |
56 | S DFN=0 | |
57 | GS1 S DFN= $O(^AHCHVA (DFN)) G E ND:'DFN | |
58 | GETBEN ; T HIS WILL F IND THE BE NE | |
59 | S BFN=0 | |
60 | GB1 S BFN= $O(^AHCHVA (DFN,100,B FN)) G:'BF N GS1 | |
61 | G:'$D(^A HCHVA(DFN, 100,BFN,0) ) GB1 G:'$ D(^AHCHVA( DFN,100,BF N,1)) GB1 G:'$D(^AHC HVA(DFN,10 0,BFN,2)) GB1 G:'$D( ^AHCHVA(DF N,100,BFN, 3)) GB1 | |
62 | S BNAME= $P(^AHCHVA (DFN,100,B FN,0),"^", 1) | |
63 | I BNAME= "" G GB1 ;SKIP IF N O BENE NAM E | |
64 | I BNAME[ "(SN)" G G B1 ;SKIP IF BENE NA ME IS STUB NAME | |
65 | I $D(^AH ADIC(55480 4.07,"B",B NAME)) G G B1 ;SKIP IF BENE NA ME IS DELE TED | |
66 | S SDOD=$ P(^AHCHVA( DFN,0),"^" ,4) | |
67 | S REL=$P (^AHCHVA(D FN,100,BFN ,0),"^",4) | |
68 | S TERMFG =$P(^AHCHV A(DFN,100, BFN,0),"^" ,18) | |
69 | S TERMDT =$P(^AHCHV A(DFN,100, BFN,0),"^" ,7) | |
70 | S BSSN=$ P(^AHCHVA( DFN,100,BF N,0),"^",9 ) | |
71 | I BSSN=" " G GB1 ; SKIP IF SS N IS BLANK | |
72 | I $P(^AH CHVA(DFN,1 00,BFN,0), "^",5)'="E A" G GB1 | |
73 | I '$D(^A HCHVA(DFN, 100,BFN,10 9)) G GB1 | |
74 | S QEDT=$ P(^AHCHVA( DFN,100,BF N,0),"^",1 0) | |
75 | QEDT ; CHE CK QE DATE FOR REPOR T | |
76 | I QEDT<27 30901 D | |
77 | .I '$D(^C HMZHOLD($J ,"QE_DATE" ,BNAME,DFN ,BFN)) S ^ CHMZHOLD($ J,"QE_DATE ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N_"^"_REL_ "^"_QEDT | |
78 | .Q | |
79 | NOTERM ;C HECK FOR N O TERMINAT ION DATE | |
80 | I SDOD'=" " I REL="S " I TERMFG =1 I TERMD T="" D | |
81 | .I '$D(^C HMZHOLD($J ,"NO_TERM_ DATE",BNAM E,DFN,BFN) ) S ^CHMZH OLD($J,"NO _TERM_DATE ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N | |
82 | .Q | |
83 | TERM ; CHE CK TO DETE RMINE IF T ERMINATION IS BETWEE N 11/1/199 0 AND 11/3 1/1999 | |
84 | I SDOD'=" " I REL="S " I TERMFG =1 I TERMD T>2901101 I TERMDT<2 991131 D | |
85 | .I '$D(^C HMZHOLD($J ,"TERM_BET WEEN",BNAM E,DFN,BFN) ) S ^CHMZH OLD($J,"TE RM_BETWEEN ",BNAME,DF N,BFN)=BNA ME_"^"_BSS N_"^"_TERM DT | |
86 | .Q | |
87 | G GB1 | |
88 | HEAD ; | |
89 | S PG=PG+1 | |
90 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W # | |
91 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
92 | S TAB=(80 -$L(TITLE) )/2 | |
93 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S Y=DT X ^D D("DD") | |
94 | I CHUCI=" HAC" U IOF ILE1 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD") | |
95 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7) | |
96 | S TITLE=" QE DATE BE FORE 09/01 /1973 " | |
97 | S TAB=(80 -$L(TITLE) )/2 | |
98 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE | |
99 | I CHUCI=" HAC" U IOF ILE1 W !,T _TITLE | |
100 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN",?55 ,"REL",?67 ,"QE DATE" | |
101 | I CHUCI=" HAC" U IOF ILE1 W !!, "BENE NAME "_T_"BENE SSN"_T_"RE L"_T_"QE D ATE" | |
102 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----",?55, "-----",?6 7,"------- ----" | |
103 | Q | |
104 | HEAD1 | |
105 | S PG=PG+1 | |
106 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W # | |
107 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
108 | S TAB=(80 -$L(TITLE) )/2 | |
109 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S Y=DT X ^D D("DD") | |
110 | I CHUCI=" HAC" U IOF ILE2 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD") | |
111 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7) | |
112 | I CHUCI=" HAC" U IOF ILE2 W !,$ E(DT,4,7) | |
113 | S TITLE=" REMARRIAGE TERMINATE D NO TERM DATE " | |
114 | S TAB=(80 -$L(TITLE) )/2 | |
115 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE | |
116 | I CHUCI=" HAC" U IOF ILE2 W !,T _TITLE | |
117 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN" | |
118 | I CHUCI=" HAC" U IOF ILE2 W !!, "BENE NAME "_T_"BENE SSN" | |
119 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----" | |
120 | Q | |
121 | HEAD2 | |
122 | S PG=PG+1 | |
123 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W # | |
124 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
125 | S TAB=(80 -$L(TITLE) )/2 | |
126 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,D UZ,?TAB,TI TLE,?62,"P AGE ",PG S Y=DT X ^D D("DD") | |
127 | I CHUCI=" HAC" U IOF ILE3 W !,D UZ_T_TITLE _T_"PAGE " _T_PG S Y= DT X ^DD(" DD") | |
128 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,$ E(DT,4,7) | |
129 | I CHUCI=" HAC" U IOF ILE3 W !,$ E(DT,4,7) | |
130 | S TITLE=" REMARRIAGE TERMINATE D BETWEEN 11/1/1990 AND 11/31/ 1999" | |
131 | S TAB=(80 -$L(TITLE) )/2 | |
132 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,? TAB,TITLE | |
133 | I CHUCI=" HAC" U IOF ILE3 W !,T _TITLE | |
134 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !!, "BENE NAME ",?35,"BEN E SSN",?67 ,"TERM DAT E" | |
135 | I CHUCI=" HAC" U IOF ILE3 W !," BENE NAME" _T_"BENE S SN"_T_"TER M DATE" | |
136 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !," --------", ?35,"----- ----",?67, "--------- --" | |
137 | Q | |
138 | END | |
139 | D QEDTRPT | |
140 | ;DEF01655 4-12/27/13 -SBB use C LOSE^%ZISH to close file | |
141 | ;DEF01655 4 SBB 12/2 7/13 - Co nverting f rom DECNET to FTP. | |
142 | I CHUCI=" HAC" D | |
143 | .;C IOFIL E1 S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE1 | |
144 | .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G1_COPY.CO M/PARAM=(" _IOFILE1_" )") R X:45 | |
145 | .D CLOSEF ^CHTFLIB9( IOFILE1,"I OFILE1") | |
146 | .D FTPFIL E^CHTFLIB9 (IOFILE1," DNS fs3. DNS ","/FS3BIG ","PUT") | |
147 | .Q | |
148 | D TERMRPT | |
149 | I CHUCI=" HAC" D | |
150 | .;C IOFIL E2 S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE2 | |
151 | .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G2_COPY.CO M/PARAM=(" _IOFILE2_" )") R X:45 | |
152 | .D CLOSEF ^CHTFLIB9( IOFILE2,"I OFILE2") | |
153 | .D FTPFIL E^CHTFLIB9 (IOFILE2," DNS fs3. DNS ","/FS3BIG ","PUT") | |
154 | .Q | |
155 | D BTWRPT | |
156 | D PEND | |
157 | Q | |
158 | INIT ; SET UP ALL VA RIABLES TO NULL | |
159 | S BNAME=" " | |
160 | S BSSN="" | |
161 | S QEDT="" | |
162 | S TERMFG= "" | |
163 | S TERMDT= "" | |
164 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
165 | ;SBB 07/3 0/15 DEF01 6554 | |
166 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
167 | ;DEF01655 4-12/27/13 -SBB call OPEN^%ZISH to open t he file | |
168 | I CHUCI=" HAC" D | |
169 | .S IOFILE 1="HAC_HFS $:[SCR.TEM P_FILES]QE _DATE.DAT" S T=$C(9) ; FOR LI VE ONLY | |
170 | .;O IOFIL E1:"NWS" | |
171 | .S POP1=$ $OPENFIWR^ CHTFLIB9(. IOFILE1,"I OFILE1") | |
172 | .S IOFILE 2="HAC_HFS $:[SCR.TEM P_FILES]NO _TERM_DATE .DAT" S T= $C(9) ; F OR LIVE ON LY | |
173 | .;O IOFIL E2:"NWS" | |
174 | .S POP2=$ $OPENFIWR^ CHTFLIB9(. IOFILE2,"I OFILE2") | |
175 | .S IOFILE 3="HAC_HFS $:[SCR.TEM P_FILES]TE RM_BETWEEN .DAT" S T= $C(9) ; F OR LIVE ON LY | |
176 | .;O IOFIL E3:"NWS" | |
177 | .S POP3=$ $OPENFIWR^ CHTFLIB9(. IOFILE3,"I OFILE3") | |
178 | .Q | |
179 | Q | |
180 | QEDTRPT ; REPORT FOR QEDATE CH ECK | |
181 | S PG=0 | |
182 | D HEAD | |
183 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") I '$D (^CHMZHOLD ($J,"QE_DA TE")) W !, "NO DATA F OUND" Q | |
184 | I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"QE_DA TE")) U IO FILE1 W ! ,"NO DATA FOUND" Q | |
185 | S QEBNAME ="",QECNT= 0 | |
186 | QE1 S QEBN AME=$O(^CH MZHOLD($J, "QE_DATE", QEBNAME)) I QEBNAME= "" D Q | |
187 | .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",QECNT | |
188 | .I CHUCI= "HAC" U IO FILE1 W !, "TOTAL NUM BER OF BEN EFICIARIES ",QECNT | |
189 | S DFN=0 | |
190 | QE2 S DFN= $O(^CHMZHO LD($J,"QE_ DATE",QEBN AME,DFN)) G:DFN="" Q E1 | |
191 | S BFN=0 | |
192 | QE3 S BFN= $O(^CHMZHO LD($J,"QE_ DATE",QEBN AME,DFN,BF N)) G:BFN= "" QE2 | |
193 | S QEREC= ^CHMZHOLD( $J,"QE_DAT E",QEBNAME ,DFN,BFN) | |
194 | S BNAME= $P(QEREC," ^",1) | |
195 | S BSSN=$ P(QEREC,"^ ",2) | |
196 | S REL=$P (QEREC,"^" ,3) | |
197 | S QEDT=$ P(QEREC,"^ ",4) | |
198 | S QECNT= QECNT+1 | |
199 | I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !, BNAME,?35, BSSN,?55,R EL,?67,$$F MTE^XLFDT( QEDT,"5D") | |
200 | I CHUCI= "HAC" U IO FILE1 W !, BNAME_T_BS SN_T_REL_T _$$FMTE^XL FDT(QEDT," 5D") G QE3 | |
201 | I $Y>54 D | |
202 | .W @IOF | |
203 | .D HEAD | |
204 | .Q | |
205 | G QE3 | |
206 | TERMRPT ; REPORT FOR TERM DATE NOT PROVI DED | |
207 | S PG=0 | |
208 | D HEAD1 | |
209 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") I '$D (^CHMZHOLD ($J,"NO_TE RM_DATE")) W !,"NO D ATA FOUND" Q | |
210 | I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"NO_TE RM_DATE")) U IOFILE2 W !,"NO D ATA FOUND" Q | |
211 | S TERBNAM E="",TERMC NT=0 | |
212 | TER1 S TER BNAME=$O(^ CHMZHOLD($ J,"NO_TERM _DATE",TER BNAME)) I TERBNAME=" " D Q | |
213 | .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",TERMC NT | |
214 | .I CHUCI= "HAC" U IO FILE2 W !, "TOTAL NUM BER OF BEN EFICIARIES ",TERMCNT | |
215 | S DFN=0 | |
216 | TER2 S DFN =$O(^CHMZH OLD($J,"NO _TERM_DATE ",TERBNAME ,DFN)) G:D FN="" TER1 | |
217 | S BFN=0 | |
218 | TER3 S BFN =$O(^CHMZH OLD($J,"NO _TERM_DATE ",TERBNAME ,DFN,BFN)) G:BFN="" TER2 | |
219 | S TMREC=^ CHMZHOLD($ J,"NO_TERM _DATE",TER BNAME,DFN, BFN) | |
220 | S BNAME=$ P(TMREC,"^ ",1) | |
221 | S BSSN=$P (TMREC,"^" ,2) | |
222 | S TERMCNT =TERMCNT+1 | |
223 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,B NAME,?35,B SSN | |
224 | I CHUCI=" HAC" U IOF ILE2 W !,B NAME_T_BSS N G TER3 | |
225 | I $Y>54 D | |
226 | .W @IOF | |
227 | .D HEAD1 | |
228 | .Q | |
229 | G TER3 | |
230 | BTWRPT ; R EPORT FOR TERM BETWE EN 11/1/19 90 TO 11/3 1/1999 | |
231 | S PG=0 | |
232 | D HEAD2 | |
233 | I (CHUCI= "DEV")!(CH UCI="TST") !("TRN") I '$D(^CHMZ HOLD($J,"T ERM_BETWEE N")) W !," NO DATA FO UND" Q | |
234 | I CHUCI=" HAC" I '$D (^CHMZHOLD ($J,"TERM_ BETWEEN")) U IOFILE3 W !,"NO D ATA FOUND" Q | |
235 | S BTBNAME ="",BTWCNT =0 | |
236 | BTW1 S BTB NAME=$O(^C HMZHOLD($J ,"TERM_BET WEEN",BTBN AME)) I BT BNAME="" D Q | |
237 | .I (CHUCI ="DEV")!(C HUCI="TST" )!(CHUCI=" TRN") W !! !,"TOTAL N UMBER OF B ENEFICIARI ES ",BTWCN T | |
238 | .I CHUCI= "HAC" U IO FILE3 W !, "TOTAL NUM BER OF BEN EFICIARIES ",BTWCNT | |
239 | S DFN=0 | |
240 | BTW2 S DFN =$O(^CHMZH OLD($J,"TE RM_BETWEEN ",BTBNAME, DFN)) G:DF N="" BTW1 | |
241 | S BFN=0 | |
242 | BTW3 S BFN =$O(^CHMZH OLD($J,"TE RM_BETWEEN ",BTBNAME, DFN,BFN)) G:BFN="" B TW2 | |
243 | S BTREC=^ CHMZHOLD($ J,"TERM_BE TWEEN",BTB NAME,DFN,B FN) | |
244 | S BNAME=$ P(BTREC,"^ ",1) | |
245 | S BSSN=$P (BTREC,"^" ,2) | |
246 | S TERMDT= $P(BTREC," ^",3) | |
247 | S BTWCNT= BTWCNT+1 | |
248 | I (CHUCI= "DEV")!(CH UCI="TST") !(CHUCI="T RN") W !,B NAME,?35,B SSN,?67,$$ FMTE^XLFDT (TERMDT,"5 D") | |
249 | I CHUCI=" HAC" U IOF ILE3 W !,B NAME_T_BSS N_T_$$FMTE ^XLFDT(TER MDT,"5D") G BTW3 | |
250 | I $Y>54 D | |
251 | .W @IOF | |
252 | .D HEAD2 | |
253 | .Q | |
254 | G BTW3 | |
255 | PEND ; | |
256 | ;I CHUCI= "HAC" C IO FILE1,IOFI LE2,IOFILE 3 D | |
257 | ;.S CHTMP 1="SET PRO TECTION=(W :RWED) "_I OFILE1 | |
258 | ;.S CHTMP 2="SET PRO TECTION=(W :RWED) "_I OFILE2 | |
259 | ;.S CHTMP 3="SET PRO TECTION=(W :RWED) "_I OFILE3 | |
260 | ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE1_") ") R X:45 | |
261 | ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE2_") ") R X:45 | |
262 | ;.S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G_COPY.COM /PARAM=("_ IOFILE3_") ") | |
263 | I CHUCI=" HAC" D | |
264 | .;C IOFIL E3 S CHTMP 3="SET PRO TECTION=(W :RWED) "_I OFILE3 | |
265 | .;S X=$ZF (-1,"SUBMI T HAC_HFS$ :[SCR.TEMP _FILES]ELI G3_COPY.CO M/PARAM=(" _IOFILE3_" )") | |
266 | .D CLOSEF ^CHTFLIB9( IOFILE3,"I OFILE3") | |
267 | .D FTPFIL E^CHTFLIB9 (IOFILE3," DNS fs3. DNS ","/FS3BIG ","PUT") | |
268 | .Q | |
269 | ;SBB 07/3 0/15 DEF01 6554 | |
270 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
271 | I CHUCI=" TST" Q ;P RINT HARD COPY REPOR T FROM USE R DEFINED PRINTER | |
272 | I CHUCI=" DEV" Q ;P RINT HARD COPY REPOR T FROM USE R DEFIND P RINTER | |
273 | K ^CHMZHO LD($J,"QE_ DATE") K ^ CHMZHOLD($ J,"NO_TERM _DATE") K ^CHMZHOLD( $J,"TERM_B ETWEEN") | |
274 | K BNAME,B SSN,TERMCN T,QECNT,BT WCNT,TERMF G,TERMDT,S TATUS,DFN, BFN | |
275 | Q | |
276 | ||
277 | ||
278 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.