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 | CHMLICD22.m | Mon Nov 5 16:43:18 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLICD22.m | Mon Nov 5 17:50:19 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 210 |
Changed | 3 | 6 |
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 | CHMLICD22 ;JEH/DEN;I CD-9 CODES TAPE READ IN;10/10/ 06 2:52 P M | |
2 | ;V1.0 | |
3 | ;*** COPY OF ^CHMLI CD2 *** MO DIFIED TO PROCESS P& C's FILE | |
4 | ; RUN ^CHMLICD3 3 AFTER RU NNING THIS ROUTINE | |
5 | ; | |
6 | ;*** DO N OT USE FOR YEARLY MA SS UPDATE - USE ONLY FOR P&C E XCEL UPDAT E *** | |
7 | ; | |
8 | W @IOF,!, "CHAMPVA C ENTER - RE AD P&C's F ILE OF ICD -9 CODES" | |
9 | A01 ;D F3 | |
10 | D SETENV | |
11 | Q:$D(DUOU T) | |
12 | Q:Y="^"!( Y="") | |
13 | Q:PCUPDT= 0 ; QUIT IF NOT A P&C UPDATE | |
14 | W !!,"REA DING IN IC D-9 DX FIL E........" | |
15 | O IODX:"R ":5 S $ZE= "",$ZT="B0 1^CHMLICD2 2" | |
16 | S I=0 | |
17 | A1 ; | |
18 | U IODX R X | |
19 | S I=I+1 | |
20 | S CTYPE=" D" | |
21 | S CODE="" S CODE=$P (X,"^",1) ; ICD-9 CODE | |
22 | S DESC="" S DESC=$P (X,"^",2) ; DESCRI PTION OF C ODE | |
23 | S CHAI="" S CHAI=$P (X,"^",3) ; CHAMPV A AI TEST | |
24 | S SBAI="" S SBAI=$P (X,"^",4) ; SPINA BIFIDA AI TEST | |
25 | S REC="" S REC=CTYP E_"^"_CODE _"^"_DESC_ "^"_EFFDT_ "^"_CHAI_" ^"_SBAI | |
26 | I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I)) ^CHMZHOLD( "ICD-9",I) =REC | |
27 | G A1 | |
28 | B01 ; | |
29 | C IODX | |
30 | W !,"READ ING IN ICD -9 PX FILE ........" | |
31 | O IOPX:"R ":5 S $ZE= "",$ZT="MO RE^CHMLICD 22" | |
32 | B1 ; | |
33 | U IOPX R X | |
34 | S I=I+1 | |
35 | S CTYPE=" O" | |
36 | S CODE="" S CODE=$P (X,"^",1) ; ICD-9 CODE | |
37 | S DESC="" S DESC=$P (X,"^",2) ; DESCRI PTION OF C ODE | |
38 | S CHAI="" S CHAI=$P (X,"^",3) ; CHAMPV A AI TEST | |
39 | S SBAI="" S SBAI=$P (X,"^",4) ; SPINA BIFIDA AI TEST | |
40 | S REC="" S REC=CTYP E_"^"_CODE _"^"_DESC_ "^"_EFFDT_ "^"_CHAI_" ^"_SBAI | |
41 | I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I)) ^CHMZHOLD( "ICD-9",I) =REC | |
42 | G B1 | |
43 | MORE ; | |
44 | C IOPX | |
45 | S ^CHMZHO LD("ICD-9" ,0)=I_"^"_ EFFDT | |
46 | U 0 W *7, *7,*7,!!," Tape Is Fi nished!" | |
47 | END ; | |
48 | W !!,"End of ^CHMLI CD22" | |
49 | W !!,"*** RUN ^CHML ICD33 NEXT ***",! | |
50 | K IODX,IO PX,CTYPE,I ,PCUPDT,EN VIR,CNAME, EFFDT,CODE ,DESC,CHAI ,SBAI,REC | |
51 | Q | |
52 | F3 ; | |
53 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT.L IVE]CDTA04 10.DAT" | |
54 | W !!,"Ope ning: ",IO ,!! | |
55 | Q | |
56 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
57 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
58 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
59 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
60 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
61 | Q | |
62 | SETENV ;SE T ENVIRONM ENT/DEFAUL TS | |
63 | ;CHECK FO R MASS/P&C UPDATE | |
64 | K PCUPDT ;P&C UPDA TE FLAG | |
65 | S DIR(0)= "Y",DIR("A ")="Is thi s a P&C up date",DIR( "B")="YES" D ^DIR K DIR | |
66 | Q:$D(DUOU T) | |
67 | Q:Y="^"!( Y="") | |
68 | S PCUPDT= Y | |
69 | Q:PCUPDT= 0 | |
70 | ; | |
71 | S AYGSYS= XQVOL | |
72 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
73 | S ENVIR=A YGSYS | |
74 | S DIR("B" )=ENVIR | |
75 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
76 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
77 | S DIR("L" ,2)="" | |
78 | S DIR("L" ,3)=" 1 LIVE" | |
79 | S DIR("L" ,4)=" 2 TRAIN" | |
80 | S DIR("L" ,5)=" 3 TEST" | |
81 | S DIR("L" ,6)=" 4 DEV" | |
82 | S DIR("L" ,7)="" | |
83 | S DIR("L" )=" ^ QUIT" | |
84 | D ^DIR K DIR | |
85 | Q:$D(DUOU T) | |
86 | Q:Y="" | |
87 | Q:Y="^"!( Y="") | |
88 | S ENVIR=Y (0) | |
89 | S $ZE="", $ZT="END" | |
90 | ;SET ICD- 9 DX FILE NAME | |
91 | W ! | |
92 | S DIR(0)= "F^3:50" | |
93 | S DIR("A" )="Enter I CD-9 DX fi le name" D ^DIR K DI R | |
94 | Q:$D(DUOU T) | |
95 | Q:Y="^"!( Y="") | |
96 | S CNAME=Y K DIR | |
97 | S IODX="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME ; NAME OF ICD-9 DX F ILE ; ICD-9DXE ffOct106.t xt | |
98 | ;SET ICD- 9 PX FILE NAME | |
99 | S DIR(0)= "F^3:50" | |
100 | S DIR("A" )="Enter I CD-9 PX fi le name" D ^DIR K DI R | |
101 | Q:$D(DUOU T) | |
102 | Q:Y="^"!( Y="") | |
103 | S CNAME=Y K DIR | |
104 | S IOPX="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME ; NAME OF ICD-9 PX F ILE ; ICD-9PXE ffOct106.t xt | |
105 | W ! S %DT ("A")="Ent er effecti ve date: ",%DT="AEX " | |
106 | D ^%DT K %DT S EFFD T=Y | |
107 | Q | |
108 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.