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 | CHMLAMB2.m | Mon Nov 5 16:42:55 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAMB2.m | Mon Nov 5 17:49:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 198 |
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 | CHMLAMB2 ; CVA/CR;ASC PAYMENT G ROUPS LOAD ;10/05/98 4:45 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Build 2 | |
3 | ;V1.0 | |
4 | ;DPT DEF DEF009248- 03 4/08/10 ADD TERMI NATION DAT E,DUZ, UPD ATE TO GLO BAL | |
5 | ;MTN0198 53,ASC UPD ATE DPT 1/ 8/13 | |
6 | ;MTN01989 0, CODE UP DATE DPT 1 /8/13 | |
7 | ;DEV01289 3 DEV01655 4 EOF,REMV DECNET DP T 1/8/13 | |
8 | ;MTN02939 99 DPT FY2 018 UPDATE FILE LAYO UT CHANGE | |
9 | ; DPT RE MOVE REFER ENCE TO EN VIRONMENT | |
10 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
11 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
12 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
13 | ZNAM ; | |
14 | S RUNDT=" " S RUNDT= DT | |
15 | ;SET ENVI RONMENT | |
16 | ;S ENVIR= "" | |
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 | ;SET ASC FILE NAME | |
36 | S DIR(0)= "F^3:50" | |
37 | S DIR("A" )="Enter A SC Payment Groups fi le name (A SCGRP2.F07 ) " D ^DIR K DIR | |
38 | Q:$D(DUOU T) | |
39 | Q:Y="^"!( Y="") | |
40 | S CNAME=Y K DIR | |
41 | N FOLDER, CNTR ;DEV0 16554 DPT | |
42 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
43 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
44 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
45 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
46 | ;I UCI'=" HAC" | |
47 | S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" ;DEV016554 DPT | |
48 | S FILE=FO LDER_CNAME ;DPT 4/16 /18 | |
49 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="VAH" :"LIVE",UC I="HAC":"L IVE") ;DEV 012893 DPT | |
50 | ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_CHU CI_"" ;DEV 012893 DPT | |
51 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
52 | ||
53 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME ; NAME OF ASC GRP FI LE | |
54 | S $ZE="", $ZT="END" | |
55 | ;O IO:"R" :5 | |
56 | ||
57 | S CNT=0 | |
58 | ;W "IS TH E YEAR COR RECT ("_IO _")? " R X ; JEH - THIS SE CTION COMM ENTED OUT DUE TO BEG DT IS IN F ILE | |
59 | ;I X'="Y" W !,"NOTH ING DONE" C IO Q | |
60 | ;S CHBEGD T2=$E(DT,1 ,3)_1101 | |
61 | ;W !,"IS ",CHBEGDT2 ," THE COR RECT BEGIN DATE? " | |
62 | ;R X:DTIM E Q:X'="Y" | |
63 | S POP=0,C NTR=0 ;DPT DEV016554 | |
64 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 016554 DPT | |
65 | . X "D $SYSTEM.P rocess.Set ZEOF(1)" ;DEV016554 DPT | |
66 | .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT | |
67 | .Q ;DEV0 16554 DPT | |
68 | I 'POP G END ;DEV01 6554 DPT | |
69 | ||
70 | A1 U IO R X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT | |
71 | ;S CHCPT= $P(X,"^",1 ) ;MTN0293 999 DPT | |
72 | ;S CHGRP= $P(X,"^",2 ) ;MTN0293 999 DPT | |
73 | ;s CHBEGD T=$P(X,"^" ,3),CHENDD T=$P(X,"^" ,4) ;MTN02 93999 DPT | |
74 | S CHCPT=$ E(X,1,5) | |
75 | S CHGRP=$ E(X,9,10) S CHGRP=$T R(CHGRP," ","") | |
76 | S CHBEGDT =$E(X,12,1 9),CHENDDT =$E(X,21,2 8) ;MTN029 3999 DPT | |
77 | ;S CHGRP= $E(X,6,7), CHBEGDT=$E (X,8,15),C HENDDT=$E( X,16,23) | |
78 | S CHBEGDT =$$YR8FMYR ^CHTFLIB(C HBEGDT) | |
79 | S CHENDDT =$S(CHENDD T=99999999 :"",1:$$YR 8FMYR^CHTF LIB(CHENDD T)) ;DPT 4 /08/10 DEF 009248-03 | |
80 | ;I CHBEGD T>2951200 S ^CHMZHOL D("ASC",CH CPT,CHGRP, CHBEGDT )= "",CHBEGDT =2950701 | |
81 | I '$D(^CH MAGP("B",C HCPT)) D N EW G A1 | |
82 | S DA=$O(^ CHMAGP("B" ,CHCPT,0)) G A1:'DA | |
83 | S ^CHMAGP (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HGRP_"^"_C HENDDT_"^" _DUZ_"^"_D T ;DPT 4/0 8/10 DEF00 9248-03 | |
84 | U 0 W DA, ?10,CHCPT, ?20,CHGRP, ?30,CHBEGD T,?40,CHEN DDT,?50,DU Z,?60,DT,! | |
85 | G A1 | |
86 | END ; | |
87 | ;C IO | |
88 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) ;DEV0165 54 DPT | |
89 | X "D $SY STEM.Proce ss.SetZEOF (0)" ;DEV0 16554 DPT | |
90 | W !,"Proc ess comple ted" | |
91 | K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y,CHEN DDT ;DPT 4/08/ 10 DEF0092 48-03 | |
92 | Q | |
93 | NEW S ^CHM ZHOLD("ASC ",CHCPT,CH GRP,CHBEGD T )="" ;, CHBEGDT=CH BEGDT2 | |
94 | S DA=$P(^ CHMAGP(0), "^",3),DA= DA+1 | |
95 | S $P(^CHM AGP(0),"^" ,3)=$P(^(0 ),"^",3)+1 | |
96 | S $P(^CHM AGP(0),"^" ,4)=$P(^(0 ),"^",4)+1 | |
97 | S $P(^CHM AGP(DA,0), "^",1)=CHC PT | |
98 | S ^CHMAGP ("B",CHCPT ,DA)="" | |
99 | S ^CHMAGP (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HGRP_"^"_C HENDDT_"^" _DUZ_"^"_D T ;DPT 4 /08/10 DEF 009248-03 | |
100 | S CNT=CNT +1 ; DPT 4/08/1 0 | |
101 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.