Produced by Araxis Merge on 11/9/2018 12:34:05 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 | CHMLIDMP.m | Mon Nov 5 16:43:28 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLIDMP.m | Mon Nov 5 17:50:20 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 180 |
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 | CHMLIDMP ; CVA/JEH;CA LC IDME FA CTORS;01/2 4/04; | |
2 | ; | |
3 | D INITZ | |
4 | D HDR | |
5 | D LOOP | |
6 | D EPRNT | |
7 | D CLSE | |
8 | W !!,"*** End of Up dating IDM E Factors ***" | |
9 | Q | |
10 | INITZ ;OPE N FILES AN D SET VARI ABLES | |
11 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]I DME_EXCPT_ RPT_"_FEFF DATE_".TXT " | |
12 | O IO:"NWS ":5 | |
13 | U IO | |
14 | S TAB=$C( 9) | |
15 | D CLRVAR | |
16 | Q | |
17 | LOOP ;LOOP THRU ^CHM ZHOLD | |
18 | G:'$D(^CH MZHOLD("ID ME","EXCPT N","HAC")) LP1 | |
19 | S CTR=0 F S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","HA C",CTR)) Q :'CTR D | |
20 | .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","HA C",CTR),"^ ",1) | |
21 | .;S MEDNU M=$P(^CHMZ HOLD("IDME ","EXCPTN" ,"HAC",CTR ),"^",2) ; NOT USE D | |
22 | .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",3) | |
23 | .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",4) | |
24 | .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",5) | |
25 | .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "HAC",CTR) ,"^",6) | |
26 | .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","H AC",CTR)," ^",7) | |
27 | .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",8) | |
28 | .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," HAC",CTR), "^",9) | |
29 | .D EPRNT | |
30 | LP1 ; | |
31 | G:'$D(^CH MZHOLD("ID ME","EXCPT N","PROV") ) LP2 | |
32 | S CTR=0 F S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","PR OV",CTR)) Q:'CTR D | |
33 | .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","PR OV",CTR)," ^",1) | |
34 | .S MEDNUM =$P(^CHMZH OLD("IDME" ,"EXCPTN", "PROV",CTR ),"^",2) | |
35 | .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",3) | |
36 | .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",4) | |
37 | .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",5) | |
38 | .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "PROV",CTR ),"^",6) | |
39 | .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","P ROV",CTR), "^",7) | |
40 | .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",8) | |
41 | .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," PROV",CTR) ,"^",9) | |
42 | .D EPRNT | |
43 | LP2 ; | |
44 | Q:'$D(^CH MZHOLD("ID ME","EXCPT N","ZIP")) | |
45 | S CTR=0 F S CTR=$O (^CHMZHOLD ("IDME","E XCPTN","ZI P",CTR)) Q :'CTR D | |
46 | .S TIN=$P (^CHMZHOLD ("IDME","E XCPTN","ZI P",CTR),"^ ",1) | |
47 | .S MEDNUM =$P(^CHMZH OLD("IDME" ,"EXCPTN", "ZIP",CTR) ,"^",2) | |
48 | .S PNAME= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",3) | |
49 | .S PADDR= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",4) | |
50 | .S PCITY= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",5) | |
51 | .S PSTATE =$P(^CHMZH OLD("IDME" ,"EXCPTN", "ZIP",CTR) ,"^",6) | |
52 | .S PZIP=$ P(^CHMZHOL D("IDME"," EXCPTN","Z IP",CTR)," ^",7) | |
53 | .S PWAGE= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",8) | |
54 | .S PIDME= $P(^CHMZHO LD("IDME", "EXCPTN"," ZIP",CTR), "^",9) | |
55 | .D EPRNT | |
56 | Q | |
57 | EPRNT ;PRI NT OUT EXC EPTION REP ORT | |
58 | W !,TIN,T AB,MEDNUM, TAB,PNAME, TAB,PADDR, TAB,PCITY, TAB,PSTATE ,TAB,PZIP, TAB,PWAGE, TAB,PIDME | |
59 | D CLRVAR | |
60 | Q | |
61 | CLSE ;CLOS E FILES AN D DELETE V ARIABLES | |
62 | C IO | |
63 | K TAB | |
64 | Q | |
65 | HDR ;SET P AGE HEADER | |
66 | S TIN="Ex ception Re port of Pr oviders No t Found in Vendor Fi le" D EPRN T | |
67 | S Y=DT D DD^%DT | |
68 | S TIN="Ru n Date: "_ Y D EPRNT | |
69 | D EPRNT | |
70 | S TIN="Ba se 9 TIN" | |
71 | S MEDNUM= "Medicare Number" | |
72 | S PNAME=" Provider N ame" | |
73 | S PADDR=" Provider S treet Addr ess" | |
74 | S PCITY=" Provider C ity" | |
75 | S PSTATE= "Provider State" | |
76 | S PZIP="P rovider Zi p Code" | |
77 | S PWAGE=" Wage Index " | |
78 | S PIDME=" IDME Facto r" | |
79 | D EPRNT | |
80 | Q | |
81 | CLRVAR ;RE SET VARIAB LES | |
82 | S TIN="" | |
83 | S MEDNUM= "" | |
84 | S PNAME=" " | |
85 | S PADDR=" " | |
86 | S PCITY=" " | |
87 | S PSTATE= "" | |
88 | S PZIP="" | |
89 | S PWAGE=" " | |
90 | S PIDME=" " | |
91 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.