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 | CHMVENP5.m | Mon Nov 5 16:41:29 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENP5.m | Mon Nov 5 17:51:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 200 |
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 | CHMVENP5 ; 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 5 : CITI cla ims only, includes p harmacy cl aims | |
5 | ;input: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AIDCT")=TP AID CL COU NT ;GENER ATED IN ^C HMVENP1 | |
6 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"TP AID")=TPAI D AMT ;GENERATED IN ^CHMVE NP1 | |
7 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)="" ;GENERATE D IN ^CHMV ENP1 | |
8 | ; | |
9 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT") ;outpaitie nt claim c ount | |
10 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT") ;inpaitien t claim co unt | |
11 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT") ;RTC claim count | |
12 | ; ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," PHACT") ;pharmacy claim coun t | |
13 | ; | |
14 | ;output: ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT") | |
15 | ; ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)=BCT_U_C HPAIDCT_U_ CHPAID | |
16 | ; FS3BIG\CH AMPVA_VEND OR_REPORT5 .TXT | |
17 | ; | |
18 | ;all bene s are coun ted but di d not incl ude reject ed claims. only pai d CITI cla ims (claim status=Co mplete) ar e counted. | |
19 | ;DEV01289 3 DPT REMO VE DECNET | |
20 | ; | |
21 | START5 ; | |
22 | S CHCITIF G="I" | |
23 | D GETDATA 5 | |
24 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 12893 DPT | |
25 | ;S FILE3= "HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT5_"_UCI_ ".TXT" | |
26 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D EV012893 D PT | |
27 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV012 893 DPT | |
28 | S FILE3=" CHAMPVA_VE NDOR_REPOR T5_"_UCI_" .TXT" ;DEV 012893 DPT | |
29 | S FILE3=F OLDER_FILE 3 ;DEV0128 93 DPT | |
30 | S FLDR="/ FS3BIG" ;D EV012893 D PT | |
31 | O FILE3:" NWS" | |
32 | U FILE3 D WREPORT5 | |
33 | C FILE3 | |
34 | D FTPFILE ^CHTFLIB9( FILE3," DNS fs3. DNS ",FLDR,"PU T") ;DEV012893 DPT | |
35 | Q | |
36 | ; | |
37 | GETDATA5 ; | |
38 | ;INPUT: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)="" ;GEN IN ^CHMVENP1 | |
39 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG)) | |
40 | K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,"REPORT5" ) | |
41 | S CHFY=0 | |
42 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
43 | .F CHCLST Y="INP","O UT","RTC" D | |
44 | ..S CHVEN I=0 | |
45 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI D | |
46 | ...K ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"BENEC T") | |
47 | ...S CHDF N=0 | |
48 | ...F S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN E",CHDFN)) Q:'CHDFN D | |
49 | ....S CHB FN=0 | |
50 | ....F S CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)) Q: 'CHBFN D | |
51 | .....S ^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN ECT")=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NECT"))+1 | |
52 | ;SORT ON BENE COUNT | |
53 | S CHFY=0 | |
54 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
55 | .F CHCLST Y="INP","O UT","RTC" D | |
56 | ..S CHVEN I=0 | |
57 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI D | |
58 | ...S (BCT ,CHPAIDCT, CHPAID)=0 | |
59 | ...S BCT= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHCL STY,CHVENI ,"BENECT") ) | |
60 | ...S CHPA IDCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"TPA IDCT")) | |
61 | ...S CHPA ID=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"TPAID ")) | |
62 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T5",CHFY,C HCLSTY,BCT ,CHVENI)=B CT_U_CHPAI DCT_U_CHPA ID | |
63 | Q | |
64 | ; | |
65 | WREPORT5 ; | |
66 | ;input: ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,"BENECT", BCT,CHVENI )=BENECT_U _CHPAIDCT_ U_CHPAID | |
67 | ;output: FS3BIG\CHA MPVA_VENDO R_REPORT5. TXT | |
68 | ; | |
69 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR",CHCI TIFG,"REPO RT5")) | |
70 | W !,"ORDE R NO^FY^SE RVICE TYPE ^TIN^VENDO R NAME^FAC ILITY TYPE ^MEDICARE NO^PL ADDR ESS 1^PL A DDRESS 2^C ITY^STATE^ ZIP^# CLAI MS PAID^TO TAL PAID^B ENE COUNT^ OUT CLAIM COUNT^INP CLAIM COUN T^RTC CLAI M COUNT^PH ARM CLAIM COUNT" | |
71 | F CHFY=20 04,2005,20 06 D | |
72 | .F CHCLST Y="INP","O UT","RTC", "PHA" D | |
73 | ..S BCT=" A",TOPCT=0 | |
74 | ..F S BC T=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 5",CHFY,CH CLSTY,BCT) ,-1) Q:'BC T Q:$G(TO PCT)>99 D | |
75 | ...S CHVE N1=0 | |
76 | ...F S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT5",CHF Y,CHCLSTY, BCT,CHVENI )) Q:'CHVE NI Q:$G(T OPCT)>99 D | |
77 | ....S (CH TIN,CHVNAM E,CHVENTY, CHMCNO,CHP LAD1,CHPLA D2,CHPLCIT Y,CHPLST,C HPLZIP)="" | |
78 | ....S (CH PAIDCT,CHP AID,INPBEN CT,OUTBENC T,RTCBENCT ,CHOPCLCT, CHIPCLCT,C HRTCLCT)=0 | |
79 | ....S CHT IN=$P(^CHM VEN(CHVENI ,0),U,3) S CHTIN=CHT IN_"-"_$P( ^CHMVEN(CH VENI,0),U, 23) | |
80 | ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20)) | |
81 | ....S CHV ENTY=$P($G (^CHMVEN(C HVENI,1)), U,7) I $G( CHVENTY) S CHVENTY=$ E($P($G(^C HMDIC(7410 02.11,CHVE NTY,0)),U, 2),1,15) | |
82 | ....S CHM CNO=$$GETM CNO^CHMVEN P3(CHVENI) | |
83 | ....S CHP LAD1=$P($G (^CHMVEN(C HVENI,2)), U,1) | |
84 | ....S CHP LAD2=$P($G (^CHMVEN(C HVENI,2)), U,2) | |
85 | ....S CHP LCITY=$P($ G(^CHMVEN( CHVENI,2)) ,U,3) | |
86 | ....S CHP LST=$P($G( ^CHMVEN(CH VENI,2)),U ,4) I $G(C HPLST) S C HPLST=$P($ G(^DIC(5,C HPLST,0)), U,2) | |
87 | ....S CHP LZIP=$P($G (^CHMVEN(C HVENI,2)), U,5) | |
88 | ....S CHV ENTY=$P($G (^CHMVEN(C HVENI,1)), U,7) I $G( CHVENTY) S CHVENTY=$ E($P($G(^C HMDIC(7410 02.11,CHVE NTY,0)),U, 2),1,15) | |
89 | ....S CHP AIDCT=$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT5", CHFY,CHCLS TY,BCT,CHV ENI)),U,2) | |
90 | ....S CHP AID=$P($G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT5",CH FY,CHCLSTY ,BCT,CHVEN I)),U,3) | |
91 | ....S CHO PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT")) | |
92 | ....S CHI PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT")) | |
93 | ....S CHR TCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT")) | |
94 | ....S CHP HCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," PHACT")) | |
95 | ....;S OU TBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"OUT",C HVENI,"BEN ECT")) | |
96 | ....;S IN PBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT")) | |
97 | ....;S RT CBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"RTC",C HVENI,"BEN ECT")) | |
98 | ....S TOP CT=TOPCT+1 | |
99 | ....W !,T OPCT_U_CHF Y_U_CHCLST Y_U_CHTIN_ U_CHVNAME_ U_CHVENTY_ U_CHMCNO_U _CHPLAD1_U _CHPLAD2_U _CHPLCITY_ U_CHPLST_U _CHPLZIP_U _$J(CHPAID CT,0,0)_U_ $J(CHPAID, 0,2)_U_$J( BCT,0,0)_U _$J(CHOPCL CT,0,0)_U_ $J(CHIPCLC T,0,0)_U_$ J(CHRTCLCT ,0,0)_U_$J (CHPHCLCT, 0,0) | |
100 | Q | |
101 | ; | |
102 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.