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 | CHMLAI3.m | Mon Nov 5 16:43:14 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAI3.m | Mon Nov 5 17:49:54 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 166 |
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 | CHMLAI3 ;M CR/DEN;Loa d AI test into CPT;0 3/08/99 1 1:26 AM | |
2 | ;V 1.0 | |
3 | ;JEH 2/8/ 08 ENC0001 18: P&C ad d codes fo r payment | |
4 | ;DPT 7/15 /10 change d column t o pick up data | |
5 | ;MTN01985 3 CODE UPD ATE CHANGE | |
6 | ;DEV10655 4 DEV01289 3 EOF REPL ACE DECNET | |
7 | ;MTN02636 4 DPT AI C HANGE | |
8 | ;MTN02658 2 DPT JUL2 016 UPDATE | |
9 | ; NSD I1 8491550FY1 8 DPT add cpt 0011M . omit env ironment c heck | |
10 | ; | |
11 | START ; | |
12 | S CDCOL=1 ;CODE AI COLUMN IN PMPAY SPRE ADSHEET | |
13 | S CVCOL=6 ;CVA AI C OLUMN IN P MPAY SPREA DSHEET dp t 7/15/10 change loc ation | |
14 | S SBCOL=7 ;SB AI CO LUMN IN PM PAY SPREAD SHEET dpt 7/15/10 ch ange locat ion | |
15 | ;S $ZE="" ,$ZT="END" ,CNT=0 | |
16 | ;SET ENVI RONMENT | |
17 | ;S AYGSYS =XQVOL | |
18 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
19 | ;S ENVIR= AYGSYS | |
20 | ;S DIR("B ")=ENVIR | |
21 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
22 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
23 | ;S DIR("L ",2)="" | |
24 | ;S DIR("L ",3)=" 1 LIVE" | |
25 | ;S DIR("L ",4)=" 2 TRAIN" | |
26 | ;S DIR("L ",5)=" 3 TEST" | |
27 | ;S DIR("L ",6)=" 4 DEV" | |
28 | ;S DIR("L ",7)="" | |
29 | ;S DIR("L ")=" ^ QUIT" | |
30 | ;D ^DIR K DIR | |
31 | ;Q:$D(DUO UT) | |
32 | ;Q:Y="" | |
33 | ;Q:Y="^"! (Y="") | |
34 | ;S ENVIR= Y(0) | |
35 | ;S $ZE="" ,$ZT="END" | |
36 | ;SET CPT FILE NAME | |
37 | S DIR(0) ="F^3:50" | |
38 | S DIR("A" )="Enter C PT file na me" D ^DIR K DIR | |
39 | Q:$D(DUOU T) | |
40 | Q:Y="^"!( Y="") | |
41 | S CNAME=Y K DIR | |
42 | ;N FOLDER ,CNTR | |
43 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
44 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
45 | ;;X ^%ZOS F("UCI") S UCI=$P(Y, ",",1) ;DE V016554 DP T | |
46 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
47 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
48 | ;S FILE=F OLDER_FILE | |
49 | ;S FLDR=" /FS3BIG/CO DEUPDT/CPT 4UPDT/"_UC I | |
50 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME ; NAME OF CPT FILE | |
51 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV012893 DPT | |
52 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ; NSD I18491550 FY18 DPT | |
53 | O FILE:"R ":5 | |
54 | ;S POP=0, CNTR=0 ;DE V012893 DP T | |
55 | ;F S CNT R=CNTR+1 Q :(CNTR>5)! POP D ;D EV012893 D PT | |
56 | ; . X "D $SYSTEM.Pr ocess.SetZ EOF(1)" ; DEV016554 DPT | |
57 | ; . S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV 012893 DPT | |
58 | ; .Q ;DEV 012893 DPT | |
59 | ;I 'POP G END ;DEV0 12893 DPT | |
60 | ;H 5 ;MTN0265 82 DPT | |
61 | S CNT=0 ;MTN026582 DPT | |
62 | K ^CHMZHO LD("CHMLAI 3") | |
63 | AILD ;LOAD ING AI TES TS | |
64 | F U FI LE R REC G :$$STATUS^ %ZISH END D ;DEV016 554 DPT | |
65 | .S CNT=CN T+1 | |
66 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",CVCOL) | |
67 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
68 | .S CHPGPT =1 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
69 | .D AIUPDT ;JEH 2/ 8/08 | |
70 | .S CODE=$ P(REC,"^", CDCOL),TES T=$P(REC," ^",SBCOL) | |
71 | .I TEST'[ "TEST" S T EST="TEST #"_TEST | |
72 | .S CHPGPT =6 ; 1 = C VA, 6 = SB , 7 = CWVV ; <--- C HANGE | |
73 | .D AIUPDT ;JEH 2/ 8/08 | |
74 | END S CNT= CNT+1 | |
75 | C FILE | |
76 | D CLOSE F^CHTFLIB9 (FILE,"FIL E") ;DEV01 6554 DPT | |
77 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV 016554 DPT | |
78 | S ^CHMZHO LD("CHMLAI 3",0)=$G(C NT) ;DEV01 6554 DPT | |
79 | Q | |
80 | AIUPDT ;UP DATES THE AI GBLS ; JEH 1/7/08 ADD SUBRT N | |
81 | S:DUZ="" DUZ=1 | |
82 | S ERR=$$^ CHMLAI3L(C HPGPT,CODE ,TEST,DUZ) | |
83 | S:ERR]"" ^CHMZHOLD( "CHMLAI3", ERR)="" | |
84 | Q | |
85 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.