Produced by Araxis Merge on 11/9/2018 12:33:59 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 | CHMKHDCF.m | Mon Nov 5 16:43:58 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKHDCF.m | Mon Nov 5 17:49:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 132 |
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 | CHMKHDCF ; JEH/CHAMPV A/CREATE F ILE MEMBER CARD FORE IGN N&A BE NES ZIP CO DE | |
2 | ;V1.0 | |
3 | ;*** COPY OF ZALCAR DF *** | |
4 | ;DEV01289 3 1/17/201 4 DGC - MO DIFY DECNE T WRITE | |
5 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
6 | ; | |
7 | S U="^" | |
8 | ZSET ;DGC 1/17/2014 DEV012893 - BEGIN | |
9 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .COMMO_RPT S.HANDBOOK ]BENEFOREI GNCARD.TXT " | |
10 | ;O FIO C FIO:"D" | |
11 | ;O FIO:"N WS" | |
12 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
13 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
14 | S FILENM2=BE NEFOREIGNC ARD.TXT | |
15 | S FIO="HAC_H FS$:[SCR.T EMP_FILES] "_FILENM2 | |
16 | I UCI'="HAC" S FIO="HA C_HFS$:[DS MMANAG.CHA MPVA]"_FIL ENM2 | |
17 | I '$$OPENFIW R^CHTFLIB9 (.FIO,"FIO ") X "D $S YSTEM.Proc ess.SetZEO F(0)" Q ;D GC 7/30/20 15 DEV0128 93 | |
18 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
19 | S T=$C(9) | |
20 | S ZZPG=0, ZIPTTL=0 | |
21 | S ZZBZIP= 0 | |
22 | S (MON,DA Y,YEAR)=0 | |
23 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADDCARD 1",ZZBZIP) ) G:ZZBZIP ="" END | |
24 | S CNT=0 | |
25 | SORT1 S CN T=$O(^CHMZ HOLD("NAME -ADDCARD1" ,ZZBZIP,CN T)) G:CNT= "" SORT | |
26 | S:$D(^CHM ZHOLD("NAM E-ADDCARD1 ",ZZBZIP,C NT)) DATA= ^CHMZHOLD( "NAME-ADDC ARD1",ZZBZ IP,CNT) | |
27 | ;I ZZBZIP >96909 I Z ZBZIP<9696 1 G OKNEW ;SELECT GU AM ZIPS AS DOMESTIC | |
28 | ;I ZZBZIP <600 G SOR T1 ;ELIMIN ATE FOREIG N ZIPS SEL ECT DOMEST IC | |
29 | I ZZBZIP> 599 G SORT 1 ;SELECT FORIEGN | |
30 | OKNEW ; | |
31 | S T=$C(9) | |
32 | S ADDR1=$ P(DATA,U,1 ) | |
33 | S ADDR2=$ P(DATA,U,2 ) | |
34 | S ADDR3=$ P(DATA,U,3 ) | |
35 | S ADDR4=$ P(DATA,U,4 ) | |
36 | S ADDR5=$ P(DATA,U,5 ) | |
37 | S ADDR6=$ P(DATA,U,6 ) | |
38 | S ADDR7=$ P(DATA,U,7 ) | |
39 | S ADDR8=$ P(DATA,U,8 ) | |
40 | S DATE1=$ P(DATA,U,9 ) | |
41 | S DATE2=$ P(DATA,U,1 0) | |
42 | ; | |
43 | ; | |
44 | S Y=DATE1 D DD^%DT S IDATE=Y | |
45 | S MON=$E( DATE1,4,5) | |
46 | S DAY=$E( DATE1,6,7) | |
47 | S YEAR=$E (IDATE,9,1 2) | |
48 | S DATE1=M ON_"/"_DAY _"/"_YEAR | |
49 | ; | |
50 | S Y=DATE2 D DD^%DT S IDATE=Y | |
51 | S MON=$E( DATE2,4,5) | |
52 | S DAY=$E( DATE2,6,7) | |
53 | S YEAR=$E (IDATE,9,1 2) | |
54 | S DATE2=M ON_"/"_DAY _"/"_YEAR | |
55 | ; | |
56 | S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5_T_AD DR6_T_ADDR 7_T_ADDR8_ T_DATE1_T_ DATE2_T | |
57 | S ZIPTTL= ZIPTTL+1 | |
58 | ; | |
59 | U FIO W T MPS,! | |
60 | G SORT1 | |
61 | END ;DGC 1 /17/2014 D EV012893 - BEGIN | |
62 | ;C FIO | |
63 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
64 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
65 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG /COMMO_RPT S/HANDBOOK ","PUT") | |
66 | ;DGC 1/17 /2014 DEV0 12893 - EN D | |
67 | S ZIPTTL4 =ZIPTTL | |
68 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.