Produced by Araxis Merge on 11/9/2018 12:34:08 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 | CHMVACTF.m | Mon Nov 5 16:42:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVACTF.m | Mon Nov 5 17:51:42 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 158 |
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 | CHMVACTF ; AHJ/DEN;VE NDOR FOREI GN NAME/AD DRESS FOR MAILING | |
2 | ;V1.0 | |
3 | ;OUTPUT F ILE ON FS3 BIG NAME I S "PROVIDE RFORNA.TXT " | |
4 | ;INCLUDES STATE COD ES 60 (AME RICAN SAMO A) THROUGH 323 (BRIT ISH WEST I NDIES) | |
5 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
6 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
7 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
8 | S U="^" | |
9 | S (ADD1,A DD2,ADD3,A DD4)="" | |
10 | S (FCNT,C OUNT)=0 | |
11 | LAB ; | |
12 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERN OACTFORNA. TXT" | |
13 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PTESTF.TX T" | |
14 | O FIO C F IO:"D" | |
15 | O FIO:"NW V" | |
16 | S VENPT=0 | |
17 | S FCNT=0 | |
18 | S CHSTOP= 0,SORT=0,C T=0 | |
19 | S STATE=0 | |
20 | A S STATE= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE)) I STATE="" G END | |
21 | S ZIP="" | |
22 | A1 S ZIP=$ O(^CHMZHOL D("ADD12-V EN-LABELS" ,STATE,ZIP )) G:ZIP=" " A | |
23 | S NAME="" | |
24 | A2 S NAME= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)) G :NAME="" A 1 | |
25 | S SORT=0 | |
26 | A3 ;S SORT =$O(^CHMZH OLD("ADD12 -VEN-LABEL S",STATE,Z IP,NAME,SO RT)) I SOR T="" G A2 | |
27 | S CT=CT+1 | |
28 | ;S DATA=^ CHMZHOLD(" ADD12-VEN- LABELS",ST ATE,ZIP,NA ME,SORT) | |
29 | S DATA=^C HMZHOLD("A DD12-VEN-L ABELS",STA TE,ZIP,NAM E) | |
30 | ; | |
31 | I STATE=3 10 G A2 | |
32 | I STATE=7 2 G A2 | |
33 | I STATE<5 7 G A2 ; B YPASS DOME STIC STATE CODES | |
34 | ; | |
35 | ;W !,DATA | |
36 | S NAME1=$ P(DATA,"^" ,6) | |
37 | S ADD2=$P (DATA,"^", 3) | |
38 | S ADD3=$P (DATA,"^", 4) | |
39 | I ADD2="C /O MED MAT RIX INC" G A2 | |
40 | I ADD2="M EDICAL MAT RIX INC" G A2 | |
41 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G A2 | |
42 | I ADD2="M ED MATRIX INC" G A2 | |
43 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G A2 | |
44 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G A2 | |
45 | I ADD3="C /O MED MAT RIX INC" G A2 | |
46 | I ADD3="M EDICAL MAT RIX INC" G A2 | |
47 | I $E(ADD3 ,1,16)="% MED MATRIX INC" G A2 | |
48 | I ADD3="M ED MATRIX INC" G A2 | |
49 | I $E(ADD3 ,1,15)="%M ED MATRIX INC" G A2 | |
50 | I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD" G A2 | |
51 | ; | |
52 | S ZIPZ=$P (DATA,"^", 5) | |
53 | I $L(ZIPZ )>9 G OVER 1 | |
54 | ; | |
55 | RETURN1 I $L(ZIPZ)>5 S ZIP1=$E (ZIPZ,1,5) S ZIP2=$E (ZIPZ,6,9) S ZIPZ=ZI P1_"-"_ZIP 2 | |
56 | OVER1 S AD D4=$P(DATA ,"^",2)_", "_$P(DATA ,"^",1)_" "_ZIPZ | |
57 | ; ADD3="" S ADD3=AD D4 S ADD4= "" | |
58 | ;I ADD3=" " S ADD3= ADD4 S ADD 4="" | |
59 | ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 ="" | |
60 | ;I ADD2=" " S ADD2= ADD4 S ADD 3="" S ADD 4="" | |
61 | ; | |
62 | S T=$C(9) | |
63 | S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ ADD4_T | |
64 | ; | |
65 | U FIO W T MPS,! | |
66 | ;W !,TMPS | |
67 | S (NAME1, ADD2,ADD3, ADD4,ZIPZ) ="" | |
68 | S FCNT=FC NT+1 | |
69 | G A2 | |
70 | L4 Q | |
71 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
72 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
73 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
74 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
75 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
76 | Q | |
77 | END C FIO | |
78 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ") | |
79 | ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-FOR" )=COUNT | |
80 | ;W !,COUN T | |
81 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.