Produced by Araxis Merge on 11/9/2018 12:33:52 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 | CHMAGE38.m | Mon Nov 5 16:40:54 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMAGE38.m | Mon Nov 5 17:42:03 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 532 |
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 | CHMAGE38 ;DPT Aging of Applic ation repo rt 3884 7/ 14/10 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d | |
3 | ;D EV009104 | |
4 | ;b ug009104-0 4-01,02 mo dify layou t correct <31 days | |
5 | ;b ug009104-0 4-03,04 mo dify layou t correct <31 days | |
6 | ;b ug009104-0 4-05,corre ct undefin ed | |
7 | ;BUG91 04-06 DPT correct ed it for 388 4 to get m ost recent entry,sor t print by sponsor | |
8 | ;D EV012893 D PT RMV DEC NET | |
9 | ;r emove crit eria for i neligible reason | |
10 | ;T his report list spon sor name, ssn, bene name and s sn, inelig ible, | |
11 | ; with incom ple (RO-38 84( with b eneficiary DEV00910 4 | |
12 | ;VARIBLES | |
13 | ;CHANS - PRINT O R FILE | |
14 | ;D FN - SPONS OR INTERNA L REFERENC E | |
15 | ;BFN - BE NE INTERNA L REFERNEC E | |
16 | ;B NAME - BEN E NAME | |
17 | ;B SSN - BENE SSN | |
18 | ;S PNAME - SP ONSOR NAME | |
19 | ;SPSSN - SPONSOR SS N | |
20 | ;SSTATUS - SPONSOR ELIGIBILIT Y STATUS | |
21 | ;BSTATUS - BENE ELI GIBILITY S TATUS | |
22 | ;CHDATE - AS OF DAT E | |
23 | ;SCHCK1 - Sponsor 30 TO 59 DAY S | |
24 | ;SCHCK2 - Sponsor 60 TO 89 D AYS | |
25 | ;SCHCK3 - Sponsor 9 0-119 DAYS | |
26 | ;SCHCK4 - Sponsor 1 20 TO 179 DAYS | |
27 | ;SCHCK5 - Sponsor GR EATER THAN OR EQUAL 180 DAYS | |
28 | ;BCHCK1 - Sponsor 30 TO 59 DAY S | |
29 | ;S UMCHECK1, SUMCHECK2, SUMCHECK3 , SUMCHECK 4, SUMCHEC K5 - TOTAL S FOR EACH CATEGORY | |
30 | ZSET ; | |
31 | S:'$D(DUZ ) DUZ=1,DU Z(0)="" I '$D(DT) S %DT="",X=" T" D ^%DT S DT=Y | |
32 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
33 | 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 | |
34 | ZSET1 ; | |
35 | W !,"This report wi ll show Ag ing of App lication r eport" | |
36 | W !,"inel igible, in complete(R O-3884), o utstanding 3884 incl uding" | |
37 | W !,"bene ficiary an d VARO sta tion" | |
38 | S CHDATE= DT | |
39 | S CHDATE2=$$ FMTE^XLFDT (CHDATE,5) | |
40 | W !,"Today's date will be used f or as of d ate" | |
41 | ||
42 | ||
43 | ZSET2 W !! ,"WOULD YO U LIKE TO CREATE A ( F)ILE OR ( P)RINT A R EPORT? " D CSBRS^CH SC2 | |
44 | S CHANS=Y | |
45 | I $D(DQOU T) D G ZS ET2 | |
46 | .W !," PL EASE ENTER A 'F' FOR (F)ILE OR 'P' FOR ( P)RINT. " | |
47 | .Q | |
48 | I $D(DFOU T) G END | |
49 | I $D(DUOU T) G END | |
50 | I $D(DTOU T) G END | |
51 | S CHANS=$ E(CHANS,1) | |
52 | S CHANS=$ $UP^XLFSTR (CHANS) | |
53 | I (CHANS' ="F"),(CHA NS'="P") W !,"MUST BE A 'F' F OR FILE OR 'P' FOR P RINT" G ZS ET2 | |
54 | I CHANS=" P" D QUE G END | |
55 | I CHANS=" F" D G EN D | |
56 | .W #,!,"T HIS MAY TA KE A WHILE " | |
57 | .D CHKMED | |
58 | .Q | |
59 | I CHANS=" " G END | |
60 | Q | |
61 | QUE ; | |
62 | W #,?10," Printing A GING OF AP PLICATION REPORT " ,!! | |
63 | W !,"PLEA SE SELECT A WIDE PRI NTER",!! S IOP="Q" D ^%ZIS G:P OP END | |
64 | S ZTIO=IO N | |
65 | S ZTRTN=" CHKMED^CHM AGE38",ZTD ESC="AGING OF APPLIC ATION REPO RT" | |
66 | S ZTSAVE( "CHANS")=" ",ZTSAVE(" CHDATE")=" ",ZTSAVE(" CHDATE2")= "" | |
67 | D ^%ZTLOA D ;ANSWER FROM PROMP T TO PRINT OR VIEW R EPORT | |
68 | W !!,"YOU R TASK NUM BER IS ",Z TSK | |
69 | ;D CHKMED ^CHMAGE38 | |
70 | Q | |
71 | CHKMED ;E STABLISH V ARIBLES TO 0 OR NULL | |
72 | K ^CHMZHO LD("9104_A GING_OF_AP P_3884",$J ) | |
73 | D INIT | |
74 | S (DFN,CNT,B CNT,SCNT)= 0 | |
75 | S TCLMS=0 | |
76 | SPON ;EST ABLISH VAR IBLES | |
77 | S DFN=$O( ^AHCHVA(DF N)) G:'DFN CEND | |
78 | G:'$D(^AH CHVA(DFN,0 )) SPON | |
79 | S SPREC=^ AHCHVA(DFN ,0) | |
80 | I $P(SPRE C,"^",1)[" (SN)" G SP ON ;SKIP IF STUB NA ME | |
81 | S SPNAME= $P(SPREC," ^",1) | |
82 | I $D(^AHA DIC(554804 .07,"B",SP NAME)) G S PON ;SKIP IF SPONSO R IS DELET ED ;jeh - this ma y never be true | |
83 | S SPSTATU S=$P(SPREC ,"^",5) I SPSTATUS'= "I" G SPON ; SKIP I F ELIGIBLE ,PREND OR UNKNOWN | |
84 | T1 ;S CH38 84=$P(SPRE C,"^",12) I CH3884'= 5 G SPON ; no longe r a valid criteria | |
85 | S SPSSN=$ P(SPREC,"^ ",9) | |
86 | I SPSSN=" " G SPON | |
87 | S FSPSSN= "" | |
88 | I SPSSN'= 0 S FSPSSN =$E(SPSSN, 1,3)_"-"_$ E(SPSSN,4, 5)_"-"_$E( SPSSN,6,9) | |
89 | S SVARO=$ P(SPREC,"^ ",8) | |
90 | S J1=" " S J1=$O( ^AHCHVA(DF N,109,J1), -1) G:'J1 SPON ;BUG 9104-06 DP T | |
91 | T4 I '$D(^ AHCHVA(DFN ,109,J1,0) ) G SPON ;BUG9104- 06 DPT | |
92 | S S2REC=" " S S2REC= ^AHCHVA(DF N,109,J1,0 ) ;BUG910 4-06 DPT | |
93 | S S3884ST ="" | |
94 | S S3884ST =$P(S2REC, "^",2) I S 3884ST'="O " G SPON ; OUTSTANDIN G RO-38884 BUG9104-0 6 DPT | |
95 | T5 S S3884 DT="" ;BUG 9104-06 DP T | |
96 | S S3884DT =$P(S2REC, "^",1) I S 3884DT="" G SPON ;BU G9104-06 D PT | |
97 | S F3884DT =0 ;BUG 9104-06 DP T | |
98 | S F3884DT =$E(S3884D T,1,7) S R 3884DT=$$F MTE^XLFDT( F3884DT,5) ;BUG9104- 06 DPT | |
99 | T6 S DIFF= $$FMDIFF^X LFDT(CHDAT E,F3884DT, 1) ; FIND DIFFERENCE BUG9104-0 6 DPT | |
100 | I DIFF<30 G SPON ; BUG9104-06 DPT | |
101 | I DIFF>29,DI FF<60 S SCHCK1= $I(SCHCK1) S SCNT=$I (SCNT) ;BU G9104-06 D PT | |
102 | I (DIFF>5 9),(DIFF<9 0) S SC HCK2=$I(SC HCK2) S SC NT=$I(SCNT ) ;BUG9104 -06 DPT | |
103 | I (DIFF>8 9),(DIFF<1 20) S SC HCK3=$I(SC HCK3) S SC NT=$I(SCNT ) ;BUG9104 -06 DPT | |
104 | I (DIFF>1 19),(DIFF< 180) S S CHCK4=$I(S CHCK4) S S CNT=$I(SCN T) ;BUG910 4-06 DPT | |
105 | I DIFF>17 9 S SCHCK5=$I( SCHCK5) S SCNT=$I(SC NT) ;BUG91 04-06 DPT | |
106 | S FST="Y" ,FST2="Y" | |
107 | S BFN=0 S BREC="" | |
108 | BENE S BFN =$O(^AHCHV A(DFN,100, BFN)) G:'B FN SPON | |
109 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) G BENE | |
110 | S BREC=^A HCHVA(DFN, 100,BFN,0) | |
111 | I $P(BREC ,"^",1)["( SN)" G BEN E ;SKIP I F STUB NAM E | |
112 | I $P(BREC ,"^",1)="" G BENE ; SKIP IF NO BENE NAME | |
113 | I $P(BREC ,"^",9)="" G BENE ; SKIP IF NO SSN | |
114 | I $P(BREC ,"^",4)="S F" G BENE ;SKIP IF RELATIONSH IP IS SELF | |
115 | I $P(BREC ,"^",5)'=" D" G BENE ;SKIP IF ELIGIBLE,P REND OR UN KNOWN | |
116 | S BNAM E=$P(BREC, "^",1) | |
117 | I $D(^AHA DIC(554804 .07,"B","B NAME")) G BENE ;SKI P IF BENE IS DELETED | |
118 | S BSSN=$P (BREC,"^", 9) | |
119 | S FBSSN=" " | |
120 | I BSSN'=0 S FBSSN=$ E(BSSN,1,3 )_"-"_$E(B SSN,4,5)_" -"_$E(BSSN ,6,9) | |
121 | I S3884ST="O " D | |
122 | .I '$D(^C HMZHOLD("9 104_AGING_ OF_APP_388 4",$J,SPNA ME,DFN,BFN )) | |
123 | .S ^CHMZH OLD("9104_ AGING_OF_A PP_3884",$ J,SPNAME,D FN,BFN)=SP NAME_"^"_F SPSSN_"^"_ BNAME_"^"_ FBSSN_"^"_ R3884DT_"^ "_SVARO_"^ "_CNT,CNT= CNT+1 ;BU G9104-06 D PT | |
124 | .Q | |
125 | G BENE | |
126 | CEND | |
127 | ;I '$D(^C HMZHOLD("9 104_AGING_ OF_APP_388 4")) G END | |
128 | S PG=0,CN T=0 | |
129 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
130 | I CHANS=" F"{ | |
131 | ;S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]"_CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT" | |
132 | S FIO=CHUCI_ "_9104_AGI NG_OF_APP_ 3884.TXT" ;DEV012893 DPT | |
133 | S FOLDER="HA C_HFS$:[SC R.TEMP_FIL ES]" ;DEV0 12893 DPT | |
134 | I CHUCI'="HA C" S FOLDE R="HAC_HFS $:[DSMMANA G.CHAMPVA] " ;DEV0128 93 DPT | |
135 | S FIO=FOLDER _FIO ;DEV 012893 DPT | |
136 | S FLDR="/FS3 BIG" ;DEV0 12893 DPT | |
137 | ;w !,data wi ll be writ ten to [FS 3BIG\] | |
138 | W !,"File: " ,FIO | |
139 | O FIO C FIO: "D" O FIO: "NWS" | |
140 | D RP T} | |
141 | ELSE { D RPT} | |
142 | G END | |
143 | ; | |
144 | RPT ; PRIN T HARDCOPY OR FILE | |
145 | D NOW^%DTC S DTE=$$FMT E^XLFDT(%, 5) | |
146 | S DTM=$P(DTE ,"@",2) S DTE2=$P(DT E,"@") | |
147 | D RPTH EAD | |
148 | D RPT1 | |
149 | D RPT2 | |
150 | I '$D(^CH MZHOLD("91 04_AGING_O F_APP_3884 ")) D | |
151 | .I CHANS ="F" U FIO W !,"NO R ECORDS FOU ND" G END | |
152 | .W !, "NO RECORD S FOUND" G END | |
153 | D B1 Q ;BUG 009104 | |
154 | Q | |
155 | RPTHEAD ; WRITES OUT AGING REP ORT HEADER FOR SUMMA RY AND TOT ALS | |
156 | S TITLE1="HE ALTH ADMIN ISTRATION CENTER" | |
157 | S TITLE2="AP PLICATIONS AGING REP ORT as of "_CHDATE2 | |
158 | S TITLE3="SP ONSOR WITH STATUS OF INELIGIBL E/INCOMPLE TE" | |
159 | S TITLE4="AN D OUTSTAND ING RO-388 4 WITH BEN EFICIARY F ILE" | |
160 | I CHANS="F" { U FIO W !!,?51,TI TLE1 | |
161 | U FI O W !,?44, TITLE2 | |
162 | U FI O W !,?46, TITLE3 | |
163 | U FI O W !,?42, TITLE4 U F IO W !?2,D UZ U FIO W !,?2,DTE2 U FIO W ! ,?2,DTM} | |
164 | EL SE {W !!,? 51,TITLE1 | |
165 | W !,?44 ,TITLE2 | |
166 | W !,?46 ,TITLE3 | |
167 | W !,?42,TIT LE4 W !?2 ,DUZ W !,? 2,DTE2 W ! ,?2,DTM} ;bug009104 -04-05 dpt | |
168 | S CNT=CNT+4 | |
169 | Q | |
170 | RPT1 ;COLU MN HEADERS | |
171 | I CHANS=" F" { | |
172 | U FIO W !!?2," ",? 23,"Total #",?43,"Ap plications ",?58,"App lications" ,?73,"Appl ications", ?88,"Appli cations",? 105,"Appli cations" | |
173 | U FIO W !,?2," ",? 23,"Applic ations",?4 3,"30-59 D ays",?58," 60-89 Days ",?73,"90- 119 Days", ?88,"120-1 79 Days",? 105,">180 Days" | |
174 | U FIO W !,?2," ",? 23,"------ ------",?4 3,"------- -----",?58 ,"-------- ----",?73, "--------- ---",?88," ---------- --",?105," ---------- --"} | |
175 | EL SE { W !!?2,"",?2 3,"Total # ",?43,"App lications" ,?58,"Appl ications", ?73,"Appli cations",? 88,"Applic ations",?1 05,"Applic ations" | |
176 | W !,?2 ,"",?23,"A pplication s",?43,"30 -59 Days", ?58,"60-89 Days",?73 ,"90-119 D ays",?88," 120-179 Da ys",?105," >180 Days" | |
177 | W !,?2 ,"",?23,"- ---------- -",?43,"-- ---------- ",?58,"--- ---------" ,?73,"---- --------", ?88,"----- -------",? 105,"----- -------"} | |
178 | S CNT=CNT+3 | |
179 | Q | |
180 | RPT2 ;MAIN SECTION O F SUMMARY | |
181 | S SSUMAPP =SCHCK1+SC HCK2+SCHCK 3+SCHCK4+S CHCK5 | |
182 | S CNT= CNT+3 | |
183 | I CHAN S="F" { | |
184 | U FIO W !,?2 ,"",?23,SS UMAPP,?43, SCHCK1,?58 ,SCHCK2,?7 3,SCHCK3,? 88,SCHCK4, ?105,SCHCK 5} | |
185 | EL SE {W !,?2 ,"",?23,SS UMAPP,?43, SCHCK1,?58 ,SCHCK2,?7 3,SCHCK3,? 88,SCHCK4, ?105,SCHCK 5} | |
186 | Q | |
187 | ||
188 | B1 ;PRINT DETAILS | |
189 | I CHAN S="P" W @I OF | |
190 | D BHEAD | |
191 | S SPNAME= 0 | |
192 | B15 S SPNA ME=$O(^CHM ZHOLD("910 4_AGING_OF _APP_3884" ,$J,SPNAME )) G:SPNAM E="" SEND | |
193 | S DFN=0 | |
194 | B16 S DFN= $O(^CHMZHO LD("9104_A GING_OF_AP P_3884",$J ,SPNAME,DF N)) G:DFN= "" B15 | |
195 | S BFLG=0,BFN =0 | |
196 | B2 ; | |
197 | S BFN=$O(^CH MZHOLD("91 04_AGING_O F_APP_3884 ",$J,SPNAM E,DFN,BFN) ) G:BFN="" B16 | |
198 | S BFLG=1 | |
199 | B4 ; | |
200 | S SPONAME=$P (^CHMZHOLD ("9104_AGI NG_OF_APP_ 3884",$J,S PNAME,DFN, BFN),"^",1 ) | |
201 | S SPOSSN=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",2) | |
202 | S BENAME=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",3) | |
203 | S BENSSN=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",4) | |
204 | S BF3884DT=$ P(^CHMZHOL D("9104_AG ING_OF_APP _3884",$J, SPNAME,DFN ,BFN),"^", 5) | |
205 | S SNVARO=$P( ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J,SP NAME,DFN,B FN),"^",6) | |
206 | S BDATA=SPON AME_"^"_SP OSSN_"^"_B ENAME_"^"_ BENSSN_"^" _BF3884DT_ "^"_SNVARO | |
207 | I CHANS="P" D | |
208 | .I $Y>58 D | |
209 | ..W @IOF | |
210 | ..D BHEAD | |
211 | ..Q | |
212 | I BFLG=1 S C NT=CNT+1 | |
213 | I CHANS= "F" {U FIO W !,?2,SP ONAME,?32, SPOSSN,?45 ,BENAME,?7 6,BENSSN,? 90,BF3884D T,?102,SNV ARO S BFLG =0 } ;BUG0 09104 | |
214 | ELS E { W !, ?2,SPONAME ,?32,SPOSS N,?45,BENA ME,?76,BEN SSN,?90,BF 3884DT,?10 2,SNVARO S BFLG=0 } ;BUG00910 4 | |
215 | G B2 | |
216 | BHEAD ; WR ITES OUT R EPORT HEAD ER DETAIL | |
217 | D RPTHEAD | |
218 | S TITLE5="DE TAIL" | |
219 | S CNT=CNT+4 | |
220 | I CHANS="F" { | |
221 | U FIO W !!,?60,TIT LE5 | |
222 | U FIO W !!,?2,"SPO NSOR",?32, "SPONSOR", ?45,"BENEF ICIARY",?7 6,"BENEFIC IARY",?90, "DATE OF", ?102,"VARO " | |
223 | U FIO W !,?2 ,"NAME",?3 2,"SSN",?4 5,"NAME",? 76,"SSN",? 90,"OF 388 4",?102,"N UMBER" | |
224 | U FIO W !,?2,"---- ---",?32," ---------- -",?45,"-- ---------" ,?76,"---- -------",? 90,"------ ----",?102 ,"------" } | |
225 | EL SE {W !!,? 60,TITLE5 | |
226 | W !!,?2, "SPONSOR", ?32,"SPONS OR",?45,"B ENEFICIARY ",?76,"BEN EFICIARY", ?90,"DATE OF",?102," VARO" | |
227 | W !,?2,"NAME ",?32,"SSN ",?45,"NAM E",?76,"SS N",?90,"OF 3884",?10 2,"NUMBER" | |
228 | W !,?2,"---- ---",?32," ---------- -",?45,"-- ---------" ,?76,"---- -------",? 90,"------ ----",?102 ,"------" } | |
229 | Q | |
230 | SUMHEAD ; WRITES OUT REPORT HE ADER FOR T OTALS OF D ETAIL | |
231 | ;D RPTHEAD | |
232 | S TITLE6="DE TAIL TOTAL S" | |
233 | I CHANS=" F" { | |
234 | U FIO W !!,?64, TITLE6 | |
235 | U FIO W !!,?2,"TOT AL SPONSOR COUNT = " ,SCNT } | |
236 | ELSE {W ! !,?60,TITL E6 | |
237 | W !! ,?2,"TOTAL SPONSOR C OUNT = ",S CNT } | |
238 | Q | |
239 | SEND; | |
240 | D SUMH EAD ;BUG 009104 | |
241 | I CHAN S="F" {C FIO | |
242 | X ^ %ZOSF("UCI ") S CHUCI =$P(Y,",", 1) | |
243 | ;S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]"_CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT" ;BUG9104-0 6 DPT | |
244 | S F IO=CHUCI_" _9104_AGIN G_OF_APP_3 884.TXT" | |
245 | S F OLDER="HAC _HFS$:[SCR .TEMP_FILE S]" ;DEV01 2893 DPT | |
246 | I CHUCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
247 | S F IO=FOLDER_ FIO ;DEV0 12893 DPT | |
248 | S FLDR="/F S3BIG" ;DE V012893 DP T | |
249 | H 3 0 } | |
250 | EL SE {Q} | |
251 | PEND | |
252 | I CHAN S="F" U 0 W !,"END O F PRINT RE PORT" ;DEV 012893 DPT | |
253 | I CHANS=" P" W !,"EN D OF PRINT REPORT" | |
254 | END ;CLOSE ALL FILES , DELETE V ARIABLES | |
255 | I CHANS="F " C FIO D FTPFILE^CH TFLIB9(FIO ," DNS fs3. DNS ",FLDR,"PU T") ;DEV012893 DPT | |
256 | K ^CHMZHOLD( "9104_AGIN G_OF_APP_3 884",$J) | |
257 | K DFN,BFN ,J1,BSSN,B NAME,BREC, BENSSN,SPS SN,SPNAME ;BUG9104-0 6 DPT | |
258 | K SPREC,S2PR EC,SCNT,BC NT,CHLNAME ,SPSTATUS, CH3884,SVA RO ;BUG910 4-06 DPT | |
259 | K DTE,DTE 2,DTM,SCHC K1,SCHCK2, SCHCK3,SCH CK4,SCHCK5 ,CHAOFDT | |
260 | K SUMCHECKA, SUMCHECK1, SUMCHECK2, SUMCHECK3, SUMCHECK4, SUMCHECK5, SSUMAPP,BS UMAPP | |
261 | Q | |
262 | END2 | |
263 | Q | |
264 | INIT ; | |
265 | S (SPSSN, SPNAME,BSS N,BNAME,BE NSSN,CH388 4,SNVARO)= "" | |
266 | S (DTE,DT E2,DTM,SCH CK1,SCHCK2 ,SCHCK3,SC HCK4,SCHCK 5,CHAOFDT) =0 | |
267 | S (SUMCHECKA ,SUMCHECK1 ,SUMCHECK2 ,SUMCHECK3 ,SUMCHECK4 ,SUMCHECK5 ,SSUMAPP,B SUMAPP)=0 | |
268 | Q | |
269 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.