Produced by Araxis Merge on 11/9/2018 12:33:47 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 | CHGVQ600.m | Mon Nov 5 16:39:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHGVQ600.m | Mon Nov 5 17:40:46 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 296 |
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 | CHGVQ600 ; CVA/BDB/NC D; INACTIV ATE DUPLIC ATE VENDOR RECORDS ; 01/19/18 2:49 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JANUARY 24, 2018; | |
3 | ;CPE001-0 10,011,012 ,013 - BDB ,NCD,OW 01 /19/18 | |
4 | ; | |
5 | Q | |
6 | ; | |
7 | START ; | |
8 | U 0 W !!, "Duplicate Vendor Cl eanup - Pr ocessing D ata...",! | |
9 | S DIR(0)= "S^P:132 C OLUMN PRIN TER;F:FS3B IG FILE" | |
10 | S DIR("A" )="QUEUE D UPLICATE V ENDOR CLEA N UP REPOR T TO (P/F) " D ^DIR | |
11 | I (X'="F" )&(X'="P") Q | |
12 | S CHRPT=X | |
13 | I CHRPT=" F" D Q | |
14 | .W !!,"A DELIMITED EXCEL TEXT FILE WILL NOW BE CR EATED." | |
15 | .W !,"THE FILE NAME IS : DUP VENCU_"_$E (DT,4,5)_$ E(DT,6,7)_ $E(DT,2,3) _".TXT" | |
16 | .W !,"THI S FILE SHO ULD BE IMP ORTED TO T HE GFE FOR EXCEL PRO CESSING." | |
17 | .S ZTRTN= "RUN^CHGVQ 600",ZTDES C="INACTIV ATE DUPLIC ATE VENDOR RECORDS" | |
18 | .S ZTIO=" ",ZTSAVE(" CHRPT")="" D ^%ZTLOA D | |
19 | I CHRPT=" P" D Q | |
20 | .S %ZIS= "PQM",IOP= "Q" | |
21 | .D ^%ZIS | |
22 | .I POP Q | |
23 | .I IOST' ["P-" Q | |
24 | .I $G(IO ("Q")) D | |
25 | .S ZTRTN ="RUN^CHGV Q600",ZTDE SC="INACTI VATE DUPLI CATE VENDO R RECORDS" | |
26 | .S ZTSAV E("*")="" | |
27 | .D ^%ZTL OAD | |
28 | .D HOME^ %ZIS K IO( "Q") | |
29 | .W !,"IN ACTIVATE D UPLICATE V ENDOR RECO RDS REPORT HAS BEEN QUEUED." | |
30 | Q | |
31 | ; | |
32 | RUN ; | |
33 | N CHXTID | |
34 | K ^UTILIT Y($J,"REPO RT") | |
35 | S U="^" | |
36 | S CHXTID= (100000000 -1) F S C HXTID=$O(^ CHMVEN("D" ,CHXTID)) Q:CHXTID=" " D | |
37 | .N CHXZIP ,CHSTATE,C HXRZIP,CHI NIT,CHNXT, VCOMINIT,V COMNXT,IEN INIT,IENNX T | |
38 | .D LU2^CH GVQ529 | |
39 | .K ^UTILI TY($J,"VLU LIST") | |
40 | .S CHXZIP ="" | |
41 | .S CHSTAT E="" | |
42 | .S CHXRZI P="" | |
43 | .D ADDLIS T^CHGVQ529 | |
44 | .S CHINIT =0 F S CH INIT=$O(^U TILITY($J, "VLULIST", CHINIT)) Q :CHINIT="" D | |
45 | ..S CHINI TD=^UTILIT Y($J,"VLUL IST",CHINI T) | |
46 | ..S IENIN IT=+CHINIT D Q:(($P(^ CHMVEN(IEN INIT,0),U, 8)'=0)&($P (^CHMVEN(I ENINIT,0), U,8)'="")) | |
47 | ..I $P(CH INITD,U,22 )="CG" Q | |
48 | ..N CHLVP TR,VCOM S CHLVPTR=+$ G(^UTILITY ($J,"VLULI ST",CHINIT )) D | |
49 | ...S VCOM ="" S:$D(^ CHMVCOMM(C HLVPTR,101 )) VCOM="Y " D EFTCHE CK^CHGVQ37 0 S VCOMIN IT=VCOM | |
50 | ..S CHNXT =CHINIT F S CHNXT=$ O(^UTILITY ($J,"VLULI ST",CHNXT) ) Q:CHNXT= "" D | |
51 | ...S CHNX TD=^UTILIT Y($J,"VLUL IST",CHNXT ) | |
52 | ...S IENN XT=+CHNXTD Q:(($P(^ CHMVEN(IEN NXT,0),U,8 )'=0)&($P( ^CHMVEN(IE NNXT,0),U, 8)'="")) | |
53 | ...N CHLV PTR,VCOM S CHLVPTR=+ $G(^UTILIT Y($J,"VLUL IST",CHNXT )) D | |
54 | ....S VCO M="" S:$D( ^CHMVCOMM( CHLVPTR,10 1)) VCOM=" Y" D EFTCH ECK^CHGVQ3 70 S VCOMN XT=VCOM | |
55 | ...I $P(C HINITD,U,2 )'=$P(CHNX TD,U,2) Q ;Remit to Name | |
56 | ...I $P(C HINITD,U,3 ,4)'=$P(CH NXTD,U,3,4 ) Q | |
57 | ...I $P(C HINITD,U,5 )'=$P(CHNX TD,U,5) Q ;Remit to Address 1 | |
58 | ...I $P(C HINITD,U,6 )'=$P(CHNX TD,U,6) Q ;Remit to Address 2 | |
59 | ...I $P(C HINITD,U,7 )'=$P(CHNX TD,U,7) Q ;Remit to Address C ity | |
60 | ...I $P(C HINITD,U,8 )'=$P(CHNX TD,U,8) Q ;Remit to Address S tate | |
61 | ...I $P(C HINITD,U,9 )'=$P(CHNX TD,U,9) Q ;Remit to Address Z IP | |
62 | ...I $P(C HINITD,U,2 1)'=$P(CHN XTD,U,21) Q ;FAC Ty pe (Facili ty Type) | |
63 | ...I $P(C HINITD,U,2 0)'=$P(CHN XTD,U,20) Q ;DRG (D iagnostic Related Gr oup) | |
64 | ...I $P(C HINITD,U,1 9)'=$P(CHN XTD,U,19) Q ;CMAC ( CHAMPVA Ma ximum Allo wable Calc ulation) | |
65 | ...I VCOM INIT'=VCOM NXT Q ;VC OM (Vendor Comments) | |
66 | ...I $P(C HNXTD,U,22 )="CG" Q ;CG in the modifier | |
67 | ...D | |
68 | ....S CHM VNIEN=+^UT ILITY($J," VLULIST",C HNXT) | |
69 | ....Q:'$D (^CHMVEN(C HMVNIEN,0) ) | |
70 | ....S $P( ^CHMVEN(CH MVNIEN,0), U,8)=1 | |
71 | ....S ^CH MVEN(CHMVN IEN,8)=DT | |
72 | ....I $G( DUZ)>1,$D( ^VA(200,DU Z)) S $P(^ CHMVEN(CHM VNIEN,8),U ,2)=DUZ | |
73 | ....S ^UT ILITY($J," REPORT",CH MVNIEN)=CH NXTD_"^"_$ G(VCOMNXT) _"^"_DT I $G(DUZ)>1, $D(^VA(200 ,DUZ)) D | |
74 | .....S ^U TILITY($J, "REPORT",C HMVNIEN)=^ UTILITY($J ,"REPORT", CHMVNIEN)_ "^"_$G(DUZ ) | |
75 | I CHRPT=" F" D REPOR TF | |
76 | I CHRPT=" P" D REPOR TP | |
77 | D MSG | |
78 | Q | |
79 | ; | |
80 | REPORTF ; create del imited tex t file for excel imp ort | |
81 | N FILENM, FIO,UCI,LA BEL,CHDUP, CHDUPDT,CH STRN | |
82 | S T=$C(9) | |
83 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
84 | S FILENM= "DUPVENCU_ "_$E(DT,4, 5)_$E(DT,6 ,7)_$E(DT, 2,3)_".TXT " | |
85 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES]"_FILEN M | |
86 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM | |
87 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
88 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q | |
89 | U FIO W " DUPLICATE VENDOR CLE ANUP REPOR T",! | |
90 | U FIO W $ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_" 20"_$E(DT, 2,3),! | |
91 | U FIO W " "_T_"INAC TIVATED VE NDOR INFOR MATION"_T_ " PHYSICAL LOCATION" ,! | |
92 | S LABEL=" ACTIVE VEN DOR TIN"_T _"INACTIVA TED VENDOR NAME"_T | |
93 | S LABEL=L ABEL_"DATE INACTIVE" _T_"DUZ"_T _"ADDR LIN E 1"_T | |
94 | S LABEL=L ABEL_"ADDR LINE 2"_T _"CITY"_T_ "ST"_T_"ZI P"_T | |
95 | S LABEL=L ABEL_"FACT YPE"_T_"DR G"_T_"CMAC "_T_"VCOM" | |
96 | U FIO W L ABEL,! | |
97 | S CHDUP=0 F S CHDU P=$O(^UTIL ITY($J,"RE PORT",CHDU P)) Q:CHDU P="" D | |
98 | .S CHDUPD T=^UTILITY ($J,"REPOR T",CHDUP) | |
99 | .S CHSTRN =$E($P(CHD UPDT,U,3)_ $S($P(CHDU PDT,U,4)?1 N.N:"-"_$P (CHDUPDT,U ,4),1:""), 1,17)_T_$E ($P(CHDUPD T,U,11),1, 23)_T | |
100 | .S CHSTRN =CHSTRN_$E ($E($P(CHD UPDT,U,24) ,4,5)_"/"_ $E($P(CHDU PDT,U,24), 6,7)_"/"_$ E($P(CHDUP DT,U,24),2 ,3),1,13)_ T | |
101 | .S CHSTRN =CHSTRN_$P (CHDUPDT,U ,25)_T_$E( $P(CHDUPDT ,U,12),1,1 1)_T_" "_T _$E($P(CHD UPDT,U,14) ,1,6)_T_$E ($S($P(CHD UPDT,U,15) :$P(^DIC(5 ,$P(CHDUPD T,U,15),0) ,"^",2),1: ""),1,2)_T | |
102 | .S CHSTRN =CHSTRN_$E ($P(CHDUPD T,U,16),1, 5)_$S($L($ P(CHDUPDT, U,16))>5:" -"_$E($P(C HDUPDT,U,1 6),6,9),1: "") | |
103 | .S CHSTRN =CHSTRN_T_ $E($P(CHDU PDT,U,21), 1,7)_T_$E( $P(CHDUPDT ,U,20),1,5 )_T_$E($P( CHDUPDT,U, 19),1,4)_T _$E($P(CHD UPDT,U,23) ,1,3) | |
104 | .W CHSTRN ,! | |
105 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
106 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
107 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") | |
108 | Q | |
109 | ; | |
110 | REPORTP ;s end report to printe r | |
111 | S T=" " | |
112 | S FIO=IO | |
113 | O FIO | |
114 | U FIO W " DUPLICATE VENDOR CLE ANUP REPOR T",! | |
115 | U FIO W $ E(DT,4,5)_ "/"_$E(DT, 6,7)_"/"_" 20"_$E(DT, 2,3),! | |
116 | U FIO W " "_T_"INAC TIVATED VE NDOR INFOR MATION"_T_ " PHYSICAL LOCATION" ,! | |
117 | S LABEL=" ACTIVE VEN DOR TIN"_T _"INACTIVA TED VENDOR NAME"_T | |
118 | S LABEL=L ABEL_"DATE INACTIVE" _T_"DUZ "_T_"ADDR LINE 1"_T | |
119 | S LABEL=L ABEL_"ADDR LINE 2"_T _"CITY "_ T_"ST"_T_" ZIP "_T | |
120 | S LABEL=L ABEL_"FACT YPE"_T_"DR G "_T_"CM AC"_T_"VCO M" | |
121 | U FIO W L ABEL,! | |
122 | S CHDUP=0 F S CHDU P=$O(^UTIL ITY($J,"RE PORT",CHDU P)) Q:CHDU P="" D | |
123 | .S CHDUPD T=^UTILITY ($J,"REPOR T",CHDUP) | |
124 | .S CHSTRN =$E($P(CHD UPDT,U,3)_ $S($P(CHDU PDT,U,4)?1 N.N:"-"_$P (CHDUPDT,U ,4),1:"")_ " ",1,17)_T _$E($P(CHD UPDT,U,11) _" ",1 ,23)_T | |
125 | .S CHSTRN =CHSTRN_$E ($E($P(CHD UPDT,U,24) ,4,5)_"/"_ $E($P(CHDU PDT,U,24), 6,7)_"/"_$ E($P(CHDUP DT,U,24),2 ,3)_" ",1,13)_T | |
126 | .S CHSTRN =CHSTRN_$P (CHDUPDT,U ,25)_T_$E( $P(CHDUPDT ,U,12)_" " ,1,11)_T_" "_T_$E($P (CHDUPDT,U ,14)_" ",1,6)_T _$E($S($P( CHDUPDT,U, 15):$P(^DI C(5,$P(CHD UPDT,U,15) ,0),"^",2) ,1:"")_" ",1,2)_ T | |
127 | .S CHSTRN =CHSTRN_$E ($P(CHDUPD T,U,16),1, 5)_$S($L($ P(CHDUPDT, U,16))>5:" -"_$E($P(C HDUPDT,U,1 6),6,9),1: " ") | |
128 | .S CHSTRN =CHSTRN_T_ $E($P(CHDU PDT,U,21), 1,7)_T_$E( $P(CHDUPDT ,U,20)_" ",1,5)_ T_$E($P(CH DUPDT,U,19 )_" ",1 ,4)_T_$E($ P(CHDUPDT, U,23),1,3) | |
129 | .W CHSTRN ,! | |
130 | C FIO | |
131 | Q | |
132 | ; | |
133 | BACKOUT ;b ackout the duplicate vendor in activation s | |
134 | N CHMVN | |
135 | U 0 W !!, "Backout o f Duplicat e Vendors - Processi ng Data... ",! | |
136 | S U="^" | |
137 | S CHMVN=8 F S CHMV N=$O(^CHMV EN(CHMVN)) Q:'CHMVN D | |
138 | .I $D(^CH MVEN(CHMVN ,8)),(+^CH MVEN(CHMVN ,8)) S $P( ^CHMVEN(CH MVN,0),U,8 )=0 K ^CHM VEN(CHMVN, 8) | |
139 | Q | |
140 | ; | |
141 | MSG ;MESSA GE THAT IN ACTIVATE D UPLICATE V ENDOR RECO RDS IS COM PLETE | |
142 | S CNT=1,^ TMP($J,"IN ACTIVATE_D UPS",CNT)= "",CNT=CNT +1 | |
143 | S ^TMP($J ,"INACTIVA TE_DUPS",C NT)="Inact ivation of duplicate vendor re cord compl ete." | |
144 | S XMTEXT= "^TMP($J," "INACTIVAT E_DUPS""," | |
145 | S XMDUZ=. 5 I $D(DUZ ),$D(^VA(2 00,DUZ)) S XMDUZ=DUZ | |
146 | I $D(DUZ) ,$D(^VA(20 0,DUZ)) S XMY(DUZ)=" " | |
147 | S XMSUB=" INACTIVATE DUPLICATE VENDOR RE CORDS COMP LETED" D ^ XMD | |
148 | Q | |
149 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.