Produced by Araxis Merge on 11/9/2018 12:33:59 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 | CHMKHDBK.m | Mon Nov 5 16:41:01 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKHDBK.m | Mon Nov 5 17:49:01 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 6 | 472 |
Changed | 5 | 16 |
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 | CHMKHDBK ; HAC/JEH;CH AMPVA HAND BOOK;6/21/ 09 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Buil d 10 | |
3 | ;;V1.0 | |
4 | ;; *** CO PY OF ZALT EAM1 *** | |
5 | ;PROJECT TRACKING # 529,936,13 17,1424, 1 479(MC155) BY AHJ | |
6 | ;INCLUDE FMP AND SP INA BIFIDA | |
7 | ;ACTIVE D ATES OF EL IGIBILITY, OVER AGE 1 7, ELIMINA TE "BAD" A DDRESSES | |
8 | ;JEH 2/1/ 11 DEV0078 20 - SLLA - REMOVE/F IX ENVIR() LINE TAG | |
9 | START ; | |
10 | D HDR | |
11 | D INIT | |
12 | Q:$D(EEDF LG) | |
13 | D QUEA | |
14 | W !!,"GAT HERING INF ORMATION. MESSAGE WI LL BE SENT WHEN FILE S ARE READ Y" H 5 | |
15 | Q | |
16 | CHAMPVA ; | |
17 | D GTDATA ;GATHER BENE DATA | |
18 | D PFILE ;POPULAT E DATA FIL ES | |
19 | D END | |
20 | Q | |
21 | GTDATA ;GA THER BENE DATA | |
22 | S CTR=0 | |
23 | S DFN=0 F S DFN=$O (^AHCHVA(D FN)) Q:'DF N D | |
24 | .S BFN=0 F S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN D | |
25 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) S BNAM =$P(^AHCHV A(DFN,100, BFN,0),"^" ,1) Q:BNAM ="" | |
26 | ..I $D(^A HADIC(5548 04.07,"B", BNAM)) D I SKIP=1 K SKIP Q ; IF SKIP=0 NOT DELETE D,IF SKIP= 1 DELETED BENE;SKIP | |
27 | ...S (TMP PT,SKIP)=0 ,TMPPT=$O( ^AHADIC(55 4804.07,"B ",BNAM,TMP PT)) Q:'TM PPT Q:'$D (^AHADIC(5 54804.07,T MPPT,0)) | |
28 | ...S CHDE LREC=^AHAD IC(554804. 07,TMPPT,0 ) S CHTDFN =$P(CHDELR EC,"^",3), CHTBFN=$P( CHDELREC," ^",4) | |
29 | ...I CHTD FN=DFN I C HTBFN=BFN S SKIP=1 ;DELETED B ENE SKIP | |
30 | ...Q | |
31 | ..K CHTDF N,CHTBFN,S KIP,TMPPT, BNAM ;REM OVE VARIAB LES USED T O DETERMIN E IF BENE WAS DELETE D | |
32 | ..Q:$D(^A HCHVA("SB" ,DFN,BFN)) &($P(^AHCH VA(DFN,100 ,BFN,0),"^ ",5)'="SF" ) ;ELIMI NATE SB BE NEs | |
33 | ..I $P(^A HCHVA(DFN, 100,BFN,0) ,"^",5)="E A"!($P(^AH CHVA(DFN,1 00,BFN,0), "^",5)="PS ")!($D(^AH CHVA("SB", DFN,BFN))& ($P(^AHCHV A(DFN,100, BFN,0),"^" ,5)="SF")) D | |
34 | ...Q:$$VA LEDT^CHMKH DBK(EEFDT, DFN,BFN)=1 ;CHECK IF ELEGIBI LITY DATES ARE VALID | |
35 | ...I $$AG ECHK^CHMKH DBK(EEFDT, DFN,BFN)=0 D OVER18 | |
36 | ...I $$AG ECHK^CHMKH DBK(EEFDT, DFN,BFN)=1 D UNDER18 | |
37 | ...S CTR= CTR+1 K LI ST,BIFLG,B RADRFLG,NA ME,FNAME,L NAME,ADDR1 ,ADDR2,ADD R3,CITY,ST AE,ZIP | |
38 | Q | |
39 | OVER18 ;BE NE IS OVER 18 YEARS OLD | |
40 | N CFFLG,B IFLG | |
41 | D BENINFO | |
42 | I BIFLG=1 D | |
43 | .;S BRADR FLG=$P(^AH CHVA(DFN,1 00,BFN,1), "^",11) ;0=DOM A DR/1=FOR A DR | |
44 | .I BRADRF LG'="" D | |
45 | ..S LIST= "LIST-"_$S (BRADRFLG= 0:"A1",BRA DRFLG=1:"A 2") | |
46 | ..S ^CHMZ HOLD($J,"C HV_HNDBK", "OV18",LIS T,DFN,BFN) =BENREC | |
47 | ..I '$D(^ CHMZHOLD($ J,"CHV_HND BK","OV18" ,LIST,"TOT AL")) S ^C HMZHOLD($J ,"CHV_HNDB K","OV18", LIST,"TOTA L")=0 | |
48 | ..S ^CHMZ HOLD($J,"C HV_HNDBK", "OV18",LIS T,"TOTAL") =^CHMZHOLD ($J,"CHV_H NDBK","OV1 8",LIST,"T OTAL")+1 | |
49 | Q | |
50 | UNDER18 ;B ENE IS UND ER 18 YEAR S OLD | |
51 | N BRADRFL G,BIFLG | |
52 | D BENINFO | |
53 | I BIFLG=1 D | |
54 | .;S BRADR FLG=$P(^AH CHVA(DFN,1 00,BFN,1), "^",11) ;0=DOM A DR/1=FOR A DR | |
55 | .I BRADRF LG'="" D | |
56 | ..S LIST= "LIST-"_$S (BRADRFLG= 0:"B1",BRA DRFLG=1:"B 2") | |
57 | ..S ^CHMZ HOLD($J,"C HV_HNDBK", "UN18",LIS T,DFN,BFN) =BENREC | |
58 | ..I '$D(^ CHMZHOLD($ J,"CHV_HND BK","UN18" ,LIST,"TOT AL")) S ^C HMZHOLD($J ,"CHV_HNDB K","UN18", LIST,"TOTA L")=0 | |
59 | ..S ^CHMZ HOLD($J,"C HV_HNDBK", "UN18",LIS T,"TOTAL") =^CHMZHOLD ($J,"CHV_H NDBK","UN1 8",LIST,"T OTAL")+1 | |
60 | Q | |
61 | BENINFO ;I NFORMATION ABOUT THE BENE | |
62 | N NAME,FN AME,LNAME, ADDR1,ADDR 2,ADDR3,CI TY,STAE,ZI P | |
63 | S BIFLG=1 ;BENE A DDRESS VAL ID FLAG 1=GOOD/0=B AD | |
64 | ;I $P(^AH CHVA(DFN,1 00,BFN,1), U,10)'=1 S BIFLG=0 Q | |
65 | I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)=0 S B IFLG=0 Q | |
66 | I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)=2 S B IFLG=0 Q | |
67 | S BRADRFL G=$P(^AHCH VA(DFN,100 ,BFN,1),U, 11) ;0 =DOM ADR/1 =FOR ADR | |
68 | I $D(^AHC HVA("FMP", DFN))&('$D (^AHCHVA(D FN,100,BFN ,109,VBEGD T,VENDDT)) ) S BIFLG= 0 Q | |
69 | S NAME=$P (^AHCHVA(D FN,100,BFN ,0),U,1) | |
70 | S LNAME=$ P(NAME,"," ,1) | |
71 | S FNAME=$ P(NAME,"," ,2) | |
72 | S NAME=FN AME_" "_LN AME | |
73 | S ADDR1=$ P(^AHCHVA( DFN,100,BF N,1),U,1) | |
74 | S ADDR2=$ P(^AHCHVA( DFN,100,BF N,1),U,2) | |
75 | S ADDR3=$ P(^AHCHVA( DFN,100,BF N,1),U,12) | |
76 | S CITY=$P (^AHCHVA(D FN,100,BFN ,1),U,3) | |
77 | S STATE=$ P(^AHCHVA( DFN,100,BF N,1),U,4) | |
78 | S:STATE'= "" STATE=$ P(^DIC(5,S TATE,0),U, 2) | |
79 | S ZIP=$E( $P(^AHCHVA (DFN,100,B FN,1),U,5) ,1,5) | |
80 | I $P(^AHC HVA(DFN,10 0,BFN,1),U ,11)=0 I Z IP="" S BI FLG=0 ; NO ZIP ad ded addres s flag che ck | |
81 | I $P(^AHC HVA(DFN,10 0,BFN,1),U ,11)=1 D ;0=DO M ADR/1=FO R ADR CHK | |
82 | .S STATE= $P(^AHCHVA (DFN,100,B FN,1),U,13 ) | |
83 | .S:STATE' ="" STATE= $P(^DIC(5, STATE,0),U ,1) | |
84 | S BENREC= NAME_"^"_A DDR1_"^"_A DDR2_"^"_A DDR3_"^"_C ITY_"^"_ST ATE_"^"_ZI P_"^"_VBEG DT_"^"_VEN DDT | |
85 | Q | |
86 | AGECHK(ELD T,ADFN,ABF N) ;CHECK FOR BENE B EING OLDER /YOUNGER T HAN 18 | |
87 | N ADOB,AF LG | |
88 | S AFLG=0 ;OVE R/UNDER 18 0=OVER /1=UNDER | |
89 | S ADOB=$P (^AHCHVA(A DFN,100,AB FN,0),U,3) | |
90 | S TAGE=$$ AGE^CHTFLI B(ADOB,ELD T) | |
91 | I TAGE<18 S AFLG=1 | |
92 | Q AFLG | |
93 | VALEDT(ELD T,VDFN,VBF N) ;CHECKI NG FOR VAL ID ELIGIBI LITY DATE | |
94 | N DOD | |
95 | S (VBEGDT ,VENDDT)=0 | |
96 | S VFLG=1 ;DATE FL AG 0=VAL ID/1=INVAL ID | |
97 | Q:'$D(^AH CHVA(VDFN, 100,VBFN,1 09)) VFLG | |
98 | S VBEGDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT)) ;BEG ELIG DATE | |
99 | S VENDDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT,VEND DT)) ;EN D ELIG DAT E | |
100 | S DOD=$P( ^AHCHVA(VD FN,100,VBF N,0),"^",6 ) ;DATE OF DEATH | |
101 | S:DOD'="" VFLG=1 | |
102 | S:VBEGDT< ELDT&(ELDT <VENDDT) V FLG=0 | |
103 | Q VFLG | |
104 | INIT ;INIT IALIZATION OF VARIAB LES | |
105 | K ^CHMZHO LD($J,"CHV _HNDBK") | |
106 | S TAB=$C( 9) ;TAB | |
107 | ;GETTING ELIGIBILIT Y EFFECTIV E DATE | |
108 | S DIR("A" )="Enter C HAMPVA Ben e all elig ible date" | |
109 | S DIR(0)= "DO" | |
110 | D ^DIR | |
111 | I $D(DIRU T) S EEDFL G="" Q | |
112 | S EEFDT=+ Y | |
113 | Q | |
114 | HDR ; | |
115 | D ^CHMFSE T X CHRESE T | |
116 | S H1="HAC CENTER - Handbook + A-card + Letter + E nvelope Ma il Out" | |
117 | S DY=2,DX =1 X XY W ?(80-$L(H1 )/2),H1,!! | |
118 | Q | |
119 | PFILE ;POP ULATE DATA FILES | |
120 | N PNAME,P ADR1,PADR2 ,PADR3,PCI TY,PSTAT,P ZIP,PBGDT, PENDT,IOFI LE | |
121 | S TAB=$C( 9) | |
122 | D OPNFL | |
123 | S I="" F S I=$O(^C HMZHOLD($J ,"CHV_HNDB K",I)) Q:I ="" D | |
124 | .S J="" F S J=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J)) Q:J="" D | |
125 | ..S K=0 F S K=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J,K) ) Q:'K D | |
126 | ...S L=0 F S L=$O( ^CHMZHOLD( $J,"CHV_HN DBK",I,J,K ,L)) Q:'L D | |
127 | ....S PNA ME=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",1) | |
128 | ....S PAD R1=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",2) | |
129 | ....S PAD R2=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",3) | |
130 | ....S PAD R3=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",4) | |
131 | ....S PCI TY=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",5) ; IF FOREIGN ADDRESS T HEN THIS I S COUNTRY | |
132 | ....S PST AT=$P(^CHM ZHOLD($J," CHV_HNDBK" ,I,J,K,L), "^",6) | |
133 | ....S PZI P=$P(^CHMZ HOLD($J,"C HV_HNDBK", I,J,K,L)," ^",7) | |
134 | ....S PBG DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD($J,"CH V_HNDBK",I ,J,K,L),"^ ",8)) ;C ONVERT FM DATE TO A 8 DIGIT YR (3080401 TO 2008040 1) | |
135 | ....S PBG DT=$E(PBGD T,5,6)_"/" _$E(PBGDT, 7,8)_"/"_$ E(PBGDT,1, 4) | |
136 | ....S PEN DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD($J,"CH V_HNDBK",I ,J,K,L),"^ ",9)) ;C ONVERT FM DATE TO A 8 DIGIT YR (3080401 TO 2008040 1) | |
137 | ....S PEN DT=$E(PEND T,5,6)_"/" _$E(PENDT, 7,8)_"/"_$ E(PENDT,1, 4) | |
138 | ....;S IO FILE=$S(J= "LIST-A1": IOLSTA1,J= "LIST-A2": IOLSTA1,J= "LIST-B1": IOLSTB1,J= "LIST-B2": IOLSTB2) | |
139 | ....I J=" LIST-A1" U IOLSTA1 W PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,! | |
140 | ....I J=" LIST-A2" U IOLSTA2 W PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,! | |
141 | ....I J=" LIST-B1" U IOLSTB1 W PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,! | |
142 | ....I J=" LIST-B2" U IOLSTB2 W PNAME_TAB _PADR1_TAB _PADR2_TAB _PADR3_TAB _PCITY_TAB _PSTAT_TAB _PZIP_TAB_ PBGDT_TAB_ PENDT,! | |
143 | ....;U IO FILE W PNA ME_TAB_PAD R1_TAB_PAD R2_TAB_PAD R3_TAB_PCI TY_TAB_PST AT_" "_PZ IP_TAB_PBG DT_TAB_PEN DT | |
144 | PF1 D CLSF L | |
145 | Q | |
146 | OPNFL ;OPE N/CREATE F S3BIG FILE S | |
147 | N ENVR | |
148 | S ENVR=$$ ENVIR^CHTF LIB() ;J EH 2/1/11 DEV007820 - SLLA | |
149 | ;S IOLSTA 1="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A1_" _EEFDT_"_" _ENVR_".TX T" ;DOM CHV B ENE ADR HA NDBOOK | |
150 | ;S IOLSTA 2="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A2_" _EEFDT_"_" _ENVR_".TX T" ;FOR CHV B ENE ADR HA NDBOOK | |
151 | ;S IOLSTB 1="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B1_" _EEFDT_"_" _ENVR_".TX T" ;DOM CHV B ENE ADR CA RD ONLY | |
152 | ;S IOLSTB 2="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B2_" _EEFDT_"_" _ENVR_".TX T" ;FOR CHV B ENE ADR CA RD ONLY | |
153 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
154 | S FILENM2 ="LIST_A1_ "_EEFDT_"_ "_ENVR_".T XT" | |
155 | S IOLSTA1 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2 | |
156 | I UCI'="H AC" S IOLS TA1="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
157 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
158 | I '$$OPEN FIWR^CHTFL IB9(.IOLST A1,"IOLSTA 1") Q | |
159 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
160 | S FILENM2 ="LIST_A2_ "_EEFDT_"_ "_ENVR_".T XT" | |
161 | S IOLSTA2 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2 | |
162 | I UCI'="H AC" S IOLS TA2="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
163 | I '$$OPEN FIWR^CHTFL IB9(.IOLST A2,"IOLSTA 2") Q | |
164 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
165 | S FILENM2 ="LIST_B1_ "_EEFDT_"_ "_ENVR_".T XT" | |
166 | S IOLSTB1 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2 | |
167 | I UCI'="H AC" S IOLS TB1="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
168 | I '$$OPEN FIWR^CHTFL IB9(.IOLST B1,"IOLSTB 1") Q | |
169 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
170 | S FILENM2 ="LIST_B2_ "_EEFDT_"_ "_ENVR_".T XT" | |
171 | S IOLSTB2 ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2 | |
172 | I UCI'="H AC" S IOLS TB2="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
173 | I '$$OPEN FIWR^CHTFL IB9(.IOLST B2,"IOLSTB 2") Q | |
174 | ;O IOLSTA 1 C IOLSTA 1:"D" | |
175 | ;O IOLSTA 2 C IOLSTA 2:"D" | |
176 | ;O IOLSTB 1 C IOLSTB 1:"D" | |
177 | ;O IOLSTB 2 C IOLSTB 2:"D" | |
178 | ;O IOLSTA 1:"NWS":5 | |
179 | ;O IOLSTA 2:"NWS":5 | |
180 | ;O IOLSTB 1:"NWS":5 | |
181 | ;O IOLSTB 2:"NWS":5 | |
182 | Q | |
183 | CLSFL ;CLO SE FILES | |
184 | D CLOSEF^ CHTFLIB9(I OLSTA1."IO LSTA1") | |
185 | D FTPFILE ^CHTFLIB9( IOLSTA1," DNS fs3. DNS ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT") | |
186 | D CLOSEF^ CHTFLIB9(I OLSTA2."IO LSTA2") | |
187 | D FTPFILE ^CHTFLIB9( IOLSTA2," DNS fs3. DNS ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT") | |
188 | D CLOSEF^ CHTFLIB9(I OLSTB1."IO LSTB1") | |
189 | D FTPFILE ^CHTFLIB9( IOLSTB1," DNS fs3. DNS ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT") | |
190 | D CLOSEF^ CHTFLIB9(I OLSTB2."IO LSTB2") | |
191 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
192 | D FTPFILE ^CHTFLIB9( IOLSTB2," DNS fs3. DNS ","/FS3BIG .COMMO_RPT S.HANDBOOK ","PUT") | |
193 | ;C IOLSTA 1 ;LIST A1 | |
194 | ;C IOLSTA 2 ;LIST A2 | |
195 | ;C IOLSTB 1 ;LIST B1 | |
196 | ;C IOLSTB 2 ;LIST B2 | |
197 | Q | |
198 | QUEA ;QUE THIS ROUTI NE | |
199 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
200 | S ZTRTN=" CHAMPVA^CH MKHDBK",ZT DESC="PROC ESS HANDBO OK" | |
201 | S ZTSAVE( "EEFDT")=" " | |
202 | S ZTIO="" | |
203 | D ^%ZTLOA D | |
204 | ;D CHAMPV A^CHMKHDBK | |
205 | Q | |
206 | TXMSG ;MAI LMAN MESSA GE TO NOTI FY USER FI LES ARE RE ADY | |
207 | D TOTALS | |
208 | S CNT=1,^ TMP($J,"HN BK-MSG",CN T)="",CNT= CNT+1 | |
209 | S ^TMP($J ,"HNBK-MSG ",CNT)=" *** CHA MPVA HANDB OOK MESSAG E ***",CNT =CNT+1 | |
210 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
211 | S ^TMP($J ,"HNBK-MSG ",CNT)="PL EASE DO NO T REPLY TO THIS MESS AGE.",CNT= CNT+1 | |
212 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
213 | S ^TMP($J ,"HNBK-MSG ",CNT)="HA C CHAMPVA HANDBOOK L ISTING HAS COMPLETED .",CNT=CNT +1 | |
214 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
215 | S ^TMP($J ,"HNBK-MSG ",CNT)="TO TALS:",CNT =CNT+1 | |
216 | S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST A1 (OVER 18 D OMESTIC) = " _TOTAL("LI ST-A1"),CN T=CNT+1 | |
217 | S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST A2 (OVER 18 F OREIGN) = " _TOTAL("LI ST-A2"),CN T=CNT+1 | |
218 | S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST B1 (UNDER 18 DOMESTIC) = "_TOTAL( "LIST-B1") ,CNT=CNT+1 | |
219 | S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST B2 (UNDER 18 FOREIGN) = "_TOTAL( "LIST-B2") ,CNT=CNT+1 | |
220 | S:$D(CTR) ^TMP($J," HNBK-MSG", CNT)=" G RAND TOTAL OF BENES SEARCHED = "_C TR,CNT=CNT +1 | |
221 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
222 | S ^TMP($J ,"HNBK-MSG ",CNT)="FI LES MAY BE RETRIEVED FROM:",CN T=CNT+1 | |
223 | S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A1.TXT ",CNT=CNT+ 1 | |
224 | S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A2.TXT ",CNT=CNT+ 1 | |
225 | S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B1.TXT ",CNT=CNT+ 1 | |
226 | S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B2.TXT ",CNT=CNT+ 1 | |
227 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
228 | S ^TMP($J ,"HNBK-MSG ",CNT)="" | |
229 | S XMTEXT= "^TMP($J," "HNBK-MSG" "," | |
230 | S XMDUZ=. 5 | |
231 | S XMY(DUZ )="" ;SEND M ESSAGE TO USER RUNNI NG THIS RO UTINE | |
232 | S XMSUB=" HAC - CHAM PVA HANDBO OK COMPLET E" D ^XMD | |
233 | Q | |
234 | TOTALS ;CA LC TOTALS | |
235 | S I="" F S I=$O(^C HMZHOLD($J ,"CHV_HNDB K",I)) Q:I ="" D | |
236 | .S J="" F S J=$O(^ CHMZHOLD($ J,"CHV_HND BK",I,J)) Q:J="" D | |
237 | ..S TOTAL (J)=^CHMZH OLD($J,"CH V_HNDBK",I ,J,"TOTAL" ) | |
238 | Q | |
239 | END ; | |
240 | D TXMSG | |
241 | K AYGSYS, TOTAL,CNT, ENVR,I,J,K ,L,TAB,H1, EEFDT,EEDF LG,VFLG,VB EGDT,VENDD T,ELDT,BEN EREC | |
242 | K BFN,DFN ,CTR | |
243 | K IOLSTA1 ,IOLSTA2,I OLSTB1,IOL STB2 | |
244 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.