Produced by Araxis Merge on 11/9/2018 12:33:43 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 | CHCMS1009.m | Mon Nov 5 16:39:11 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMS1009.m | Tue Nov 6 22:06:45 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 374 |
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 | CHCMS1009 ;DP;read t he new for mat of cms file;5/19 /2010 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;TST00583 2: Auto p opulate da tes of dea th in APP from the C MS reply f ile | |
4 | ;DEF01655 4 SBB 10/2 4/13 - Mo dified EOF handling as per VHA standard. | |
5 | ;DEF01655 4 SBB 11/1 9/13 - ad ded POP an d IO as pe r OPEN^%ZI SH API. | |
6 | ;DEF01655 4 SBB 07/3 0/15 - Ad ding chang es for DEC NET | |
7 | ; | |
8 | K ^CHMZHO LD("ZSKD_C MSREPLY"), ^TMP(54120 9831) | |
9 | S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_54 1209831 | |
10 | N POP | |
11 | S POP=0 | |
12 | ;D RFILE1 ,PRINT | |
13 | D RFILE1 | |
14 | I POP D P RINT | |
15 | Q | |
16 | RFILE1 ;re adin ssn f ile | |
17 | ;DEF01655 4 SBB 11/2 0/13 - Co nverting f rom DECNET to FTP. | |
18 | ;S FILE=" HACFS3""
|
|
19 | N FOLDER, CNTR | |
20 | S FILE="S SN.TXT",FO LDER="" | |
21 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
22 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
23 | I UCI="HA C" S FOLDE R="HAC_HFS $:[SCR.TEM P_FILES]" | |
24 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
25 | S FILE=FO LDER_FILE | |
26 | D FTPFILE ^CHTFLIB9( FILE," DNS . DNS ","/CMS/CM SREPLYFILE S","GET") | |
27 | S UP="^" S NTPN=1,$ ZE="",$ZT= "RFILE2^CH CMS1009" | |
28 | ;DEF01655 4-10/24/13 -SBB call OPEN^%ZISH to open t he file | |
29 | ;O FILE:" R":5 G:$ZE ["ENDOFFIL E" RFILE2 U FILE | |
30 | S POP=0,C NTR=0 | |
31 | ;SBB 07/3 0/15 DEF01 6554 | |
32 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
33 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D | |
34 | . S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") | |
35 | . Q | |
36 | I 'POP G RFILE2 | |
37 | S RNDOM=$ R(15),NRND OM=0 | |
38 | ;;DEF0165 54-10/24/1 3-SBB use STATUS^%ZI SH to chec k for EOF | |
39 | ;F Q:NTP N=0 U FIL E R TMPX:5 G:$ZE["EN DOFFILE" R FILE2 D ; Q ;U FILE G:NTPN=0 RFILE2 D | |
40 | F Q:NTPN =0 U FILE R TMPX G: $$STATUS^% ZISH RFILE 2 D | |
41 | .I ANS=3 I NTP1>NTP S NTPN=0 Q | |
42 | .;I NRNDO M<RNDOM S NRNDOM=NRN DOM+1 Q ; AEB 5/6/20 11 COMMENT ED OFF TO ALLOW ALL RECORDS TO BE PROESS ED | |
43 | .S CHBID= $E(TMPX,1, 15) | |
44 | .S CHHICN =$E(TMPX,1 6,27) Q:CH BID="" S CHHICN=$$S TRIP^XLFST R(CHHICN," ") ;AEB 8/24/2011 | |
45 | .S CHSSN= $E(TMPX,85 ,93) Q:CHS SN="" Q:C HSSN'?9N | |
46 | .S CHSEX= $E(TMPX,84 ) | |
47 | .S LNAME= $E(TMPX,28 ,51) | |
48 | .S FNAME= $E(TMPX,52 ,66) | |
49 | .S MNAME= $E(TMPX,67 ) | |
50 | .S DOB=$E (TMPX,68,7 5),DOB=$$G ETDT(DOB) | |
51 | .S DOD=$E (TMPX,76,8 3),DOD=$$G ETDT(DOD) | |
52 | .S CHSSN= $E(TMPX,85 ,93) | |
53 | .S CHMASD T=$E(TMPX, 94,101),CH MASDT=$$GE TDT(CHMASD T) | |
54 | .S CHMAED T=$E(TMPX, 102,109),C HMAEDT=$$G ETDT(CHMAE DT) | |
55 | .S CHMBSD T=$E(TMPX, 112,119),C HMBSDT=$$G ETDT(CHMBS DT) | |
56 | .S CHMBED T=$E(TMPX, 120,127),C HMBEDT=$$G ETDT(CHMBE DT) | |
57 | .D STT I ANS'=1 Q:' $D(^CHMPAY ("D",DFN)) | |
58 | .D PAY I ANS'=1 Q:N CF=1 | |
59 | .I ANS'=1 Q:DOB'=CH HDOB | |
60 | .I ANS'=1 Q:DOD=CHH DOD | |
61 | .I CHHDOD I ANS'=1 I ANS'=3 Q :DOD'=CHHD OD | |
62 | .I ANS>2 Q:DOD'?.9N D I CHH DOD Q:DOD' =CHHDOD D ;Q:$E(DO D,3,9)=$E( CHHDOD,2,7 ) | |
63 | ..S ^CHMZ HOLD("CMS_ RESET",DFN ,100,BFN,0 )=^AHCHVA( DFN,100,BF N,0) | |
64 | ..S ^CHMZ HOLD("CMS_ RESET",DFN ,100,BFN,3 )=$G(^AHCH VA(DFN,100 ,BFN,3)) | |
65 | .S ^CHMZH OLD("ZSKD_ CMSREPLY", CHBID)=CHS SN_UP_CHSE X_UP_DOB_U P_DOD_UP_$ TR(FNAME," ","")_UP_ MNAME_UP_$ TR(LNAME," ","")_UP_ CHMASDT_UP _CHMAEDT_U P_CHMBSDT_ UP_CHMBEDT _UP_CHHICN | |
66 | .S:'$D(NT P1) NTP1=0 S NTP1=NT P1+1,NRNDO M=0 | |
67 | Q | |
68 | PAY | |
69 | S CN=0,NC F=0 I '$D( ^CHMPAY("D ",DFN)) S NCF=1 Q ;No Claim s Found; | |
70 | F S CN=$ O(^CHMPAY( "D",DFN,CN ),-1) Q:CN ="" Q:NCF =1 D | |
71 | .S X=$G(^ CHMPAY(CN, 0)) | |
72 | .I $P(X,U ,22)=BFN,D OD?.7N D | |
73 | ..S:$P(X, U,8)'<DOD NCF=1 ;Clai m date mus t be prior to DOD ** ********** *** | |
74 | Q | |
75 | RFILE2 | |
76 | ;DEF01655 4-10/24/13 -SBB use C LOSE^%ZISH to close file | |
77 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
78 | ;SBB 07/3 0/15 DEF01 6554 | |
79 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
80 | S X=$ZF(- 1,"DELETE "_FILE_";* ") | |
81 | ;C FILE | |
82 | Q | |
83 | STT | |
84 | S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN | |
85 | I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q | |
86 | S (DFN,BF N)="" | |
87 | S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S CHNOSSN=1 Q | |
88 | S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q | |
89 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) S CHNOSSN =1 Q | |
90 | S:'$D(^CH MZHOLD("CM S_RESET")) ^("CMS_RE SET")=$H | |
91 | S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
92 | S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6) | |
93 | Q | |
94 | RESET | |
95 | I '$D(^CH MZHOLD("CM S_RESET")) U 0 W !," Nothing to reset" r xx:2 q | |
96 | U 0 W !!! ,"This pro cess will reset ALL CMS relate d changes made since ",$ZD(^CH MZHOLD("CM S_RESET")) ,!,"Contin ue ? (Y/N) " R CO Q:C O'="Y" | |
97 | S DFN="" F S DFN=$ O(^CHMZHOL D("CMS_RES ET",DFN)) Q:DFN="" S BFN="" D | |
98 | .F S BFN =$O(^CHMZH OLD("CMS_R ESET",DFN, 100,BFN)) Q:BFN="" D | |
99 | ..S CHPD= $G(^AHCHVA (DFN,100,B FN,0)),CHC D=^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,0) | |
100 | ..W !,DFN L ^AHCHVA (DFN) | |
101 | ..S ^AHCH VA(DFN,100 ,BFN,0)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,0),$P(^A HCHVA(DFN, 100,BFN,0) ,"^",6)="" | |
102 | ..S ^AHCH VA(DFN,100 ,BFN,2)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,2) | |
103 | ..S ^AHCH VA(DFN,100 ,BFN,3)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,3) | |
104 | ..S %=$O( ^AHCHVA(DF N,101,""), -1) | |
105 | ..S %1=$O (^AHCHVA(D FN,101,%), -1) | |
106 | ..I $P(%, ".")=$P(%1 ,".") S %= %1 | |
107 | ..K ^AHCH VA(DFN,101 ,%,100,BFN ) | |
108 | ..;Get re maining va riables fo r Auto Cal c: | |
109 | ..S (CHCD 1,CHPD1)=$ G(^AHCHVA( DFN,100,BF N,1)) | |
110 | ..S CHCD5 =$G(^AHCHV A(DFN,100, BFN,5)) | |
111 | ..S (CHCD 9,CHPD9)=$ G(^AHCHVA( DFN,100,BF N,9)),DT=$ P(CHCD,U,6 ) S:'$D(DU Z) DUZ=1 | |
112 | ..K ^CHMZ HOLD("CMS_ RESET",DFN ) | |
113 | ..;Auto C alc: | |
114 | ..D ^CHME AE9 D:CHCD '=CHPD ^CH MEAE8 S CH PD=CHCD D ^CHMEAE81, ^CHMEAE9 D :CHCD'=CHP D ^CHMEAE8 | |
115 | ..L | |
116 | Q | |
117 | RESET1 | |
118 | ;U 0 W !! !,"This pr ocess will reset ALL CMS relat ed changes made sinc e ",$ZD(^C HMZHOLD("C MS_RESET") ),!,"Conti nue ? (Y/N )" R CO Q: CO'="Y" | |
119 | S DFN="" F S DFN=$ O(^CHMZHOL D("CMS_RES ET",DFN)) Q:DFN="" S BFN="" D | |
120 | .F S BFN =$O(^CHMZH OLD("CMS_R ESET",DFN, 100,BFN)) Q:BFN="" D | |
121 | ..S CHPD= $G(^AHCHVA (DFN,100,B FN,0)),CHC D=^CHMZHOL D("CMS_RES ET",DFN,10 0,BFN,0) | |
122 | ..W !,DFN L ^AHCHVA (DFN) | |
123 | ..S ^AHCH VA(DFN,100 ,BFN,0)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,0),$P(^A HCHVA(DFN, 100,BFN,0) ,"^",6)="" | |
124 | ..S ^AHCH VA(DFN,100 ,BFN,2)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,2) | |
125 | ..S ^AHCH VA(DFN,100 ,BFN,3)=^C HMZHOLD("C MS_RESET", DFN,100,BF N,3) | |
126 | ..S %=$O( ^AHCHVA(DF N,101,""), -1) | |
127 | ..S %1=$O (^AHCHVA(D FN,101,%), -1) | |
128 | ..I $P(%, ".")=$P(%1 ,".") S %= %1 | |
129 | ..K ^AHCH VA(DFN,101 ,%,100,BFN ) | |
130 | ..;Get re maining va riables fo r Auto Cal c: | |
131 | ..S (CHCD 1,CHPD1)=$ G(^AHCHVA( DFN,100,BF N,1)) | |
132 | ..S CHCD5 =$G(^AHCHV A(DFN,100, BFN,5)) | |
133 | ..S (CHCD 9,CHPD9)=$ G(^AHCHVA( DFN,100,BF N,9)),DT=$ P(CHCD,U,6 ) S:'$D(DU Z) DUZ=1 | |
134 | ..K ^CHMZ HOLD("CMS_ RESET",DFN ) | |
135 | ..;Auto C alc: | |
136 | ..D ^CHME AE9 D:CHCD '=CHPD ^CH MEAE8 S CH PD=CHCD D ^CHMEAE81, ^CHMEAE9 D :CHCD'=CHP D ^CHMEAE8 | |
137 | ..L | |
138 | Q | |
139 | GETDT(D1) ;;Convert CMS STRING | |
140 | S D1=$TR( D1," ","") | |
141 | I $L(D1)> 3 S Z1=3 S :$E(D1,1)= 1 Z1=2 S D 1=Z1_$E(D1 ,3,99) | |
142 | Q D1 | |
143 | ||
144 | ;Q:yn'="Y " O 0 | |
145 | ;D TEST^C HCMSAP2 | |
146 | Q:ANS'=6 | |
147 | S C=0,JJ= $P(^CHMZHO LD("ZSKD_C MSREPLY"), "^",2) | |
148 | K ^TMP("D P") | |
149 | S A="" F S A=$O(^T MP(JJ,"CMS REPLY","D OD DISCREP ANCY",A)) Q:A="" D | |
150 | .S B=$O(^ TMP(JJ,"CM S REPLY"," DOD DISCRE PANCY",A,- 1)) | |
151 | .S C=$O(^ TMP(JJ,"CM S REPLY"," DOD DISCRE PANCY",A,B ,-1)) | |
152 | .S X=^(C) ,X1=^AHCHV A(B,100,C, 0) | |
153 | .S ^TMP(" DP",A,B,"C MS")=X,^TM P("DP",A,B ,"HAC")=X1 ; W !,X,! ,X1 R XXX | |
154 | S A="",C= 0 F S A=$ O(^TMP("DP ",A)) Q:A= "" D | |
155 | .S B="" F S B=$O(^ TMP("DP",A ,B)) Q:B=" " D | |
156 | ..I C=7 S C=0 w !!, "Continue. .. Enter ^ to quit" R XXX I XX X="^" S C= -1 Q | |
157 | ..S C=C+1 ,X=^TMP("D P",A,B,"CM S"),X1=^(" HAC") | |
158 | ..U 0 W ! !,C,?3,"CM S: ",B," " F I=6,3, 2 W $TR($P (X,"^",I), " ",""),", " | |
159 | ..;Q | |
160 | ..;S C=0, JJ=$P(^CHM ZHOLD("ZSK D_CMSREPLY "),"^",2) | |
161 | ..;S A="" F S A=$O (^CHMZHOLD ("ZSKD_CMS REPLY",A)) Q:A="" D Q:C=-1 | |
162 | ...;Q:A=" NAME" S X =^(A) | |
163 | ..;S N=$O (^TMP(JJ," CMS REPLY" ,"DOD DISC REPANCY",N )) Q:N="" | |
164 | ...S NN=" " F S NN= $O(^TMP(JJ ,"CMS REPL Y","DOD DI SCREPANCY" ,A,NN)) Q: NN="" D Q:C=-1 | |
165 | ..;S X=$G (^(NN,1)) | |
166 | ..W !,?3, "HAC:",B," " F I=1, 3,6 W $TR( $P(X1,"^", I)," ","") ," " | |
167 | Q | |
168 | PRINT1 | |
169 | ;Q:yn'="Y " O 0 | |
170 | ;D TEST^C HCMSAP2 | |
171 | S CC=1,JJ =$P(^CHMZH OLD("ZSKD_ CMSREPLY") ,"^",2) | |
172 | S A="" F S A=$O(^T MP(JJ,"CMS REPLY","D OD AUTOPOP ",A)) Q:A= "" Q:A="N EXT" S B= "" D | |
173 | .S B="" F S B=$O(^ TMP(JJ,"CM S REPLY"," DOD AUTOPO P",A,B)) Q :B="" D | |
174 | ..S X=^TM P(JJ,"CMS REPLY","DO D AUTOPOP" ,A,B) | |
175 | ..S ^TMP( JJ,"CMS RE PLY","DOD AUTOPOP"," NEXT",A,B, $P(X,"^",6 ))=X | |
176 | S A="" F S A=$O(^C HMZHOLD("C MS_RESET", A)) Q:A="" Q:A="NEX T" Q:CC=0 D | |
177 | .S B="" F S B=$O(^ CHMZHOLD(" CMS_RESET" ,A,B)) Q:B ="" Q:CC= 0 D | |
178 | ..S C="" F S C=$O( ^CHMZHOLD( "CMS_RESET ",A,B,C)) Q:C="" Q: CC=0 D | |
179 | ...S X=^C HMZHOLD("C MS_RESET", A,B,C,0) | |
180 | ...U 0 W !!,CC,?3," CMS: " F I =1:1:12 W $TR($P(X," ^",I)," ", ""),"," | |
181 | ...S N=$P (X,"^",7)_ ","_$P(X," ^",5) | |
182 | ...;S N=$ O(^TMP(JJ, "CMS REPLY ","DOD DIS CREPANCY", N)) Q:N="" | |
183 | ...S NN=" " F S NN= $O(^TMP(JJ ,"CMS REPL Y","DOD AU TOPOP","NE XT",N,NN)) Q:NN="" Q:CC=0 D | |
184 | ....S X=$ G(^(N,NN)) W !,?3,"H AC:" F I=1 :1:13 W $T R($P(X,"^" ,I)," ","" )," " | |
185 | ...I CC>6 W !,"Cont inue... En ter ^ to q uite" R XX X S CC=0 Q :XXX["^" | |
186 | ...S CC=C C+1 | |
187 | Q | |
188 | ||
189 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.