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 | CHMKHDBKRW.m | Mon Nov 5 16:40:18 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKHDBKRW.m | Fri Nov 9 02:56:34 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 | CHMKHDBKRW ;HAC/JEH; -RE-WRITE- LABELS FO R BENE'S O VER AGE 17 WITH NO C LAIMS | |
2 | ;;V1.0 | |
3 | ; | |
4 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE | |
5 | ; | |
6 | ;; *** CO PY OF ZALT EAM1 *** | |
7 | ;PROJECT TRACKING # 529,936,13 17,1424, 1 479(MC155) BY AHJ | |
8 | ;INCLUDE FMP AND SP INA BIFIDA | |
9 | ;ACTIVE D ATES OF EL IGIBILITY, OVER AGE 1 7, ELIMINA TE "BAD" A DDRESSES | |
10 | START ; | |
11 | D HDR | |
12 | D INIT | |
13 | Q:$D(EEDF LG) | |
14 | D QUEA | |
15 | W !!,"GAT HERING INF ORMATION. MESSAGE WI LL BE SENT WHEN FILE S ARE READ Y" H 5 | |
16 | Q | |
17 | CHAMPVA ; | |
18 | D GTDATA ;GATHER BENE DATA | |
19 | D PFILE ;POPULAT E DATA FIL ES | |
20 | D END | |
21 | Q | |
22 | GTDATA ;GA THER BENE DATA | |
23 | S CTR=0 | |
24 | S GTOT=0 | |
25 | S DFN=0 F S DFN=$O (^AHCHVA(D FN)) Q:'DF N D | |
26 | .S BFN=0 F S BFN=$ O(^AHCHVA( DFN,100,BF N)) Q:'BFN D | |
27 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
28 | ..S GTOT= GTOT+1 | |
29 | ..Q:$D(^A HCHVA("SB" ,DFN,BFN)) &($P(^AHCH VA(DFN,100 ,BFN,0),"^ ",5)'="SF" ) ;ELIMI NATE SB BE NEs | |
30 | ..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 | |
31 | ...Q:$$VA LEDT^CHMKH DBKRW(EEFD T,DFN,BFN) =1 ;CHEC K IF ELEGI BILITY DAT ES ARE VAL ID | |
32 | ...I $$AG ECHK^CHMKH DBKRW(EEFD T,DFN,BFN) =0 D OVER1 8 | |
33 | ...I $$AG ECHK^CHMKH DBKRW(EEFD T,DFN,BFN) =1 D UNDER 18 | |
34 | ...S CTR= CTR+1 | |
35 | Q | |
36 | OVER18 ;BE NE IS OVER 18 YEARS OLD | |
37 | N CFFLG,B IFLG | |
38 | D BENINFO | |
39 | I BIFLG=1 D | |
40 | .S BRADRF LG=$P(^AHC HVA(DFN,10 0,BFN,1)," ^",11) ;0=DOM AD R/1=FOR AD R | |
41 | .I BRADRF LG'="" D | |
42 | ..S LIST= "LIST-"_$S (BRADRFLG= 0:"A1",BRA DRFLG=1:"A 2") | |
43 | ..S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST,D FN,BFN)=BE NREC | |
44 | ..I '$D(^ CHMZHOLD(" CHV_HNDBK" ,"OV18",LI ST,"TOTAL" )) S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST," TOTAL")=0 | |
45 | ..S ^CHMZ HOLD("CHV_ HNDBK","OV 18",LIST," TOTAL")=^C HMZHOLD("C HV_HNDBK", "OV18",LIS T,"TOTAL") +1 | |
46 | Q | |
47 | UNDER18 ;B ENE IS UND ER 18 YEAR S OLD | |
48 | N BRADRFL G,BIFLG | |
49 | D BENINFO | |
50 | I BIFLG=1 D | |
51 | .S BRADRF LG=$P(^AHC HVA(DFN,10 0,BFN,1)," ^",11) ;0=DOM AD R/1=FOR AD R | |
52 | .I BRADRF LG'="" D | |
53 | ..S LIST= "LIST-"_$S (BRADRFLG= 0:"B1",BRA DRFLG=1:"B 2") | |
54 | ..S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST,D FN,BFN)=BE NREC | |
55 | ..I '$D(^ CHMZHOLD(" CHV_HNDBK" ,"UN18",LI ST,"TOTAL" )) S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST," TOTAL")=0 | |
56 | ..S ^CHMZ HOLD("CHV_ HNDBK","UN 18",LIST," TOTAL")=^C HMZHOLD("C HV_HNDBK", "UN18",LIS T,"TOTAL") +1 | |
57 | Q | |
58 | BENINFO ;I NFORMATION ABOUT THE BENE | |
59 | N NAME,FN AME,LNAME, ADDR1,ADDR 2,ADDR3,CI TY,STAE,ZI P | |
60 | S BIFLG=1 ;BENE A DDRESS VAL ID FLAG 1=GOOD/0=B AD | |
61 | I $P(^AHC HVA(DFN,10 0,BFN,1),U ,10)'=1 S BIFLG=0 Q | |
62 | I $D(^AHC HVA("FMP", DFN))&('$D (^AHCHVA(D FN,100,BFN ,109,VBEGD T,VENDDT)) ) S BIFLG= 0 Q | |
63 | S NAME=$P (^AHCHVA(D FN,100,BFN ,0),"^",1) | |
64 | S LNAME=$ P(NAME,"," ,1) | |
65 | S FNAME=$ P(NAME,"," ,2) | |
66 | S NAME=FN AME_" "_LN AME | |
67 | S ADDR1=$ P(^AHCHVA( DFN,100,BF N,1),"^",1 ) | |
68 | S ADDR2=$ P(^AHCHVA( DFN,100,BF N,1),"^",2 ) | |
69 | S ADDR3=$ P(^AHCHVA( DFN,100,BF N,1),"^",1 2) | |
70 | S CITY=$P (^AHCHVA(D FN,100,BFN ,1),"^",3) | |
71 | S STATE=$ P(^AHCHVA( DFN,100,BF N,1),"^",4 ) | |
72 | S:STATE'= "" STATE=$ P(^DIC(5,S TATE,0),U, 2) | |
73 | S ZIP=$E( $P(^AHCHVA (DFN,100,B FN,1),"^", 5),1,5) | |
74 | I ZIP="" S BIFLG=0 ;NO ZIP | |
75 | I $P(^AHC HVA(DFN,10 0,BFN,1)," ^",11)=1 D ;0= DOM ADR/1= FOR ADR CH K | |
76 | .S STATE= $P(^AHCHVA (DFN,100,B FN,1),U,13 ) | |
77 | .S STATE= $P(^DIC(5, STATE,0),U ,1) | |
78 | S BENREC= NAME_"^"_A DDR1_"^"_A DDR2_"^"_A DDR3_"^"_C ITY_"^"_ST ATE_"^"_ZI P_"^"_VBEG DT_"^"_VEN DDT | |
79 | Q | |
80 | AGECHK(ELD T,ADFN,ABF N) ;CHECK FOR BENE B EING OLDER /YOUNGER T HAN 18 | |
81 | N ADOB,AF LG | |
82 | S AFLG=0 ;OVE R/UNDER 18 0=OVER /1=UNDER | |
83 | S ADOB=$P (^AHCHVA(A DFN,100,AB FN,0),U,3) | |
84 | S TAGE=$$ AGE^CHTFLI B(ADOB,ELD T) | |
85 | I TAGE<18 S AFLG=1 | |
86 | Q AFLG | |
87 | VALEDT(ELD T,VDFN,VBF N) ;CHECKI NG FOR VAL ID ELIGIBI LITY DATE | |
88 | N DOD | |
89 | S (VBEGDT ,VENDDT)=0 | |
90 | S VFLG=1 ;DATE FL AG 0=VAL ID/1=INVAL ID | |
91 | Q:'$D(^AH CHVA(VDFN, 100,VBFN,1 09)) VFLG | |
92 | S VBEGDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT)) ;BEG ELIG DATE | |
93 | S VENDDT= $O(^AHCHVA (VDFN,100, VBFN,109,V BEGDT,VEND DT)) ;EN D ELIG DAT E | |
94 | S DOD=$P( ^AHCHVA(VD FN,100,VBF N,0),"^",6 ) ;DATE OF DEATH | |
95 | S:DOD'="" VFLG=1 | |
96 | S:VBEGDT< ELDT&(ELDT <VENDDT) V FLG=0 | |
97 | Q VFLG | |
98 | INIT ;INIT IALIZATION OF VARIAB LES | |
99 | K:$D(^CHM ZHOLD("CHV _HNDBK")) ^CHMZHOLD( "CHV_HNDBK ") | |
100 | S TAB=$C( 9) ;TAB | |
101 | ;GETTING ELIGIBILIT Y EFFECTIV E DATE | |
102 | S DIR("A" )="Enter C HAMPVA Ben e all elig ible date" | |
103 | S DIR(0)= "DO" | |
104 | D ^DIR | |
105 | I $D(DIRU T) S EEDFL G="" Q | |
106 | S EEFDT=+ Y | |
107 | Q | |
108 | HDR ; | |
109 | D ^CHMFSE T X CHRESE T | |
110 | S H1="HAC CENTER - Handbook + A-card + Letter + E nvelope Ma il Out" | |
111 | S DY=2,DX =1 X XY W ?(80-$L(H1 )/2),H1,!! | |
112 | Q | |
113 | PFILE ;POP ULATE DATA FILES | |
114 | N PNAME,P ADR1,PADR2 ,PADR3,PCI TY,PSTAT,P ZIP,PBGDT, PENDT,IOFI LE | |
115 | S T=$C(9) | |
116 | D OPNFL | |
117 | S I="" F S I=$O(^C HMZHOLD("C HV_HNDBK", I)) Q:I="" D | |
118 | .S J="" F S J=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J)) Q:J ="" D | |
119 | ..S K=0 F S K=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J,K)) Q :'K D | |
120 | ...S L=0 F S L=$O( ^CHMZHOLD( "CHV_HNDBK ",I,J,K,L) ) Q:'L D | |
121 | ....S PNA ME=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,1) | |
122 | ....S PAD R1=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,2) | |
123 | ....S PAD R2=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,3) | |
124 | ....S PAD R3=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,4) | |
125 | ....S PCI TY=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,5) ;IF FOREIGN AD DRESS THEN THIS IS C OUNTRY | |
126 | ....S PST AT=$P(^CHM ZHOLD("CHV _HNDBK",I, J,K,L),"^" ,6) | |
127 | ....S PZI P=$P(^CHMZ HOLD("CHV_ HNDBK",I,J ,K,L),"^", 7) | |
128 | ....S PBG DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD("CHV_H NDBK",I,J, K,L),"^",8 )) ;CONV ERT FM DAT E TO A 8 D IGIT YR (3 080401 TO 20080401) | |
129 | ....S PBG DT=$E(PBGD T,5,6)_"/" _$E(PBGDT, 7,8)_"/"_$ E(PBGDT,1, 4) | |
130 | ....S PEN DT=$$FMYRY R8^CHTFLIB ($P(^CHMZH OLD("CHV_H NDBK",I,J, K,L),"^",9 )) ;CONV ERT FM DAT E TO A 8 D IGIT YR (3 080401 TO 20080401) | |
131 | ....S PEN DT=$E(PEND T,5,6)_"/" _$E(PENDT, 7,8)_"/"_$ E(PENDT,1, 4) | |
132 | ....S IOF ILE=$S(J=" LIST-A1":I OLSTA1,J=" LIST-A2":I OLSTA1,J=" LIST-B1":I OLSTB1,J=" LIST-B2":I OLSTB2) | |
133 | ....U IOF ILE W PNAM E_TAB_PADR 1_TAB_PADR 2_TAB_PADR 3_TAB_PCIT Y_TAB_PSTA T_" "_PZI P_TAB_PBGD T_TAB_PEND T | |
134 | D CLSFL | |
135 | Q | |
136 | OPNFL ;OPE N/CREATE F S3BIG FILE S | |
137 | N ENVR | |
138 | S ENVR=$$ ENVIR^CHMK HDBKRW() | |
139 | ;DGC 1/17 /2014 DEV0 12893 - BE GIN | |
140 | ;S IOLSTA 1="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A1_" _EEFDT_ENV R_".TXT" ;DOM CHV B ENE ADR HA NDBOOK | |
141 | ;S IOLSTA 2="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_A2_" _EEFDT_ENV R_".TXT" ;FOR CHV B ENE ADR HA NDBOOK | |
142 | ;S IOLSTB 1="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B1_" _EEFDT_ENV R_".TXT" ;DOM CHV B ENE ADR CA RD ONLY | |
143 | ;S IOLSTB 2="HACFS3" " DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]LIST_B2_" _EEFDT_ENV R_".TXT" ;FOR CHV B ENE ADR CA RD ONLY | |
144 | ;O IOLSTA 1 C IOLSTA 1:"D" | |
145 | ;O IOLSTA 2 C IOLSTA 2:"D" | |
146 | ;O IOLSTB 1 C IOLSTB 1:"D" | |
147 | ;O IOLSTB 2 C IOLSTB 2:"D" | |
148 | ;O IOLSTA 1:"NWS":5 | |
149 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
150 | S FILENM2="L IST_A1_"_E EFDT_ENVR_ ".TXT" | |
151 | S IOLSTA1="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2 | |
152 | I UCI'="HAC" S IOLSTA1 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2 | |
153 | I '$$OPENFIW R^CHTFLIB9 (.IOLSTA1, "IOLSTA1") Q | |
154 | ;O IOLSTA 2:"NWS":5 | |
155 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
156 | S FILENM2="L IST_A2_"_E EFDT_ENVR_ ".TXT" | |
157 | S IOLSTA2="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2 | |
158 | I UCI'="HAC" S IOLSTA2 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2 | |
159 | I '$$OPENFIW R^CHTFLIB9 (.IOLSTA2, "IOLSTA2") Q | |
160 | ;O IOLSTB 1:"NWS":5 | |
161 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
162 | S FILENM2="L IST_B1_"_E EFDT_ENVR_ ".TXT" | |
163 | S IOLSTB1="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2 | |
164 | I UCI'="HAC" S IOLSTB1 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2 | |
165 | I '$$OPENFIW R^CHTFLIB9 (.IOLSTB1, "IOLSTB1") Q | |
166 | ;O IOLSTB 2:"NWS":5 | |
167 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
168 | S FILENM2="L IST_B2_"_E EFDT_ENVR_ ".TXT" | |
169 | S IOLSTB2="H AC_HFS$:[S CR.TEMP_FI LES]"_FILE NM2 | |
170 | I UCI'="HAC" S IOLSTB2 ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _FILENM2 | |
171 | I '$$OPENFIW R^CHTFLIB9 (.IOLSTB2, "IOLSTB2") Q | |
172 | Q | |
173 | CLSFL ;CLO SE FILES | |
174 | ;C IOLSTA 1 | |
175 | D CLOSEF^ CHTFLIB9(I OLSTA1,"IO LSTA1") | |
176 | D FTPFILE ^CHTFLIB9( IOLSTA1,"
|
|
177 | ;C IOLSTA 2 | |
178 | D CLOSEF^ CHTFLIB9(I OLSTA2,"IO LSTA2") | |
179 | D FTPFILE ^CHTFLIB9( IOLSTA2," DNS ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT") | |
180 | ;C IOLSTB 1 | |
181 | D CLOSEF^ CHTFLIB9(I OLSTB1,"IO LSTB1") | |
182 | D FTPFILE ^CHTFLIB9( IOLSTB1," DNS ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT") | |
183 | ;C IOLSTB 2 | |
184 | D CLOSEF^ CHTFLIB9(I OLSTB2,"IO LSTB2") | |
185 | D FTPFILE ^CHTFLIB9( IOLSTB2," DNS ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT") | |
186 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
187 | Q | |
188 | QUEA ;QUE THIS ROUTI NE | |
189 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
190 | S ZTRTN=" CHAMPVA^CH MKHDBK",ZT DESC="PROC ESS HANDBO OK" | |
191 | S ZTSAVE( "EEFDT")=" " | |
192 | S ZTIO="" | |
193 | ;D ^%ZTLO AD | |
194 | D CHAMPVA ^CHMKHDBKR W | |
195 | Q | |
196 | TXMSG ;MAI LMAN MESSA GE TO NOTI FY USER FI LES ARE RE ADY | |
197 | D TOTALS | |
198 | S CNT=1,^ TMP($J,"HN BK-MSG",CN T)="",CNT= CNT+1 | |
199 | S ^TMP($J ,"HNBK-MSG ",CNT)=" *** CHA MPVA HANDB OOK MESSAG E ***",CNT =CNT+1 | |
200 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
201 | S ^TMP($J ,"HNBK-MSG ",CNT)="PL EASE DO NO T REPLY TO THIS MESS AGE.",CNT= CNT+1 | |
202 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
203 | S ^TMP($J ,"HNBK-MSG ",CNT)="HA C CHAMPVA HANDBOOK L ISTING HAS COMPLETED .",CNT=CNT +1 | |
204 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
205 | S ^TMP($J ,"HNBK-MSG ",CNT)="TO TALS:",CNT =CNT+1 | |
206 | S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST A1 (DOMESTIC HANDBOOK) = "_TOTAL("L IST-A1"),C NT=CNT+1 | |
207 | S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST A2 (FOREIGN H ANDBOOK) = "_TOTAL("L IST-A2"),C NT=CNT+1 | |
208 | S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST B1 (DOMESTIC MEMBER CAR D ONLY) = "_TOTAL("L IST-B1"),C NT=CNT+1 | |
209 | S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" LIST B2 (FOREIGN M EMBER CARD ONLY) = "_TOTAL("L IST-B2"),C NT=CNT+1 | |
210 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
211 | S ^TMP($J ,"HNBK-MSG ",CNT)="FI LES MAY BE RETRIEVED FROM:",CN T=CNT+1 | |
212 | S:$D(TOTA L("LIST-A1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A1.TXT ",CNT=CNT+ 1 | |
213 | S:$D(TOTA L("LIST-A2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_A2.TXT ",CNT=CNT+ 1 | |
214 | S:$D(TOTA L("LIST-B1 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B1.TXT ",CNT=CNT+ 1 | |
215 | S:$D(TOTA L("LIST-B2 ")) ^TMP($ J,"HNBK-MS G",CNT)=" FS3BIG\C OMMO_RPTS\ HANDBOOK\L IST_B2.TXT ",CNT=CNT+ 1 | |
216 | S ^TMP($J ,"HNBK-MSG ",CNT)="", CNT=CNT+1 | |
217 | S ^TMP($J ,"HNBK-MSG ",CNT)="" | |
218 | S XMTEXT= "^TMP($J," "HNBK-MSG" "," | |
219 | S ZTSAVE( "ZIPTTL")= "",ZTSAVE( "ZIPTTL1") ="",ZTSAVE ("ZIPTTL2" )="",ZTSAV E("ZIPTTL3 ")="",ZTSA VE("ZIPTTL 4")="" | |
220 | S XMDUZ=. 5 | |
221 | S XMY(DUZ )="" ;SEND M ESSAGE TO USER RUNNI NG THIS RO UTINE | |
222 | S XMSUB=" HAC - CHAM PVA HANDBO OK COMPLET E" D ^XMD | |
223 | Q | |
224 | TOTALS ;CA LC TOTALS | |
225 | S I="" F S I=$O(^C HMZHOLD("C HV_HNDBK", I)) Q:I="" D | |
226 | .S J="" F S J=$O(^ CHMZHOLD(" CHV_HNDBK" ,I,J)) Q:J ="" D | |
227 | ..S TOTAL (J)=^CHMZH OLD("CHV_H NDBK",I,J, "TOTAL") | |
228 | Q | |
229 | ENVIR() ;F UNCTION TO DETERMINE SYSTEM RU NNING ON ;JEH 5/20/ 08 TT #DEV 003699-1 | |
230 | N AYGSYS | |
231 | S AYGSYS= $P(^XTV(89 89.3,1,0), U) S AYGSY S=$P(^DIC( 4.2,AYGSYS ,0),U) | |
232 | S AYGSYS= $P(AYGSYS, ".") | |
233 | S AYGSYS= $S(AYGSYS= "HAC":"LIV E",1:AYGSY S) | |
234 | Q AYGSYS | |
235 | END ; | |
236 | K VFLG,VB EGDT,VENDD T | |
237 | ||
238 | K ADDRLAB ,BFN,CHDAT E,CHDFNI,C HDFNJ,CHDF NK,DFN,DFN DATA,FIO,J 1,J2 | |
239 | K NAMELAB ,PCNT,PDIJ ,PG,RUNTIM E,STATE,ST RDAT,T,TFM DT,TMPS,U | |
240 | K EEFDT,E EDFLG | |
241 | ||
242 | D TXMSG | |
243 | Q | |
244 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.