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 | CHMVENP4.m | Mon Nov 5 16:40:54 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENP4.m | Mon Nov 5 17:51:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 482 |
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 | CHMVENP4 ; HAC/SKD - GENERATES CHAMPVA VE NDOR DATA REQUEST RE PORTS - CI TI only | |
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 4 : CITI Pr oviders by Zip Code Physical L ocation by FY (Zip C ode plus f our). | |
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 | ; | |
8 | ;>Sort by FY | |
9 | ; >Sort by Zip Cod e | |
10 | ; >Sor t by Provi der's tota l billed c harges | |
11 | ;? To tal billed charges | |
12 | ;? To tal allowa ble amount | |
13 | ;? To tal Amount Paid | |
14 | ;? To tal Amount Paid for Assignment of Benefi ts ?No? | |
15 | ;? To tal Cost S hare Amoun t | |
16 | ;? To tal OHI Pa yment Amou nt | |
17 | ;? To tal number of claims (excl pha rmacy) | |
18 | ;? To tal number of unique beneficia ries treat ed | |
19 | ;? Av erage age of unique beneficiar ies treate d (based o n DOS) | |
20 | ; | |
21 | ;DEVELOPE R'S NOTE: | |
22 | ;-select all claims with the claim stat us complet e or rejec ted | |
23 | ;-use the Date Dete rmined Com plete fiel d for the FY selecti on. | |
24 | ;-use the DOS for a ge calc | |
25 | ;-total c laim count s include $0 paid cl aims for b ene and pr ovider pay ment | |
26 | ;-exclude pharmacy claims | |
27 | ;-extract ed data wi ll be save d in FS3BI G with the file name s: CHAMPVA _VENDOR_RE PORT4.TXT | |
28 | ; | |
29 | ;DEV01289 3 DPT RMV DECNET | |
30 | ||
31 | QUE ;S ZTR TN="START^ CHMVENP1", ZTIO="",ZT DTH=$H | |
32 | ;S ZTDESC ="Generati ng CHAMPVA Vendor Re ports" | |
33 | ;S ZTIO=" " | |
34 | ;D ^%ZTLO AD S IOP=0 D HOME^%Z IS | |
35 | ;Q | |
36 | ; | |
37 | REPORT4 ; | |
38 | S CHCITIF G="I" ;C ITI | |
39 | D BENECT ;count un ique benes and get t he avg age per provi der | |
40 | D PDICT ;count un ique submi ssions by PDI type p er provide r | |
41 | D REJCT ;count re j code by rej type p er provide r | |
42 | D VENSORT ;sort ve ndors by t otal bille d charges | |
43 | D FILE4 | |
44 | Q | |
45 | ; | |
46 | BENECT ;co unt unique benes and get the a vg age per provider | |
47 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE ")) | |
48 | S CHFY=0 | |
49 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY D | |
50 | .S CHZIP= "" | |
51 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P="" D | |
52 | ..S CHVEN I=0 | |
53 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI D | |
54 | ...S (CHB ENECT,CHAG ETOT,NCITI BCT,NCITIA MT)=0 | |
55 | ...S CHDF N=0 | |
56 | ...F S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN D | |
57 | ....S CHB FN=0 | |
58 | ....F S CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN D | |
59 | .....S CH BENECT=CHB ENECT+1 | |
60 | .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1) | |
61 | .....I $D (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", "REPORT4", "CLAIM","C ",CHFY,CHD FN,CHBFN)) D NONCITI (CHFY,CHDF N,CHBFN) | |
62 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )=CHBENECT | |
63 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" )=CHAGETOT \CHBENECT | |
64 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"NCITIBC T")=NCITIB CT | |
65 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"NCITIAM T")=NCITIA MT | |
66 | Q | |
67 | ; | |
68 | PDICT ;cou nt unique submission s by PDI t ype per pr ovider | |
69 | ;^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "PDI",CHFY ,CHZIP,CHV ENI,CHPDIT Y,CHPDI)=" " | |
70 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"PDI" )) | |
71 | S CHFY=0 | |
72 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"PDI",CH FY)) Q:'CH FY D | |
73 | .S CHZIP= "" | |
74 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"PDI", CHFY,CHZIP )) Q:CHZIP ="" D | |
75 | ..S CHVEN I=0 | |
76 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"PDI ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I D | |
77 | ...S CHPD ITY="" | |
78 | ...F S C HPDITY=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"P DI",CHFY,C HZIP,CHVEN I,CHPDITY) ) Q:CHPDIT Y="" D | |
79 | ....S CHP DI=0 | |
80 | ....F S CHPDI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"PD I",CHFY,CH ZIP,CHVENI ,CHPDITY,C HPDI)) Q:' CHPDI D | |
81 | .....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 | |
82 | Q | |
83 | ; | |
84 | REJCT ;c ount rej c ode by rej type per provider | |
85 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" )) | |
86 | S CHFY=0 | |
87 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"REJ",CH FY)) Q:'CH FY D | |
88 | .S CHZIP= "" | |
89 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REJ", CHFY,CHZIP )) Q:CHZIP ="" D | |
90 | ..S CHVEN I=0 | |
91 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REJ ",CHFY,CHZ IP,CHVENI) ) Q:'CHVEN I D | |
92 | ...S CHRE JCD="" | |
93 | ...F S C HREJCD=$O( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EJ",CHFY,C HZIP,CHVEN I,CHREJCD) ) Q:CHREJC D="" D | |
94 | ....S CHI =0 | |
95 | ....F S CHI=$O(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REJ" ,CHFY,CHZI P,CHVENI,C HREJCD,CHI )) Q:'CHI D | |
96 | .....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 | |
97 | Q | |
98 | ; | |
99 | CLAIMREJ(C D) | |
100 | ;CD=REJCD | |
101 | I $P($G(^ CHMDIC(741 002.22,CD, 0)),U,2)[" CLAIM DENI ED" Q 1 | |
102 | E Q 0 | |
103 | ; | |
104 | VENSORT ;s ort vendor s by total billed ch arges | |
105 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR")) | |
106 | S CHFY=0 | |
107 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
108 | .S CHZIP= "" | |
109 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP)) Q:C HZIP="" D | |
110 | ..S CHVEN I=0 | |
111 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI)) Q:'C HVENI D | |
112 | ...Q:$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHZIP,CH VENI,"TBIL LED"))="" | |
113 | ...S (TBI LLED,TALLO W,TPAID,TN OASGN,TCS, TOHI,TTOVE NCT,TNOASC T,TDENYCT, BENECT,AVG AGE,PAPERC T,EDICT,OC RCT,NCITIB CT,NCITIAM T)="" | |
114 | ...S TBIL LED=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TBILLE D")) | |
115 | ...S TALL OW=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"TALLOW" )) | |
116 | ...S TPAI D=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"TPAID")) | |
117 | ...S TNOA SGN=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASG N")) | |
118 | ...S TCS= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHZI P,CHVENI," TCS")) | |
119 | ...S TOHI =$G(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY,CHZ IP,CHVENI, "TOHI")) | |
120 | ...S TTOV ENCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"TTOVE NCT")) | |
121 | ...S TNOA SCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TNOASC T")) | |
122 | ...S TDEN YCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"TDENYC T")) | |
123 | ...S BENE CT=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"BENECT" )) | |
124 | ...S AVGA GE=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"AVGAGE" )) | |
125 | ...S PAPE RCT=$G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"PDITYP E","03")) | |
126 | ...S EDIC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"91")) | |
127 | ...S OCRC T=$G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,CHFY,CH ZIP,CHVENI ,"PDITYPE" ,"94")) | |
128 | ...S REJT Y=0,REJTYS ="" | |
129 | ...F S R EJTY=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"REJTY PE",REJTY) ) Q:'REJTY D | |
130 | ....S REJ TYS=REJTYS _"("_REJTY _")="_^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HZIP,CHVEN I,"REJTYPE ",REJTY)_" ," | |
131 | ...I $L(R EJTYS) I $ E(REJTYS,$ L(REJTYS)) ="," S REJ TYS=$E(REJ TYS,1,$L(R EJTYS)-1) | |
132 | ...S NCIT IBCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"NCITI BCT")) | |
133 | ...S NCIT IAMT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHZIP,CHV ENI,"NCITI AMT")) | |
134 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T4",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_U_NCITI BCT_U_NCIT IAMT | |
135 | Q | |
136 | ; | |
137 | FILE4 ;out put CHAMPV A_VENDOR_R EPORT4.TXT to FS3BIG | |
138 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4")) | |
139 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
140 | ;S FILE1= "HAC_HFS$: [ARC.ROUSA VE_"_UCI_" ]REPORT4.T XT" | |
141 | ;S X=$ZF( -1,"SET PR OTECTION=( W:RWED) "_ FILE1) | |
142 | ;S FILE1= "HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT4_"_UCI_ ".TXT" | |
143 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ; DEV012893 DPT | |
144 | I 'HAC S FOLDR="HAC _HFS$:[DSM MANAG]" ; DEV012893 DPT | |
145 | S FILE1=" CHAMPVA_VE NDOR_REPOR T4_"_UCI_" .TXT" ;DEV 012893 DPT | |
146 | S FILE1=F OLDER_FILE 1 ;DEV0128 93 DPT | |
147 | S FLDR="/ FS3BIG" ; DEV012893 DPT | |
148 | O FILE1: "NWS" | |
149 | U FILE1 D WREPORT4 | |
150 | C FILE1 | |
151 | D FTPFILE ^CHTFLIB9( FILE1," DNS fs3. DNS ",FLDR,"PU T") ;DEV012893 DPT | |
152 | Q | |
153 | ; | |
154 | WREPORT4 ; | |
155 | ;INPUT: S ^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT4",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 | |
156 | ;S CHFY=0 | |
157 | ;F S CHF Y=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY)) Q:'CHFY D | |
158 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4")) | |
159 | 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^N ON-CITI BE NE COUNT^N ON-CITI PA ID AMOUNT" | |
160 | S CHRPT=" REPORT4",C HCITIFG="I " | |
161 | F CHFY=20 04,2005,20 06 D | |
162 | .;D WTITL E,RPT1HEAD | |
163 | .S (TOTBI LL,TOTALLO W,TOTPAID, TOTBENE,TO TCS,TOTOHI ,TOVENCT,T OBENCT,TDE NCT,TBENCT ,TAVGAGE,T PAPCT,TEDI CT,TOCRCT, VENCT)=0 | |
164 | .S CHZIP= "" | |
165 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T4",CHFY,C HZIP)) Q:C HZIP="" D | |
166 | ..S TBILL ED="A" | |
167 | ..F S TB ILLED=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED),-1) Q:'TBILLE D D | |
168 | ...S CHVE NI=0 | |
169 | ...F S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)) Q:'CH VENI D | |
170 | ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20)) | |
171 | ....S CHT IN=$P($G(^ CHMVEN(CHV ENI,0)),U, 3) S CHTIN =CHTIN_"-" _$P(^CHMVE N(CHVENI,0 ),U,23) | |
172 | ....S CHZ IP4=$P($G( ^CHMVEN(CH VENI,2)),U ,5) | |
173 | ....S TOT BILL=TOTBI LL+TBILLED | |
174 | ....S TOT ALLOW=TOTA LLOW+$P($G (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", CHCITIFG," REPORT4",C HFY,CHZIP, TBILLED,CH VENI)),U,1 ) | |
175 | ....S TOT PAID=TOTPA ID+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,2) | |
176 | ....S TOT BENE=TOTBE NE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,3) | |
177 | ....S TOT CS=TOTCS+$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,4) | |
178 | ....S TOT OHI=TOTOHI +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,5) | |
179 | ....S TOV ENCT=TOVEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,6) | |
180 | ....S TOB ENCT=TOBEN CT+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,7) | |
181 | ....S TDE NCT=TDENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,8) | |
182 | ....S TBE NCT=TBENCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,9) | |
183 | ....S TAV GAGE=TAVGA GE+$P($G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT4",CHF Y,CHZIP,TB ILLED,CHVE NI)),U,10) | |
184 | ....S TPA PCT=TPAPCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,11) | |
185 | ....S TED ICT=TEDICT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,12) | |
186 | ....S TOC RCT=TOCRCT +$P($G(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT4",CHFY, CHZIP,TBIL LED,CHVENI )),U,13) | |
187 | ....S VEN CT=VENCT+1 | |
188 | ....S WRE C="" | |
189 | ....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 ,"REPORT4" ,CHFY,CHZI P,TBILLED, CHVENI)),U ,1),0,2) | |
190 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,2),0 ,2) | |
191 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,3),0 ,2) | |
192 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,4),0 ,2) | |
193 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,5),0 ,2) | |
194 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,6),0 ,0) | |
195 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,7),0 ,0) | |
196 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,8),0 ,0) | |
197 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,9),0 ,0) | |
198 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,10), 0,0) | |
199 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,11), 0,0) | |
200 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,12), 0,0) | |
201 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,13), 0,0) | |
202 | ....S WRE C=WREC_U_$ P($G(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 4",CHFY,CH ZIP,TBILLE D,CHVENI)) ,U,14) | |
203 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,15), 0,0) | |
204 | ....S WRE C=WREC_U_$ J($P($G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"REP ORT4",CHFY ,CHZIP,TBI LLED,CHVEN I)),U,16), 0,2) | |
205 | ....W !,W REC | |
206 | Q | |
207 | ; | |
208 | NONCITI(Z1 ,Z2,Z3) ;g et non-CIT I claim be ne count a nd non-CIT I claim pa id amount for the ve ndor | |
209 | ;Z1 = CHF Y | |
210 | ;Z2 = CHD FN | |
211 | ;Z3 = CHB FN | |
212 | ;ZCI = CL AIM IEN | |
213 | S ZCI=0,Z PD=0 | |
214 | F S ZCI= $O(^CHMZHO LD("ZSKD_U NIQ_VENDOR ","REPORT4 ","CLAIM", "C",Z1,Z2, Z3,ZCI)) Q :'ZCI D | |
215 | .S ZPD=ZP D+$P($G(^C HMPAY(ZCI, 1)),U,1) | |
216 | I ZPD>0 S NCITIBCT= NCITIBCT+1 ,NCITIAMT= NCITIAMT+Z PD | |
217 | Q | |
218 | ; | |
219 | TESTING ; | |
220 | ;lists be ne's non-C ITI paid c laims and paid amoun t | |
221 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"BENE ")) | |
222 | S CHFY=0 | |
223 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,"BENE",C HFY)) Q:'C HFY D | |
224 | .S CHZIP= "" | |
225 | .F S CHZ IP=$O(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"BENE" ,CHFY,CHZI P)) Q:CHZI P="" D | |
226 | ..S CHVEN I=0 | |
227 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI )) Q:'CHVE NI D | |
228 | ...S (CHB ENECT,CHAG ETOT,NCITI BCT,NCITIA MT)=0 | |
229 | ...S CHDF N=0 | |
230 | ...F S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,"BEN E",CHFY,CH ZIP,CHVENI ,CHDFN)) Q :'CHDFN D | |
231 | ....S CHB FN=0 | |
232 | ....F S CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"BE NE",CHFY,C HZIP,CHVEN I,CHDFN,CH BFN)) Q:'C HBFN D | |
233 | .....S CH BENECT=CHB ENECT+1 | |
234 | .....S CH AGETOT=CHA GETOT+$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "BENE",CHF Y,CHZIP,CH VENI,CHDFN ,CHBFN)),U ,1) | |
235 | .....I $D (^CHMZHOLD ("ZSKD_UNI Q_VENDOR", "REPORT4", "CLAIM","C ",CHFY,CHD FN,CHBFN)) D | |
236 | ......U 0 W !,CHFY_ U_CHZIP_U_ CHVENI_U_C HDFN_U_CHB FN | |
237 | ......D N ONCITI(CHF Y,CHDFN,CH BFN) | |
238 | ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"BENECT ")=CHBENEC T | |
239 | ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"AVGAGE ")=CHAGETO T\CHBENECT | |
240 | ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"NCITIB CT")=NCITI BCT | |
241 | ...;S ^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,CHFY, CHZIP,CHVE NI,"NCITIA MT")=NCITI AMT | |
242 | Q | |
243 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.