Produced by Araxis Merge on 11/9/2018 12:33:47 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 | CHICDML.m | Mon Nov 5 16:43:23 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHICDML.m | Mon Nov 5 17:41:16 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 260 |
Changed | 2 | 4 |
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 | CHICDML ;M J/HARRIS;I CD-10 DIFF Mapping T ool file | |
2 | ;; V1.0;Jan 2 012;HARRIS TEAM | |
3 | ; | |
4 | ; | |
5 | ;S TP="CM ",RG="R",Y EAR=2011 K ^GLAZ("MC M") G GO | |
6 | ; | |
7 | ;R !,"Cle ar (Y/N): Y// ",CLR I CLR'="N" ,CLR'="n" D ERASE | |
8 | I '$D(DUZ ) S DUZ=1, DUZ(0)="@" | |
9 | S RG="",Y R="",ICDTY PE="" | |
10 | ; both 9 and 10 out of Glaz d irectory | |
11 | ;K IN S I N=0,IN("DI R")="CHAMP VA_USER:[ DNS GLAZAY]" | |
12 | ;S IN( "FILES")=" 20*.TXT,RE IMB*.TXT" | |
13 | ; Reimbur sement onl y from FS3 BIG. It i s now fixe d | |
14 | K IN S IN ="R" | |
15 | S RFILE=$ $MENU^CHIC DOL(.IN,.S EL) | |
16 | I SEL("CO DETYPE")'= "P",SEL("C ODETYPE")' ="C" R !," (C)M or (P )CS: ",SEL ("CODETYPE ") | |
17 | I RFILE[" GEM" S RG= "G" | |
18 | I RFILE[" REIMB" S R G="R" | |
19 | S TP=SEL( "CODETYPE" ) S:TP="C" TP="CM" S :TP="P" TP ="PCS" | |
20 | I RG="" R !,"(R)eim bursement or (G)em: ",RG | |
21 | S YEAR=20 _+$P(RFILE ,"20",2) | |
22 | I YEAR'?1 "20"2N R ! ,"Year: ", YEAR | |
23 | I $G(SEL( "ICDTYPE") ) S ICDTYP E=SEL("ICD TYPE") | |
24 | E I RFIL E["10_9" S ICDTYPE=1 0 | |
25 | E I RFIL E["9_10" S ICDTYPE=9 | |
26 | I ICDTYPE ="" R !,"I CD(10) or ICD(9): ", ICDTYPE | |
27 | GO O RFILE :"R" | |
28 | ;U 0 W !, "Opened fi le ",RFILE | |
29 | ;S SUB="M "_TP,GL="^ GLAZ" S:$G (@GL@(SUB) )="" @GL@( SUB)=0 | |
30 | ;S $ZT="C MSER^CHICD ML" | |
31 | S A=$ZUTI L(68,40,1) | |
32 | U 0 W !," Loading",! ,! S REP=$ ZH | |
33 | F COUNT=0 :1 D Q:$Z EOF=-1 | |
34 | . U RFILE R RST I $ ZEOF=-1 Q | |
35 | . S RST=$ TR(RST,$C( 10,13)) | |
36 | . U 0 | |
37 | . I $ZH-R EP>3 U 0 W COUNT," " S REP=$ZH | |
38 | . K ICD9 | |
39 | . I ICDTY PE=10 S CO DE=$$STS($ E(RST,1,8) ),CODE=$ZU (28,CODE,5 ) | |
40 | . I ICDTY PE=9 S COD E=$$STS($E (RST,1,6)) ,CODE=$ZU( 28,CODE,5) | |
41 | . I TP="P CS",ICDTYP E=9,$L(COD E)>2 S COD E=$E(CODE, 1,2)_"."_$ E(CODE,3,9 9) | |
42 | . I TP="C M",$L(CODE )>3 S CODE =$E(CODE,1 ,3)_"."_$E (CODE,4,99 ) | |
43 | . I RG="G ",ICDTYPE= 10 D | |
44 | . . S FLA GS=$$STS($ E(RST,15,1 9)) | |
45 | . . S ICD 9($$STS($Z U(28,$E(RS T,9,14),5) ))=FLAGS | |
46 | . I RG="G ",ICDTYPE= 9 D | |
47 | . . S FLA GS=$$STS($ E(RST,15,1 9)) | |
48 | . . S ICD 9($$STS($Z U(28,$E(RS T,7,14),5) ))=FLAGS | |
49 | . I RG="R ",ICDTYPE= 10 D | |
50 | . . S C1= $E(RST,9) | |
51 | . . K ICD 9 | |
52 | . . F J=1 :1:C1 S IC D9($$STS($ ZU(28,$E(R ST,J*6+5,J *6+10),5)) )="" | |
53 | . ; store data | |
54 | . ; add/l ookup entr y for icd1 0 code | |
55 | . K DA,DI C,DIE,DR | |
56 | . I ICDTY PE=10 S DI C="^CHIVM( 741033.7," ,DIC(0)="B LVX",DLAYG O=741033.7 | |
57 | . I ICDTY PE=9 S DIC ="^CHMDIC( 741033.5," ,DIC(0)="B LVX",DLAYG O=741033.5 | |
58 | . S DIC(" S")="I $P( ^(0),""^"" ,2)=TP" | |
59 | . S X=COD E D ^DIC | |
60 | . I Y=-1 Q | |
61 | . ;W !,2 | |
62 | . S IEN=+ Y,GLAZIEN( IEN)=1 | |
63 | . K DIC,D R | |
64 | . I ICDTY PE=10 S DI E="^CHIVM( 741033.7," ,DA=IEN | |
65 | . I ICDTY PE=9 S DIE ="^CHMDIC( 741033.5," ,DA=IEN | |
66 | . S DR="2 ///"_TP | |
67 | . D ^DIE | |
68 | . ;W !,3 | |
69 | . ; add I CD9s | |
70 | . ;W !,CO DE,! ZW IC D9 W ! | |
71 | . S IGX=" " | |
72 | . F S IG X=$O(ICD9( IGX)) Q:IG X="" D | |
73 | . . ; add "new" ICD 9 multiple under ICD 10 | |
74 | . . K DIC ,DA,DIE,DR | |
75 | . . I ICD TYPE=10 S DIC="^CHIV M(741033.7 ,"_IEN_",3 ,",DIC(0)= "BLVX",DLA YGO=741033 .73 | |
76 | . . I ICD TYPE=9 S D IC="^CHMDI C(741033.5 ,"_IEN_",3 ,",DIC(0)= "BLVX",DLA YGO=741033 .53 | |
77 | . . S DA( 1)=IEN,X=I GX D ^DIC | |
78 | . . ;W !, 4 | |
79 | . . S IEN 1=+Y I IEN 1=-1 S GLA Z=1/0 Q | |
80 | . . ; add "new" YEA R entry un der ICD9 | |
81 | . . K DIC ,DA,DIE,DR | |
82 | . . I ICD TYPE=10 S DIC="^CHIV M(741033.7 ,"_IEN_",3 ,"_IEN1_", 1,",DIC(0) ="BLVX",DL AYGO=74103 3.731 | |
83 | . . I ICD TYPE=9 S D IC="^CHMDI C(741033.5 ,"_IEN_",3 ,"_IEN1_", 1,",DIC(0) ="BLVX",DL AYGO=74103 3.531 | |
84 | . . S DA( 2)=IEN,DA( 1)=IEN1 | |
85 | . . S X=Y EAR D ^DIC | |
86 | . . ;W !, 5 | |
87 | . . S IEN 2=+Y I IEN 2=-1 S GLA Z=1/0 Q | |
88 | . . ; add data to Y EAR multip le | |
89 | . . K DIC ,DA,DIE,DR | |
90 | . . I ICD TYPE=10 S DIE="^CHIV M(741033.7 ,"_IEN_",3 ,"_IEN1_", 1," K DR,D A | |
91 | . . I ICD TYPE=9 S D IE="^CHMDI C(741033.5 ,"_IEN_",3 ,"_IEN1_", 1," K DR,D A | |
92 | . . S DA( 2)=IEN,DA( 1)=IEN1,DA =IEN2 | |
93 | . . S DR= $S(RG="R": 2,1:3)_"// /1" I RG=" G" S DR=DR _";4///"_I CD9(IGX) | |
94 | . . ;I IE N=15 D | |
95 | . . ;. ZW | |
96 | . . ;. ZW ^CHIVM(74 1033.7,15) W !,"Ente ring DIE" | |
97 | . . D ^DI E | |
98 | . . ;W !, 6 | |
99 | . . ;I IE N=15 D | |
100 | . . ;. ZW ^CHIVM(74 1033.7,15) W !,"Done with DIE" | |
101 | . . ;. R *GLAZ | |
102 | . ;W 1/0 | |
103 | Q | |
104 | CMSER ; | |
105 | U 0 | |
106 | I $ZE'["E NDOFFILE" W !,$ZE | |
107 | E W !,$G (COUNT)," records lo aded into ",GL,"(""" ,SUB,""")" | |
108 | C RFILE | |
109 | ZQ | |
110 | STS(A) ; | |
111 | N I | |
112 | F I=$L(A) :-1:1 Q:$E (A,I)'=" " | |
113 | Q $E(A,1, I) | |
114 | ; obsolet e | |
115 | GFILE() ; | |
116 | R !,"CM o r PCS: ",T P | |
117 | R !,"(R)e imbursemen t or (G)em mapping: ",RG | |
118 | R !,"Year : ",YEAR S :YEAR<20 Y EAR=20_YEA R | |
119 | S RFILE=" CHAMPVA_US ER:[ DNS GLAZAY]CM_ 10_9_"_$S( RG="R":"R" ,1:"GEM")_ "_"_YEAR_" .TXT;1" | |
120 | Q RFILE | |
121 | XX ; | |
122 | S DIC=741 033.5,DIC( 0)="BLVX", DLAYGO=DIC | |
123 | R !,X D ^ DIC | |
124 | Q | |
125 | ERASE10 ; | |
126 | S ^CHIVM( 741033.7,0 )="ICD-10 REIMBURSEM ENT MAPPIN G^741033.7 ^0^0" | |
127 | S A=0 F S A=$O(^CH IVM(741033 .7,A)) Q:A ="" K ^CH IVM(741033 .7,A) | |
128 | Q | |
129 | ERASE9 ; | |
130 | S ^CHMDIC (741033.5, 0)="ICD9 R EIMBURSEME NT MAPPING ^741033.5^ 0^0" | |
131 | S A=0 F S A=$O(^CH MDIC(74103 3.5,A)) Q: A="" K ^C HMDIC(7410 33.5,A) | |
132 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.