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 | CHMVENP3.m | Mon Nov 5 16:40:06 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENP3.m | Mon Nov 5 17:51:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 214 |
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 | CHMVENP3 ; 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 3 : | |
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 | ; | |
13 | ;output: ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT") | |
14 | ; ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)=BCT_U_C HPAIDCT_U_ CHPAID | |
15 | ; FS3BIG\CH AMPVA_VEND OR_REPORT3 .TXT | |
16 | ;DEV01289 3 DPT RMV DECNET | |
17 | ; | |
18 | START3 ; | |
19 | S CHCITIF G="C" | |
20 | D GETDATA 3 | |
21 | ;S FILE3= "HACFS3"" DNS coledec We lcome1!"": :D:[FS3BIG ]CHAMPVA_V ENDOR_REPO RT3_"_UCI_ ".TXT" | |
22 | X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 012893 DPT | |
23 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ; DEV012893 DPT | |
24 | I 'HAC S FOLDR="HAC _HFS$:[DSM MANAG]" ; DEV012893 DPT | |
25 | S FILE3=" CHAMPVA_VE NDOR_REPOR T3_"_UCI_" .TXT" ;DEV 012893 DPT | |
26 | S FLDR="/ FS3BIG" ;D EV012893 D PT | |
27 | S FIL3E3= FOLDER_FIL E3 ;DEV012 893 DPT | |
28 | O FILE3:" NWS" | |
29 | U FILE3 D WREPORT3 | |
30 | C FILE3 | |
31 | D FTPFILE ^CHTFLIB9( FILE3," DNS fs3. DNS ",FLDR,"PU T") ;DEV012893 DPT | |
32 | Q | |
33 | ; | |
34 | GETDATA3 ; | |
35 | ;INPUT: ^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)="" ;GEN IN ^CHMVENP1 | |
36 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR","C") ) | |
37 | K ^CHMZHO LD("ZSKD_U NIQ_VENDOR ","C","REP ORT3") | |
38 | S CHCITIF G="C" | |
39 | S CHFY=0 | |
40 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
41 | .F CHCLST Y="INP","O UT","RTC" D | |
42 | ..S CHVEN I=0 | |
43 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI D | |
44 | ...K ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"BENEC T") | |
45 | ...S CHDF N=0 | |
46 | ...F S C HDFN=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"BEN E",CHDFN)) Q:'CHDFN D | |
47 | ....S CHB FN=0 | |
48 | ....F S CHBFN=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHCLSTY, CHVENI,"BE NE",CHDFN, CHBFN)) Q: 'CHBFN D | |
49 | .....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 | |
50 | ;SORT ON BENE COUNT | |
51 | S CHFY=0 | |
52 | F S CHFY =$O(^CHMZH OLD("ZSKD_ UNIQ_VENDO R",CHCITIF G,CHFY)) Q :'CHFY D | |
53 | .F CHCLST Y="INP","O UT","RTC" D | |
54 | ..S CHVEN I=0 | |
55 | ..F S CH VENI=$O(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI)) Q: 'CHVENI D | |
56 | ...S (BCT ,CHPAIDCT, CHPAID)=0 | |
57 | ...S BCT= $G(^CHMZHO LD("ZSKD_U NIQ_VENDOR ",CHCITIFG ,CHFY,CHCL STY,CHVENI ,"BENECT") ) | |
58 | ...S CHPA IDCT=$G(^C HMZHOLD("Z SKD_UNIQ_V ENDOR",CHC ITIFG,CHFY ,CHCLSTY,C HVENI,"TPA IDCT")) | |
59 | ...S CHPA ID=$G(^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,CHFY,C HCLSTY,CHV ENI,"TPAID ")) | |
60 | ...S ^CHM ZHOLD("ZSK D_UNIQ_VEN DOR",CHCIT IFG,"REPOR T3",CHFY,C HCLSTY,BCT ,CHVENI)=B CT_U_CHPAI DCT_U_CHPA ID | |
61 | Q | |
62 | ; | |
63 | WREPORT3 ; | |
64 | ;input: ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,"BENECT", BCT,CHVENI )=BENECT_U _CHPAIDCT_ U_CHPAID | |
65 | ;output: FS3BIG\CHA MPVA_VENDO R_REPORT3. TXT | |
66 | ; | |
67 | Q:'$D(^CH MZHOLD("ZS KD_UNIQ_VE NDOR","C", "REPORT3") ) | |
68 | 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" | |
69 | S CHCITIF G="C" | |
70 | F CHFY=20 04,2005,20 06 D | |
71 | .F CHCLST Y="INP","O UT","RTC" D | |
72 | ..S BCT=" A",TOPCT=0 | |
73 | ..F S BC T=$O(^CHMZ HOLD("ZSKD _UNIQ_VEND OR",CHCITI FG,"REPORT 3",CHFY,CH CLSTY,BCT) ,-1) Q:'BC T Q:$G(TO PCT)>99 D | |
74 | ...S CHVE N1=0 | |
75 | ...F S C HVENI=$O(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,"RE PORT3",CHF Y,CHCLSTY, BCT,CHVENI )) Q:'CHVE NI Q:$G(T OPCT)>99 D | |
76 | ....S (CH TIN,CHVNAM E,CHVENTY, CHMCNO,CHP LAD1,CHPLA D2,CHPLCIT Y,CHPLST,C HPLZIP)="" | |
77 | ....S (CH PAIDCT,CHP AID,INPBEN CT,OUTBENC T,RTCBENCT ,CHOPCLCT, CHIPCLCT,C HRTCLCT)=0 | |
78 | ....S CHT IN=$P(^CHM VEN(CHVENI ,0),U,3) S CHTIN=CHT IN_"-"_$P( ^CHMVEN(CH VENI,0),U, 23) | |
79 | ....S CHV NAME=$P($G (^CHMVEN(C HVENI,0)), U,1),CHVNA ME=$$TRIM^ CHTFLIB($E (CHVNAME,1 ,20)) | |
80 | ....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) | |
81 | ....S CHM CNO=$$GETM CNO(CHVENI ) | |
82 | ....S CHP LAD1=$P($G (^CHMVEN(C HVENI,2)), U,1) | |
83 | ....S CHP LAD2=$P($G (^CHMVEN(C HVENI,2)), U,2) | |
84 | ....S CHP LCITY=$P($ G(^CHMVEN( CHVENI,2)) ,U,3) | |
85 | ....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) | |
86 | ....S CHP LZIP=$P($G (^CHMVEN(C HVENI,2)), U,5) | |
87 | ....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) | |
88 | ....S CHP AIDCT=$P($ G(^CHMZHOL D("ZSKD_UN IQ_VENDOR" ,CHCITIFG, "REPORT3", CHFY,CHCLS TY,BCT,CHV ENI)),U,2) | |
89 | ....S CHP AID=$P($G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,"R EPORT3",CH FY,CHCLSTY ,BCT,CHVEN I)),U,3) | |
90 | ....S CHO PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," OUTCT")) | |
91 | ....S CHI PCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," INPCT")) | |
92 | ....S CHR TCLCT=$G(^ CHMZHOLD(" ZSKD_UNIQ_ VENDOR",CH CITIFG,CHF Y,CHVENI," RTCCT")) | |
93 | ....;S OU TBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"OUT",C HVENI,"BEN ECT")) | |
94 | ....;S IN PBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,CHCLSTY ,CHVENI,"B ENECT")) | |
95 | ....;S RT CBENCT=$G( ^CHMZHOLD( "ZSKD_UNIQ _VENDOR",C HCITIFG,CH FY,"RTC",C HVENI,"BEN ECT")) | |
96 | ....S TOP CT=TOPCT+1 | |
97 | ....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) | |
98 | Q | |
99 | ; | |
100 | GETMCNO(ZV ) ; | |
101 | ;ZV=VENDO R IEN | |
102 | S J=0,MC= "" | |
103 | F S J=$O (^CHMVEN(Z V,400,J)) Q:'J D | |
104 | .Q:$G(^CH MVEN(ZV,40 0,J,0))="" | |
105 | .Q:$G(^CH MVEN(ZV,40 0,J,0))="9 99999" | |
106 | .S MC=MC_ $G(^CHMVEN (ZV,400,J, 0))_"," | |
107 | I $L(MC) S MC=$E(MC ,1,($L(MC) -1)) | |
108 | Q MC | |
109 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.