Produced by Araxis Merge on 11/9/2018 12:34:01 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 | CHMLAI1.m | Mon Nov 5 16:41:59 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI1.m | Mon Nov 5 17:49:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 148 |
Changed | 1 | 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 | CHMLAI1 ;M CR/DEN;Loa d AI test into ICD9 PX PROCEDU RES;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 | |
5 | ;JEH 1/4/ 08 ENC0001 18: P&C ad d codes fo r payment | |
6 | ;DEV01655 4 DEV01289 3 DPT EOF REPLACE DE CNET | |
7 | D ENVIR | |
8 | ;S $ZE="" ,$ZT="END" | |
9 | S CNT=0 | |
10 | D FTPFILE^ CHTFLIB9(F ILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
11 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ICD9UPDT." _ENVIR_"]" _CNAME ; NAME OF ICD-9 PX F ILE ; ICD-9PXE ffOct106.t xt | |
12 | S POP=0,C NTR=0 ;DEV 012893 DPT | |
13 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DE V012893 DP T | |
14 | . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") ;DEV0 12893 DPT | |
15 | .Q ;DEV0 12893 DPT | |
16 | I 'POP G END ;DEV01 2893 DPT | |
17 | ;O FILE:" R":5 | |
18 | K ^CHMZHO LD("CHMLAI 1") | |
19 | F U FILE R REC G:$ $STATUS^%Z ISH END D ;DEV016554 DPT | |
20 | .Q:$P(REC ,"^",1)="D " ;QUIT IF DIAG CO DE | |
21 | .S CNT=CN T+1 | |
22 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",3 ) | |
23 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
24 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV ;<--- SE T FOR CVA | |
25 | .D AIUPDT ^CHMLAI1 ;JEH 1/7/ 08 ADD SUB ROUTINE CA LL | |
26 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",4 ) | |
27 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
28 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ;<--- SE T FOR SB | |
29 | .D AIUPDT ^CHMLAI1 ;JEH 1/7/ 08 ADD SUB ROUTINE CA LL | |
30 | END S CNT= CNT+1 | |
31 | ;C FILE | |
32 | D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
33 | S ^CHMZHO LD("CHMLAI 1",0)=CNT | |
34 | K FILE,CN AME,ENVIR | |
35 | Q | |
36 | ENVIR ; | |
37 | ;S AYGSYS =XQVOL | |
38 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
39 | ;S ENVIR= AYGSYS | |
40 | ;S DIR("B ")=ENVIR | |
41 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
42 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
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(DUO UT) | |
52 | ;Q:Y="" | |
53 | ;Q:Y="^"! (Y="") | |
54 | ;S ENVIR= Y(0) | |
55 | ;S $ZE="" ,$ZT="END" | |
56 | ;SET ICD- 9 PX FILE NAME | |
57 | ;W ! | |
58 | S DIR(0)= "F^3:50" | |
59 | S DIR("A" )="Enter I CD-9 PX fi le name" D ^DIR K DI R | |
60 | Q:$D(DUOU T) | |
61 | Q:Y="^"!( Y="") | |
62 | S CNAME=Y K DIR | |
63 | N FOLDER, CNTR | |
64 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
65 | S FILE=CN AME,FOLDER ="" ;DEV01 6554 DPT | |
66 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT | |
67 | S FOLDER= "HAC_HFS$: [SCR.TEMP_ FILES]" ;D EV016554 D PT | |
68 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" ;DEV016 554 DPT | |
69 | S FILE=FO LDER_FILE | |
70 | S FLDR="/ FS3BIG/COD EUPDT/ICD9 UPDT/"_UCI | |
71 | Q | |
72 | AIUPDT ;UP DATES THE AI GBLS ;JEH 1/7/0 8 ADD NEW SUBRTN | |
73 | S ERR=$$^ CHMLAI1L(C HPGPT,CODE ,TEST) | |
74 | S:ERR]"" ^CHMZHOLD( "CHMLAI1", ERR)="" | |
75 | Q | |
76 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.