Produced by Araxis Merge on 11/9/2018 12:34:17 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 | CHZYJK07.m | Mon Nov 5 16:43:52 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHZYJK07.m | Mon Nov 5 17:55:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 722 |
Changed | 2 | 4 |
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 | CHZYJK07 ;CVA/YJK;B eneficiary CCL LETTE R REPORT | |
2 | ;;1.00;HA C Reports; ;Dec 23,20 09 | |
3 | ;; | |
4 | ; | |
5 | ; Pri nt CCL let ters for t he input d ate range. | |
6 | ; En d date mus t be less than or eq ual to the current d ate. | |
7 | ; | |
8 | ; VARI ABLE LIST | |
9 | ; CHSN ,SN,LSN .. .......... . Sponsor Name | |
10 | ; CHBN ,BN,LBN... ......... Bene Name | |
11 | ; SREC 0 ........ .......... ......... A Sponsor Record | |
12 | ; BREC 0 ........ .... ..... ........A Bene Recor d | |
13 | ; CHSS SN,SS .... .......... .. Sponsor SSN | |
14 | ; CHBS SN,BS..... .......... ..Bene SSN | |
15 | ; CHBE G......... .......... .......Use r Input fo r the Star t Date - F ileMan for mat YYYMMD D | |
16 | ; CHEN D......... .......... ......User Input for the End D ate - File Man format YYYMMDD | |
17 | ; OUTT YP........ .......... .....User Input for Output Typ e - File o r Print | |
18 | ; SLTR EC........ .......... ......Spon sor Letter Record | |
19 | ; CHLS DT........ .......... ......Lett er Sent Da te | |
20 | ; CHLT YP........ .......... ......LETT ER TYPE PO INTER TO ^ AHADIC(554 801.1) | |
21 | ; LTRN M,LNM..... .......... CCL Letter Name - fr om AHADIC( 554801.1,C HLTYP,0) | |
22 | ; PRTC D ........ .......... .......Pri nt Code - from AHADI C(554801.1 ,CHLTYP,0) | |
23 | ; The P rint Code minus the trailing A lpha is us ed as Lett er Groups | |
24 | ; CHNU M......... .......... ......2nd Piece of t he Print c ode (after "-") | |
25 | ; PRTC DLN....... .......... .... Lengt h of CHNUM | |
26 | ; LTRG RP,LGRP,LG ....... Le tter Group (the Prin t code min us the tra iling Alph a) | |
27 | ; PREV GRP....... .......... ....Previo us Letter Group - wh en Previou s Letter g roup is di fferent fr om the cur rent group , subtotal is writte n for the prev group | |
28 | ; FIRS T ........ .......... .......... Flag for t he first l etter to b e printed | |
29 | ; GRPC NT........ .......... .....Numbe r of lette rs per Let ter Group | |
30 | ; CHBC T......... .......... .......Tot al number of CCL let ters | |
31 | ; PSPS SN ....... .......... ......Hold s previous Sponsor S SN so that Sponsor I nfo is not printed r epeated un til it cha nges | |
32 | ; PG.. .......... .......... .......... Number of Pages | |
33 | ; LINE NUM....... .......... ...Number of lines p rinted - I nitialized to 99. H eader prin ted for LI NENUM >70 | |
34 | ; TMP. .......... .......... .........U sed to hol d the user response before adv ancing the screen pr int. It a lso holds the Wide s creen sett ing until Viewing is done. | |
35 | ||
36 | MAIN; | |
37 | ;======== ========== ========== ========== ========== ========== >>>> | |
38 | K CHDBFY1 ,CHDBFY,CH BEG,CHDEFY 1,CHDEFY,C HEND,%DT,E LR1,ZTIO | |
39 | K ^CHMZHO LD($J,"CCL _BENE_LETT ERS") | |
40 | K DTFLG,T MP,LINENUM ,PG,PSPSSN | |
41 | W # | |
42 | S:'$D(DUZ ) DUZ=1,DU Z(0)="" | |
43 | ||
44 | S RT C=$$GETDAT ES() ; GET REPO RT START & END DATE | |
45 | G:RT C=0 END | |
46 | D GOUT ; GE T OUTPUT M ETHOD (FIL E OR PRINT ) | |
47 | ;W !,"OUTTYP = "_OUTTY P | |
48 | ||
49 | I OUTTYP="FI LE" D ZTLD F G END | |
50 | I OUTTYP="VI EW" D WTER M G END | |
51 | I OUTTYP="PR INT" D ZTL D G END | |
52 | ||
53 | END K DIR, DT,CHDBFY1 ,CHDBFY,CH BEG,CHEND, OUTTYP,^CH MZHOLD($J, "CCL_BENE_ LETTERS") | |
54 | Q | |
55 | ;<<<<==== ========== ========== ========== ========== ========== ===== | |
56 | ||
57 | GETDATES() ; Get Sta rt and End dates | |
58 | N DTFLG | |
59 | S DTFLG=0 ; 0=Exit /1=Continu e | |
60 | GSTART; Get Report Start Dat e ==> CHBE G | |
61 | D NOW^%DT C S DT=X ; Sets d efault sta rt date to Beg fisca l year; Fu ture date is not acc epted | |
62 | S CHDBFY1 =$$FYR^CHT FLIB(DT) S CHDBFY="1 0/01/"_$E( CHDBFY1,2, 3) | |
63 | S DIR(0)= "DO" | |
64 | S DIR("A" )="Enter a START dat e: " | |
65 | S DIR("B" )=$$FMTE^X LFDT(CHDBF Y,"5D") | |
66 | D ^DIR | |
67 | I $D(DTOU T)!($D(DIR UT))!($D(D IROUT)) Q DTFLG | |
68 | I Y=-1 | |
69 | {U 0 W !! ,"NOT A VA LID DATE" | |
70 | G GSTART | |
71 | } | |
72 | S CHBEG=Y | |
73 | K DIR | |
74 | GEND; Get Report End Date ==> CHEND | |
75 | ; Sets de fault Stop date to N OW | |
76 | D NOW^%DT C S DT=X | |
77 | S DIR(0)="DO " | |
78 | S DIR("A" )="Enter a n END date : " | |
79 | S DIR("B" )=$$FMTE^X LFDT(DT,"5 D") | |
80 | D ^DIR | |
81 | G: $D(DIROUT) GSTART | |
82 | I Y=-1 | |
83 | {W !!,"NO T A VALID DATE" | |
84 | G GEND | |
85 | } | |
86 | S CHEND=Y | |
87 | I $$FMDIF F^XLFDT(CH END,CHBEG, 1)<0 | |
88 | {W !,"End Date can not be bef ore the St art Date." | |
89 | G GEND | |
90 | } | |
91 | K DIR | |
92 | S DTFLG=1 | |
93 | Q DTFLG | |
94 | ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
95 | GOUT; | |
96 | S DIR(0)="SB ^F:FILE;V: VIEW;P:PRI NT" | |
97 | S DIR("A")=" Enter Outp ut Method" | |
98 | S DIR("A",1) ="<F>ILE t o print to a file (X CEL format )" | |
99 | S DIR("A",2) ="<V>IEW t o View on screen" | |
100 | S DIR("A",3) ="<P>RINT to print a report" | |
101 | S DIR("B")=" P" | |
102 | W ! | |
103 | D ^DIR | |
104 | S OUTTYP=Y(0 ) | |
105 | K DIR | |
106 | Q | |
107 | ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
108 | ZTLD ; | |
109 | S ION="" | |
110 | SD | |
111 | W !!!,"Pl ease Queue this repo rt to a Wi de Printer ." | |
112 | S %ZIS="Q" | |
113 | D ^%ZIS | |
114 | Q: POP | |
115 | ||
116 | I ION'["/W" W !!,"YOU MUST USE A WIDE PRIN TER." G SD ;CHV DEV$PRT/W | |
117 | S ZTRTN="FND LTR^CHZYJK 07",ZTDESC ="BENEFICI ARY CCL LE TTERS" | |
118 | S ZTDTH=$ H | |
119 | S ZTIO=IO N,ZTSAVE(" CHFIO")="" ,ZTSAVE("C HBEG")="", ZTSAVE("CH END")="" | |
120 | S ZTSAVE( "OUTTYP")= "" | |
121 | D ^%ZTLOA D | |
122 | ;D FNDLTR ^CHZYJK07 | |
123 | D HOME^%Z IS K IO("Q ") | |
124 | Q | |
125 | ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
126 | ZTLDF ; | |
127 | S ION="" | |
128 | S $ZE="", $ZT="ZTLDF O^CHZYJK07 " | |
129 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) | |
130 | IF CHUCI= "HAC" | |
131 | {S ELR1=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_CCL ]"_"DUZ"_D UZ_"_"_CHB EG_"_"_CHE ND_".txt" | |
132 | W !,"DATA WILL BE W RITTEN TO ",ELR1 | |
133 | } | |
134 | ELSE | |
135 | {S ELR1=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.BENE_CCL _TEST]"_"D UZ"_DUZ_"_ "_CHBEG_"_ "_CHEND_". txt" | |
136 | W !,"DATA WILL BE W RITTEN TO ",ELR1 | |
137 | } | |
138 | ||
139 | S CHFIO=" " | |
140 | S ZTRTN=" FNDLTR^CHZ YJK07",ZTD ESC="BENEF ICIARY CCL LETTERS" | |
141 | S ZTDTH=$ H | |
142 | S ZTIO="" ,ZTSAVE("E LR1")="",Z TSAVE("CHB EG")="",ZT SAVE("CHEN D")="",ZTS AVE("CHFIO ")="" | |
143 | S ZTSAVE( "OUTTYP")= "" | |
144 | D ^%ZTLOA D | |
145 | ;D FNDLTR ^CHZYJK07 | |
146 | D HOME^%Z IS | |
147 | Q | |
148 | ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
149 | WTERM; | |
150 | S TMP="" | |
151 | D HOME^%Z IS | |
152 | S:'$D(SCR W) SCRW="" S:'$D(SCR N) SCRN="" | |
153 | I SCRW="" S SCRW="" S:$D(^%ZI S(2,IOST(0 ),554001)) SCRW=$P(^ (554001),U ,2) | |
154 | I SCRN="" S SCRN="" S:$D(^%ZI S(2,IOST(0 ),554001)) SCRN=$P(^ (554001),U ,1) | |
155 | S:SC RW="" SCRW =$P(^%ZIS( 2,125,5540 01),U,2) | |
156 | S:SCRN="" SCRN=$P(^ %ZIS(2,125 ,554001),U ,1) | |
157 | S X=132 X ^%ZOSF("R M") W @SCR W ;; set t he screen to wide | |
158 | W #,?1,"P reparing r eport..... ..." | |
159 | D FNDLTR^ CHZYJK07 | |
160 | W !!, "En d of View. .. Hit Ret run." R TM P | |
161 | S X=80 X ^%ZOSF("RM ") W @SCRN ;; set t he screen to normal | |
162 | Q | |
163 | ;-------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
164 | ||
165 | FNDLTR ; F ind Bene w ith letter | |
166 | ||
167 | S DFN=0 | |
168 | K ^CHMZHO LD($J,"CCL _BENE_LETT ERS") | |
169 | S DFN=0 | |
170 | S DFN=$O( ^AHCHVA(DF N)) ; Init ial pull | |
171 | WHILE DFN | |
172 | { | |
173 | ;U 0 W !,"DFN = " _DFN | |
174 | IF $D(^ AHCHVA(DFN ,0)) | |
175 | { | |
176 | S SREC0=^A HCHVA(DFN, 0) | |
177 | S (CHSN,SN )=$P(SREC0 ,"^",1) ; Spo nsor Name | |
178 | IF SN'="" | |
179 | {S B FN="",BN=" " S T1=$$D ELCHK^CHTF LIB(SN,DFN ,BN,BFN) ;DELCHK return: 0= not delete d; 1=Spons or deleted ; 2=Bene d eleted | |
180 | IF T1=0 | |
181 | { | |
182 | S CHS SSN=$P(^AH CHVA(DFN,0 ),"^",9) ; Sponsor S SN | |
183 | S BFN =0 | |
184 | S BFN =$O(^AHCHV A(DFN,100, BFN)) | |
185 | WHILE BFN'="",B FN & $D(^A HCHVA(DFN, 100,BFN,0) ) ; START Bene Loop | |
186 | { | |
187 | S BREC 0=^AHCHVA( DFN,100,BF N,0) | |
188 | S (CHB N,BN)=$P(B REC0,"^",1 ) ; Bene Na me | |
189 | I BN'= "" S SN="" S T2=$$DE LCHK^CHTFL IB(SN,DFN, BN,BFN) | |
190 | IF T2= 0 ; Bene No t deleted | |
191 | {S CHBSSN= $P(BREC0," ^",9) ; Bene SSN | |
192 | I CHBSSN ="" S CHBS SN="000000 000" | |
193 | S TMPI=0 | |
194 | S TMPI=$ O(^AHCHVA( DFN,100,BF N,500,TMPI )) | |
195 | WHILE TM PI,$D(^AHC HVA(DFN,10 0,BFN,500, TMPI,0)) ; Loop th ru Bene le tters | |
196 | {S BLTRE C=^AHCHVA( DFN,100,BF N,500,TMPI ,0) | |
197 | S CHLS DT=$P(BLTR EC,"^",1) | |
198 | S CHLT YP=$P(BLTR EC,"^",2) | |
199 | IF (CH LSDT'="" & CHLTYP'=" ") | |
200 | {I CHLSDT '<CHBEG&(C HLSDT'>CHE ND) D LTRN M} | |
201 | S TMPI =$O(^AHCHV A(DFN,100, BFN,500,TM PI)) | |
202 | } ; END - WHILE TM PI | |
203 | } ; END - IF T2=0 | |
204 | S BFN= $O(^AHCHVA (DFN,100,B FN)) | |
205 | } ; EN D - Bene W HILE loop | |
206 | } ; END - IF T 1=0 | |
207 | } ; END - Spon sor Name C heck | |
208 | } ; END - IF $D( ^AHCHVA(DF N,0)) | |
209 | S DFN=$O(^AH CHVA(DFN)) | |
210 | } ; END - WHILE | |
211 | ||
212 | D QUE^CHZ YJK07 | |
213 | D ^%ZISC | |
214 | Q | |
215 | ;-------- ----- | |
216 | LTRNM ; Ge t Letter N ame and Pr int Code | |
217 | ;U 0 W !, "LTRNM: " _CHSSSN_" "_CHBSSN_" "_DFN_" " _BFN_" "_C HLSDT | |
218 | S (LTRNM, PRTCD)="" | |
219 | S LTRNM=$ P(^AHADIC( 554801.1,C HLTYP,0)," ^",1) | |
220 | S PRTCD=$ P(^AHADIC( 554801.1,C HLTYP,0)," ^",6) | |
221 | Q:LTRNM=" "!(PRTCD=" ") | |
222 | S CHNUM=$ P(PRTCD,"- ",2) | |
223 | ; To remo ve texts f ollowing t he Print G roup (ex, "CCL-A53 O HI REQUEST " => "CCL- A53") | |
224 | I $F(CHNU M," ") >0 S CHNUM=$E (CHNUM,1,$ F(CHNUM," ")-2) | |
225 | S PRTCDLN =$L(CHNUM) | |
226 | I PRTCDLN >3 S CHNUM =$E(CHNUM, 1,(PRTCDLN -1)) ; CCL-B36A to CCL-B3 6 | |
227 | I PRTCDLN <4 S CHNUM =$E(CHNUM, 1,PRTCDLN) | |
228 | S LTRGRP= $P(PRTCD," -",1)_"-"_ CHNUM ;Let ter Group = Print Co de (6th Pi ece withou t the trai ling Alpha . Ex, CCL -B36) | |
229 | S ^CHMZHO LD($J,"CCL _BENE_LETT ERS",LTRGR P,CHSSSN,C HBSSN)=LTR GRP_"^"_LT RNM_"^"_CH SN_"^"_CHS SSN_"^"_CH BN_"^"_CHB SSN | |
230 | Q | |
231 | QUE ; | |
232 | S PG =0 | |
233 | S CH BCT=0 ; Total Coun t of Benef iciary Let ters | |
234 | D PRINT^C HZYJK07 | |
235 | K %DT,CHD BFY1,CHDBF Y,CHBEG,CH END,PG | |
236 | K CHUCI,E LR1CHFIO,Z TRTN,ZTDES C,ZTIO,ZTS AVE,CHLTYP ,^CHMZHOLD ($J,"CCL_B ENE_LETTER S") | |
237 | K DFN,SRE C0,CHSN,SN ,BN,T,BFN, CHSSN,BREC 0,CHBN,CHB SSN,TMPI,B LTREC,TMP | |
238 | K CHLSDT, LTRNM,PRTC D,CHNUM,PR TCDLN,LTRG RP | |
239 | K PREVGRP ,LGRP,FIRS T,GRPCNT,S S,BS,LG | |
240 | K LG,LNM, LSN,LSS,LB N,LBS,GRPC NT,CHBCT,P SPSSN,OUTT YP | |
241 | Q | |
242 | PRINT; | |
243 | ||
244 | IF OUTTYP ="FILE" | |
245 | { | |
246 | O ELR1:" NWS":5 | |
247 | I '$T U 0 W !,"Err or Opeing Output fil e!!!" Q | |
248 | D PRT | |
249 | U ELR1 W !!,"Total number of Beneficia ry letters : ",CHBCT | |
250 | C ELR1 | |
251 | } | |
252 | ||
253 | I OUTTYP="PR INT"!(OUTT YP="VIEW") | |
254 | {D PRT | |
255 | I GRPCN T>0 D SUBT OT | |
256 | W !!,"To tal number of Benefi ciary lett ers: ",CHB CT | |
257 | } | |
258 | Q | |
259 | PRT | |
260 | S T=$C(9) | |
261 | S (LTRGRP ,LTRNM,CHS N,CHSSSN,C HBN,CHBSSN )="" | |
262 | D HEAD | |
263 | IF '$D(^C HMZHOLD($J ,"CCL_BENE _LETTERS") ) | |
264 | { | |
265 | IF OUT TYP="FILE" | |
266 | {U ELR1 W !, "No Benefi ciary lett ers were f ound"} | |
267 | ELSE | |
268 | {W !,"No Ben eficiary l etters wer e found"} | |
269 | Q | |
270 | } | |
271 | BPRT ; | |
272 | S (PREVGR P,LGRP,PSP SSN)="" | |
273 | S FIRST=1 | |
274 | S GRPCNT= 0 ; Letter Cou nt for a L etter Grou p | |
275 | S LGRP=$O (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP)) ; Initi al Pull | |
276 | WHILE LGR P '= "" | |
277 | {I FIRST S P REVGRP=LGR P S FIRST= 0 | |
278 | S SS="" | |
279 | S SS=$O(^CHM ZHOLD($J," CCL_BENE_L ETTERS",LG RP,SS)) | |
280 | WH ILE SS'="" | |
281 | {S B S="" | |
282 | S BS=$O(^CHM ZHOLD($J," CCL_BENE_L ETTERS",LG RP,SS,BS)) | |
283 | WH ILE BS'="" | |
284 | { | |
285 | S LG=$P( ^CHMZHOLD( $J,"CCL_BE NE_LETTERS ",LGRP,SS, BS),"^",1) ;Letter Group | |
286 | S LNM=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",2 ) ;Lette r Name | |
287 | S LSN=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",3 ) ;Spons or Name | |
288 | S LSS=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",4 ) ;Spons or SSN | |
289 | S LBN=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",5 ) ;Bene Name | |
290 | S LBS=$P (^CHMZHOLD ($J,"CCL_B ENE_LETTER S",LGRP,SS ,BS),"^",6 ) ;Bene SSN | |
291 | S CHBCT= CHBCT+1 ; Tota l letter c ount for t he specifi ed dates | |
292 | I OUTTYP ="FILE" U ELR1 W !,L SN_T_LSS_T _LBN_T_LBS _T_LNM | |
293 | I OUTTYP ="PRINT"!( OUTTYP="VI EW") D PRP T | |
294 | S BS=$O( ^CHMZHOLD( $J,"CCL_BE NE_LETTERS ",LGRP,SS, BS)) | |
295 | } ;E ND - WHILE BS NOT= " " | |
296 | S SS =$O(^CHMZH OLD($J,"CC L_BENE_LET TERS",LGRP ,SS)) | |
297 | } ; END -WHIL E SS NOT=" " | |
298 | S LGRP=$ O(^CHMZHOL D($J,"CCL_ BENE_LETTE RS",LGRP)) | |
299 | } ; END -WH ILE LGRP N OT="" | |
300 | ||
301 | Q | |
302 | HEAD | |
303 | S PG=PG+1 | |
304 | D NOW^%DT C S DT=X | |
305 | S TIME=$$ HTIM^ACKQU TL($H,0) | |
306 | IF OUTTYP ="FILE" | |
307 | { | |
308 | U ELR1 W !, DUZ_T_"HEA LTH ADMINI STRATION C ENTER" | |
309 | U ELR1 W !, TIME_T_"BE NEFICIARY CCL LETTER S"_T_$$FMT E^XLFDT(DT ,"5D") | |
310 | U ELR1 W !! ,"Letter D ates From "_$$FMTE^X LFDT(CHBEG ,"5D")_" t o "_$$FMTE ^XLFDT(CHE ND,"5D") | |
311 | U ELR1 W !! ,"SPONSOR NAME"_T_"S PONSOR SSN "_T_"BENEF ICIARY NAM E"_T_"BENE FICIARY SS N"_T_"CCL LETTER" | |
312 | } | |
313 | EL SE | |
314 | { | |
315 | W # | |
316 | W !,?1,DUZ, ?40,"HEALT H ADMINIST RATION CEN TER",?95," Page: ",P G | |
317 | W !,?1,TIME ,?40,"BENE FICIARY CC L LETTERS" ,!,?95,$$F MTE^XLFDT( DT,"5D") | |
318 | W !!!,?1,"L etter Date s From "_$ $FMTE^XLFD T(CHBEG,"5 D")_" to " _$$FMTE^XL FDT(CHEND, "5D") | |
319 | W !,?1,"SPO NSOR NAME" ,?32,"SPON SOR SSN",? 45,"BENEFI CIARY NAME ",?75,"BEN EFICIARY S SN",?92,"C CL LETTER" | |
320 | W !,?1,$$RE PEAT^XLFST R("=",120) ,! | |
321 | S LINENUM=9 | |
322 | } | |
323 | Q | |
324 | SUBTOT | |
325 | I OUTTYP= "VIEW"&($Y +5>22) | |
326 | { | |
327 | I TMP'="^" D HEAD | |
328 | } | |
329 | W !,?1,$$ REPEAT^XLF STR("-",12 0) | |
330 | W !,?1,PR EVGRP_": " _GRPCNT,!! ! | |
331 | S GRPCNT= 0 | |
332 | S PREVGRP =LGRP | |
333 | S LINENUM =LINENUM+5 | |
334 | ||
335 | Q | |
336 | PRPT ; | |
337 | I OUTTYP= "VIEW",TMP ="^" Q | |
338 | ||
339 | S FLSS=$E (LSS,1,3)_ "-"_$E(LSS ,4,5)_"-"_ $E(LSS,6,9 ) | |
340 | S FLBS=$E (LBS,1,3)_ "-"_$E(LBS ,4,5)_"-"_ $E(LBS,6,9 ) | |
341 | ||
342 | I PREVGRP '=LGRP D S UBTOT | |
343 | IF OUTTYP ="PRINT" | |
344 | {D:LINENU M>55 HEAD} | |
345 | ||
346 | S GRPCNT= GRPCNT+1 ; Coun t letters for a Lett er Group | |
347 | IF LSS = PSPSSN | |
348 | {W !,?45,LBN ,?76,FLBS, ?92,LNM | |
349 | S LINENUM=L INENUM+1} | |
350 | ELSE | |
351 | {W !,?1,LSN, ?32,FLSS | |
352 | W !,?45,LB N,?76,FLBS ,?92,LNM | |
353 | S PSPSSN=L SS | |
354 | S LINENUM= LINENUM+2 | |
355 | } | |
356 | I OUTTYP= "VIEW"&($Y >19) | |
357 | { | |
358 | W !,?1,"Hit <Return> K ey to Cont iue or '^' to Stop." R TMP | |
359 | I TMP'="^" D HEAD | |
360 | } | |
361 | Q | |
362 | ||
363 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.