Produced by Araxis Merge on 11/9/2018 12:34:09 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 | CHMVENP1.m | Mon Nov 5 16:38:50 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENP1.m | Mon Nov 5 17:51:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 796 |
Changed | 1 | 2 |
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 | CHMVENP1 ; HAC/SKD - GENERATES CHAMPVA VE NDOR DATA REQUEST RE PORTS | |
2 | ;This inf ormation i s needed b y J.D. Fai rey, Offic e the Dire ctor, to p erform con tractual o bligations . | |
3 | ; | |
4 | ;Report 1 : Non-CIT I Provider s by Zip C ode Physic al Locatio n by FY (Z ip Code pl us four). | |
5 | ;Include all provid ers with a PAID clai m or a rej ected clai m under th e CHAMPVA program wi thin | |
6 | ;the past three fis cal years (October 1 , 2003 thr ough Septe mber 30, 2 006). | |
7 | ;Sort by FY, Zip an d total bi lled. | |
8 | ; | |
9 | ;>Sort by FY | |
10 | ; >Sort by Zip Cod e | |
11 | ; >Sor t by Provi der's tota l billed c harges | |
12 | ;? To tal billed charges | |
13 | ;? To tal allowa ble amount | |
14 | ;? To tal Amount Paid | |
15 | ;? To tal Amount Paid for Assignment of Benefi ts ?No? | |
16 | ;? To tal Cost S hare Amoun t | |
17 | ;? To tal OHI Pa yment Amou nt | |
18 | ;? To tal number of claims (excl pha rmacy) | |
19 | ;? To tal number of unique beneficia ries treat ed | |
20 | ;? Av erage age of unique beneficiar ies treate d (based o n DOS) | |
21 | ; | |
22 | ;DEVELOPE R'S NOTE: | |
23 | ;-select all claims with the claim stat us complet e or rejec ted | |
24 | ;-use the Date Dete rmined Com plete fiel d for the FY selecti on. | |
25 | ;-use the DOS for a ge calc | |
26 | ;-total c laim count s include $0 paid cl aims for b ene and pr ovider pay ment | |
27 | ;-exclude pharmacy claims if not CITI | |
28 | ;-extract ed data wi ll be save d in FS3BI G with the file name s: CHAMPVA _VENDOR_RE PORT1.TXT | |
29 | ; CHAM PVA_VENDOR _REPORT2.T XT | |
30 | ; CHAM PVA_VENDOR _REPORT3.T XT | |
31 | ; CHAM PVA_VENDOR _REPORT4.T XT | |
32 | ; CHAM PVA_VENDOR _REPORT5.T XT | |
33 | ; | |
34 | S U="^" | |
35 | S %DT="", X="T" D ^% DT S DT=Y | |
36 | S IOP=0 D ^%ZIS | |
37 | I '$G(DUZ ) S DUZ=99 44 | |
38 | ; | |
39 | K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ") | |
40 | QUE S ZTRT N="START^C HMVENP1",Z TIO="",ZTD TH=$H | |
41 | S ZTDESC= "Generatin g CHAMPVA Vendor Rep orts" | |
42 | S ZTIO="" | |
43 | D ^%ZTLOA D S IOP=0 D HOME^%ZI S | |
44 | Q | |
45 | ; | |
46 | START ; | |
47 | D REPORT1 ;output CHAMPVA_VE NDOR_REPOR T1.TXT to FS3BIG | |
48 | D ^CHMVEN P2 ;outpu t CHAMPVA_ VENDOR_REP ORT2.TXT t o FS3BIG | |
49 | D ^CHMVEN P3 ;outpu t CHAMPVA_ VENDOR_REP ORT3.TXT t o FS3BIG | |
50 | D ^CHMVEN P4 ;outpu t CHAMPVA_ VENDOR_REP ORT4.TXT t o FS3BIG | |
51 | D ^CHMVEN P5 ;outpu t CHAMPVA_ VENDOR_REP ORT5.TXT t o FS3BIG | |
52 | D KILLVAR | |
53 | Q | |
54 | ; | |
55 | REPORT1 ; | |
56 | D GETDATA 1 | |
57 | D BENECT ;count un ique benes and get t he avg age per provi der | |
58 | D PDICT ;count un ique submi ssions by PDI type p er provide r | |
59 | D REJCT ;count re j code by rej type p er provide r | |
60 | D VENSORT ;sort ve ndors by t otal bille d charges | |
61 | D FILE1 | |
62 | Q | |
63 | ; | |
64 | GETDATA1 ; | |
65 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
66 | S BEGDT=3 031000,END DT=3060930 .999999,BE GI=1700000 0,ENDI=410 00000 ;i n HAC | |
67 | I UCI'="H AC" S BEGD T=3031000, ENDDT=3040 930.999999 ,BEGI=1700 0000,ENDI= 24800000 ;FY04 onl y - for te sting in n on HAC env ironments | |
68 | S I=BEGI | |
69 | F S I=$O (^CHMPAY(I )) Q:I>END I D | |
70 | .Q:'$D(^C HMPAY(I,0) ) | |
71 | .D INITVA R | |
72 | .S CHSTAT US=$P($G(^ CHMPAY(I,0 )),U,2) | |
73 | .Q:CHSTAT US'=0&(CHS TATUS'=4) ;skip if status is not Compl ete or Rej ect | |
74 | .Q:$P($G( ^CHMPAY(I, 0)),U,27)' =1 ;skip if not CHA MPVA | |
75 | .S CHVENI =$P($G(^CH MPAY(I,0)) ,U,3) Q:'C HVENI | |
76 | .Q:'$D(^C HMVEN(CHVE NI,0)) | |
77 | .S CHCLTY =$P($G(^CH MPAY(I,0)) ,U,7) | |
78 | .I CHCLTY =3 Q:$P($G (^CHMVEN(C HVENI,1)), U,16)'=1 ;if a phar macy claim , skip if not CITI | |
79 | .S CHCLST Y="OTH" | |
80 | .I CHCLTY =1 S CHCLS TY="INP" | |
81 | .I CHCLTY =2 S CHCLS TY="OUT" | |
82 | .I CHCLTY =1!(CHCLTY =2) I $P($ G(^CHMVEN( CHVENI,0)) ,U,22)=1 S CHCLSTY=" RTC" | |
83 | .I CHCLTY =3 S CHCLS TY="PHA" | |
84 | .S CHCOMP DT=$P($G(^ CHMPAY(I,0 )),U,10) | |
85 | .Q:CHCOMP DT<BEGDT ;skip if n ot in date range | |
86 | .Q:CHCOMP DT>ENDDT ;skip if n ot in date range | |
87 | .;Q:$P($G (^CHMPAY(I ,1)),U,1)' >0 ;skip if no paid amount | |
88 | .S CHVNAM E=$P($G(^C HMVEN(CHVE NI,0)),U,1 ) Q:CHVNAM E="" | |
89 | .S CHCITI FG="C" I $ P($G(^CHMV EN(CHVENI, 1)),U,16)= 1 S CHCITI FG="I" ; CITI vendo r | |
90 | .S CHVNAM E=$$TRIM^C HTFLIB($E( CHVNAME,1, 20)) | |
91 | .S CHZIP= $P($G(^CHM VEN(CHVENI ,2)),U,5) Q:CHZIP="" | |
92 | .S CHZIP= $E(CHZIP,1 ,5)_" " | |
93 | .S CHTIN= $P(^CHMVEN (CHVENI,0) ,U,3) Q:'C HTIN | |
94 | .S CHTIN= CHTIN_"-"_ $P(^CHMVEN (CHVENI,0) ,U,23) | |
95 | .S CHFY=$ $FYR4^CHTF LIB(CHCOMP DT) | |
96 | .S CHBILL ED=$P($G(^ CHMPAY(I," COMMON")), U,1) | |
97 | .S CHCAA= $P($G(^CHM PAY(I,"COM MON")),U,7 ) | |
98 | .S CHPAID =$P($G(^CH MPAY(I,1)) ,U,1) | |
99 | .I $P($G( ^CHMPAY(I, 0)),U,5)'= 1 S CHNOAS GN=$P($G(^ CHMPAY(I,1 )),U,1) | |
100 | .S CHCS=$ P($G(^CHMP AY(I,1)),U ,6) | |
101 | .S CHOHI= $P($G(^CHM PAY(I,1)), U,7) | |
102 | .;get tot al number of claims count | |
103 | .S CHTCLM CT=CHTCLMC T+1 | |
104 | .I CHSTAT US=0 D | |
105 | ..S DENYC L=1 | |
106 | ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TDENYCT" )=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TDENYCT" ))+1 | |
107 | ..S CHREJ CD="" S CH REJCD=$P($ G(^CHMPAY( I,0)),U,13 ) | |
108 | ..I CHREJ CD="" D Q :CHREJCD=" " | |
109 | ...S J=0 | |
110 | ...F S J =$O(^CHMPA Y(I,4,J)) Q:'J D | |
111 | ....S RJC D="" S RJC D=$P($G(^C HMPAY(I,4, J,0)),U,1) Q:RJCD="" | |
112 | ....S RJF G=0 S RJFG =$$CLAIMRE J(RJCD) | |
113 | ....I RJF G S CHREJC D=RJCD | |
114 | ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REJ",C HFY,CHZIP, CHVENI,CHR EJCD,I)="" | |
115 | .I CHSTAT US=4,$P($G (^CHMPAY(I ,0)),U,5)= 1 S PROVCL =1 S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TTOVENCT ")=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TTOVENC T"))+1 | |
116 | .I CHSTAT US=4,$P($G (^CHMPAY(I ,0)),U,5)' =1 S NOASC L=1 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TNOASCT ")=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TNOASCT "))+1 | |
117 | .; | |
118 | .S CHDOS= $P($G(^CHM PAY(I,0)), U,8) Q:'CH DOS | |
119 | .S CHDFN= $P($G(^CHM PAY(I,0)), U,21) Q:'C HDFN | |
120 | .S CHBFN= $P($G(^CHM PAY(I,0)), U,22) Q:'C HBFN | |
121 | .;S CHDFN I=$O(^CHMD FN("B",CHD FN,0)) Q:' CHDFNI | |
122 | .;S CHBFN I=$O(^CHMD FN(CHDFNI, 100,"B",CH BFN)) Q:'C HBFNI | |
123 | .S CHDOB= $P($G(^AHC HVA(CHDFN, 100,CHBFN, 0)),U,3) Q :'CHDOB | |
124 | .S CHAGE= $$AGE^CHTF LIB(CHDOB, CHDOS) | |
125 | .S CHSEX= $P($G(^AHC HVA(CHDFN, 100,CHBFN, 0)),U,2) | |
126 | .S CHPDI= $P($G(^CHM PAY(I,0)), U,4) | |
127 | .I CHPDI= "" S CHPDI =$P($G(^CH MPAY(I,"PD I",1,0)),U ,1) | |
128 | .I $G(CHP DI)'="" S CHPDI=$P(C HPDI,"*",1 ),CHPDITY= $E(CHPDI,8 ,9) | |
129 | .I CHSTAT US=4 D ;for Repor t3 | |
130 | ..S ^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAIDCLC T")=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TPAIDC LCT"))+1 | |
131 | ..I CHCLT Y=3 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"PHA CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"P HACT"))+1 Q ;FOR R EPORT5 IN ^CHMVENP3 | |
132 | ..I CHCLT Y=2 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"OUT CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"O UTCT"))+1 Q ;FOR R EPORT3 IN ^CHMVENP3 | |
133 | ..I CHCLT Y=1 S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HVENI,"INP CT")=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHVENI,"I NPCT"))+1 ;FOR R EPORT3 IN ^CHMVENP3 | |
134 | ..I $P($G (^CHMPAY(I ,"COMMON") ),U,16)=10 S ^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHVE NI,"RTCCT" )=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH VENI,"RTCC T"))+1 ;F OR REPORT3 IN ^CHMVE NP3 | |
135 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TBILLED") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TBILLED") )+CHBILLED | |
136 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TALLOW")= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TALLOW"))+ CHCAA | |
137 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TPAID")=$ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, CHFY,CHZIP ,CHVENI,"T PAID"))+CH PAID | |
138 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TNOASGN") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TNOASGN") )+CHNOASGN | |
139 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TCS")=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHZIP,C HVENI,"TCS "))+CHCS | |
140 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI")=$G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG,C HFY,CHZIP, CHVENI,"TO HI"))+CHOH I | |
141 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY,CHZIP, CHVENI,CHD FN,CHBFN)= CHAGE_U_CH SEX_U_CHBI LLED_U_CHC AA_U_CHPAI D_U_CHNOAS GN_U_CHCS_ U_CHOHI_U_ CHVENI ;unique bene | |
142 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY,CHZIP, CHVENI,CHD FN,CHBFN,I )=CHAGE_U_ CHSEX_U_CH BILLED_U_C HCAA_U_CHP AID_U_CHNO ASGN_U_CHC S_U_CHOHI_ U_CHVENI ;uniq ue bene an d claims | |
143 | .I CHPDIT Y="03"!(CH PDITY="91" )!(CHPDITY ="94") S ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)="" ;unique PDI | |
144 | .;for rep ort3 and 5 | |
145 | .I CHSTAT US=4 S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHCLSTY,CH VENI,"TPAI DCT")=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AIDCT"))+1 | |
146 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"TPAID") =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"TPAID") )+CHPAID | |
147 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"BENE",C HDFN,CHBFN )="" | |
148 | .S ^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHC LSTY,CHVEN I,"BENE",C HDFN,CHBFN ,I)="" ;D ELETE AFTE R TESTING | |
149 | .I CHSTAT US=4 S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR","REP ORT4","CLA IM",CHCITI FG,CHFY,CH DFN,CHBFN, I)="" ;d ata needed for repor t4 | |
150 | Q | |
151 | ; | |
152 | BENECT ;co unt unique benes and get the a vg age per provider | |
153 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE ")) | |
154 | S CHFY=0 | |
155 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY D | |
156 | .S CHZIP= "" | |
157 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P="" D | |
158 | ..S CHVEN I=0 | |
159 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI D | |
160 | ...S (CHB ENECT,CHAG ETOT)=0 | |
161 | ...S CHDF N=0 | |
162 | ...F S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN D | |
163 | ....S CHB FN=0 | |
164 | ....F S CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN D | |
165 | .....S CH BENECT=CHB ENECT+1 | |
166 | .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1) | |
167 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )=CHBENECT | |
168 | ...I $G(C HBENECT) S ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG,C HFY,CHZIP, CHVENI,"AV GAGE")=CHA GETOT\CHBE NECT | |
169 | Q | |
170 | ; | |
171 | PDICT ;cou nt unique submission s by PDI t ype per pr ovider | |
172 | ;^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "PDI",CHFY ,CHZIP,CHV ENI,CHPDIT Y,CHPDI)=" " | |
173 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"PDI" )) | |
174 | S CHFY=0 | |
175 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"PDI",CH FY)) Q:'CH FY D | |
176 | .S CHZIP= "" | |
177 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"PDI", CHFY,CHZIP )) Q:CHZIP ="" D | |
178 | ..S CHVEN I=0 | |
179 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"PDI ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I D | |
180 | ...S CHPD ITY="" | |
181 | ...F S C HPDITY=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"P DI",CHFY,C HZIP,CHVEN I,CHPDITY) ) Q:CHPDIT Y="" D | |
182 | ....S CHP DI=0 | |
183 | ....F S CHPDI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)) Q:' CHPDI D | |
184 | .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"PDITY PE",CHPDIT Y)=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"PDITYPE ",CHPDITY) )+1 | |
185 | Q | |
186 | ; | |
187 | REJCT ;c ount rej c ode by rej type per provider | |
188 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" )) | |
189 | S CHFY=0 | |
190 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REJ",CH FY)) Q:'CH FY D | |
191 | .S CHZIP= "" | |
192 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REJ", CHFY,CHZIP )) Q:CHZIP ="" D | |
193 | ..S CHVEN I=0 | |
194 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REJ ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I D | |
195 | ...S CHRE JCD="" | |
196 | ...F S C HREJCD=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EJ",CHFY,C HZIP,CHVEN I,CHREJCD) ) Q:CHREJC D="" D | |
197 | ....S CHI =0 | |
198 | ....F S CHI=$O(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ,CHFY,CHZI P,CHVENI,C HREJCD,CHI )) Q:'CHI D | |
199 | .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",CHREJC D)=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",CHREJCD) )+1 | |
200 | Q | |
201 | ; | |
202 | CLAIMREJ(C D) | |
203 | ;CD=REJCD | |
204 | I $P($G(^ CHMDIC(741 002.22,CD, 0)),U,2)[" CLAIM DENI ED" Q 1 | |
205 | E Q 0 | |
206 | ; | |
207 | VENSORT ;s ort vendor s by total billed ch arges | |
208 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR")) | |
209 | S CHFY=0 | |
210 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
211 | .S CHZIP= "" | |
212 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP)) Q:C HZIP="" D | |
213 | ..S CHVEN I=0 | |
214 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI)) Q:'C HVENI D | |
215 | ...Q:$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHZIP,CH VENI,"TBIL LED"))="" | |
216 | ...S (TBI LLED,TALLO W,TPAID,TN OASGN,TCS, TOHI,TTOVE NCT,TNOASC T,TDENYCT, BENECT,AVG AGE,PAPERC T,EDICT,OC RCT)="" | |
217 | ...S TBIL LED=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TBILLE D")) | |
218 | ...S TALL OW=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TALLOW" )) | |
219 | ...S TPAI D=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAID")) | |
220 | ...S TNOA SGN=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASG N")) | |
221 | ...S TCS= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TCS")) | |
222 | ...S TOHI =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI")) | |
223 | ...S TTOV ENCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"TTOVE NCT")) | |
224 | ...S TNOA SCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASC T")) | |
225 | ...S TDEN YCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TDENYC T")) | |
226 | ...S BENE CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )) | |
227 | ...S AVGA GE=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" )) | |
228 | ...S PAPE RCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"PDITYP E","03")) | |
229 | ...S EDIC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"91")) | |
230 | ...S OCRC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"94")) | |
231 | ...S REJT Y=0,REJTYS ="" | |
232 | ...F S R EJTY=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",REJTY) ) Q:'REJTY D | |
233 | ....S REJ TYS=REJTYS _"("_REJTY _")="_^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",REJTY)_" ," | |
234 | ...I $L(R EJTYS) I $ E(REJTYS,$ L(REJTYS)) ="," S REJ TYS=$E(REJ TYS,1,$L(R EJTYS)-1) | |
235 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T1",CHFY,C HZIP,TBILL ED,CHVENI) =TALLOW_U_ TPAID_U_TN OASGN_U_TC S_U_TOHI_U _TTOVENCT_ U_TNOASCT_ U_TDENYCT_ U_BENECT_U _AVGAGE_U_ PAPERCT_U_ EDICT_U_OC RCT_U_REJT YS | |
236 | Q | |
237 | ; | |
238 | FILE1 ;out put CHAMPV A_VENDOR_R EPORT1.TXT to FS3BIG | |
239 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1")) | |
240 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
241 | ;S FILE1= "HAC_HFS$: [ARC.ROUSA VE_"_UCI_" ]REPORT1.T XT" | |
242 | ;S X=$ZF( -1,"SET PR OTECTION=( W:RWED) "_ FILE1) | |
243 | S FILE1=" HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT1_"_UCI_ ".TXT" | |
244 | O FILE1:" NWS" | |
245 | U FILE1 D WREPORT1 | |
246 | C FILE1 | |
247 | Q | |
248 | ; | |
249 | RPT1HEAD ; | |
250 | W !,?130, "TOTAL # O F CLAIMS" | |
251 | W !,"FY", ?7,"ZIP",? 19,"TIN",? 30,"VENDOR NAME",?52 ,"TOT BILL ED",?65,"T OT ALLOW", ?78,"TOT P AID",?88," TOT NOASGN ",?104,"TO T CS",?115 ,"TOT OHI" ,?124,"TO PROV",?136 ,"TO BENE" ,?148,"DEN IED" | |
252 | W ?160,"# BENES",?1 72,"AVG AG E",?184,"# PAPER",?1 96,"# EDI" ,?208,"# O CR",?220," (REJ REASO N)=COUNT" | |
253 | W !,"--", ?7,"---",? 19,"---",? 30,"------ -----",?52 ,"-------- --",?65,"- --------", ?78,"----- ---",?88," ---------- ",?104,"-- ----",?115 ,"-------" ,?124,"--- ----",?136 ,"-------" ,?148,"--- ---" | |
254 | W ?160,"- ------",?1 72,"------ -",?184,"- ------",?1 96,"-----" ,?208,"--- ----",?220 ,"-------- --------" | |
255 | W ! | |
256 | Q | |
257 | ; | |
258 | WREPORT1 ; | |
259 | ;INPUT: S ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)=TALL OW_U_TPAID _U_TNOASGN _U_TCS_U_T OHI_U_TTOV ENCT_U_TNO ASCT_U_TDE NYCT_U_BEN ECT_U_AVGA GE_U_PAPER CT_U_EDICT _U_OCRCT_U _REJTYS | |
260 | ;S CHFY=0 | |
261 | ;F S CHF Y=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY)) Q:'CHFY D | |
262 | W !,"FY^Z IP^TIN^VEN DOR NAME^T OTAL BILLE D^TOTAL AL LOWED^TOTA L PAID^TOT AL ASGN=NO ^TOTAL CS^ TOTAL OHI^ # TO PROV^ # TO BENE^ # DENIED^# BENES^AVG BENE AGE^ # PAPER^# EDI^# OCR^ (REJ REASO N)=COUNT" | |
263 | S CHRPT=" REPORT1",C HCITIFG="C " | |
264 | F CHFY=20 04,2005,20 06 D | |
265 | .;D WTITL E,RPT1HEAD | |
266 | .S (TOTBI LL,TOTALLO W,TOTPAID, TOTBENE,TO TCS,TOTOHI ,TOVENCT,T OBENCT,TDE NCT,TBENCT ,TAVGAGE,T PAPCT,TEDI CT,TOCRCT, VENCT)=0 | |
267 | .S CHZIP= "" | |
268 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T1",CHFY,C HZIP)) Q:C HZIP="" D | |
269 | ..S TBILL ED="A" | |
270 | ..F S TB ILLED=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED),-1) Q:'TBILLE D D | |
271 | ...S CHVE NI=0 | |
272 | ...F S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)) Q:'CH VENI D | |
273 | ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20)) | |
274 | ....S CHT IN=$P($G(^ CHMVEN(CHV ENI,0)),U, 3) | |
275 | ....S CHZ IP4=$P($G( ^CHMVEN(CH VENI,2)),U ,5) | |
276 | ....S TOT BILL=TOTBI LL+TBILLED | |
277 | ....S TOT ALLOW=TOTA LLOW+$P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,1 ) | |
278 | ....S TOT PAID=TOTPA ID+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,2) | |
279 | ....S TOT BENE=TOTBE NE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,3) | |
280 | ....S TOT CS=TOTCS+$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,4) | |
281 | ....S TOT OHI=TOTOHI +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,5) | |
282 | ....S TOV ENCT=TOVEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,6) | |
283 | ....S TOB ENCT=TOBEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,7) | |
284 | ....S TDE NCT=TDENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,8) | |
285 | ....S TBE NCT=TBENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,9) | |
286 | ....S TAV GAGE=TAVGA GE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,10) | |
287 | ....S TPA PCT=TPAPCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,11) | |
288 | ....S TED ICT=TEDICT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,12) | |
289 | ....S TOC RCT=TOCRCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT1",CHFY, CHZIP,TBIL LED,CHVENI )),U,13) | |
290 | ....S VEN CT=VENCT+1 | |
291 | ....S WRE C="" | |
292 | ....S WRE C=CHFY_U_C HZIP4_U_CH TIN_U_CHVN AME_U_$J(T BILLED,0,2 )_U_$J($P( $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT1" ,CHFY,CHZI P,TBILLED, CHVENI)),U ,1),0,2) | |
293 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,2),0 ,2) | |
294 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,3),0 ,2) | |
295 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,4),0 ,2) | |
296 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,5),0 ,2) | |
297 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,6),0 ,0) | |
298 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,7),0 ,0) | |
299 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,8),0 ,0) | |
300 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,9),0 ,0) | |
301 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,10), 0,0) | |
302 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,11), 0,0) | |
303 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,12), 0,0) | |
304 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT1",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,13), 0,0) | |
305 | ....S WRE C=WREC_U_$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 1",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,14) | |
306 | ....W !,W REC | |
307 | ....; | |
308 | ....;W !, CHFY,?7,CH ZIP,?19,CH TIN,?30,CH VNAME,?52, $J(TBILLED ,10,2) | |
309 | ....;W ?6 4,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,1 ),10,2) | |
310 | ....;W ?7 6,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,2 ),10,2) | |
311 | ....;W ?8 8,$J($P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT1",C HFY,CHZIP, TBILLED,CH VENI)),U,3 ),10,2) | |
312 | ....;W ?1 00,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 4),10,2) | |
313 | ....;W ?1 12,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 5),10,2) | |
314 | ....;W ?1 24,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 6),7,0) | |
315 | ....;W ?1 36,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 7),7,0) | |
316 | ....;W ?1 48,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 8),7,0) | |
317 | ....;W ?1 60,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 9),7,0) | |
318 | ....;W ?1 72,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 10),7,0) | |
319 | ....;W ?1 84,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 11),7,0) | |
320 | ....;W ?1 96,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 12),7,0) | |
321 | ....;W ?2 08,$J($P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT1", CHFY,CHZIP ,TBILLED,C HVENI)),U, 13),7,0) | |
322 | ....;W ?2 20,$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT1",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,14) | |
323 | .;D RPT1T AIL | |
324 | Q | |
325 | ; | |
326 | RPT1TAIL ; | |
327 | W ! | |
328 | W !,"COLU MN TOTALS: " | |
329 | W ?52,$J( TOTBILL,11 ,2) | |
330 | W ?64,$J( TOTALLOW,1 0,2) | |
331 | W ?76,$J( TOTPAID,10 ,2) | |
332 | W ?88,$J( TOTBENE,10 ,2) | |
333 | W ?100,$J (TOTCS,10, 2) | |
334 | W ?112,$J (TOTOHI,10 ,2) | |
335 | W ?124,$J (TOVENCT,7 ,0) | |
336 | W ?136,$J (TOBENCT,7 ,0) | |
337 | W ?148,$J (TDENCT,7, 0) | |
338 | W ?160,$J (TBENCT,7, 0) | |
339 | W ?172,$J (TAVGAGE,7 ,0) | |
340 | W ?184,$J (TPAPCT,7, 0) | |
341 | W ?196,$J (TEDICT,7, 0) | |
342 | W ?208,$J (TOCRCT,7, 0) | |
343 | W !!,"TOT AL NUMBER OF UNIQUE VENDORS FO R FY"_CHFY _": "_VENC T | |
344 | W !!! | |
345 | Q | |
346 | ; | |
347 | WTITLE ; | |
348 | W !,"CHAM PVA VENDOR DATA REQU EST "_CHRP T_" FOR FY "_CHFY | |
349 | W ! | |
350 | Q | |
351 | ; | |
352 | INITVAR ; | |
353 | S (CHVCT, CHBILLED,C HCAA,CHPAI D,CHNOASGN ,CHCS,CHOH I,CHTCLMCT ,CHREJCT,C HNOASCT,CH PAIDCT,CHB ENECT,CHAV EAGE)=0 | |
354 | S (CHVENI ,CHVNAME,C HCOMPDT,CH ZIP,CHTIN, CHNAME,CHA DR1,CHADR2 ,CHADR3,CH CITI,CHSTA TE,CHCMAC, CHVTYPE,CH CLTY)="" | |
355 | S (PROVCL ,DENYCL,NO ASCL,CHDFN ,CHBFN,CHD FNI,CHDOS, CHDOB,CHAG E,RJCD,RJF G,VENCT)=0 | |
356 | S (CHSTAT US,CHVSPEC ,CHFSPOUS, CHMSPOUS,C HCHILD,CHR EJCD,CHPDI ,CHPDITY,C HSEX,CHCHT Y,REJTYS,C HADRCD)="" | |
357 | Q | |
358 | ; | |
359 | KILLVAR ; | |
360 | K I,BEGI, ENDI,BEGDT ,ENDDT,RJC D,RJFG,VEN CT,CHCITIF G | |
361 | K CHVCT,C HBILLED,CH CAA,CHPAID ,CHNOASGN, CHCS,CHOHI ,CHTCLMCT, CHREJCT,CH NOASCT,CHP AIDCT,CHBE NECT,CHAVE AGE | |
362 | K CHVENI, CHVNAME,CH COMPDT,CHZ IP,CHZIP4, CHTIN,CHNA ME,CHADR1, CHADR2,CHA DR3,CHCITI ,CHSTATE,C HCMAC,CHVT YPE | |
363 | K PROVCL, DENYCL,NOA SCL,CHDFN, CHBFN,CHDF NI,CHDOS,C HDOB,CHAGE ,RJCD,RJFG ,CHADRCD | |
364 | K CHSTATU S,CHVSPEC, CHFSPOUS,C HMSPOUS,CH CHILD,CHRE JCD,CHPDI, CHPDITY,CH SEX,CHCHTY ,REJTYS,WR EC | |
365 | Q | |
366 | ; | |
367 | ;******** ********** ********** ********** ********** ********** ********** ********** ********** ********** **** | |
368 | GENXREF ;c reates x-r ef on the Date Deter mined Comp lete field of ^CHMPA Y | |
369 | S XI=1000 0000,U="^" | |
370 | I $D(^CHM ZHOLD("CHM VENP1_LAST XREFI")) S XI=^CHMZH OLD("CHMVE NP1_LASTXR EFI") | |
371 | F S XI=$ O(^CHMPAY( XI)) Q:'XI D | |
372 | .Q:$P($G( ^CHMPAY(XI ,0)),U,10) ="" | |
373 | .S ^CHMPA Y("ZDC",$P (^CHMPAY(X I,0),U,10) ,XI)="" | |
374 | .S ^CHMZH OLD("CHMVE NP1_LASTXR EFI")=XI | |
375 | Q | |
376 | ; | |
377 | QUE2 ;run this if th e program stopped af ter the Re port 1 | |
378 | S ZTRTN=" START2^CHM VENP1",ZTI O="",ZTDTH =$H | |
379 | S ZTDESC= "Generatin g CHAMPVA Vendor Rep orts 2,3,4 ,5" | |
380 | S ZTIO="" | |
381 | D ^%ZTLOA D S IOP=0 D HOME^%ZI S | |
382 | Q | |
383 | ; | |
384 | START2 ; | |
385 | S U="^" | |
386 | S %DT="", X="T" D ^% DT S DT=Y | |
387 | S IOP=0 D ^%ZIS | |
388 | I '$G(DUZ ) S DUZ=99 44 | |
389 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
390 | ; | |
391 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR")) | |
392 | D ^CHMVEN P2 ;outpu t CHAMPVA_ VENDOR_REP ORT2.TXT t o FS3BIG | |
393 | D ^CHMVEN P3 ;outpu t CHAMPVA_ VENDOR_REP ORT3.TXT t o FS3BIG | |
394 | D ^CHMVEN P4 ;outpu t CHAMPVA_ VENDOR_REP ORT4.TXT t o FS3BIG | |
395 | D ^CHMVEN P5 ;outpu t CHAMPVA_ VENDOR_REP ORT5.TXT t o FS3BIG | |
396 | D KILLVAR | |
397 | ;K ^CHMZH OLD("ZSKD_ UNIQ_VENDO R") | |
398 | Q | |
399 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.