Produced by Araxis Merge on 11/9/2018 12:34:10 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 | CHMVNLB4.m | Mon Nov 5 16:40:47 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVNLB4.m | Mon Nov 5 17:51:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 288 |
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 | CHMVNLB4 ; AHJ/DEN;LA BELS FOR V ENDORS CRE ATE BATCH | |
2 | ;V1.0 | |
3 | ; | |
4 | ;SEE ZIPM ATCH TAG T O ACTIVATE MATCH WIT H SELECTED ZIPS | |
5 | D NOW^%DT C S RUNTIM E=% | |
6 | S Y=$E(RU NTIME,1,7) | |
7 | S TODAY=Y | |
8 | S Y=TODAY D DD^%DT S TODAY=Y ; | |
9 | S X1=DT,X 2=-548 D C ^%DTC S CK DT=X ; CHA NGE DAYS C LAIMS HERE 548 DAYS= 18 MONTHS | |
10 | S U="^",V EN=0,CNT=0 ,CHVSN=0 | |
11 | K ^CHMZHO LD("DUP-CH ECK") | |
12 | K ^CHMZHO LD("ADD-VE N-LABELS") | |
13 | K ^CHMZHO LD("ADD-ME DTRIX") | |
14 | S ^CHMZHO LD("PROV-N A-LABELS") ="" | |
15 | A0 ; | |
16 | S VEN=$O( ^CHMPAY("A D",VEN)) G :'VEN END | |
17 | G A0:'$D( ^CHMVEN(VE N,0)) S RE C0=^(0) | |
18 | G:'($D(^C HMVEN(VEN, 1))#10) A0 S REC1=^( 1) S REC2= ^(2) | |
19 | G A0:$P(R EC0,"^",8) =1 G A0:$P (REC0,"^", 8)=2 | |
20 | G:$P(REC1 ,"^",4)="" A0 | |
21 | S NAME=$P (REC0,"^", 1) G:NAME= "" A0 | |
22 | S TIN=$P( REC0,"^",3 ) G A0:TIN ="" | |
23 | S ADD1=$P (REC1,"^", 1),ADD2=$P (REC1,"^", 2) | |
24 | S CITY=$P (REC1,"^", 3),STATE=$ P(REC1,"^" ,4),ZIP=$P (REC1,"^", 5) | |
25 | ;W !,VEN, " ",NAME | |
26 | ; | |
27 | ; ****** ********CH ECK FOR C/ O MEDICAL MATRIX HER E | |
28 | I $E(ADD1 ,1,11)="C/ O MEDICAL" S ^CHMZHO LD("ADD-ME DTRIX",VEN )=NAME G A 0 | |
29 | I ADD1="C /O MED MAT RIX INC" S ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0 | |
30 | I ADD1="M EDICAL MAT RIX INC" S ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0 | |
31 | I $E(ADD1 ,1,16)="% MED MATRIX INC" S ^C HMZHOLD("A DD-MEDTRIX ",VEN)=NAM E G A0 | |
32 | I ADD1="M ED MATRIX INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME G A0 | |
33 | I $E(ADD1 ,1,15)="%M ED MATRIX INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME G A0 | |
34 | I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD" S ^CHMZHOL D("ADD-MED TRIX",VEN) =NAME G A0 | |
35 | I ADD2="C /O MED MAT RIX INC" S ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0 | |
36 | I ADD2="M EDICAL MAT RIX INC" S ^CHMZHOLD ("ADD-MEDT RIX",VEN)= NAME G A0 | |
37 | I $E(ADD2 ,1,16)="% MED MATRIX INC" S ^C HMZHOLD("A DD-MEDTRIX ",VEN)=NAM E G A0 ; scott doan 03.18.05 | |
38 | I ADD2="M ED MATRIX INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME G A0 | |
39 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" S ^CH MZHOLD("AD D-MEDTRIX" ,VEN)=NAME G A0 | |
40 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" S ^CHMZHOL D("ADD-MED TRIX",VEN) =NAME G A0 | |
41 | ;ZIPMATCH ; | |
42 | ; | |
43 | ;++++++++ +++++MATCH VENDOR ZI P TO ZIPS REQUESTED | |
44 | ; USE CHM RZIP1 TO L OAD ZIPS F ROM TEXT F ILE | |
45 | ;S MATCH= ZIP | |
46 | ;I $D(^CH MZHOLD("ZI P-MATCH",M ATCH)) G G OOD | |
47 | ;S INCNT= INCNT+1 | |
48 | ;G A0 | |
49 | ;GOOD ; | |
50 | S:CITY="" CITY="UNK NOWN" S:AD D2="" ADD2 =" " S:ZIP ="" ZIP=" " | |
51 | S:ADD1="" ADD1=" " S NAME=$P( REC0,"^",1 ) | |
52 | S PST="UN KNOWN" I S TATE'="" S :$D(^DIC(5 ,STATE,0)) PST=$P(^( 0),"^",2) | |
53 | I TIN'="" G A0:$D(^ CHMZHOLD(" DUP-CHECK" ,TIN,ZIP)) | |
54 | K FLAG D COUNT G:$D (FLAG) A0 | |
55 | S SF=0 D SUSP G:SF A0 | |
56 | S CNT=CNT +1,RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME | |
57 | S ^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,CNT)= RECL | |
58 | S ^CHMZHO LD("PROVID ER-NA-VEN" )=VEN | |
59 | ; | |
60 | ;NEXT LIN E TO SEE W HAT VENDOR NO. PROCE SS IS AT D URING RUN | |
61 | ;S ^CHMZH OLD("ADD-V EN-LABELS- VENDOR")=V EN | |
62 | S ^CHMZHO LD("DUP-CH ECK",TIN,Z IP)="" | |
63 | I '(CNT#1 000),$D(CH VSN) D VSN | |
64 | G A0 | |
65 | END ; | |
66 | D ^CHMVND OM ;SPLIT DOMESTIC T O FS3BIG | |
67 | D ^CHMVNF OR ;SPLIT FOREIGN TO FS3BIG | |
68 | S Y=TODAY D DD^%DT S PTODAYDT =Y | |
69 | S CNTZ=1, ^CHMZHOLD( $J,"PROV-T EXTMESS1", CNTZ)="",C NTZ=CNTZ+1 | |
70 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" ********** ********** ********** ********** ********** ",CNTZ=CNT Z+1 | |
71 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" PROVIDER NAME AND ADDRESS LI ST ",CNTZ=CN TZ+1 | |
72 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" WITH 18 MONTH CLAI MS HAS CO MPLETED ",CNTZ=CNT Z+1 | |
73 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" ",CNTZ=CN TZ+1 | |
74 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" TODAYS DAT E="_PTODAY DT,CNTZ=CN TZ+1 | |
75 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" DOMESTIC C OUNT="_DCN T,CNTZ=CNT Z+1 | |
76 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" FOREIGN CO UNT="_FCNT ,CNTZ=CNTZ +1 | |
77 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" (OUTPUT F ILES ON FS 3BIG) ",CNT Z=CNTZ+1 | |
78 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" PROVIDER D OMESTIC NA ME/ADDRESS ON FS3BIG =PROVIDERD OMESTICNA. TXT",CNTZ= CNTZ+1 | |
79 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" PROVIDER F OREIGN NAM E/ADDRESS ON FS3BIG= PROVIDERFO REIGNNA.TX T",CNTZ=CN TZ+1 | |
80 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" YOU MUST I MMEDIATELY CHANGE FI LE NAME ON FS3BIG ",CNTZ=CNT Z+1 | |
81 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" ********** ********** ********** ********** ********** ",CNTZ=CNT Z+1 | |
82 | S ^CHMZHO LD($J,"PRO V-TEXTMESS 1",CNTZ)=" " | |
83 | S XMTEXT= "^CHMZHOLD ($J,""PROV -TEXTMESS1 ""," | |
84 | S XMDUZ=. 5 | |
85 | ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1) | |
86 | ;S LAST=$ P(NAMDUZ," ,",1) | |
87 | ;S FIRST= $P(NAMDUZ, ",",2) | |
88 | ;S NAME=L AST_", "_F IRST | |
89 | ;S NAMEOU T= PII " | |
90 | ;S XMY(NA MEOUT)="" | |
91 | S XMY(DUZ )="" | |
92 | S XMSUB=" PROVIDER N AME AND AD DRESS " D ^XMD ; | |
93 | K ^CHMZHO LD("PROV-N A-LABELS") | |
94 | Q | |
95 | EXIT Q | |
96 | COUNT S CL =0,CT=0 | |
97 | C1 S CL=$O (^CHMPAY(" AD",VEN,CL )) G:'CL C 3 | |
98 | G C1:'$D( ^CHMPAY(CL ,0)) | |
99 | S TPDICT= 999 | |
100 | C2 S TPDIC T=$O(^CHMP AY(CL,"PDI ",TPDICT), -1) G:'TPD ICT C1 | |
101 | G:'$D(^CH MPAY(CL,"P DI",TPDICT ,0)) C1 S TPDI=$P(^C HMPAY(CL," PDI",TPDIC T,0),"^",1 ) | |
102 | ;S PDIDT= $$JULFM^CH TFLIB(TPDI ) | |
103 | S PDIDT=$ $PDIJULFM^ CHMFPDI2(T PDI) | |
104 | ;W !,"VEN =",VEN," CL=",CL, " PDIDT=", PDIDT | |
105 | ; | |
106 | ;CHECK CL AIMS FOR 1 8 MONTHS C LAIMS | |
107 | G C1:PDID T<CKDT | |
108 | S CT=CT+1 G C1:CT<5 | |
109 | C3 S:CT<5 FLAG=1 Q | |
110 | SUSP S J=0 | |
111 | S1 S J=$O( ^CHMVEN(VE N,30,J)) G SX:'J | |
112 | G S1:'$D( ^CHMVEN(VE N,30,J,0)) S CHSDS=^ (0) | |
113 | G S1:(+CH SDS)>DT | |
114 | G S1:$S(' $P(CHSDS," ^",4):0,$P (CHSDS,"^" ,4)<DT:1,1 :0) | |
115 | S SF=1 | |
116 | SX Q | |
117 | ; | |
118 | ; | |
119 | VSN ; | |
120 | S CHVSN=$ O(^CHMDIC( 741900.01, CHVSN)) I 'CHVSN K C HVSN G VSN X | |
121 | S CHDUZ=$ S($D(^CHMD IC(741900. 01,CHVSN,0 )):$P(^(0) ,U,2),1:0) | |
122 | I $S('CHD UZ:1,'$D(^ VA(200,CHD UZ,0)):1,$ P(^(0),U,1 1):1,1:0) G VSNX | |
123 | G VSNX:$D (^CHMDIC(7 41900.01,C HVSN,101," B",DT)) | |
124 | G VSNX:'$ D(^CHMDIC( 741900.01, CHVSN,1)) S REC1=^(1 ) | |
125 | S NAME="C HAMPVA PRO VIDER",TIN ="VERIFY"_ CHVSN | |
126 | S ADD1=$P (REC1,"^", 1),ADD2=$P (REC1,"^", 2) | |
127 | S CITY=$P (REC1,"^", 3),STATE=$ P(REC1,"^" ,4),ZIP=$P (REC1,"^", 5) | |
128 | S:CITY="" CITY="UNK NOWN" S:AD D2="" ADD2 =" " S:ZIP ="" ZIP=" " | |
129 | S:ADD1="" ADD1=" " | |
130 | S PST="UN KNOWN" I S TATE'="" S :$D(^DIC(5 ,STATE,0)) PST=$P(^( 0),"^",2) | |
131 | G VSNX:$D (^CHMZHOLD ("DUP-CHEC K",TIN,ZIP )) | |
132 | S CNT=CNT +1,RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME | |
133 | S ^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,CNT)= RECL | |
134 | S ^CHMZHO LD("DUP-CH ECK",TIN,Z IP)="" | |
135 | S:'$D(^CH MDIC(74190 0.01,CHVSN ,101,0)) ^ (0)="^7419 00.01101DA ^0^0" | |
136 | S JJ=$P(^ (0),"^",3) +1,^(0)="^ 741900.011 01DA^"_JJ_ "^"_JJ | |
137 | S ^CHMDIC (741900.01 ,CHVSN,101 ,JJ,0)=DT_ "^P" | |
138 | S ^CHMDIC (741900.01 ,CHVSN,101 ,"B",DT,JJ )="" | |
139 | VSNX Q | |
140 | PRINTIT ; | |
141 | W !,NAME, " ",ADD1 | |
142 | G A0 | |
143 | Q | |
144 | Q | |
145 | TESTIT Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.