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 | CHCMSAP2.m | Mon Nov 5 16:39:17 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMSAP2.m | Tue Nov 6 22:08:08 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 8 | 468 |
Changed | 7 | 14 |
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 | CHCMSAP2 ; HAC/JSG;CO PY OF CMS REPLY FILE READIN FO R TESTING DEV005832; 02/23/09;1 0:10 AM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;Reads CM S Reply Fi les and cr eates ^CHM ZHOLD for testing CH CMSAP1; do es NOT gen erate ; | |
4 | ;the HAC CMS CROSS- MATCH DISC REPANCIES REPORT; do es NOT upd ate HICNs ; | |
5 | ;JSG;DEV0 05832-02;0 2/10/09;Au to populat e DODs fro m the CMS Reply File ; | |
6 | ;; | |
7 | Q | |
8 | TEST ;Read files and create CH MZHOLD and TMP(,"CMS REPLY") f or auto po pulating D ODs ; | |
9 | ;D ^CHMFS ET X CHRES ET | |
10 | ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********" | |
11 | ;U 0 W !, "For the s ystem to g enerate th e CMS disc repancy re port, five files lis ted below " | |
12 | ;U 0 W !, "must exis t in the DNS \cms\CMSRe plyFiles d irectory: " | |
13 | ;U 0 W !! ," BENENAM E.TXT, HIC N.TXT, MED A.TXT, MED B.TXT, SSN .TXT." | |
14 | ;U 0 W !! ,"The disc repancy re port name is CMS_DIS CREPANCY_R EPORT_MMYY .TXT and w ill be " | |
15 | ;U 0 W !, "output to the DNS \CMS direc tory." | |
16 | ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********" | |
17 | ;U 0 R !! ,"Are you sure you w ant to con tinue (Y/N )) ",Y Q :$$UP^XLFS TR(Y)'="Y" D CSBRS^ CHSC2 | |
18 | ;U 0 R !! ,"Is that a test run (Y/N) ? " ,yn#2 D:$$ UP^XLFSTR( yn)="Y" | |
19 | ;.U 0 R ! ,"Number o f test pat ients: ",N TP#3 S NTP 1=1 | |
20 | ;Q:$D(DFO UT) Q:$D( DUOUT) | |
21 | ;S CHRPTN M="" | |
22 | ;I $P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY")),"^ ",1)'="" D | |
23 | .S CHRPTN M=$P($G(^V A(200,$P(^ CHMZHOLD(" ZSKD_CMSRE PLY"),"^", 1),0)),U,1 ) | |
24 | ;I CHRPTN M'="" D | |
25 | ;.W !!,"* "_$E(CHRPT NM,1,12)_" is runnin g the repo rt. Contin ue and ove rwrite the report (Y /N)? " | |
26 | ;.D CSBRS ^CHSC2 Q:$ D(DFOUT) Q:$D(DUOUT ) Q:$$UP^ XLFSTR(Y)' ="Y" | |
27 | K ^CHMZHO LD("ZSKD_C MSREPLY") | |
28 | ; | |
29 | S ZTSK=$J | |
30 | START ; | |
31 | S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_ZT SK | |
32 | S $ZE="", $ZT="" G P ROCESS | |
33 | Q | |
34 | RFILE1 ;re adin ssn f ile | |
35 | S $ZE="", $ZT="RFILE 2^CHCMSAP2 " | |
36 | S READFIL 1="HACFS3" "
|
|
37 | O READFIL 1:"R":5 G: $ZE["ENDOF FILE" RFIL E2 | |
38 | F U READ FIL1 R TMP X G:$ZE["E NDOFFILE" RFILE2 D | |
39 | .S (CHBID ,CHSSN,CHS EX)="" | |
40 | .Q:$E(TMP X,1)="B" | |
41 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
42 | .S CHSSN= $P(TMPX,", ",2) Q:CHS SN="" Q:C HSSN'?9N | |
43 | .S CHSEX= $P(TMPX,", ",3),CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "") | |
44 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",1)=CHS SN | |
45 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",2)=CHS EX | |
46 | RFILE2 ;re adin benen ame file | |
47 | S $ZE="", $ZT="RFILE 3^CHCMSAP2 " | |
48 | S READFIL 2="HACFS3" "
|
|
49 | O READFIL 2:"R":5 G: $ZE["ENDOF FILE" RFIL E3 | |
50 | F U READ FIL2 R TMP X G:$ZE["E NDOFFILE" RFILE3 D | |
51 | .S (CHBID ,CHDOB,CHD OD,CHFNAME ,CHMI,CHLN AME,CHHICN )="" | |
52 | .Q:$E(TMP X,1)="B" | |
53 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
54 | .S CHDOB= $P(TMPX,", ",2) I CHD OB'="" S C HDOB=$$CON VDT(CHDOB) | |
55 | .S CHDOD= $P(TMPX,", ",3) I CHD OD'="" S C HDOD=$$CON VDT(CHDOD) | |
56 | .S CHFNAM E=$P(TMPX, ",",4),CHF NAME=$$TRI M^CHTFLIB( CHFNAME),C HFNAME=$$L TRIM^CHTFL IB(CHFNAME ) | |
57 | .S CHMI=$ P(TMPX,"," ,5),CHMI=$ $TRIM^CHTF LIB(CHMI), CHMI=$$LTR IM^CHTFLIB (CHMI) | |
58 | .S CHLNAM E=$P(TMPX, ",",6),CHL NAME=$$TRI M^CHTFLIB( CHLNAME),C HLNAME=$$L TRIM^CHTFL IB(CHLNAME ) | |
59 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",3)=CHD OB | |
60 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",4)=CHD OD | |
61 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",5)=CHF NAME | |
62 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",6)=CHM I | |
63 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",7)=CHL NAME | |
64 | RFILE3 ;re adin MEDA file | |
65 | S $ZE="", $ZT="RFILE 4^CHCMSAP2 " | |
66 | S READFIL 3="HACFS3" "
|
|
67 | O READFIL 3:"R":5 G: $ZE["ENDOF FILE" RFIL E4 | |
68 | F U READ FIL3 R TMP X G:$ZE["E NDOFFILE" RFILE4 D | |
69 | .S (CHBID ,CHMASDT,C HMAEDT,CHM ARNCD,CHMA STCD)="" | |
70 | .Q:$E(TMP X,1)="B" | |
71 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
72 | .S CHMASD T=$P(TMPX, ",",2) I C HMASDT'="" S CHMASDT =$$CONVDT( CHMASDT) | |
73 | .S CHMAED T=$P(TMPX, ",",3) I C HMAEDT'="" S CHMAEDT =$$CONVDT( CHMAEDT) | |
74 | .S CHMARN CD=$P(TMPX ,",",4) | |
75 | .S CHMAST CD=$P(TMPX ,",",5) | |
76 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",8)=CHM ASDT | |
77 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",9)=CHM AEDT | |
78 | RFILE4 ;re adin MEDB file | |
79 | S $ZE="", $ZT="RFILE 5^CHCMSAP2 " | |
80 | S READFIL 4="HACFS3" "
|
|
81 | O READFIL 4:"R":5 G: $ZE["ENDOF FILE" RFIL E5 | |
82 | F U READ FIL4 R TMP X G:$ZE["E NDOFFILE" RFILE5 D | |
83 | .S (CHBID ,CHMBSDT,C HMBEDT,CHM BRNCD,CHMB STCD)="" | |
84 | .Q:$E(TMP X,1)="B" | |
85 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
86 | .S CHMBSD T=$P(TMPX, ",",2) I C HMBSDT'="" S CHMBSDT =$$CONVDT( CHMBSDT) | |
87 | .S CHMBED T=$P(TMPX, ",",3) I C HMBEDT'="" S CHMBEDT =$$CONVDT( CHMBEDT) | |
88 | .S CHMBRN CD=$P(TMPX ,",",4) | |
89 | .S CHMBST CD=$P(TMPX ,",",5) | |
90 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",10)=CH MBSDT | |
91 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",11)=CH MBEDT | |
92 | RFILE5 ;re adin HICN file | |
93 | S $ZE="", $ZT="PROCE SS^CHCMSAP 2" | |
94 | S READFIL 5="HACFS3" "
|
|
95 | O READFIL 5:"R":5 G: $ZE["ENDOF FILE" PROC ESS | |
96 | F U READ FIL5 R TMP X G:$ZE["E NDOFFILE" PROCESS D | |
97 | .S (CHBID ,CHHICN)=" " | |
98 | .Q:$E(TMP X,1)="B" | |
99 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
100 | .S CHHICN =$P(TMPX," ,",2) | |
101 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",12)=CH HICN | |
102 | PROCESS ; | |
103 | ;D ^CHCMS 1009 ;DP; CREATE THE CMS FILE; | |
104 | S $ZE="", $ZT="",$EC ODE=$ZE | |
105 | ;I $D(REA DFIL1) C R EADFIL1 | |
106 | ;I $D(REA DFIL2) C R EADFIL2 | |
107 | ;I $D(REA DFIL3) C R EADFIL3 | |
108 | ;I $D(REA DFIL4) C R EADFIL4 | |
109 | ;compare CMS data a gainst the HAC's | |
110 | D NOW^%DT C S CHDTTM =% | |
111 | S (CHTDSC RE,CHTSSN, CHTNAME,CH TDOB,CHTDO D,CHTHICN, CHTMABD,CH TMAED,CHTM BBD,CHTMBE D)=0 | |
112 | S CHBID=0 | |
113 | F S CHBI D=$O(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID)) G :'CHBID PR INT D | |
114 | .S (CHSSN ,CHSEX,CHD OB,CHDOD,C HFNAME,CHM I,CHLNAME, CHMASDT,CH MAEDT,CHMB SDT,CHMBED T,CHHICN)= "" | |
115 | .S CHSSN= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 1) | |
116 | .I CHSSN' ="" S CHTS SN=CHTSSN+ 1 | |
117 | .S CHSEX= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 2),CHSEX=$ S(CHSEX=1: "M",CHSEX= 2:"F",1:"" ) | |
118 | .S CHDOB= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 3) | |
119 | .S CHDOD= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 4) | |
120 | .S CHFNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",5) | |
121 | .S CHMI=$ P(^CHMZHOL D("ZSKD_CM SREPLY",CH BID),"^",6 ) | |
122 | .S CHLNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",7) | |
123 | .S CHMASD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",8) | |
124 | .S CHMAED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",9) | |
125 | .S CHMBSD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",10) | |
126 | .S CHMBED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",11) | |
127 | .S CHHICN =$P(^CHMZH OLD("ZSKD_ CMSREPLY", CHBID),"^" ,12) | |
128 | .S CHNOSS N=0,CHERR= "" | |
129 | .D GHACDA TA | |
130 | .I CHNOSS N S CHERR= "NO HAC SS N MATCH" D SETERR Q | |
131 | .I CHLNAM E'=CHHLNAM E S CHERR= "A,",CHTNA ME=CHTNAME +1,CHTDSCR E=CHTDSCRE +1 | |
132 | .I CHDOB' =CHHDOB S CHERR=CHER R_"B,",CHT DOB=CHTDOB +1,CHTDSCR E=CHTDSCRE +1 | |
133 | .I CHDOD' =CHHDOD S CHERR=CHER R_"C,",CHT DOD=CHTDOD +1,CHTDSCR E=CHTDSCRE +1 | |
134 | .I CHHHIC N'="" D | |
135 | ..I CHHIC N'=CHHHICN S CHERR=C HERR_"D,", CHTHICN=CH THICN+1,CH TDSCRE=CHT DSCRE+1 | |
136 | .I CHMASD T'=CHHMASD T S CHERR= CHERR_"E," ,CHTMABD=C HTMABD+1,C HTDSCRE=CH TDSCRE+1 | |
137 | .I CHMAED T'=CHHMAED T S CHERR= CHERR_"F," ,CHTMAED=C HTMAED+1,C HTDSCRE=CH TDSCRE+1 | |
138 | .I CHMBSD T'=CHHMBSD T S CHERR= CHERR_"G," ,CHTMBBD=C HTMBBD+1,C HTDSCRE=CH TDSCRE+1 | |
139 | .I CHMBED T'=CHHMBED T S CHERR= CHERR_"H", CHTMBED=CH TMBED+1,CH TDSCRE=CHT DSCRE+1 | |
140 | .D SETERR | |
141 | .D DODCHK ^CHCMSAP1( CHDOD,CHHD OD,CHDOB,C HHDOB,DFN, BFN,CHSSN, CHBNAME) ;JSG;DEV00 5832;2/20/ 09 | |
142 | PRINT ; | |
143 | Q | |
144 | SETERR ; | |
145 | S $P(^CHM ZHOLD("ZSK D_CMSREPLY ",CHBID)," ^",13)=$S( $E(CHERR,$ L(CHERR))= ",":$E(CHE RR,1,$L(CH ERR)-1),1: CHERR) | |
146 | I CHFNAME ="" S CHFN AME="XXX" | |
147 | I CHMI="" S CHMI="X XX" | |
148 | I CHLNAME ="" S CHLN AME="XXX" | |
149 | S ^CHMZHO LD("ZSKD_C MSREPLY"," NAME",CHLN AME,CHFNAM E,CHMI,CHS SN)=^CHMZH OLD("ZSKD_ CMSREPLY", CHBID) | |
150 | Q | |
151 | ; | |
152 | GHACDATA ; get data f rom the HA C Bene fil e | |
153 | S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)="" | |
154 | S CHNOSSN =0 | |
155 | I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q | |
156 | S (DFN,BF N)="" | |
157 | S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S CHNOSSN=1 Q | |
158 | S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q | |
159 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) S CHNOSSN =1 Q | |
160 | S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
161 | S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6) | |
162 | S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1) | |
163 | S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME) | |
164 | S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI) | |
165 | S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME) | |
166 | D HACMEDA ,HACMEDB | |
167 | S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39) | |
168 | S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN) | |
169 | Q | |
170 | ; | |
171 | HACMEDA ; | |
172 | Q:'$D(^AH CHVA(DFN,1 00,BFN,111 )) | |
173 | S CHHMADT P=99999999 99 | |
174 | S CHHMADT P=$O(^AHCH VA(DFN,100 ,BFN,111,C HHMADTP),- 1) | |
175 | I CHHMADT P D | |
176 | .S CHHMAS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 1) | |
177 | .S CHHMAE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 4) | |
178 | Q | |
179 | ; | |
180 | HACMEDB ; | |
181 | Q:'$D(^AH CHVA(DFN,1 00,BFN,112 )) | |
182 | S CHHMBDT P=99999999 99 | |
183 | S CHHMBDT P=$O(^AHCH VA(DFN,100 ,BFN,112,C HHMBDTP),- 1) | |
184 | I CHHMBDT P D | |
185 | .S CHHMBS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 1) | |
186 | .S CHHMBE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 4) | |
187 | Q | |
188 | ; | |
189 | CONVDT(D) ;Converts external date (01SE P2007) to FileMan da te (307090 1) | |
190 | S X=D D ^ %DT K X,%D T | |
191 | Q Y | |
192 | ; | |
193 | COUNT(N) ; Print repo rt to file : | |
194 | S J=5412098 31 | |
195 | W HILE $O(^T MP(J,"CMS REPLY","DO D DISCREPA NCY",N))'= "" { S N=$ O(^(N)),D= 0 | |
196 | WHILE $O (^TMP(J,"C MS REPLY", "DOD DISCR EPANCY",N, D))>0 { S D=$O(^(D)) ,B=0 | |
197 | WHILE $O(^TMP(J ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B))>0 { S B=$O( ^(B)) | |
198 | S X=^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B) | |
199 | ;W !,$I(CLAI MCNT) | |
200 | IF $P(X,"^", 7) { W !,$ I(CLAIMCNT ) } | |
201 | ;K ^T MP(J,"CMS REPLY","DO D DISCREPA NCY",N,D,B ) | |
202 | } } } | |
203 | Q | |
204 | COUNTAP(D) ;Print re port to fi le: | |
205 | S J=5412098 31 | |
206 | W HILE $O(^T MP(J,"CMS REPLY","DO D AUTOPOP" ,D))>0 { S D=$O(^(D) ),B=0 | |
207 | WHILE $O (^TMP(J,"C MS REPLY", "DOD AUTOP OP",D,B))> 0 { S B=$O (^(B)) | |
208 | S X=^ TMP(J,"CMS REPLY","D OD AUTOPOP ",D,B) | |
209 | S N=$ P(X,"^",6) | |
210 | IF '$ D(^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B)) { W !,$I(POPC NT) } | |
211 | } } | |
212 | Q | |
213 | COUNTDOB(N ) ;Print r eport to f ile: | |
214 | S J=5412098 31 | |
215 | W HILE $O(^T MP(J,"CMS REPLY","DO D DISCREPA NCY",N))'= "" { S N=$ O(^(N)),D= 0 | |
216 | WHILE $O (^TMP(J,"C MS REPLY", "DOD DISCR EPANCY",N, D))>0 { S D=$O(^(D)) ,B=0 | |
217 | WHILE $O(^TMP(J ,"CMS REPL Y","DOD DI SCREPANCY" ,N,D,B))>0 { S B=$O( ^(B)) | |
218 | S X=^TMP(J," CMS REPLY" ,"DOD DISC REPANCY",N ,D,B) | |
219 | ;W !,$I(CLAI MCNT) | |
220 | IF $P(X,"^", 3)'=$P(X," ^",4) { W !,$I(CLAIM CNT) } | |
221 | ;K ^T MP(J,"CMS REPLY","DO D DISCREPA NCY",N,D,B ) | |
222 | } } } | |
223 | Q | |
224 | TESTAP ;En ter a DFN, BFN; chec k claims; auto popul ate: | |
225 | S CMS D=0,U="^" | |
226 | S J=5 41190802 | |
227 | S CMS DOC=$O(^AH ADIC(74100 3.01,"B"," CMS REPLY FILE",0)) ;Get C MS documen t source n umber; | |
228 | S CMS DUZ=$O(^VA (200,"B"," CMS,REPLY FILE",0)) ;G et CMS use r DUZ; | |
229 | D NOW ^%DTC S (C MSDAT,TODA Y)=X ;Se t document date; | |
230 | DF R !," DFN> ",CMS D I '$D(^T MP(J,"CMS REPLY","DO D AUTOPOP" ,CMSD)) W " ??" G D F | |
231 | BF R !," BFN> ",CMS B I '$D(^T MP(J,"CMS REPLY","DO D AUTOPOP" ,CMSD,CMSB ),CMSREC) W " ??" G BF | |
232 | S CDO D=$P(CMSRE C,U),CMSN= $P(CMSREC, U,6) | |
233 | IF '$$CL AIMS^CHCMS AP1(CMSD,C MSB,CDOD,0 ) { W !!," No recent claims fou nd." | |
234 | R !, "Auto Popu late?> ",A P | |
235 | IF $ E(AP)="Y" { | |
236 | D POPULATE^ CHCMSAP1(C MSD,CMSB,C DOD,CMSN,C MSREC,CMSD UZ,CMSDOC, CMSDAT) } } | |
237 | ELSE { W !!,"Recen t claims f ound." | |
238 | R !,"Add to the discr epancy lis t?> ",AD | |
239 | I F $E(AD)=" Y" { | |
240 | S ^TMP( J,"CMS REP LY","DOD D ISCREPANCY ",CMSN,CMS D,CMSB)=RE C_"^1" } } | |
241 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.