Produced by Araxis Merge on 11/9/2018 12:34:09 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 | CHMVENF1.m | Mon Nov 5 16:44:51 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVENF1.m | Mon Nov 5 17:51:50 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 156 |
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 | CHMVENF1 ; 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 ]PROVIDERS ELFORNA.TX T" | |
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("ADD1-V EN-LABELS" ,STATE)) I STATE="" G END | |
21 | S ZIP="" | |
22 | A1 S ZIP=$ O(^CHMZHOL D("ADD1-VE N-LABELS", STATE,ZIP) ) G:ZIP="" A | |
23 | S NAME="" | |
24 | A2 S NAME= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME)) G: NAME="" A1 | |
25 | S SORT=0 | |
26 | A3 S SORT= $O(^CHMZHO LD("ADD1-V EN-LABELS" ,STATE,ZIP ,NAME,SORT )) I SORT= "" G A2 | |
27 | S CT=CT+1 | |
28 | S DATA=^C HMZHOLD("A DD1-VEN-LA BELS",STAT E,ZIP,NAME ,SORT) | |
29 | ; | |
30 | I STATE=3 10 G A3 | |
31 | I STATE=7 2 G A3 | |
32 | I STATE<5 7 G A3 ; B YPASS DOME STIC STATE CODES | |
33 | ; | |
34 | ;W !,DATA | |
35 | S NAME1=$ P(DATA,"^" ,6) | |
36 | S ADD2=$P (DATA,"^", 3) | |
37 | S ADD3=$P (DATA,"^", 4) | |
38 | I ADD2="C /O MED MAT RIX INC" G A3 | |
39 | I ADD2="M EDICAL MAT RIX INC" G A3 | |
40 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G A3 | |
41 | I ADD2="M ED MATRIX INC" G A3 | |
42 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G A3 | |
43 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
44 | I ADD3="C /O MED MAT RIX INC" G A3 | |
45 | I ADD3="M EDICAL MAT RIX INC" G A3 | |
46 | I $E(ADD3 ,1,16)="% MED MATRIX INC" G A3 | |
47 | I ADD3="M ED MATRIX INC" G A3 | |
48 | I $E(ADD3 ,1,15)="%M ED MATRIX INC" G A3 | |
49 | I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
50 | ; | |
51 | S ZIPZ=$P (DATA,"^", 5) | |
52 | I $L(ZIPZ )>9 G OVER 1 | |
53 | ; | |
54 | RETURN1 I $L(ZIPZ)>5 S ZIP1=$E (ZIPZ,1,5) S ZIP2=$E (ZIPZ,6,9) S ZIPZ=ZI P1_"-"_ZIP 2 | |
55 | OVER1 S AD D4=$P(DATA ,"^",2)_", "_$P(DATA ,"^",1)_" "_ZIPZ | |
56 | ; ADD3="" S ADD3=AD D4 S ADD4= "" | |
57 | ;I ADD3=" " S ADD3= ADD4 S ADD 4="" | |
58 | ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 ="" | |
59 | ;I ADD2=" " S ADD2= ADD4 S ADD 3="" S ADD 4="" | |
60 | ; | |
61 | S T=$C(9) | |
62 | S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ ADD4_T | |
63 | ; | |
64 | U FIO W T MPS,! | |
65 | ;W !,TMPS | |
66 | S (NAME1, ADD2,ADD3, ADD4,ZIPZ) ="" | |
67 | S FCNT=FC NT+1 | |
68 | G A3 | |
69 | L4 Q | |
70 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
71 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
72 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
73 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
74 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
75 | Q | |
76 | END C FIO | |
77 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ") | |
78 | ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-FOR" )=COUNT | |
79 | ;W !,COUN T | |
80 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.