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 | CHMLICD2.m | Mon Nov 5 16:41:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLICD2.m | Mon Nov 5 17:50:18 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 124 |
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 | CHMLICD2 ; JLR/DEN;IC D-9 CODES TAPE READ IN;09/30/9 8 2:52 PM | |
2 | ;V1.0 | |
3 | ;W @IOF,! ,"CHAMPVA CENTER - R EAD FILE O F ICD-9 CO DES" | |
4 | ;W ! S %D T("A")="En ter effect ive date: ",%DT="AE X" | |
5 | ;D ^%DT K %DT S TD= Y | |
6 | D INIT | |
7 | A01 ;D F 3 | |
8 | W @IOF,!, "READING I N ICD-9 TA PE........ ",! | |
9 | O IO:"R": 10 | |
10 | S $ZE="", $ZT="MORE^ CHMLICD2" | |
11 | S I=0 | |
12 | A1 S I=I+1 | |
13 | U IO R X | |
14 | I $L(X)'< 1 S:'$D(^C HMZHOLD("I CD-9",I)) ^CHMZHOLD( "ICD-9",I) =X | |
15 | G A1 | |
16 | MORE C IO | |
17 | S ^CHMZHO LD("ICD-9" ,0)=I_"^"_ TD | |
18 | U 0 W *7, *7,*7,!!," Tape Is Fi nished!" | |
19 | END Q | |
20 | ;F3 ;CHEC K FILENAME IN ICD9UP DT -- MODI FIED DTP A UG-01 | |
21 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT.T EST]CDTA05 10.DAT" | |
22 | ;S IO="ED I1::E:[X12 .IN]CDTA01 10.DAT" | |
23 | ;S IO="74 1D01::HAC_ HFS$:[SCR. 000000]CDT A0110.DAT" | |
24 | ;W !!,"Op enning: ", IO,!! | |
25 | ;Q | |
26 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
27 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
28 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
29 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
30 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
31 | Q | |
32 | INIT ;INIT IALIZE VAR IABLES | |
33 | W @IOF,!, "CHAMPVA C ENTER - RE AD FILE OF ICD-9 COD ES" | |
34 | W ! S %DT ("A")="Ent er effecti ve date: ",%DT="AEX " | |
35 | D ^%DT K %DT S TD=Y | |
36 | ;SET ENVI RONMENT | |
37 | S AYGSYS= XQVOL | |
38 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
39 | S ENVIR=A YGSYS | |
40 | S DIR("B" )=ENVIR | |
41 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
42 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
43 | S DIR("L" ,2)="" | |
44 | S DIR("L" ,3)=" 1 LIVE" | |
45 | S DIR("L" ,4)=" 2 TRAIN" | |
46 | S DIR("L" ,5)=" 3 TEST" | |
47 | S DIR("L" ,6)=" 4 DEV" | |
48 | S DIR("L" ,7)="" | |
49 | S DIR("L" )=" ^ QUIT" | |
50 | D ^DIR K DIR | |
51 | Q:$D(DUOU T) | |
52 | Q:Y="" | |
53 | Q:Y="^"!( Y="") | |
54 | S ENVIR=Y (0) | |
55 | S $ZE="", $ZT="END" | |
56 | ;SET ICD- 9 FILE NAM E | |
57 | S DIR(0)= "F^3:50" | |
58 | S DIR("A" )="Enter I CD-9 file name (CDTA 0810.DAT)" D ^DIR K DIR | |
59 | Q:$D(DUOU T) | |
60 | Q:Y="^"!( Y="") | |
61 | S CNAME=Y K DIR | |
62 | S IO="HAC FS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME ; NAME OF ICD-9 FILE | |
63 | Q | |
64 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.