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 | CHMLADA2.m | Mon Nov 5 16:43:24 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLADA2.m | Mon Nov 5 17:49:52 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 76 |
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 | CHMLADA2 ; MCR/DEN;CO NVERT ADA UPDATE TO FILEMAN;1/ 22/13 3:55 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;V1.0 | |
4 | ;CLONE OF CHMLHCP3 | |
5 | ;MTN02003 7 DEV01655 4 DPT, COD E UPDATE, REPLACE DE CNET WITH FTP, CHNG EOF | |
6 | ;MTN DPT REMOV E ENVIRONM ENT EDITS FY2018 MAN UALLY M0VE FILE TO C ACHE | |
7 | K ^UTILI TY("ADA") | |
8 | S DIR(0) ="D" S DIR ("A")="Ent er Effecti ve Date(fi leman form at)" D ^DI R K DIR | |
9 | Q:$D(DIRU T)!($D(DUO UT)) | |
10 | S EFFDATE =Y ; EFFECTIVE DATE | |
11 | S DA=999 9999-EFFDA TE ;SETTING D A YYYMMDD | |
12 | S UPDTYR= "2012" ;SETTING NEW YEAR | |
13 | ;SET ADA FILE NAME | |
14 | S DIR(0)= "F^3:50" | |
15 | S DIR("A" )="Enter A DA file na me (08anwe b.txt)" D ^DIR K DIR | |
16 | Q:$D(DUOU T) | |
17 | Q:Y="^"!( Y="") | |
18 | S CHFNM=Y K DIR | |
19 | ;SET ENVI RONMENT | |
20 | ;S AYGSYS =XQVOL | |
21 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
22 | ;S ENVIR= AYGSYS | |
23 | ;S FILE=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ADAUPDT."_ ENVIR_"]"_ CHFNM | |
24 | ; N FOLDE R,CNTR | |
25 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
26 | ;S FILE=C HFNM,FOLDE R="" ;DEV0 16554 DPT | |
27 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
28 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
29 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
30 | ;I UCI="H AC" S UCI= "LIVE" | |
31 | ;S FILE=F OLDER_FILE | |
32 | ;S FLDR=" /FS3BIG/CO DEUPDT/ADA UPDT/"_UCI | |
33 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
34 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CH FNM ;MTN D PT | |
35 | S POP=0,C NTR=0 | |
36 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D | |
37 | . S POP= $$OPENFIRD ^CHTFLIB9( .FILE,"FIL E") | |
38 | .Q | |
39 | I 'POP G END | |
40 | ;Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.