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 | CHMLAI5.m | Mon Nov 5 16:44:35 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI5.m | Mon Nov 5 17:49:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 182 |
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 | CHMLAI5 ;M CR/DEN;Loa d AI test into ADA;0 3/08/99 1 1:26 AM | |
2 | ;V 1.0 | |
3 | ;MTN01419 0 DPT 1/25 /12 UPDATE AI TEST C ODES FOR A DA COPIED FROM CHMLA I3 | |
4 | ;MTN01993 0 DEV01655 4 DPT CODE UPDATE EO F REPLACE DECNET | |
5 | ;MTN DP T OMIT CH ECK FOR EN VIRONMENT MANUALLY M OVE FILE F ROM FS3 TO CACHE FY2 018 | |
6 | ;S FILE=" HAC_HFS$:[ DSMMANAG]2 002_CPT.DA T" | |
7 | ; S FILE= "HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT] ADA2AI.TXT " | |
8 | ; S $ZE=" ",$ZT="END ",CNT=0 | |
9 | ; O FILE: READ | |
10 | ;U FILE | |
11 | ;K ^CHMZH OLD("CHMLA I5") | |
12 | ;F R REC D | |
13 | ;.S CNT=C NT+1 | |
14 | ;.S CODE= $P(REC,"^" ,1),TEST=$ P(REC,"^", 3) | |
15 | ;.S CHPGP T=6 | |
16 | ;.S ERR=$ $^CHMLAI5L (CHPGPT,CO DE,TEST) | |
17 | ;.S:ERR]" " ^CHMZHOL D("CHMLAI5 ",ERR)="" | |
18 | ;END S CN T=CNT+1 C FILE | |
19 | ;S ^CHMZH OLD("CHMLA I5",0)=CNT | |
20 | ;Q | |
21 | START ; | |
22 | S CDCOL=1 ;CODE AI COLUMN IN PMPAY SPRE ADSHEET | |
23 | S CVCOL=7 ;CVA AI C OLUMN IN P MPAY SPREA DSHEET MT N014190 DP T 1/25/12 | |
24 | S SBCOL=8 ;SB AI CO LUMN IN PM PAY SPREAD SHEET MTN0 14190 DPT 1/25/12 | |
25 | S $ZE="", $ZT="END", CNT=0 | |
26 | ;SET ENVI RONMENT | |
27 | ; S AYGSY S=XQVOL | |
28 | ; S AYGSY S=$S(AYGSY S="ROU":"L IVE",AYGSY S="XOU":"T RAIN",AYGS YS="TOU":" TEST",AYGS YS="DOU":" DEV") | |
29 | ; S ENVIR =AYGSYS | |
30 | ; S DIR(" B")=ENVIR | |
31 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
32 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
33 | ;S DIR("L ",2)="" | |
34 | ;S DIR("L ",3)=" 1 LIVE" | |
35 | ;S DIR("L ",4)=" 2 TRAIN" | |
36 | ;S DIR("L ",5)=" 3 TEST" | |
37 | ;S DIR("L ",6)=" 4 DEV" | |
38 | ;S DIR("L ",7)="" | |
39 | ;S DIR("L ")=" ^ QUIT" | |
40 | ;D ^DIR K DIR | |
41 | ;Q:$D(DUO UT) | |
42 | ;Q:Y="" | |
43 | ;Q:Y="^"! (Y="") | |
44 | ;S ENVIR= Y(0) | |
45 | ;S $ZE="" ,$ZT="END" | |
46 | ;SET ADA FILE NAME | |
47 | S DIR(0)= "F^3:50" | |
48 | S DIR("A" )="Enter A DA file na me" D ^DIR K DIR | |
49 | Q:$D(DUOU T) | |
50 | Q:Y="^"!( Y="") | |
51 | S CNAME=Y K DIR | |
52 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ADAUPDT."_ ENVIR_"]"_ CNAME ; NAME OF ADA FILE | |
53 | ;O FILE:" R":5 | |
54 | ; N FOLDE R,CNTR | |
55 | ; S IOF=" #,*27,*91, *50,*74,*2 7,*91,*72" | |
56 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
57 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
58 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
59 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
60 | ;S FILE=F OLDER_FILE | |
61 | ;S FLDR=" /FS3BIG/CO DEUPDT/ADA UPDT/"_UCI | |
62 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
63 | ;S POP=0, CNTR=0 ;DE V016554 DP T | |
64 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;DE V016554 DP T | |
65 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
66 | ; .Q ;DEV 016554 DPT | |
67 | ;I 'POP G END ;DEV 016554 DPT | |
68 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ;MTN DPT | |
69 | O FILE:"R ":5 ;MTN DPT | |
70 | ;U FILE | |
71 | K ^CHMZHO LD("CHMLAI 5") | |
72 | AILD ;LOAD ING AI TES TS | |
73 | F U FILE R REC D | |
74 | .G:$$STAT US^%ZISH E ND ;DEV0 16554 DPT | |
75 | .S CNT=CN T+1 | |
76 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL) | |
77 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
78 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
79 | .D AIUPDT ;JEH 2/ 8/08 | |
80 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL) | |
81 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
82 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
83 | .D AIUPDT ;JEH 2/ 8/08 | |
84 | END ;S CNT =CNT+1 | |
85 | C FILE | |
86 | ;D CLOSEF ^CHTFLIB9( FILE,"FILE ") ;DEV016 554 DPT | |
87 | S ^CHMZHO LD("CHMLAI 5",0)=$G(C NT) ;DEV01 6554 DPT | |
88 | Q | |
89 | AIUPDT ;UP DATES THE AI GBLS ; JEH 1/7/08 ADD SUBRT N | |
90 | S:DUZ="" DUZ=1 | |
91 | S ERR=$$^ CHMLAI5L(C HPGPT,CODE ,TEST,DUZ) | |
92 | S:ERR]"" ^CHMZHOLD( "CHMLAI5", ERR)="" | |
93 | Q | |
94 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.