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 | CHMLAI3A.m | Mon Nov 5 16:42:00 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI3A.m | Mon Nov 5 17:49:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 110 |
Changed | 1 | 2 |
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 | CHMLAI3A ; JEH/DEN;*A LTERNATIVE * Load AI test into CPT;08/12/ 08 11:26 AM | |
2 | ;V 1.0 | |
3 | ;***COPY OF CHMLAI3 *** USE WHEN FILE IS FROM PM PAY WITH "^" IN IT | |
4 | ; | |
5 | START ; | |
6 | S $ZE="", $ZT="END", CNT=0 | |
7 | ;SET ENVI RONMENT | |
8 | S AYGSYS= XQVOL | |
9 | S AYGSYS= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
10 | S ENVIR=A YGSYS | |
11 | S DIR("B" )=ENVIR | |
12 | S DIR(0)= "SO^1:LIVE ;2:TRAIN;3 :TEST;4:DE V" | |
13 | S DIR("L" ,1)="Selec t one of t he followi ng environ ments" | |
14 | S DIR("L" ,2)="" | |
15 | S DIR("L" ,3)=" 1 LIVE" | |
16 | S DIR("L" ,4)=" 2 TRAIN" | |
17 | S DIR("L" ,5)=" 3 TEST" | |
18 | S DIR("L" ,6)=" 4 DEV" | |
19 | S DIR("L" ,7)="" | |
20 | S DIR("L" )=" ^ QUIT" | |
21 | D ^DIR K DIR | |
22 | Q:$D(DUOU T) | |
23 | Q:Y="" | |
24 | Q:Y="^"!( Y="") | |
25 | S ENVIR=Y (0) | |
26 | S $ZE="", $ZT="END" | |
27 | ;SET CPT FILE NAME | |
28 | S DIR(0)= "F^3:50" | |
29 | S DIR("A" )="Enter C PT file na me" D ^DIR K DIR | |
30 | Q:$D(DUOU T) | |
31 | Q:Y="^"!( Y="") | |
32 | S CNAME=Y K DIR | |
33 | S FILE="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME ; NAME OF CPT FILE | |
34 | O FILE:"R ":5 | |
35 | U FILE | |
36 | K ^CHMZHO LD("CHMLAI 3") | |
37 | AILD ;LOAD ING AI TES TS | |
38 | F R REC D | |
39 | .S CNT=CN T+1 | |
40 | .;S CODE= $P(REC,"^" ,1),TEST=" TEST #"_$P (REC,"^",7 ) | |
41 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",7 ) | |
42 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
43 | .D AIUPDT ;JEH 2/ 8/08 | |
44 | .;S CODE= $P(REC,"^" ,1),TEST=" TEST #"_$P (REC,"^",8 ) | |
45 | .S CODE=$ P(REC,"^", 1),TEST=$P (REC,"^",8 ) | |
46 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
47 | .D AIUPDT ;JEH 2/ 8/08 | |
48 | END S CNT= CNT+1 C FI LE | |
49 | S ^CHMZHO LD("CHMLAI 3",0)=CNT | |
50 | Q | |
51 | AIUPDT ;UP DATES THE AI GBLS ; JEH 1/7/08 ADD SUBRT N | |
52 | S:DUZ="" DUZ=1 | |
53 | S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ) | |
54 | S:ERR]"" ^CHMZHOLD( "CHMLAI3", ERR)="" | |
55 | Q | |
56 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.