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 | CHMLAMB3.m | Mon Nov 5 16:43:29 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAMB3.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 | CHMLAMB3 ; CVA/CR;ASC PAYMENT R ATES LOAD; 10/05/98 4:55 PM | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990;Build 2 | |
3 | ;V1.0 | |
4 | ;DEF DEF0 09248-03 D PT 4/08/20 10 ADD TER MINATION D ATE,DUZ, U PDATE date TO GLOBAL increased subscript in NEW | |
5 | ;DEV01324 5 9/7/11 D PT CORRECT DATE | |
6 | ;MTN01985 3 dpt amt field chan ged for 4 to 5 | |
7 | ;DEV01655 4 EOF,REMV DECNET DP T 1/8/13 | |
8 | ;MTN02939 99 DPT 10/ 17/17 2018 UPDATE 30 more grou p rates ad ded | |
9 | ; DPT 4/16/18 R EMOVE REFE RENCE TO E NVIRONMENT RELOAD 20 18 UPDATE | |
10 | ;INC19277 49 DPT 8/2 1/18 2 NEW GROUPS DE LIMITED LA YOUT | |
11 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
12 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
13 | 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 | |
14 | ZNAM ; | |
15 | W !,"ASC PAYMENT RA TES LOAD", !! | |
16 | S RT="" ;D PT 4/08/10 DEF009248 -03 | |
17 | R "Enter Begin date YYYYMMDD : ",CHBEGD T:DTIME ;DPT 4 /08/10 DEF 009248-03 | |
18 | S DIR(0)= "D" | |
19 | S CHBEGDT =$$YR8FMYR ^CHTFLIB(C HBEGDT) ; DPT DEV013 245 9/7/11 | |
20 | G END:CHB EGDT="^" | |
21 | ;S CHBEGD T=$E(DT,1, 3)_11_"01" ;<--- COMMENT OU T FOR MID YR UPDT | |
22 | ;S CHBEGD T=$E(DT,1, 3)_"04"_"0 1" ;<- -- CHGD FO R MID YR U PDT | |
23 | W !!,"Use date: ",C HBEGDT," " "Y"" OR "" N"" // " R X:DTIME G ZNAM:X=" ^" G ZNAM: X'="Y" ;D PT 4/08/10 DEF009248 -03 | |
24 | S CHENDDT ="" | |
25 | R !,"Ente r end date YYYYMMDD // ",CHEND DT:DTIME ;DPT 4 /08/10 DEF 009248-03 | |
26 | S DIR(0)= "D" | |
27 | I CHENDDT ="" S CHEN DDT=" " G ZNAM2 ;DPT 4/08/ 10 DEF0092 48-03 | |
28 | S CHENDDT =$$YR8FMYR ^CHTFLIB(C HENDDT) ;DPT DEV0 13245 9/7/ 11 | |
29 | W !!,"Use date: ",C HENDDT," " "Y"" OR "" N"" // " ;DPT 4/08/10 D EF009248-0 3 | |
30 | R X:DTIME G END:X=" ^" G ZNAM: X'="Y" ;DPT 4/08/ 10 DEF0092 48-03 | |
31 | I CHENDDT <CHBEGDT G ZNAM W ! ,"begin an d term dat es incompa tible" ;DPT 4/0 8/10 DEF00 9248-03 | |
32 | ZNAM2 ;DPT 4/08/10 D EF009248-0 3 NEW TAG NAME | |
33 | ;SET ENVI RONMENT | |
34 | ;S ENVIR= "" ;INC192 7749 DPT | |
35 | ;S AYGSYS =XQVOL ; SETTING E NVIRONMENT ;INC19277 49 DPT | |
36 | S RUNDT=" " S RUNDT= DT | |
37 | ;S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") ;INC19 27749 DPT | |
38 | ;S $ZE="" ,$ZT="END" | |
39 | ;SET ASC PAYMENT GR OUP RATES BY MSA FIL E NAME | |
40 | S DIR(0)= "F^3:50" | |
41 | S DIR("A" )="Enter A SC payment group rat es by MSA file name (ASCMSART. F07)" D ^D IR K DIR | |
42 | Q:$D(DUOU T) | |
43 | Q:Y="^"!( Y="") | |
44 | S CNAME=Y K DIR | |
45 | N FOLDER, CNTR ;DEV0 16554 DPT | |
46 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
47 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
48 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
49 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
50 | ;I UCI'=" HAC" | |
51 | S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" ;DEV016554 DPT | |
52 | ;S FILE=F OLDER_FILE ;DPT DEV0 16554 | |
53 | S FILE=FO LDER_CNAME ;DPT DEV0 16554 | |
54 | ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_UCI _"" | |
55 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
56 | S POP=0,C NTR=0 ;DPT DEV016554 | |
57 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 016554 DPT | |
58 | . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;D EV016554 D PT | |
59 | .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT | |
60 | .Q ;DEV0 16554 DPT | |
61 | I 'POP G END ;DEV01 6554 DPT | |
62 | ||
63 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME | |
64 | ;O IO:"R" :5 C IO O IO:"R":5 | |
65 | A1 U IO R X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT | |
66 | S CHMSA=$ E(X,1,4) ; S A=5,B=10 | |
67 | F I=1:1: 43 S CHAMT (I)=$P(X," ^",I+1) ;S A=A+6,B=B +6 ;INC19 27744 DPT | |
68 | ;F I=1:1: 41 S CHAMT (I)=$TR($E (X,A,B)," ",0) S A=A +6,B=B+6 ;MTN029399 9 DPT | |
69 | ;F I=1:1: 40 S CHAMT (I)=$TR($E (X,A,B)," ",0) S A=A +6,B=B+6 ;MTN029399 9 DPT | |
70 | ;S CHAMT( 1)=$E(X,5, 9),CHAMT(2 )=$E(X,10, 14) ;MTN01 9853 dpt | |
71 | ;S CHAMT( 3)=$E(X,15 ,19),CHAMT (4)=$E(X,2 0,24) ;MTN 019853 dpt | |
72 | ;S CHAMT( 5)=$E(X,25 ,29),CHAMT (6)=$E(X,3 0,34) ;MTN 019853 dpt | |
73 | ;S CHAMT( 7)=$E(X,35 ,39),CHAMT (8)=$E(X,4 0,44) ;MTN 019853 dpt | |
74 | ;S CHAMT( 9)=$E(X,45 ,49),CHAMT (10)=$E(X, 50,54) ;MT N019853 dp t | |
75 | ;S CHAMT( 11)=$E(X,5 5,59) ;MTN019 853 dpt ;DPT 4/08/ 10 DEF0092 48-03 | |
76 | I '$D(^CH MART("B",C HMSA)) D N EW G A1 | |
77 | S DA=$O(^ CHMART("B" ,CHMSA,0)) G A1:'DA | |
78 | S ^CHMART (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HENDDT_"^" _DUZ_"^"_D T ; DPT 4/08/1 0 DEF00924 8-03 | |
79 | F I=1:1 :43 S ^CHM ART(DA,1,C HBEGDT,100 ,I,0)=CHAM T(I) ;INC 1927749 DP T | |
80 | ;F I=1:1 :41 S ^CHM ART(DA,1,C HBEGDT,100 ,I,0)=CHAM T(I) ;MTN 0293999 DP T | |
81 | ;F I=1:1: 40 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I) ;MTN0 293999 DPT | |
82 | ;F I=1:1: 11 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I) | |
83 | ||
84 | G A1 | |
85 | END ; | |
86 | ||
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 te" | |
91 | K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y,CHEN DDT ;DPT 4/08/10 DE F009248-03 | |
92 | Q | |
93 | NEW S DA=$ P(^CHMART( 0),"^",3), DA=DA+1 | |
94 | S $P(^CHM ART(0),"^" ,3)=$P(^(0 ),"^",3)+1 | |
95 | S $P(^CHM ART(0),"^" ,4)=$P(^(0 ),"^",4)+1 | |
96 | S $P(^CHM ART(DA,0), "^",1)=CHM SA | |
97 | S ^CHMART ("B",CHMSA ,DA)="" | |
98 | S ^CHMART (DA,1,CHBE GDT,0)=CHB EGDT_"^"_C HENDDT_"^" _DUZ_"^"_D T ;D PT 4/08/10 DEF009248 -03 | |
99 | F I=1:1:4 1 S ^CHMAR T(DA,1,CHB EGDT,100,I ,0)=CHAMT( I) ;MTN02 93999 DPT | |
100 | ;F I=1:1: 11 S ^CHMA RT(DA,1,CH BEGDT,100, I,0)=CHAMT (I) ;DPT 4/08/ 10 DEF0092 48-03 | |
101 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.