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 | CHMLAMB1.m | Mon Nov 5 16:42:19 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLAMB1.m | Mon Nov 5 17:49:56 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 152 |
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 | CHMLAMB1 ; CVA/CR;ZIP TO MSA CR OSSWALK;10 /05/98 4: 45 PM | |
2 | ;V1.0 | |
3 | ;MTN01985 3,ASC UPDA TE DPT 1/8 /13 | |
4 | ;DEV01655 4 DEV01289 3 EOF,REMV DECNET DP T 1/8/13 | |
5 | ; DPT REMOVE REF ERENCE TO ENVIRONMEN T | |
6 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
7 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
8 | 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 | |
9 | ZNAM ; | |
10 | W !,"ZIP TO MSA CRO SSWALK" | |
11 | S CHBEGDT =$E(DT,1,3 )_11_"01" ; - COMMENTED OUT FOR MI D YEAR UPD T | |
12 | ;S CHBEGD T=3051101 | |
13 | ;S CHBEGD T=3060101 ; MID Y EAR UPDATE FOR ZIPMS A2.F06 DAT A | |
14 | ;S CHBEGD T=$E(DT,1, 3)_"04"_"0 1" ; - MID YEAR UPDT | |
15 | W !,"Use date: ",CH BEGDT," YE S OR NO N/ / " | |
16 | R X:DTIME | |
17 | Q:X="" | |
18 | I X="N" D | |
19 | .S DIR(0 )="D" S DI R("A")="En ter BEGIN Date(filem an format) " D ^DIR K DIR | |
20 | .Q:$D(DI RUT)!($D(D UOUT)) | |
21 | .S CHBEG DT=Y | |
22 | W !,"USE DATE: " ,C HBEGDT | |
23 | ;SET ENVI RONMENT | |
24 | ;S ENVIR= "" | |
25 | ;S AYGSYS =XQVOL ; SETTING E NVIRONMENT | |
26 | ;S RUNDT= "" S RUNDT =DT | |
27 | ;S ENVIR= $S(AYGSYS= "ROU":"LIV E",AYGSYS= "XOU":"TRA IN",AYGSYS ="TOU":"TE ST",AYGSYS ="DOU":"DE V") | |
28 | ;S $ZE="" ,$ZT="END" | |
29 | ;SET CROS SWALK OF Z IP CODE TO MSA CODE FILE NAME | |
30 | S DIR(0)= "F^3:50" | |
31 | S DIR("A" )="Enter C rosswalk o f zip code to MSA co de file na me (ZIPMSA 1.F07)" D ^DIR K DIR | |
32 | Q:$D(DUOU T) | |
33 | Q:Y="^"!( Y="") | |
34 | S CNAME=Y K DIR | |
35 | N FOLDER, CNTR ;DEV0 16554 DPT | |
36 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
37 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
38 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
39 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
40 | ;I UCI'=" HAC" | |
41 | S FOLDER= "HAC_HFS$: [DSMMANAG. CHAMPVA]" ;DEV016554 DPT | |
42 | ; S FILE= FOLDER_FIL E ;DPT DEV 016554 | |
43 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893 DPT | |
44 | ;S FLDR=" /FS3BIG/CO DEUPDT/ASC UPDT/"_CHU CI_"" ;DEV 012893 DPT | |
45 | ;D FTPFIL E^CHTFLIB9 (FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV01 6554 DPT | |
46 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. ASCUPDT."_ ENVIR_"]"_ CNAME | |
47 | ;O IO:"R" :5 ; C IO O IO: "R":5 | |
48 | S FILE=FO LDER_CNAME ; DPT 4/1 6/18 | |
49 | S POP=0,C NTR=0 ;DPT DEV016554 | |
50 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 016554 DPT | |
51 | . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;D EV016554 D PT | |
52 | .S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") ;DEV016 554 DPT | |
53 | .Q ;DEV0 16554 DPT | |
54 | I 'POP G END ;DEV0 16554 DPT | |
55 | A1 | |
56 | U FILE R X G:$$STAT US^%ZISH E ND ;DEV016 554 DPT | |
57 | S CHST=$E (X,1,2) | |
58 | S CHZIP=$ E(X,3,7),C HMSA=$E(X, 8,11) | |
59 | I '$D(^CH MDIC(74100 2.82,"B",C HZIP)) D N EW G A2 | |
60 | S DA=0 | |
61 | S DA=$O(^ CHMDIC(741 002.82,"B" ,CHZIP,DA) ) I 'DA D NEW G A2 | |
62 | S CHLSTDT =$O(^CHMDI C(741002.8 2,DA,1,999 9999),-1) | |
63 | G A2:'CHL STDT | |
64 | G A1:$P(^ CHMDIC(741 002.82,DA, 1,CHLSTDT, 0),"^",2)= +CHMSA | |
65 | A2 S $P(^C HMDIC(7410 02.82,DA,1 ,CHBEGDT,0 ),"^",1)=C HBEGDT | |
66 | S $P(^CHM DIC(741002 .82,DA,1,C HBEGDT,0), "^",2)=+CH MSA | |
67 | G A1 | |
68 | END D CLOS EF^CHTFLIB 9(FILE,"FI LE") ;DEV0 16554 DPT | |
69 | X "D $S YSTEM.Proc ess.SetZEO F(0)" ;DEV 016554 DPT | |
70 | ||
71 | ;S X=$ZF( -1,"DELETE "_FILE_";" ) ;DEV0165 54 DPT | |
72 | K CHBEGDT ,CHMSA,CHS T,CHX,CHZI P,DA,DIE,D R,X,Y Q | |
73 | NEW S DA=$ P(^CHMDIC( 741002.82, 0),"^",3), DA=DA+1 | |
74 | S $P(^CHM DIC(741002 .82,0),"^" ,3)=$P(^(0 ),"^",3)+1 | |
75 | S $P(^CHM DIC(741002 .82,0),"^" ,4)=$P(^(0 ),"^",4)+1 | |
76 | S DIE="^C HMDIC(7410 02.82,",DR =".01///^S X=CHZIP;. 02///^S X= CHST" | |
77 | D ^DIE K DIE | |
78 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.