Produced by Araxis Merge on 11/9/2018 12:34:02 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 | CHMLAIUPDT.m | Mon Nov 5 16:39:05 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAIUPDT.m | Mon Nov 5 17:49:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 276 |
Changed | 4 | 8 |
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 | CHMLAIUPDT ;JEH/DEN; MASS UPDAT E SB AI TE ST TO MATC H CHV AI T EST;03/08/ 99 11:26 AM | |
2 | ;V 1.0 | |
3 | ; | |
4 | START ; | |
5 | S UPDATE= 0 | |
6 | S DIR(0)= "SO^C:CPT; H:HCPCS;P: ICPX;D:ICD X" | |
7 | S DIR("A" )="OPTION" | |
8 | D ^DIR | |
9 | Q:$D(DIRU T) | |
10 | Q:$D(DIRO UT) | |
11 | S CHOICE= Y K DIR | |
12 | D:CHOICE= "C" CPT | |
13 | D:CHOICE= "H" HCPCS | |
14 | D:CHOICE= "P" ICPX ; SERVICE FILE | |
15 | D:CHOICE= "D" ICDX ; ICD9 DX FILE | |
16 | S DIR(0)= "Y",DIR("B ")="NO",DI R("A")="CH ANGE ANOTH ER CODE" D ^DIR K DI R | |
17 | G:Y=1 STA RT | |
18 | D END | |
19 | Q | |
20 | END ; | |
21 | Q | |
22 | CPT ; SEAR CH SERVICE FILE FOR CPT CODES | |
23 | S $ZE="", $ZT="ENDC" ,CNT=0 | |
24 | ;SET CPT FILE NAME | |
25 | S DIR(0)= "F^3:50" | |
26 | S DIR("A" )="Enter C PT file na me" D ^DIR K DIR | |
27 | Q:$D(DUOU T) | |
28 | Q:Y="^"!( Y="") | |
29 | S CNAME=Y K DIR | |
30 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME ; NAME OF CPT FILE | |
31 | O FILE:"R ":5 | |
32 | U FILE | |
33 | K ^CHMZHO LD("CHMLAI 3") | |
34 | AILDC ;LOA DING AI TE STS | |
35 | F R REC D | |
36 | .S CNT=CN T+1 | |
37 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 ) | |
38 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
39 | .D AIUPDT C ;JEH 2 /8/08 | |
40 | AIUPDTC ;U PDATES THE AI GBLS | |
41 | S:DUZ="" DUZ=1 | |
42 | S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ) | |
43 | S:ERR]"" ^CHMZHOLD( "CHMLAI3", ERR)="" | |
44 | Q | |
45 | ENDC ; | |
46 | C FILE | |
47 | S ^CHMZHO LD("CHMLAI 3",0)=CNT | |
48 | W !!,"Num ber of CPT Codes upd ated: ",CN T,!! | |
49 | K FILE,CN T,CODE,CHP GPT,TEST | |
50 | Q | |
51 | ; | |
52 | HCPCS ; SE ARCH SERVI CE FILE FO R HCPCS CO DES | |
53 | S $ZE="", $ZT="ENDH" ,CNT=0 | |
54 | ;SET CPT FILE NAME | |
55 | S DIR(0)= "F^3:50" | |
56 | S DIR("A" )="Enter H CPCS file name" D ^D IR K DIR | |
57 | Q:$D(DUOU T) | |
58 | Q:Y="^"!( Y="") | |
59 | S CNAME=Y K DIR | |
60 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME ; NAME OF CPT FILE | |
61 | O FILE:"R ":5 | |
62 | U FILE | |
63 | K ^CHMZHO LD("CHMLAI 2") | |
64 | AILDH ;LOA DING AI TE STS | |
65 | F R REC D | |
66 | .S CNT=CN T+1 | |
67 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 ) | |
68 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
69 | .D AIUPDT H ;JEH 2 /8/08 | |
70 | AIUPDTH ;U PDATES THE AI GBLS | |
71 | S:DUZ="" DUZ=1 | |
72 | S ERR=$$^ CHMLAI2L(C HPGPT,CODE ,TEST,DUZ) | |
73 | S:ERR]"" ^CHMZHOLD( "CHMLAI2", ERR)="" | |
74 | Q | |
75 | ENDH ; | |
76 | C FILE | |
77 | S ^CHMZHO LD("CHMLAI 2",0)=CNT | |
78 | W !!,"Num ber of HCP CS Codes u pdated: ", CNT,!! | |
79 | K FILE,CN T,CODE,CHP GPT,TEST | |
80 | Q | |
81 | ; | |
82 | ICPX ; SEA RCH SERVIC E FILE FOR ICD-9 PX CODES | |
83 | S $ZE="", $ZT="ENDP" ,CNT=0 | |
84 | ;SET FILE NAME | |
85 | S DIR(0)= "F^3:50" | |
86 | S DIR("A" )="Enter I CD-9 PX fi le name" D ^DIR K DI R | |
87 | Q:$D(DUOU T) | |
88 | Q:Y="^"!( Y="") | |
89 | S CNAME=Y K DIR | |
90 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME ; NAME OF CPT FILE | |
91 | O FILE:"R ":5 | |
92 | U FILE | |
93 | K ^CHMZHO LD("CHMLAI 1") | |
94 | AILDP ;LOA DING AI TE STS | |
95 | F R REC D | |
96 | .S CNT=CN T+1 | |
97 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",2 ) | |
98 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
99 | .D AIUPDT P ;JEH 2 /8/08 | |
100 | AIUPDTP ;U PDATES THE AI GBLS | |
101 | S:DUZ="" DUZ=1 | |
102 | S ERR=$$^ CHMLAI1L(C HPGPT,CODE ,TEST) | |
103 | S:ERR]"" ^CHMZHOLD( "CHMLAI1", ERR)="" | |
104 | Q | |
105 | ENDP ; | |
106 | C FILE | |
107 | S ^CHMZHO LD("CHMLAI 1",0)=CNT | |
108 | W !!,"Num ber of ICD -9 PX Code s updated: ",CNT,!! | |
109 | K FILE,CN T,CODE,CHP GPT,TEST | |
110 | Q | |
111 | ; | |
112 | ICDX ;SEAR CH ICDX GL OBAL - ICD 9 DX FILE | |
113 | S $ZE="", $ZT="ENDD" ,CNT=0 | |
114 | ;SET NAME | |
115 | S DIR(0)= "F^3:50" | |
116 | S DIR("A" )="Enter I CD-9 DX fi le name" D ^DIR K DI R | |
117 | Q:$D(DUOU T) | |
118 | Q:Y="^"!( Y="") | |
119 | S CNAME=Y K DIR | |
120 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. SB_AI_TEST _ASSGN.UPD ATE_2008_1 2_10]"_CNA ME ; NAME OF CPT FILE | |
121 | O FILE:"R ":5 | |
122 | U FILE | |
123 | K ^CHMZHO LD("CHMLAI 4") | |
124 | AILDD ;LOA DING AI TE STS | |
125 | F R REC D | |
126 | .S CNT=CN T+1 | |
127 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 ) | |
128 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
129 | .D AIUPDT D ;JEH 2 /8/08 | |
130 | AIUPDTD ;U PDATES THE AI GBLS | |
131 | S:DUZ="" DUZ=1 | |
132 | S ERR=$$^ CHMLAI4L(C HPGPT,CODE ,TEST) | |
133 | S:ERR]"" ^CHMZHOLD( "CHMLAI4", ERR)="" | |
134 | Q | |
135 | ENDD ; | |
136 | C FILE | |
137 | S ^CHMZHO LD("CHMLAI 4",0)=CNT | |
138 | W !!,"Num ber of ICD -9 DX Code s updated: ",CNT,!! | |
139 | K FILE,CN T,CODE,CHP GPT,TEST | |
140 | Q | |
141 | ; | |
142 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.