Produced by Araxis Merge on 11/9/2018 12:33:49 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 | CHIVFI.m | Mon Nov 5 16:43:54 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHIVFI.m | Mon Nov 5 17:41:38 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 634 |
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 | CHIVFI ;lg /HARRIS;IC D-10 VENDO R FILE ING EST | |
2 | ;;V1.0;Ja n 2012;HAR RIS TEAM | |
3 | ;;V2.0;Ma y 2013;HAR RIS TEAM | |
4 | ;;09/29/1 5 SBB DEF0 16554 fix for decnet | |
5 | ;; | |
6 | ;; This r outine rep laces the logic foun d in the H AC CHMLICD 2 routine | |
7 | ;; CHMLIC D2 ;JLR/DE N;ICD-9 CO DES TAPE R EAD IN;09/ 30/98 2:5 2 PM | |
8 | ;; and al so replace s the logi c in routi nes - CHML ICD3, CHML ICD4, and CHMLICD5 | |
9 | ;; CHMLIC D3 ;MCR/DE N;ICD-9 UP DATE CODES TO FILEMA N FORMAT;1 0/13/92 3 :28 PM | |
10 | ;; CHMLIC D4 ;MCR/DE N;UPDATE I CD-9 SERVI CE FILE;10 /15/98 4: 21 PM | |
11 | ;; CHMLIC D5 ;MCR/DE N;UPDATE I CD-9 DX FI LE;10/01/9 8 8:27 AM | |
12 | ;; | |
13 | ;;Impleme nting nece ssary chan ges for CR 7 (SUBDIVI DED codes) ICD-10 RC S -lg 4/30 /13 | |
14 | ;;comment ed out cal l to load vendor fil e -lg 5/8/ 13 | |
15 | ;;added p rompt for compliance date -lg 5/8/13 | |
16 | ;;working on load a utomation -lg 5/8/13 | |
17 | ;;Bug #30 - GETIEN fix for du plicate DX codes bet ween versi on 9 & 10 -lg 8/29/1 4 | |
18 | ;; | |
19 | Q | |
20 | ; | |
21 | EN ; code set load a uto-instal L | |
22 | ; | |
23 | N DATA,DU Z,ER,IO,IO F,LG,LN,LN X,MMODE,ST OP,U,X,Y,Y Y | |
24 | ; | |
25 | S $ZE="", $ZT="EOF^C HIVFI" ; n ecessary e rror trapp ing logic for proces s to compl ete | |
26 | S U="^",D UZ=1,DUZ(0 )="@" ; se t FileMan user varia bles | |
27 | W #!!!,"Y ou are abo ut to run THE HAC IC D-10 CODE SET LOAD i n automati c mode.",! !,"Is this okay" S % =2 D YN^DI CN I %'=1 Q | |
28 | S U="^",D UZ=1,DUZ(0 )="@" ; *** FOR TESTING * ** -lg | |
29 | I '$D(IOF ) S IOF="# ,$C(27,91, 50,74,27,9 1,72)" ; if the pagefeed v ariable is undefined , define i t -lg | |
30 | S STOP=0, $P(LN,"_", 80)="" ; process ing STOP f lag, line characters | |
31 | S DATA("D ATE")=$P($ $FMDT^CHIU TIL(),".") ; today's date | |
32 | ; set eff ective yea r - effect ive and te rmination dates alwa ys 10/01 a nd 09/30 r espectivel y | |
33 | ; if mont h is Jul ( 7) thru De c (12), ef fective an d terminat ion dates are this y ear, other wise previ ous year | |
34 | S DATA("Y R")=$E(DAT A("DATE"), 1,3)-(($E( DATA("DATE "),4,5))'> 6) ; effec tive year | |
35 | S DATA("E FFDATE")=D ATA("YR")_ "1001" ; effecti ve date always Oct 1st | |
36 | S DATA("T ERMDATE")= DATA("YR") _"0930" ; termina tion date always Sep 30th | |
37 | F W !!," The ICD-10 'Complian ce Date' w ill be set to: ",$$F MTE^DILIBF (DATA("EFF DATE"),"1U ") D Q:OK AY=1 | |
38 | .W !,"Is this date correct" S %=1 D YN^ DICN S OKA Y=% Q:OKAY =1 D ; | |
39 | ..W !!,"W ould you l ike to cha nge the 'C ompliance Date'" S % =2 D YN^DI CN | |
40 | ..I %=1 D Q:Y'>0 S DATA("EF FDATE")=Y, X1=Y,X2=-1 D C^%DTC S DATA("TE RMDATE")=X | |
41 | ...S %DT= "AEX",%DT( "A")="NEW ICD-10 Com pliance Da te: ",%DT( "B")=$$FMT E^DILIBF(D ATA("EFFDA TE"),"1U") ; DILIBF call from ^DD("DD") | |
42 | ...W ! D ^%DT | |
43 | ...Q | |
44 | ..Q | |
45 | .Q | |
46 | K OKAY S LNX=0 | |
47 | S LG("H") =$P($T(LTX T+LNX),";; ",2) | |
48 | CONT ; the process c omes here after each file load to contin ue process ing next f ile | |
49 | I STOP Q | |
50 | S LNX=$I( LNX) | |
51 | S LG("L") =$T(LTXT+L NX),LG("W" )=$P(LG("L "),";;",2) | |
52 | I LG("W") ="" D FIN ISH Q ; i f all file s have bee n processe d run the conversion s then qui t, done. | |
53 | S IO=LG(" H")_LG("W" ) | |
54 | S DATA("F ILE")=$P(L G("W"),"]" ,2) | |
55 | S DATA("R T")=$S($P( LG("L"),"; ;",3)="C": "D",1:"P") | |
56 | S DATA("L DTYP")=$P( LG("L"),"; ;",4) | |
57 | W @IOF,!, " THE HAC CHAMPVA I CD-10 LOAD PROCESS", !,$E(LN,1, 39),! ; wr ite load p rocess hea der | |
58 | ; | |
59 | ;OPEN ; OPEN data file | |
60 | ; | |
61 | W !!," S tarting... " ; messag e to indic ate ingest process i s starting | |
62 | O IO:"R": 10 ; open load file with a 10 second tim eout | |
63 | ; if unab le to open the file notify the user and set the 'S TOP' flag to stop al l further processing | |
64 | I '$T D S STOP=1 Q | |
65 | . W !!,"U nable to o pen "_DATA ("FILE"),! !,"Please make sure the file n ame is cor rect.",!! | |
66 | I STOP Q | |
67 | ; | |
68 | ;LOAD ; LOAD data file | |
69 | ; | |
70 | S DATA("S TTM")=$$NO W^CHIUTIL( ) ; start time | |
71 | S (DATA(" DXCNT"),DA TA("PCSCNT "))=0 ; Diagnos is and Pro cedure rec ord counte rs | |
72 | S MMODE=( DATA("LDTY P")'="B") ; MMODE = mapping f ile mode i f file typ e not = (B )ase | |
73 | I MMODE W !!," ... *Processi ng Mapping Tool Upda te* ..." | |
74 | W !!," P rocessing "_$S('MMOD E:"vendor ",1:"")_"d ata file.. .",?39,": ",DATA("FI LE"),!!?20 ,"Processi ng Started : ",DATA( "STTM") | |
75 | W !!," . .. Please be patient ",!," ... wait for processing to comple te" | |
76 | I MMODE W !!," ... Parsing t he mapping tool file " | |
77 | I 'MMODE W !!," .. . Parsing the vendor data file " | |
78 | W !!," . .. Startin g FileMan file load ... " | |
79 | S DATA("F MTM")=$$NO W^CHIUTIL( ) ; FileMa n load sta rt time | |
80 | W !!?18,"Fil eMan Load Started : ",DATA("FM TM"),! | |
81 | S DATA("M OD")=$S(MM ODE:"PARSE M",1:"PARS E") | |
82 | U IO F YY=1: 1 R X Q:X= "" U 0 D @DATA("MOD ") U IO I (YY#2500)= 0 U 0 W ". " U IO | |
83 | Q | |
84 | ; | |
85 | FINISH ; r un post-in stall conv ersions th en end wit h congratu latory sta tement | |
86 | W !!,"Now running t he MCCR co nversion.. ." | |
87 | D MCCR^CH ICDMC | |
88 | W !!,"Now running t he EOB con version... " | |
89 | D EOB^CHI CDMC | |
90 | W !!,"Now running t he NPPS co nversion.. ." | |
91 | D NPPS^CH ICDMC | |
92 | W !!,"Now running t he NPPSDX conversion ..." | |
93 | D NPPSDX^ CHICDMC | |
94 | D ^CHICDP RE | |
95 | W !!,$E(L N,1,78) | |
96 | W !!," CO NGRATULATI ONS! THE H AC CHAMPVA ICD-10 LO AD PROCESS COMPLETED SUCCESSFU LLY!" | |
97 | W !,$E(LN ,1,78) | |
98 | W !!,"Now starting THE HAC CH AMPVA ICD- 10 AUTO-MA INTENANCE LOAD PROCE SS" H 5 | |
99 | D AUTO^CH IVFI2(DATA ("EFFDATE" )) | |
100 | Q | |
101 | ; | |
102 | EN1 ; cont inue proce ssing -lg | |
103 | ; when th e '<END OF FILE>' er ror occurs during th e data fil e load, pr ocessing c omes to, a nd continu es here | |
104 | ; after b eing trapp ed @EOF su broutine. If an erro r other th an 'end of file' occ urs the er ror will b e posted | |
105 | ; to the screen and processin g will com e to a sto p and retu rn the use r to the m enu option . | |
106 | ; call to parse dat a for inst allation t o Diagnosi s file (#7 41006.05) and Servic es file (# 741006) | |
107 | ; Modules called: | |
108 | ; PARSE = module i n this rou tine calle d to proce ss (B)ase type data files for baseline a nd mainten ance code set load | |
109 | ; PARSEM = module i n this rou tine calle d to proce ss (M)appi ng type da ta files | |
110 | ; | |
111 | I 'STOP D ; print process st atistics i f processi ng complet e | |
112 | . S DATA( "CTM")=$$N OW^CHIUTIL () | |
113 | . W !," The "_$S(D ATA("LDTYP ")="B":"ve ndor file" ,1:"mappin g file")_" load is C omplete!", ?38," : ", DATA("CTM" ) | |
114 | . W !!,$E (LN,1,39), ! | |
115 | . ; put l oad statis tics here ** | |
116 | . W !," Pr ocessing S tarted : " ,DATA("STT M") | |
117 | . W !," File Man Load S tarted : " ,DATA("FMT M") | |
118 | . W !," Proc essing Com pleted : " ,DATA("CTM ") | |
119 | . W !!," Total IC D Diagnosi s Codes : ",$J(DATA( "DXCNT"),7 ) | |
120 | . W !," Total ICD Procedure Codes : " ,$J(DATA(" PCSCNT"),7 ) | |
121 | . W !," Total Codes : " ,$J(DATA(" DXCNT")+DA TA("PCSCNT "),7) | |
122 | . I 'MMOD E,$G(DATA( "D")) D K DATA("D") | |
123 | . . W !," Tota l D Status Records : ",$J(DATA ("D"),7) | |
124 | . . W !," Subtota l Added to File(s) : ",$J((DAT A("DXCNT") +DATA("PCS CNT"))-DAT A("D"),7) | |
125 | . . Q | |
126 | . Q | |
127 | W !!,$E(L N,1,39) G CONT | |
128 | Q | |
129 | ; | |
130 | EOF ; come here on e nd of file error; OR ANY OTHER error -lg | |
131 | S ER=$ZE | |
132 | C:IO["FS3 BIG" IO U 0 | |
133 | I ER["<EN DOFFILE>" D G EN1 ; continue on with l oad @EN1 | |
134 | . W !!," ... End o f File rea ched ..." | |
135 | . Q | |
136 | I ER'="" W !!," *** A System error has occurred! ***",!!?4, ER,!! | |
137 | W $E(LN,1 ,39),! | |
138 | R !!," Press <Ent er> to con tinue ",*X | |
139 | Q | |
140 | ; | |
141 | PARSE ; pa rse data f rom data f ile to tem porary glo bal for in stallation in FileMa n files | |
142 | ; using O PTUM Recor d Layout | |
143 | S DATA(1. 01)=$E(X,1 ,8) ;ICD10_Co de;1-8;8 \741033. 01|.01|ICD CODE|0;1| | |
144 | S DATA(1. 16)=$S($E( X,9)="I":1 ,1:"") ;Validity ;9;1 \741033. 01|1.16|SU BDIVIDED F LAG|0;16| | |
145 | S DATA(1) =$E(X,10,3 4) ;Short_De scription; 10-44;35 \741033. 01|1|SHORT DESCRIPTI ON|1;1| | |
146 | S DATA(2) =$E(X,45,9 2) ;Long_Des cription;4 5-92;48 \741033. 01|2|LONG DESCRIPTIO N|2;1| | |
147 | S DATA(3) =$E(X,93,2 092) ;Full_Des cription;9 3-2092;200 0 \741033. 01|3|FULL DESCRIPTIO N|3;1| | |
148 | S DATA(1. 02)=$E(X,2 093) ;Status;2 093;1 \741033. 01|1.02|ST ATUS|0;2| | |
149 | S DATA(1. 03)=$S($E( X,2094)=1: "D",1:"O") ;Code_Typ e;2094;1 \741033. 01|1.03|RE CORD TYPE| 0;3| | |
150 | S @$S(DAT A(1.03)="D ":"DATA("" DXCNT"")=D ATA(""DXCN T"")+1",1: "DATA(""PC SCNT"")=DA TA(""PCSCN T"")+1") ; count cod e types fo r stats | |
151 | N I,L S I =0 D ; re move space s from end of fields | |
152 | . F S I= $O(DATA(I) ) Q:I="" D:$E(DATA( I),$L(DATA (I)))=" " ; if last character is a spac e, strip s paces | |
153 | . . F L=$ L(DATA(I)) :-1:0 I $E (DATA(I),L )'=" "!('L ) S DATA(I )=$E(DATA( I),1,L) Q | |
154 | . . Q | |
155 | . Q | |
156 | S STATUS= DATA(1.02) ; STATUS = N:NEW C :CHANGED D :DELETED R :REINSTATE D U:UNOFFI CIAL CHANG E | |
157 | I STATUS= "D" Q | |
158 | ; update file #7410 06.05 (CHA MPVA ICD D IAGNOSIS) or #741006 (CHAMPVA SERVICES) depending on record type | |
159 | N X,Y D @ $S(DATA(1. 03)="D":"D XI",1:"PCS I") | |
160 | Q | |
161 | ; | |
162 | DXI ; make FileMan c all to pop ulate CHAM PVA ICD DI AGNOSIS fi le (#74100 6.05) | |
163 | N DA,DR ; new DA,D R to get p ertinent D A,DR for D IAGNOSIS e ntries wit hout affec ting data for Vendor Data file #741033 | |
164 | S DIE="^C HMICDX(",D IC=DIE,DX( "DA2")=$P( @(DIC_"0)" ),U,4) | |
165 | I '$D(DX( "DA")) F S DA=$P(@( DIC_"0)"), U,3)+1 I ' $D(@(DIC_D A_",0)")) S DX("DA") =DA,$P(@(D IC_"0)"),U ,3)=DA Q | |
166 | E F S D X("DA")=DX ("DA")+1 I '$D(@(DIC _DX("DA")_ ",0)")) S DA=DX("DA" ),$P(@(DIC _"0)"),U,3 )=DA Q | |
167 | S $P(@(DIC_" 0)"),U,4)= (DX("DA2") +1) | |
168 | DXIC ; mid -entry poi nt to make changes t o existing DX codes | |
169 | D DX,FM(D IE,.DR) | |
170 | Q | |
171 | ; | |
172 | PCSI ; mak e FileMan call to po pulate CHA MPVA SERVI CES file ( #741006) | |
173 | N DA,DR ; new DA,D R to get p ertinent D A,DR for S ERVICES en tries with out affect ing data f or Vendor Data file #741033 | |
174 | S DIE="^C HMSERV(",D IC=DIE,PCS ("DA2")=$P (@(DIC_"0) "),U,4) | |
175 | I '$D(PCS ("DA")) F S DA=$P(@ (DIC_"0)") ,U,3)+1 I '$D(@(DIC_ DA_",0)")) S PCS("DA ")=DA,$P(@ (DIC_"0)") ,U,3)=DA Q | |
176 | E F S P CS("DA")=P CS("DA")+1 I '$D(@(D IC_PCS("DA ")_",0)")) S DA=PCS( "DA"),$P(@ (DIC_"0)") ,U,3)=DA Q | |
177 | S $P(@(DI C_"0)"),U, 4)=(PCS("D A2")+1) | |
178 | PCSIC ; mi d-entry po int to mak e changes to existin g PCS code s | |
179 | D PCS,FM( DIE,.DR) | |
180 | N DINUM,S UB | |
181 | S (DINUM, SUB)=(9999 999-DATA(" EFFDATE")) ; DI NUM to set uncoventi onal 'END DATE' mult iple struc ture | |
182 | D PCS2,FM (DIE,.DR) | |
183 | S $P(^CHM SERV(DA(1) ,1,SUB,0), U)="" ; se t uncovent ional 'END DATE' mul tiple .01 field equa l to "" | |
184 | K ^CHMSER V(DA(1),1, "B",DATA(" EFFDATE"), SUB) ; no w kill the B-xref on the uncov entional s etting of the 'END D ATE' .01 f ield | |
185 | Q | |
186 | ; DINUM=(999 9999-DATA( ""EFFDATE" ")) to set ^CHMSERV( DA(1),1,DI NUM,30)="L ong Descri ption 48 c haracters" | |
187 | ; | |
188 | FM(DIE,DR) ; FileMan call to p opulate da tabase fil e(s) | |
189 | ; DIE = in global format ex: ^CHIVF( | |
190 | ; DR = in DR form at ex: DR= ".01///^S X=VAR1;.02 ///^S X=VA R2" | |
191 | ; | |
192 | S DIC=DIE ,DIC(0)="L " D ^DIE | |
193 | Q | |
194 | ; | |
195 | DX ; DR va riable use d to set C HAMPVA ICD DIAGNOSIS file #741 006.05 zer o node fie lds | |
196 | ; | |
197 | ; SET Fil eMan DR va riable (fi eld edit s tring) | |
198 | S DATA("C AT")=$L($T R(DATA(1.0 1),".")),D ATA("CAT") =$S(DATA(" CAT")=3:1, DATA("CAT" )=4:2,DATA ("CAT")=5: 3,1:4) ;de fine categ ory field# 3 ;ICD-10 RCS Bug 36 | |
199 | S DR=".01 ///^S X=DA TA(2);1/// ^S X=DATA( 1.01);2/// ^S X=DATA( 1.03);3/// ^S X=DATA( ""CAT"");1 5///^S X=D ATA(1.16); 24///^S X= 1" | |
200 | S DR=DR_" ;22///^S X =DATA(""EF FDATE"")" | |
201 | Q | |
202 | ; | |
203 | DXM ; DR v ariable & array used to set AI tests in Program In dicator mu ltiple fie ld #102 | |
204 | ; | |
205 | S DR="102 ////^S X=D ATA(.01)" ; this is the Progra m Indicato r multiple that hold s AI test informatio n for vari ous progra ms (from m apping dat a) | |
206 | S DR(2,74 1006.05102 )=".01//// ^S X=DATA( .01);.02// //^S X=DAT A(.02);.03 ////^S X=D ATA(.03);. 04////^S X =DATA(.04) " | |
207 | Q | |
208 | ; | |
209 | PCS ; ^DD map for CH AMPVA SERV ICES file #741006 an d subfiles | |
210 | S DR=".01 ///^S X=DA TA(1.01);. 05///^S X= ""ICD-10"" ;.09///^S X=DATA(1.1 6)" ; adde d subdivid ed flag (. 09) 7/3/12 -lg | |
211 | Q | |
212 | ; | |
213 | PCS2 ; usi ng DINUM v ia FileMan to set th e END DATE multiple field (#1) then sett ing .01 fi eld (END D ATE) NULL in module PCSI | |
214 | S DR="1// /^S X=DATA (""EFFDATE "")" | |
215 | ; added s ubdivided flag (.1) to next li ne to popu late 'End Date' mult iple 4/30/ 13 -lg | |
216 | S DR(2,74 1006.01)=" .01///^S X =DATA(""EF FDATE"");. 09///^S X= DATA(""EFF DATE"");.1 ///^S X=DA TA(1.16);3 0.01///^S X=DATA(2)" | |
217 | Q | |
218 | ; | |
219 | PCSM ; DR variable & array use d to set A I tests in Program I ndicator m ultiple fi eld #102 | |
220 | ; for upd ating PCS codes with AI tests | |
221 | S DR="102 ////^S X=D ATA(.01)" ; this is the Progra m Indicato r multiple that hold s AI test informatio n for vari ous progra ms (from m apping dat a) | |
222 | S DR(2,74 1006.0102) =".01////^ S X=DATA(. 01);.02/// /^S X=DATA (.02);.03/ ///^S X=DA TA(.03);.0 4////^S X= DATA(.04)" | |
223 | Q | |
224 | ; | |
225 | /* | |
226 | ;OPTUM Re cord Layou t & corres ponding \f ile|field| name|node; position|l ocalvariab le and set logic use d to PARSE -lg 01/30 /2012 | |
227 | ;ICD10_Co de;1-8;8 \741033. 01|1.01|IC D CODE|0;1 |S DATA(1. 01)=$E(X,1 ,8) | |
228 | ;Validity ;9;1 \741033. 01|1.16|SU BDIVIDED F LAG|0;16|S DATA(1.16 )=$S($E(X, 9)="I":1,1 :"") | |
229 | ; *** C = Complete; indicates code is a t its grea test degre e of speci ficity I = Incomplet e; indicat es code re quires add itional in formation | |
230 | ;Short_De scription; 10-44;35 \741033. 01|1|SHORT DESCRIPTI ON|1;1|S D ATA(1)=$E( X,10,34) | |
231 | ;Long_Des cription;4 5-92;48 \741033. 01|2|LONG DESCRIPTIO N|2;1|S DA TA(2)=$E(X ,45,92) | |
232 | ;Full_Des cription;9 3-2092;200 0 \741033. 01|3|FULL DESCRIPTIO N|3;1|S DA TA(3)=$E(X ,93,2092) | |
233 | ;Status;2 093;1 \741033. 01|1.02|ST ATUS|0;2|S DATA(1.02 )=$E(X,209 3) | |
234 | ;Code_Typ e;2094;1 \741033. 01|1.03|RE CORD TYPE| 0;3|S DATA (1.03)=$S( $E(X,2094) =1:"D",1:" O") | |
235 | ; *** DD SET OF COD ES CHANGE 1:CM,3:PCS *** -lg s ee documen tation | |
236 | ; | |
237 | ;OPTUM Ch ange Recor d Layout - lg | |
238 | ;ICD10_Co de;1-8;8\ | |
239 | ;Change_T ype;9;1\ | |
240 | ;Original _Start;10- 19;10\ | |
241 | ;Version_ End;20-29; 10\ | |
242 | ;Revised_ Start;30-3 9;10\ | |
243 | ;Date_Ter minated;40 -49;10 | |
244 | ;Status_I ndicator;5 0-89;40\ | |
245 | ;Old_Desc ;90-2089;2 000\ | |
246 | ;New_Desc ;2090-4089 ;2000\ | |
247 | ;Release_ Date;4090- 4099;10\ | |
248 | ;Code_Typ e;4100;1\ | |
249 | */ | |
250 | ; | |
251 | PARSEM ; p arse AI ma pping data for add t o DX and P CS file | |
252 | ; | |
253 | I YY<2 Q ; First l ine of map ping tool file is he aders, cod es start o n second l ine | |
254 | ; *** nex t line nec essary at this point to format mapping t ool files *** Glaz d eveloped f unction ca ll -lg 3/8 /12 | |
255 | S X=$S(DA TA("RT")=" D":$$MTFIX CM^CHICDOL (X),1:$$MT FIXPCS^CHI CDOL(X)) ; *** func tion to re align spre adsheet co lums *** - lg 3/8/12 | |
256 | ; | |
257 | S DATA("C ODE")=$TR( $P(X,U),"x ","X") ; I CD code | |
258 | S DATA("C VA")=+$P(X ,U,5) ; C hampVA AI test value - CV A is ien # 1 in file #741002.94 | |
259 | S (DATA(" SB"),DATA( "CWVV"))=+ $P(X,U,6) ; Spina Bifida & C WVV AI tes t value - SB is ien #6 in fil e #741002. 94 CWVV ie n #7 | |
260 | ; next tw o lines ar e to chang e CVA and SB and CWV V value fr om externa l to inter nal IEN fo rmat | |
261 | S DATA("C VA")=$O(^D IC(741100, "B","TEST #"_DATA("C VA"),"")) | |
262 | S (DATA(" SB"),DATA( "CWVV"))=$ O(^DIC(741 100,"B","T EST #"_DAT A("SB"),"" )) | |
263 | S DATA("D UZ")=$P(X, U,12) ; D UZ of user approving AI test m apping | |
264 | S DATA("D T")=$P(X,U ,13) ; d ate user a pproved AI test mapp ing | |
265 | ; | |
266 | S IEN=+$$ GETIEN(DAT A("CODE"), DATA("RT") ) ; module to match the code i n the mapp ing file w ith the IE N in the l ive file | |
267 | I 'IEN Q | |
268 | ; count c ode types for stats | |
269 | S @$S(DAT A("RT")="D ":"DATA("" DXCNT"")=D ATA(""DXCN T"")+1",1: "DATA(""PC SCNT"")=DA TA(""PCSCN T"")+1") | |
270 | D MFI ; populate a ppropriate file | |
271 | Q | |
272 | ; | |
273 | MFI ; mapp ing file i ngest File Man call t o populate AI test P rogram Ind icator mul tiple | |
274 | N DA,DR,I ,X,Y ; new DA,DR to get pertin ent DA,DR for DIAGNO SIS entrie s without affecting data for V endor Data file #741 033 | |
275 | S DA=IEN, DIE=$S(DAT A("RT")="D ":"^CHMICD X(",1:"^CH MSERV(") | |
276 | F I="CVA" ,"SB","CWV V" S DATA( .01)=$S(I= "CVA":1,I= "SB":6,1:7 ),DATA(.02 )=DATA(I), DATA(.03)= DATA("DUZ" ),DATA(.04 )=DATA("DT ") D ; | |
277 | . D @$S(D ATA("RT")= "D":"DXM", 1:"PCSM"), FM(DIE,.DR ) | |
278 | . Q | |
279 | Q | |
280 | ; | |
281 | GETIEN(COD E,TYPE) ; function t o return l ive file r ecord IEN based on I CD code in mapping f ile | |
282 | N IEN | |
283 | I TYPE="D " D Q IEN ; ICD-10 RCS fix f or duplica te DX code s between version 9 & 10 -lg | |
284 | . S IEN=0 F S IEN= $O(^CHMICD X("C",CODE ,IEN)) I $ S(IEN:$P($ G(^CHMICDX (IEN,0)),U ,24),1:'IE N) Q | |
285 | . Q | |
286 | S IEN=$O( ^CHMSERV(" B",CODE,0) ) Q IEN | |
287 | ; | |
288 | ;NEW | |
289 | ;09/29/15 SBB DEF01 6554 fix f or decnet | |
290 | LTXT ;;HAC _HFS$:[SCR .TEMP_FILE S. | |
291 | ;;FS3BIG. CODEUPDT.I CD10UPDT.D EV]INGENIX _ICD10CM_B ASE_201201 01_2.TXT;; C;;B | |
292 | ;;FS3BIG. CODEUPDT.I CD10UPDT.D EV]INGENIX _ICD10PCS_ BASE_20120 101_2.TXT; ;P;;B | |
293 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_A0 0_THRU_R99 _07172012. csv;;C;;M | |
294 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_S0 000_THRU_S 909365_070 72012.csv; ;C;;M | |
295 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10CM_S9 1_thru_END _07172012. csv;;C;;M | |
296 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_0 D20X0Z_THR U_0RGX4220 7172012.cs v;;P;;M | |
297 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_0 RH003Z_THR U_END_0717 2012.csv;; P;;M | |
298 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] ICD10PCS_1 6070_THRU_ 0D1N3J4_07 172012.csv ;;P;;M | |
299 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] DISC_REPT_ CM_APPROVE D.CSV;;C;; M | |
300 | ;;FS3BIG. CODEUPDT.I CD10MAPPIN GTOOL.0717 12REPORTS] DISC_REPT_ PCS_APPROV ED.CSV;;P; ;M | |
301 | ;; | |
302 | ;; The En d | |
303 | ; | |
304 | ;;;;;;;;; ;;;;;;;;;; ;;;;;;; | |
305 | ;OLD | |
306 | ;LTXT ;; HACFS3" DNS decnet HAC dec741!":: D: | |
307 | ;;[FS3BIG .CODEUPDT. ICD10UPDT. DEV]INGENI X_ICD10CM_ BASE_20120 101_2.TXT; ;C;;B | |
308 | ;;[FS3BIG .CODEUPDT. ICD10UPDT. DEV]INGENI X_ICD10PCS _BASE_2012 0101_2.TXT ;;P;;B | |
309 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_A 00_THRU_R9 9_07172012 .csv;;C;;M | |
310 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_S 0000_THRU_ S909365_07 072012.csv ;;C;;M | |
311 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10CM_S 91_thru_EN D_07172012 .csv;;C;;M | |
312 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 0D20X0Z_TH RU_0RGX422 07172012.c sv;;P;;M | |
313 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 0RH003Z_TH RU_END_071 72012.csv; ;P;;M | |
314 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]ICD10PCS_ 16070_THRU _0D1N3J4_0 7172012.cs v;;P;;M | |
315 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]DISC_REPT _CM_APPROV ED.CSV;;C; ;M | |
316 | ;;[FS3BIG .CODEUPDT. ICD10MAPPI NGTOOL.071 712REPORTS ]DISC_REPT _PCS_APPRO VED.CSV;;P ;;M | |
317 | ;; | |
318 | ;; The En d |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.