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 | CHMVENC1.m | Mon Nov 5 16:39:55 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENC1.m | Mon Nov 5 17:51:49 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 246 |
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 | CHMVENC1 ; AHJ/DEN;LA BELS FOR V ENDORS CRE ATE BATCH | |
2 | ;V1.0 | |
3 | ; | |
4 | ;SELECT V ENDORS THA T MATCH VE NDOR COUNT S | |
5 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
6 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
7 | 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 | |
8 | S U="^" | |
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("ADD1-V EN-LABELS" ) | |
13 | K ^CHMZHO LD("TEST-A DD1-VEN-LA BELS") | |
14 | K ^CHMZHO LD("ADD1-V EN-LABELS" ,"STATUS") | |
15 | K ^CHMZHO LD("ADD1-V EN-LABELS" ,"DONE") | |
16 | K ^CHMZHO LD("ADD1-M EDTRIX") | |
17 | S ^CHMZHO LD("PROV-N A-OPT-INP- NA")="" | |
18 | K ^CHMZHO LD("ADD1-V EN-LABELS- COUNT") | |
19 | S VENNO=0 | |
20 | A0 ; | |
21 | S VENNO=$ O(^CHMZHOL D("VEND-CL AIM-COUNT- NA",VENNO) ) G:'VENNO END | |
22 | S VENDATA =^CHMZHOLD ("VEND-CLA IM-COUNT-N A",VENNO) | |
23 | S VENINP= $P(VENDATA ,"^",1) | |
24 | S VENOPT= $P(VENDATA ,"^",2) | |
25 | ; (VENINP <1)&(VENOP T<6) G A0 ;NEED TO R EQUEST INP UT FROM US ER HERE | |
26 | I (VENINP >INPCCNT)& (VENOPT>OP TCCNT) G G OOD1 | |
27 | G A0 | |
28 | GOOD1 ; | |
29 | S VEN=VEN NO | |
30 | S VEN=$O( ^CHMPAY("A D",VEN)) G :'VEN END | |
31 | G A0:'$D( ^CHMVEN(VE N,0)) S RE C0=^(0) | |
32 | ;G:'($D(^ CHMVEN(VEN ,1))#10) A 0 | |
33 | S REC1=^( 1) S REC2= ^(2) | |
34 | I VEN=591 488 G A0 | |
35 | I VEN=446 667 G A0 | |
36 | I VEN=715 8715 G A0 | |
37 | ;NEXT LIN E VENDOR I NACTIVE OR DELETE | |
38 | ;G A0:$P( REC0,"^",8 )=1 G A0:$ P(REC0,"^" ,8)=2 | |
39 | G:$P(REC1 ,"^",4)="" A0 | |
40 | ;I $P(REC 1,"^",4)=" " S STATE= 0 | |
41 | S NAME=$P (REC0,"^", 1) G:NAME= "" A0 | |
42 | S TIN=$P( REC0,"^",3 ) G A0:TIN ="" | |
43 | S ADD1=$P (REC1,"^", 1) | |
44 | S ADD2=$P (REC1,"^", 2) | |
45 | S CITY=$P (REC1,"^", 3) | |
46 | S STATE=$ P(REC1,"^" ,4) | |
47 | S ZIP=$P( REC1,"^",5 ) | |
48 | I ZIP="" S ZIP=0 | |
49 | ;W !,VEN, " ",NAME | |
50 | ; | |
51 | ; ****** ********CH ECK FOR C/ O MEDICAL MATRIX HER E | |
52 | I $E(ADD1 ,1,11)="C/ O MEDICAL" G PUTIT | |
53 | I ADD1="C /O MED MAT RIX INC" G PUTIT | |
54 | I ADD1="M EDICAL MAT RIX INC" G PUTIT | |
55 | I $E(ADD1 ,1,16)="% MED MATRIX INC" G PU TIT | |
56 | I ADD1="M ED MATRIX INC" G PUT IT | |
57 | I $E(ADD1 ,1,15)="%M ED MATRIX INC" G PUT IT | |
58 | I $E(ADD1 ,1,20)="64 21 CAMP BO WIE BLVD" G PUTIT | |
59 | I ADD2="C /O MED MAT RIX INC" G PUTIT | |
60 | I ADD2="M EDICAL MAT RIX INC" G PUTIT | |
61 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G PU TIT ; sco tt doan 03 .18.05 | |
62 | I ADD2="M ED MATRIX INC" G PUT IT | |
63 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G PUT IT | |
64 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G PUTIT | |
65 | I STATE'= "" S:$D(^D IC(5,STATE ,0)) PST=$ P(^(0),"^" ,2) | |
66 | S CNT=CNT +1 | |
67 | S RECL=PS T_U_CITY_U _ADD1_U_AD D2_U_ZIP_U _NAME | |
68 | S ^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME,CNT) =RECL | |
69 | OUTIT ; | |
70 | ; | |
71 | ;NEXT LIN E TO SEE W HAT VENDOR NO. PROCE SS IS AT D URING RUN | |
72 | S ^CHMZHO LD("ADD1-V EN-LABELS- VENDOR")=V EN | |
73 | S ^CHMZHO LD("ADD1-V EN-LABELS- COUNT")=CN T | |
74 | G A0 | |
75 | END ; | |
76 | D ^CHMVEN D1 ; DOMES TIC | |
77 | D ^CHMVEN F1 ;FOREIG N | |
78 | ;D ^CHMVN LB7 ;COUNT ALL PROVI DERS SELEC TED | |
79 | ;D ^CHMVN LB8 ;COUNT ALL MEDIC AL MATRIX BYPASSED | |
80 | S Y=DT D DD^%DT S P TODAYDT=Y | |
81 | S Y=CHDT D DD^%DT S PCHDT=Y | |
82 | S Y=CHDT2 D DD^%DT S PCHDT2=Y | |
83 | ;K ADDRLA B,BFN,CHDA TE,CHDFNI, CHDFNJ,CHD FNK,DFN,DF NDATA,FIO, J1,J2 | |
84 | ;K NAMELA B,PCNT,PDI J,PG,RUNTI ME,STATE,S TRDAT,T,TF MDT,TMPS,U | |
85 | S CNTZ=1, ^CHMZHOLD( $J,"PROV1- TEXTMESS2" ,CNTZ)="", CNTZ=CNTZ+ 1 | |
86 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "********* ********** ********** ********** ********** *",CNTZ=CN TZ+1 | |
87 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " PROVIDE R NAME AND ADDRESS L IST WITH ",C NTZ=CNTZ+1 | |
88 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " IN/OUTP ATIENT CLA IMS IN DAT E RANGE HA S COMPLETE D",CNTZ=CN TZ+1 | |
89 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " ", CNTZ=CNTZ+ 1 | |
90 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " STARTIN G DATE RAN GE ="_PCHD T,CNTZ=CNT Z+1 | |
91 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " E NDING DATE RANGE="_P CHDT2,CNTZ =CNTZ+1 | |
92 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " INPATIE NT CLAIMS STARTING R ANGE COUNT ="_INPCCNT ,CNTZ=CNTZ +1 | |
93 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " OUTPATI ENT CLAIMS STARTING RANGE COUN T="_OPTCCN T,CNTZ=CNT Z+1 | |
94 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " ",CNTZ=C NTZ+1 | |
95 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "TODAYS DA TE="_PTODA YDT,CNTZ=C NTZ+1 | |
96 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "DOMESTIC COUNT="_DC NT,CNTZ=CN TZ+1 | |
97 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "FOREIGN C OUNT="_FCN T,CNTZ=CNT Z+1 | |
98 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= " (OUTPUT FILES ON F S3BIG) ",CN TZ=CNTZ+1 | |
99 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "PROVIDER DOMESTIC N AME/ADDRES S ON FS3BI G=PROVIDER SELDOMESTI CNA.TXT",C NTZ=CNTZ+1 | |
100 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "PROVIDER FOREIGN NA ME/ADDRESS ON FS3BIG =PROVIDERS ELFOREIGNN A.TXT",CNT Z=CNTZ+1 | |
101 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "YOU MUST IMMEDIATEL Y CHANGE A ND SAVE FI LE NAME ON FS3BIG ",CNTZ=CNT Z+1 | |
102 | S ^CHMZHO LD($J,"PRO V1-TEXTMES S2",CNTZ)= "" | |
103 | S XMTEXT= "^CHMZHOLD ($J,""PROV 1-TEXTMESS 2""," | |
104 | S XMDUZ=. 5 | |
105 | ;S NAMDUZ =$P(^VA(20 0,DUZ,0)," ^",1) | |
106 | ;S LAST=$ P(NAMDUZ," ,",1) | |
107 | ;S FIRST= $P(NAMDUZ, ",",2) | |
108 | ;S NAME=L AST_", "_F IRST | |
109 | ;S NAMEOU T= PII " | |
110 | ;S XMY(NA MEOUT)="" | |
111 | S XMY(DUZ )="" | |
112 | S XMSUB=" PROVIDER N AME AND AD DRESS " D ^XMD ; | |
113 | K ^CHMZHO LD("PROV-N A-OPT-INP- NA") | |
114 | Q | |
115 | EXIT Q | |
116 | PUTIT ; | |
117 | S ^CHMZHO LD("ADD1-M EDTRIX",VE N)=NAME G A0 | |
118 | Q | |
119 | PRINTIT ; | |
120 | W !,NAME, " ",ADD1 | |
121 | G A0 | |
122 | Q | |
123 | Q | |
124 | TESTIT Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.