Produced by Araxis Merge on 11/9/2018 12:34:05 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 | CHMLIDMRW.m | Mon Nov 5 16:40:05 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLIDMRW.m | Mon Nov 5 17:50:21 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 5 | 110 |
Changed | 4 | 8 |
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 | CHMLIDMRW ;JEH/DEN;R EAD IN FI PROVIDER/Z IP2WAGE FI LE;08/31/0 7 8:40 AM | |
2 | ;V1.0 | |
3 | ;MTN02176 0 DPT 9/15 /14 MODIFY EXTRACTIO N OF DATA FOR FY2015 | |
4 | ;DEV01655 4 ENC01289 3 DPT REMO VE DECNET | |
5 | ;MTN02428 3 DPT 9/24 /15 MODIFY LOAD FOR FY2016 | |
6 | ;inc02215 32 DPT 4 /11/18 REM OVE EDIT F OR ENVIRON MENT RELOA D ZIP2WAGE and PROVF I | |
7 | D INIT | |
8 | ||
9 | Q:$D(DUOU T) | |
10 | G:EFFDATE ="^"!(ENDD ATE="^") E ND | |
11 | START ; | |
12 | I FTYPE=1 D GTPDATA ;GETTIN G & LOADIN G FI PROVI DER DATA I NTO ^CHMDI C(741006.0 7, | |
13 | I FTYPE=2 D GTZDATA ;GETTIN G & LOADIN G ZIP CODE TO WAGE I NDEX CROSS WALK DATA INTO ^CHMD IC(741006. 03, | |
14 | G END | |
15 | ; | |
16 | GTPDATA ;G ATHERING F I PROVIDER DATA | |
17 | U 0 W !!, "Reading i n FI Provi der Data.. .",! | |
18 | ;S $ZE="" ,$ZT="ENDC ^CHMLIDMRW " | |
19 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _FNAME | |
20 | ;O CHIO:" R":5 | |
21 | S CHIO=F NAME,FOLDE R="" ;DEV0 16554 DPT | |
22 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) ;DEV0 16554 DPT | |
23 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
24 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
25 | ;S CHIO=F OLDER_CHIO | |
26 | ; S FLDR= "/FS3BIG/C ODEUPDT/ID MEUPDT/"_U CI | |
27 | ;D FTPFIL E^CHTFLIB9 (CHIO," DNS fs3. DNS ",FLDR,"GE T") ;DEV016554 DPT | |
28 | S CHIO="H AC_HFS$:[D SMMANAG.CH AMPVA]"_FN AME ;inc02 21532 DP T 4/11/18 | |
29 | S POP=0,C NTR=0 ;DEV 016554 DPT | |
30 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D ;DEV 016554 DPT | |
31 | . X "D $ SYSTEM.Pro cess.SetZE OF(1)" ;DE V016554 DP T | |
32 | . S POP= $$OPENFIRD ^CHTFLIB9( .CHIO,"CHI O") ;DEV01 6554 DPT | |
33 | .Q ;DEV0 16554 DPT | |
34 | I 'POP G ENDC ;DEV0 16554 DPT | |
35 | ||
36 | F U CHIO R REC G:$ $STATUS^%Z ISH ENDC D | |
37 | .D:EFFDAT E<3050110 FMTP1 ;F Y04/05 FOR MAT | |
38 | .D:EFFDAT E>3050111& EFFDATE<31 41001 FMTP 2 ;FI PR OVIDER FOR MAT | |
39 | .D:EFFDAT E>3140930& EFFDATE<31 51001 FMT4 ;MTN02 1760 DPT | |
40 | .D:EFFDAT E>3150930 FMTP2 ;MTN02 4283 DPT | |
41 | .D LDPRV | |
42 | Q | |
43 | ; | |
44 | GTZDATA ;G ATHERING Z IP2WAGE DA TA | |
45 | Q:CTR=10 | |
46 | U 0 W !!, "Reading i n Zip Code to Wage I ndex Cross walk Data. ..",! | |
47 | S $ZE="", $ZT="ENDC^ CHMLIDMRW" | |
48 | ;S CHIO=" HACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. IDMEUPDT." _ENVIR_"]" _FNAME | |
49 | ;O CHIO:" R":5 | |
50 | ;S CHIO= FNAME,FOLD ER="" ;DEV 016554 DPT | |
51 | ;X ^%ZOS F("UCI") S UCI=$P(Y, ",",1) ;DE V016554 DP T | |
52 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
53 | ;S CHIO=F OLDER_CHIO | |
54 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 2893 DPT | |
55 | ;S CHIO=F OLDER_CHIO | |
56 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "TRN":"TRA IN",UCI="S LA":"LIVE" ,UCI="HAC" :"LIVE") ; DEV012893 DPT | |
57 | ;S FLDR=" /FS3BIG/CO DEUPDT/IDM EUPDT/"_CH UCI ;DEV0 12893 DPT | |
58 | ;D FTPFIL E^CHTFLIB9 (CHIO," DNS fs3. DNS ",FLDR,"GE T") ;DEV016554 DPd | |
59 | S CHIO=" HAC_HFS$:[ DSMMANAG.C HAMPVA]"_F NAME ; DP T 4/11/18 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.