Produced by Araxis Merge on 11/9/2018 12:34:08 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 | CHMVACT1.m | Mon Nov 5 16:42:40 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVACT1.m | Mon Nov 5 17:51:42 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 284 |
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 | CHMVACT1 ; AHJ/DEN;MA TCH VENDOR FILE TO VENDORS WI TH ACTIVE CLAIMS | |
2 | ;V1.0 | |
3 | ; | |
4 | S ^CHMZHO LD("PROV-N O-ACTIVE-C LAIMS-NA") ="" | |
5 | K ^CHMZHO LD("ADD12- VEN-LABELS -COUNT") | |
6 | K ^CHMZHO LD("ADD12- VEN-TESTIN G") | |
7 | K ^CHMZHO LD("ADD12- VEN-LABELS ") | |
8 | ;SELECT V ENDORS THA T MATCH VE NDOR COUNT S | |
9 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
10 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
11 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
12 | S U="^" | |
13 | S X1=DT,X 2=-548 D C ^%DTC S CK DT=X ; CHA NGE DAYS C LAIMS HERE 548 DAYS= 18 MONTHS | |
14 | S U="^",V EN=0,CNT=0 ,CHVSN=0 | |
15 | ; | |
16 | S X1=$$FM JUL(CHDT) | |
17 | S X2=$$FM JUL(CHDT2) | |
18 | ; | |
19 | ; 15 digi t PDI Loop | |
20 | S PDI=$$C EN2^CHMFPD I2(X1)_X1_ "00000000" | |
21 | ;S PDI="2 0"_$E(CHDT ,2,3)_"000 00000" | |
22 | S PDI2=$$ CEN2^CHMFP DI2(X2)_X2 _"99999999 " | |
23 | ;S CHVPTR =7211954 | |
24 | S CHVPTR= 0 | |
25 | START2 ; | |
26 | ;S CHVPTR =$O(^CHMPA Y("AD",CHV PTR)) G:'C HVPTR END | |
27 | ;Q:'$D(^C HMVEN(CHVP TR,0)) | |
28 | S CHVPTR= $O(^CHMVEN (CHVPTR)) G:'$D(CHVP TR) END | |
29 | I CHVPTR= "ACITI" G END | |
30 | G:'$D(^CH MVEN(CHVPT R,0)) STAR T2 | |
31 | G:'$D(^CH MVEN(CHVPT R,1)) STAR T2 | |
32 | S REC0=^( 0) | |
33 | S REC1=^( 1) | |
34 | ;W !,"ALL =",CHVPTR | |
35 | ;NEXT LIN E BYPASS P ROVIDERS W ITH CLAIMS FROM CHMV ACTC | |
36 | ; | |
37 | G:$D(^CHM ZHOLD("VEN D-CLAIM-NO ACTIVE-NA" ,CHVPTR)) START2 | |
38 | ;W !," SELEC TED=",CHVP TR | |
39 | GOOD1 ; | |
40 | S STATE=$ P(REC1,"^" ,4) | |
41 | G:'$D(STA TE) START2 ;NO STATE CODE | |
42 | S NAME=$P (REC0,"^", 1) | |
43 | G:'$D(NAM E) START2 | |
44 | I NAME="" G START2 | |
45 | I NAME=" " G START2 | |
46 | S TIN=$P( REC0,"^",3 ) | |
47 | G:'$D(TIN ) START2 | |
48 | S ADD1=$P (REC1,"^", 1) | |
49 | S ADD2=$P (REC1,"^", 2) | |
50 | S CITY=$P (REC1,"^", 3) | |
51 | S STATE=$ P(REC1,"^" ,4) | |
52 | S ZIP=$P( REC1,"^",5 ) | |
53 | I ZIP="" S ZIP=0 | |
54 | ;W !,CHVP TR," ",NAM E | |
55 | ; | |
56 | ; ****** ********CH ECK FOR C/ O MEDICAL MATRIX HER E | |
57 | I $E(ADD1 ,1,11)="C/ O MEDICAL" G PUTIT | |
58 | I ADD1="C /O MED MAT RIX INC" G PUTIT | |
59 | I ADD1="M EDICAL MAT RIX INC" G PUTIT | |
60 | I $E(ADD1 ,1,16)="% MED MATRIX INC" G PU TIT | |
61 | I ADD1="M ED MATRIX INC" G PUT IT | |
62 | I $E(ADD1 ,1,15)="%M ED MATRIX INC" G PUT IT | |
63 | I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD" G PUTIT | |
64 | I ADD2="C /O MED MAT RIX INC" G PUTIT | |
65 | I ADD2="M EDICAL MAT RIX INC" G PUTIT | |
66 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G PU TIT | |
67 | I ADD2="M ED MATRIX INC" G PUT IT | |
68 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G PUT IT | |
69 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G PUTIT | |
70 | I STATE=" " G START2 | |
71 | I STATE=" " G START 2 | |
72 | I STATE'= "" S:$D(^D IC(5,STATE ,0)) PST=$ P(^(0),"^" ,2) | |
73 | OUTIT ; | |
74 | S CNT=CNT +1 | |
75 | S RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME_U_CI _U_PDI | |
76 | ;S ^CHMZH OLD("ADD12 -VEN-LABEL S",STATE,Z IP,NAME,CN T)=RECL | |
77 | S ^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)=RE CL | |
78 | S ^CHMZHO LD("ADD12- VEN-TESTIN G",VEN,NAM E,ZIP)=REC L | |
79 | ; | |
80 | ;NEXT LIN E TO SEE W HAT VENDOR NO. PROCE SS IS AT D URING RUN | |
81 | S ^CHMZHO LD("ADD12- VEN-LABELS -VENDOR")= CHVPTR | |
82 | S ^CHMZHO LD("ADD12- VEN-LABELS -COUNT")=C NT | |
83 | ;W !," OUT=",CH VPTR," ",N AME | |
84 | G START2 | |
85 | Q | |
86 | END ; | |
87 | ;W !,"THI S IS THE E ND OF THE MAIN BODY OF LOGIC" | |
88 | ; | |
89 | D ^CHMVAC TD ; DOMES TIC | |
90 | D ^CHMVAC TF ;FOREIG N | |
91 | ;D ^CHMVN LB7 ;COUNT ALL PROVI DERS SELEC TED | |
92 | ;D ^CHMVN LB8 ;COUNT ALL MEDIC AL MATRIX BYPASSED | |
93 | S Y=DT D DD^%DT S P TODAYDT=Y | |
94 | S Y=CHDT D DD^%DT S PCHDT=Y | |
95 | S Y=CHDT2 D DD^%DT S PCHDT2=Y | |
96 | ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2 | |
97 | ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U | |
98 | S CNTZ=1, ^CHMZHOLD( $J,"PROV2- TEXTMESS3" ,CNTZ)="", CNTZ=CNTZ+ 1 | |
99 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
100 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " PROVIDE R NAME AND ADDRESS N O CLAIMS ",C NTZ=CNTZ+1 | |
101 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " IN DATE RANGE HAS COMPLETED ",CNTZ=CN TZ+1 | |
102 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " ",CNTZ= CNTZ+1 | |
103 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " STARTIN G DATE RAN GE ="_PCHD T,CNTZ=CNT Z+1 | |
104 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " E NDING DATE RANGE="_P CHDT2,CNTZ =CNTZ+1 | |
105 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " ",CNT Z=CNTZ+1 | |
106 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1 | |
107 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "DOMESTIC COUNT="_DC NT,CNTZ=CN TZ+1 | |
108 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "FOREIGN C OUNT="_FCN T,CNTZ=CNT Z+1 | |
109 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= " (OUTPUT FILES ON F S3BIG) ",CN TZ=CNTZ+1 | |
110 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "PROVIDER DOMESTIC N AME/ADDRES S ON FS3BI G=PROVIDER NOACTDOMES TICNA.TXT" ,CNTZ=CNTZ +1 | |
111 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "PROVIDER FOREIGN NA ME/ADDRESS ON FS3BIG =PROVIDERN OACTFOREIG NNA.TXT",C NTZ=CNTZ+1 | |
112 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "YOU MUST IMMEDIATEL Y CHANGE A ND SAVE FI LE NAME ON FS3BIG ",CNTZ=CNT Z+1 | |
113 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
114 | S ^CHMZHO LD($J,"PRO V2-TEXTMES S3",CNTZ)= "" | |
115 | S XMTEXT= "^CHMZHOLD ($J,""PROV 2-TEXTMESS 3""," | |
116 | S XMDUZ=. 5 | |
117 | ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1) | |
118 | ;S LAST=$ P(NAMDUZ," ,",1) | |
119 | ;S FIRST= $P(NAMDUZ, ",",2) | |
120 | ;S NAME=L AST_", "_F IRST | |
121 | ;S NAMEOU T= PII " | |
122 | ;S XMY(NA MEOUT)="" | |
123 | S XMY(DUZ )="" | |
124 | S XMSUB=" PROVIDER N AME AND AD DRESS " D ^XMD ; | |
125 | K ^CHMZHO LD("PROV-N O-ACTIVE-C LAIMS-NA") | |
126 | Q | |
127 | EXIT Q | |
128 | PUTIT ; | |
129 | S ^CHMZHO LD("ADD1-M EDTRIX",CH VPTR)=NAME | |
130 | G START2 | |
131 | Q | |
132 | ACTIVE ; | |
133 | W !,"ACTI VE CLAIMS =",CHVPTR | |
134 | G START2 | |
135 | Q | |
136 | FMJUL(FDT) ;CONVERT FM DATE TO JULIAN DA TE | |
137 | N D1,D2,D3 | |
138 | I '$D(FDT) S FDT=DT | |
139 | S X=$E(FDT, 1,3)_"0000 " D H^%DTC S D2=%H | |
140 | S X=FDT D H ^%DTC S D1 =%H | |
141 | S D3=D1-D2+ 1 S:D3<100 D3="0"_D3 S:D3<10 D 3="0"_D3 | |
142 | S D3=$E(FDT ,2,3)_D3 | |
143 | Q D3 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.