Produced by Araxis Merge on 11/9/2018 12:33:41 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 | CHBPORP2.m | Mon Nov 5 16:44:38 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHBPORP2.m | Tue Nov 6 21:52:21 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 572 |
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 | CHBPORP2 ; CVA/SKD:LI ST ALL COM PLETED CHA MPVA CLAIM S WITH OHI PAYMENT F OR A DATE RANGE ;10/ 8/08 8:04 AM | |
2 | ;;1.0 | |
3 | ;;CR#: DE V004866-02 : Claims w ith OHI | |
4 | ;;SBB-DEF 016554-12/ 24/13 - Up dating wit h PST API function c alls | |
5 | ;;SBB-DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET | |
6 | ;;New rou tine | |
7 | ;******** ********** ********** ********** ********** ********** ********** ********** ***** | |
8 | ;This rou tine gener ates a rep ort of all completed CHAMPVA c laims with an OHI pa yment, | |
9 | ;to inclu de zero pa yments, th at process ed/complet ed during the period selected. | |
10 | ;The repo rt is call ed the "CH AMPVA Clai ms with OH I" report. | |
11 | ;The repo rt lists b eneficiary name, DOS , amount p aid, OHI p ayment, TO S, and dat e complete d. | |
12 | ; | |
13 | ;CHBGDT - CLAIM COM PLETION PE RIOD BEG D ATE, defau lt is toda y | |
14 | ;CHENDT - CLAIM COM PLETION PE RIOD END D ATE, defau lt is toda y | |
15 | ;CHMINPD - Min Clai m paid Amo unt, defau lt is 1 | |
16 | ;CHMAXPD - Max Clai m paid Amo unt, defai lt is 1 | |
17 | ;CHCI - P OINTER INT O ^CHMPAY | |
18 | ;******** ********** ********** ********** ********** ********** ********** ********** ******* | |
19 | ST1 ; | |
20 | W # | |
21 | I '$D(DUZ ) S DUZ=1 | |
22 | I $D(^CHM ZHOLD("ENC 004866")) D I (Y="N ")!(Y="n") G QEND | |
23 | .S CHRDUZ ="",CHRDUZ =$O(^CHMZH OLD("ENC00 4866",CHRD UZ)) | |
24 | .W !!,"** ********** ********** ********** ********** ********** ********** ********** ***" | |
25 | .W !,"The OHI repor t is curre ntly being generated by "_$P($ G(^VA(200, CHRDUZ,0)) ,"^",1)_". " | |
26 | .W !,"*** ********** ********** ********** ********** ********** ********** ********** **" | |
27 | .W !!,"Do you want to termina te the cur rent job a nd generat e a new re port (Y/N) ? " D CSB RS^CHSC2 | |
28 | .W ! | |
29 | .G:$D(DFO UT)!($D(DT OUT)) QEND | |
30 | .G :$D(DUOUT) QEND | |
31 | .I $D(DQOUT) W !!,"Ans wer with < Y>es or <N >o." R X:3 G ST1 | |
32 | .I Y="" S Y= "N" S Y=$E (Y) | |
33 | .I "YyNn"'[Y W *7," ? ?" R X:3 G ST1 | |
34 | .I (Y="N")!( Y="n") G Q END | |
35 | S (CHBGDT ,CHENDT,CH MINPD,CHMA XPD)="" | |
36 | S DIR(0)= "D" S DIR( "A")="Star t Date Cla im Complet ed Date (m m/dd/yy)" D ^DIR | |
37 | S CHBGDT= Y | |
38 | I CHBGDT< 3000000 D G ST1 | |
39 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
40 | G:CHBGDT= "^" QEND | |
41 | G:$D(DFOU T) QEND G: $D(DUOUT) QEND | |
42 | S CHBGDT= Y | |
43 | ST2 S DIR( 0)="D" S D IR("A")="E nd Date Cl aim Comple ted Date ( mm/dd/yy)" D ^DIR | |
44 | S CHENDT= Y | |
45 | I CHENDT< 3000000 D G ST2 | |
46 | .W !,"Dat e range mu st be afte r 2000. P lease try again.",! | |
47 | I CHENDT< CHBGDT D G ST2 | |
48 | .W !,"End date must be after "_$$FMTE^ XLFDT(CHBG DT,"5D")_" . Please try again. " | |
49 | G:CHENDT= "^" QEND | |
50 | G:$D(DFOU T) QEND G: $D(DUOUT) ST1 | |
51 | ST3 ;S DIR (0)="N" S DIR("A")=" Minimum Cl aim Paid A mount " D ^DIR | |
52 | R !,"Minimum Claim Pai d Amount : ",Y ;/ // | |
53 | S CHMINPD =Y | |
54 | I CHMINPD ="" S CHMI NPD=0 ;// / | |
55 | ;I CHMINP D<0 D G S T3 | |
56 | ;.W !,"Th e paid amo unt cannot be less t han 0. Pl ease try a gain.",! | |
57 | G:CHMINPD ="^" QEND | |
58 | G:$D(DFOU T) QEND G: $D(DUOUT) ST2 | |
59 | ST4 S DIR( 0)="N" S D IR("A")="M aximum Cla im Paid Am ount " D ^ DIR | |
60 | S CHMAXPD =Y | |
61 | ;I CHMAXP D<1 D G S T4 | |
62 | ;.W !,"Th e paid amo unt cannot be less t han 1. Pl ease try a gain.",! | |
63 | I CHMAXPD <CHMINPD D G ST4 | |
64 | .W !,"Max imum Claim Paid Amou nt cannot be less th an Minimum Claim Pai d Amount. ",! | |
65 | G:CHMAXPD ="^" QEND | |
66 | G:$D(DFOU T) QEND G: $D(DUOUT) ST3 | |
67 | D NOW^%DT C S CHDT=X | |
68 | I CHBGDT= "" S CHBGD T=X | |
69 | I CHENDT= "" S CHEND T=X | |
70 | ;I CHMINP D="" S CHM INPD=1 | |
71 | I CHMAXPD ="" S CHMA XPD=1 | |
72 | S CHFIO=" " | |
73 | S ZTSAVE( "CHFIO")=" " | |
74 | S ZTSAVE( "CHBGDT")= "",ZTSAVE( "CHENDT")= "" | |
75 | S ZTSAVE( "CHMINPD") ="",ZTSAVE ("CHMAXPD" )="",ZTSAV E("DUZ")=" " | |
76 | S ZTRTN=" CALC^CHBPO RP2",ZTDES C="ALL CHA MPVA CLAIM S WITH OHI /PR",ZTIO= "" | |
77 | D ^%ZTLOA D | |
78 | ;D CALC^C HBPORP2 | |
79 | W !!,"The task numb er for the OHI repor t is: ",$G (ZTSK) H 3 | |
80 | QEND K ION | |
81 | Q | |
82 | CALC ; | |
83 | D INDEX2 | |
84 | D START | |
85 | D PRNT | |
86 | D KILLVAR | |
87 | Q | |
88 | START K ^C HMZHOLD("E NC004866", DUZ) S U=" ^" | |
89 | A S CHDT1= CHBGDT | |
90 | F S CHDT 1=$O(^CHMP AY("E",CHD T1)) Q:CHD T1="" Q:C HDT1>CHEND T D | |
91 | .S CHCI=0 | |
92 | .F S CHC I=$O(^CHMP AY("E",CHD T1,CHCI)) Q:'CHCI D | |
93 | ..Q:'$D(^ CHMPAY(CHC I,0)) | |
94 | ..Q:($P($ G(^CHMPAY( CHCI,0))," ^",2)'=0)& ($P($G(^CH MPAY(CHCI, 0)),"^",2) '=4) | |
95 | ..S X1=CH CI D PROGT YP^CHFCD00 1 | |
96 | ..S CHPAI D="",CHPAI D=$P($G(^C HMPAY(CHCI ,1)),"^",1 ) | |
97 | ..I CHPAI D'="" Q:CH PAID<CHMIN PD ;/// | |
98 | ..I CHPAI D="" S CHP AID=-1 ; /// | |
99 | ..Q:CHPAI D>CHMAXPD | |
100 | ..S CHPRA MT="",CHPR AMT=$P($G( ^CHMPAY(CH CI,1)),"^" ,29) | |
101 | ..I CHPRA MT="" D | |
102 | ...Q:$P($ G(^CHMPAY( CHCI,1))," ^",7)="" | |
103 | ...Q:$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1)="" | |
104 | ...S CHPR AMT=$P(^CH MPAY(CHCI, "COMMON"), "^",1)-$P( ^CHMPAY(CH CI,1),"^", 7) | |
105 | ..Q:CHPRA MT="" | |
106 | ..S DFN=$ P(^CHMPAY( CHCI,0),"^ ",21) Q:DF N="" ;NO SPONSOR D EFINED | |
107 | ..S BFN=$ P(^CHMPAY( CHCI,0),"^ ",22) Q:BF N="" ;NO BENE DEFI NED | |
108 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN,0 )) | |
109 | ..S BNAME =$P(^AHCHV A(DFN,100, BFN,0),"^" ,1) | |
110 | ..S CHCLM NM=$P(^CHM PAY(CHCI,0 ),"^",1) | |
111 | ..S CHTOS ="",CHTOS= $P($G(^CHM PAY(CHCI,0 )),"^",7) | |
112 | ..S CHDOS ="",CHDOS= $P($G(^CHM PAY(CHCI,0 )),"^",8) | |
113 | ..D GETSN BN | |
114 | ..S CHOHI CD="",CHOH ICD=$$GETO HICD(CHDOS ) | |
115 | ..I CHOHI CD S CHOHI COV=$P($G( ^CHMDIC(74 1002.76,CH OHICD,0)), "^",1) | |
116 | ..S CHBIL LED="",CHB ILLED=$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1) | |
117 | ..S CHOHI AMT="",CHO HIAMT=$P($ G(^CHMPAY( CHCI,1))," ^",7) | |
118 | ..I CHOHI AMT="" D | |
119 | ...Q:$P($ G(^CHMPAY( CHCI,"COMM ON")),"^", 1)="" | |
120 | ...Q:$P($ G(^CHMPAY( CHCI,1))," ^",29)="" | |
121 | ...S CHOH IAMT=$P(^C HMPAY(CHCI ,"COMMON") ,"^",1)-$P (^CHMPAY(C HCI,1),"^" ,29) | |
122 | ..S ^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI)= CHCLMNM_"^ "_CHTOS_"^ "_CHDOS_"^ "_CHOHICD_ "^"_CHOHIC OV_"^"_CHB ILLED_"^"_ CHOHIAMT_" ^"_CHPRAMT _"^"_$S(CH PAID=-1:"" ,1:CHPAID) | |
123 | Q | |
124 | ; | |
125 | GETSNBN ;g et SN,BN o f CHMDFN | |
126 | S CHSNBN=0 | |
127 | I $G(DFN),$G (BFN) D ; SKD 8-7-07 DEV002172 | |
128 | .S SN=0,SN=$ O(^CHMDFN( "B",DFN,SN )) I 'SN Q | |
129 | .S BN=0,BN=$ O(^CHMDFN( SN,100,"B" ,BFN,BN)) I 'BN Q | |
130 | S CHSNBN=1 | |
131 | Q | |
132 | ; | |
133 | GETOHICD(C HDOS) ;get the bene' s OHI type at the ti me of DOS | |
134 | S CHOCD=" ",QFG=0 | |
135 | S DS=CHDO S | |
136 | I CHSNBN D | |
137 | .S OHK="A " | |
138 | .F S OHK =$O(^CHMDF N(SN,100,B N,2,OHK),- 1) Q:'OHK Q:QFG D | |
139 | ..S (CHOH BDT,CHOHIE DT)="" | |
140 | ..S CHOHB DT=$P($G(^ CHMDFN(SN, 100,BN,2,O HK,0)),"^" ,1) Q:CHOH BDT="" | |
141 | ..S CHOHE DT=$P($G(^ CHMDFN(SN, 100,BN,2,O HK,0)),"^" ,2) I CHOH EDT="" S C HOHEDT=999 9999 | |
142 | ..I DS'<C HOHBDT&(DS '>CHOHEDT) S CHOCD=$ P($G(^CHMD FN(SN,100, BN,2,OHK,0 )),"^",3) S QFG=1 | |
143 | K QFG,DS, OHK,CHOHBD T,CHOHIEDT | |
144 | Q CHOCD | |
145 | ; | |
146 | PRNT ; | |
147 | ;S T=$C(9 ) ;UNCOM MENT TO WR ITE TO FIL E | |
148 | ;S T=" " ;UNCOMM ENT TO WRI TE TO SCRE EN | |
149 | N POP | |
150 | S POP=0 | |
151 | D OPENFILE | |
152 | I 'POP Q | |
153 | D HEAD | |
154 | I '$D(^CHMZH OLD("ENC00 4866")) U IOFILE W ! ,"NO CLAIM S SELECTED " G CLOSE | |
155 | D DETAIL | |
156 | D TAIL | |
157 | CLOSE ; | |
158 | ;DEF01655 4-12/24/13 -SBB use C LOSE^%ZISH to close file | |
159 | ;C IOFILE | |
160 | D CLOSEF^ CHTFLIB9(I OFILE,"IOF ILE") | |
161 | ;SBB 07/3 0/15 DEF01 6554 | |
162 | X "D $ SYSTEM.Pro cess.SetZE OF(0)" | |
163 | D FTPFILE ^CHTFLIB9( IOFILE," DNS . DNS ","/FS3BIG /OHI_AUDIT S","PUT") | |
164 | Q | |
165 | DETAIL ; | |
166 | S CHCT=0 | |
167 | S (CHCLTOT,C HBILTOT,CH OHITOT,CHP RTOT,CHPDT OT)=0 | |
168 | S BNAME="ZZZ ZZZ" | |
169 | F S BNAM E=$O(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME),-1 ) Q:BNAME= "" D | |
170 | .S CHPAID ="A" | |
171 | .F S CHP AID=$O(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID),-1) Q:'$L(CHP AID) D | |
172 | ..S CHCI= 0 | |
173 | ..F S CH CI=$O(^CHM ZHOLD("ENC 004866",DU Z,BNAME,CH PAID,CHCI) ) Q:'CHCI D | |
174 | ...S CHCT =CHCT+1 | |
175 | ...;I $Y> 56 W !!,# D HEAD | |
176 | ...S (CHT OS,CHTOSP, CHDOS,CHOH ICD,CHOHIC OV,CHCLMNM )="" | |
177 | ...S (CHB ILLED,CHOH IAMT,CHPRA MT,CHPDAMT )=0 | |
178 | ...S CHCL MNM=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",1) | |
179 | ...S CHTO S=$P(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI), "^",2) | |
180 | ...I CHTO S S CHTOSP =$P($G(^CH MDIC(74100 2.05,CHTOS ,0)),"^",2 ) | |
181 | ...S CHDO S=$P(^CHMZ HOLD("ENC0 04866",DUZ ,BNAME,CHP AID,CHCI), "^",3) | |
182 | ...S CHOH ICD=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",4) | |
183 | ...S CHOH ICOV=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",5) | |
184 | ...S CHBI LLED=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",6) | |
185 | ...S CHOH IAMT=$P(^C HMZHOLD("E NC004866", DUZ,BNAME, CHPAID,CHC I),"^",7) | |
186 | ...S CHPR AMT=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",8) | |
187 | ...S CHPD AMT=$P(^CH MZHOLD("EN C004866",D UZ,BNAME,C HPAID,CHCI ),"^",9) | |
188 | ...U IOFI LE W !,$E( BNAME,1,20 ),?23,CHCL MNM,?32,CH TOSP,?37,$ $GETDT1(CH DOS),?47,$ J(CHOHICD, 2) | |
189 | ...W ?51, $E(CHOHICO V,1,14),?6 7,$J($FN(C HBILLED,", ",2),11),? 83,$J($FN( CHOHIAMT," ,",2),11), ?101,$J($F N(CHPRAMT, ",",2),11) ,?115,$S(C HPDAMT="": "",1:$J($F N(CHPDAMT, ",",2),11) ) | |
190 | ...S CHCL TOT=CHCLTO T+1 | |
191 | ...S CHBI LTOT=CHBIL TOT+CHBILL ED | |
192 | ...S CHOH ITOT=CHOHI TOT+CHOHIA MT | |
193 | ...S CHPR TOT=CHPRTO T+CHPRAMT | |
194 | ...S CHPD TOT=CHPDTO T+CHPDAMT | |
195 | Q | |
196 | ; | |
197 | HEAD ; | |
198 | U IOFILE | |
199 | S CHTITLE1=" HEALTH ADM INSTRATION CENTER" | |
200 | S CHTITLE2=" CHAMPVA Al l Claims w ith OHI Re port" | |
201 | W #,!,DUZ,?5 5,CHTITLE1 ,?123,"pag e: ",CHPG | |
202 | W !,$$GETDT2 (CHDT),?52 ,CHTITLE2 | |
203 | W !,CHTIME | |
204 | W !!,"Date C ompleted: "_$$GETDT 2(CHBGDT)_ " - "_$$GE TDT2(CHEND T) | |
205 | W !,"HAC Paid Amoun t: $"_$FN( CHMINPD,", ",0)_"-"_$ FN(CHMAXPD ,",",0) | |
206 | W !! | |
207 | W !,"Bene ficiary Na me",?23,"C laim #",?3 2,"TOS",?3 7,"DOS",?4 7,"Type of OHI",?67, "Billed Am t($)",?83, "OHI Paid Amt($)",?1 04,"P/R($) ",?115,"HA C Paid Amt ($)" | |
208 | W ! | |
209 | F I=1:1:1 32 W "-" | |
210 | S CHPG=CH PG+1 | |
211 | Q | |
212 | ; | |
213 | TAIL ; | |
214 | U IOFILE W ! | |
215 | U IOFILE F I=1:1:13 2 W "-" | |
216 | U IOFILE W !,?20,$J ($FN(CHCLT OT,",",0), 10)_" Clai m(s)",?66, $FN(CHBILT OT,",",2), ?82,$FN(CH OHITOT,"," ,2),?102,$ FN(CHPRTOT ,",",2),?1 17,$FN(CHP DTOT,",",2 ) | |
217 | Q | |
218 | ; | |
219 | OPENFILE ; | |
220 | S CHPG=1 | |
221 | S FILENM= "CHAMPVA_C LAIMS_WITH _OHI_REPOR T_"_CHBGDT _"_"_CHEND T | |
222 | D UCI^%ZOSV | |
223 | I $P(Y,",",1 )="HAC" S FILENM=FIL ENM_".TXT" | |
224 | E S FILENM= FILENM_"_" _$P(Y,",", 1)_".TXT" | |
225 | ;DEF01655 4 SBB 12/2 4/13 - Co nverting f rom DECNET to FTP. A nd using O PEN^%ZISH call | |
226 | ;S IOFILE ="HACFS3""
|
|
227 | ;O IOFILE :"NWS" | |
228 | N FOLDER | |
229 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" | |
230 | I $P(Y,", ",1)'="HAC " S FOLDER ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" | |
231 | S IOFILE= FOLDER_FIL ENM | |
232 | ;SBB 07/3 0/15 DEF01 6554 | |
233 | X "D $ SYSTEM.Pro cess.SetZE OF(1)" | |
234 | S POP=$$O PENFIWR^CH TFLIB9(.IO FILE,"IOFI LE") I 'PO P X "D $SY STEM.Proce ss.SetZEOF (0)" Q | |
235 | D NOW^%DTC S CHDT=X | |
236 | S H=$P($H,", ",2)\3600, M=$P($H,", ",2)#3600\ 60 S:H<10 H=0_H S:M< 10 M=0_M | |
237 | S CHTIME=H_" :"_M | |
238 | Q | |
239 | ; | |
240 | GETDT1(D1) ;CONVERTS FILEMAN D ATE TO MM/ DD/YY | |
241 | Q:D1="" | |
242 | S X=D1 | |
243 | S (YY,MM, DD)="" | |
244 | S YY=$E(X ,2,3),MM=$ E(X,4,5),D D=$E(X,6,7 ) | |
245 | Q MM_"/"_ DD_"/"_YY | |
246 | ; | |
247 | GETDT2(D1) ;CONVERTS FILEMAN D ATE TO MM/ DD/YYYY | |
248 | Q:D1="" | |
249 | S X=D1 | |
250 | S (YY,MM, DD)="" | |
251 | S YY=$E(X ,1,3)+1700 ,MM=$E(X,4 ,5),DD=$E( X,6,7) | |
252 | Q MM_"/"_ DD_"/"_YY | |
253 | ; | |
254 | KILLVAR ; | |
255 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [SCR.TEMP_ FILES]REC_ COPY.COM/P ARAM=("_IO FILE_")") | |
256 | K %DT,CHC LNUM,Y,DFN ,BFN,DFOUT ,DTOUT,DUO UT,DQOUT | |
257 | K ^CHMZHO LD("ENC004 866",DUZ), T,CHPDICL, PDI,CHCI,C HDOCDT,CHP RAMT | |
258 | K BNAME,C HCLMNM,CHT X1,CHTX2,P DI2,CHBGDT ,CHENDT | |
259 | K CHMAXPD ,CHMINPD,S N,BN,OHK,C HSNBN | |
260 | K CHTOS,C HTOSP,CHDO S,CHOHICD, CHOHICOV,C HCLM,CHBIL LED,CHOHIA MT,CHPRAMT ,CHPAID,CH PDAMT | |
261 | K CHCLTOT ,CHBILTOT, CHOHITOT,C HPRTOT,CHP DTOT | |
262 | Q | |
263 | ; | |
264 | INDEX1 ; I NDEX ON CL AIM DATE D ETERMINED COMPLETE W HERE THE D ATE IS AFT ER 2000 | |
265 | ;This is for one ti me use onl y. Do not use INDEX 1 again af ter the in itial inde xing. Use INDEX2. | |
266 | S CHFIO=" " | |
267 | S ZTSAVE( "DUZ")="" | |
268 | S ZTRTN=" STARTNDX^C HBPORP2",Z TDESC="IND EXING PAY GLOBAL BY COMPLETION DATE",ZTI O="" | |
269 | D ^%ZTLOA D | |
270 | Q | |
271 | STARTNDX S I=8000000 | |
272 | F S I=$O (^CHMPAY(I )) Q:'I D | |
273 | .S CHDTCO MP="",CHDT COMP=$P($G (^CHMPAY(I ,0)),"^",1 0) | |
274 | .Q:CHDTCO MP="" | |
275 | .I '$D(^C HMPAY("E", CHDTCOMP,I )) S ^CHMP AY("E",CHD TCOMP,I)=" " | |
276 | .S ^CHMZH OLD("LAST_ CLAIM_SET_ FOR_ZCOMPD T_INDEX")= I | |
277 | Q | |
278 | ; | |
279 | INDEX2 ; | |
280 | S I=^CHMZ HOLD("LAST _CLAIM_SET _FOR_ZCOMP DT_INDEX") | |
281 | F S I=$O (^CHMPAY(I )) Q:'I D | |
282 | .S CHDTCO MP="",CHDT COMP=$P($G (^CHMPAY(I ,0)),"^",1 0) | |
283 | .Q:CHDTCO MP="" | |
284 | .I '$D(^C HMPAY("E", CHDTCOMP,I )) S ^CHMP AY("E",CHD TCOMP,I)=" " | |
285 | .S ^CHMZH OLD("LAST_ CLAIM_SET_ FOR_ZCOMPD T_INDEX")= I | |
286 | Q | |
287 | ; | |
288 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.