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 | CHMLAI4.m | Mon Nov 5 16:43:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI4.m | Mon Nov 5 17:49:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 164 |
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 | CHMLAI4 ;M CR/DEN;Loa d AI test into DX;03 /08/99 11 :26 AM | |
2 | ;V 1.0 | |
3 | ;MODIFIED TO UPDATE TESTS IN ONE RTN; J EH 10/3/04 | |
4 | ;MODIFIED TO UPDATE MULTIPLE ENVIRONMEN TS; JEH 10 /31/06 TT 000118 | |
5 | ;ENC00011 8: P&C add codes for payment | |
6 | ;JEH 1/4/ 08 ENC0001 18: P&C ad d codes fo r payment | |
7 | ;DPT DEV0 16554 DEV0 12893 CHAN GE EOF REP LACE DECNE T | |
8 | ;DPT MTN0 25452 MODI FY TO USE FOR ICD10 DX | |
9 | ;DPT INC1 824939 CHA NGE AI TO TEST#4 REM OVE EDIT F OR ENVIRON MENT | |
10 | D ENVIR | |
11 | ;S $ZE="" ,$ZT="END" | |
12 | S CNT=0 | |
13 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
14 | ;S POP=0, CNTR=0 ;DE V012893 DP T | |
15 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;D EV012893 D PT | |
16 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ;DEV016554 DPT | |
17 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV 012893 DPT | |
18 | ; .Q ;DEV 012893 DPT | |
19 | ;I 'POP G END ;DEV0 12893 DPT | |
20 | O FILE:"R ":5 | |
21 | K ^CHMZHO LD("CHMLAI 4") | |
22 | F U FILE R REC G: $$STATUS^% ZISH END D ;DEV01655 4 DPT | |
23 | .Q:$P(REC ,"^",1)="O " ;QUIT IF PROCEDU RE CODE | |
24 | .S CNT=CN T+1 | |
25 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 ) | |
26 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
27 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV ;<--- SE T FOR CVA | |
28 | .D AIUPDT ;DPT INC1 824939 | |
29 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",4 ) | |
30 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
31 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ;<--- SE T FOR SB | |
32 | .D AIUPDT | |
33 | END S CNT= CNT+1 | |
34 | ;C FILE | |
35 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
36 | X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT | |
37 | S ^CHMZHO LD("CHMLAI 4",0)=CNT | |
38 | K FILE,CN AME,ENVIR | |
39 | Q | |
40 | ENVIR ; | |
41 | ;S AYGSYS =XQVOL ;DP T INC18249 39 | |
42 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
43 | ;S ENVIR= AYGSYS DPT INC182493 9 | |
44 | ;S DIR("B ")=ENVIR D PT INC1824 939 | |
45 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" DPT IN C1824939 | |
46 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" DP T INC18249 39 | |
47 | ;S DIR("L ",2)="" DP T INC18249 39 | |
48 | ;S DIR("L ",3)=" 1 LIVE" ;D PT INC1824 939 | |
49 | ;S DIR("L ",4)=" 2 TRAIN" ; DPT INC182 4939 | |
50 | ;S DIR("L ",5)=" 3 TEST" ;D PT INC1824 939 | |
51 | ;S DIR("L ",6)=" 4 DEV" ;DP T INC18249 39 | |
52 | ;S DIR("L ",7)="" ;D PT INC1824 939 | |
53 | ;S DIR("L ")=" ^ QUIT" ;DP T INC18249 39 | |
54 | ;D ^DIR K DIR ;DPT INC1824939 | |
55 | ;Q:$D(DUO UT) ;DPT I NC1824939 | |
56 | ;Q:Y="" ; DPT INC182 4939 | |
57 | ;Q:Y="^"! (Y="") ;DP T INC18249 39 | |
58 | ;S ENVIR= Y(0) ;DPT INC1824939 | |
59 | S $ZE="", $ZT="END" | |
60 | ;SET ICD- 10 DX FILE NAME | |
61 | ;W ! | |
62 | S DIR(0)= "F^3:50" | |
63 | S DIR("A" )="Enter I CD-10 DX f ile name" D ^DIR K D IR | |
64 | ;S DIR("A ")="Enter ICD-9 DX f ile name" D ^DIR K D IR | |
65 | Q:$D(DUOU T) | |
66 | Q:Y="^"!( Y="") | |
67 | S CNAME=Y K DIR | |
68 | N FOLDER, CNTR | |
69 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
70 | S FILE=CN AME,FOLDER ="" ;DEV01 6554 DPT | |
71 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
72 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
73 | S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" ;INC182493 9 DPT | |
74 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
75 | S FILE=FO LDER_FILE | |
76 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893 DPT | |
77 | ;S FLDR=" /FS3BIG/CO DEUPDT/ICD 10UPDT/"_C HUCI ;DPT MTN025452 | |
78 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD10UPDT. "_ENVIR_"] "_CNAME ; NAME OF ICD-9 DX F ILE ; ICD-9DXE ffOct106.t xt | |
79 | Q | |
80 | AIUPDT ;UP DATES THE AI GBLS | |
81 | S ERR=$$^ CHMLAI4L(C HPGPT,CODE ,TEST) | |
82 | S:ERR]"" ^CHMZHOLD( "CHMLAI4", ERR)="" | |
83 | Q | |
84 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.