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 | CHMVNDOM.m | Mon Nov 5 16:43:18 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVNDOM.m | Mon Nov 5 17:51:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 144 |
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 | CHMVNDOM ; AHJ/DEN;VE NDOR NAME/ ADDRESS FO R DOMESTIC PLUS GUAM AND PR LA BELS | |
2 | ;V1.0 | |
3 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
4 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
5 | 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 | |
6 | S U="^" | |
7 | S (ADD1,A DD2,ADD3,A DD4)="" | |
8 | LAB ; | |
9 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERD OMNA.TXT" | |
10 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PTESTD.TX T" | |
11 | O FIO C F IO:"D" | |
12 | O FIO:"NW V" | |
13 | S VENPT=0 | |
14 | S DCNT=0 | |
15 | S CHSTOP= 0,SORT=0,C T=0 | |
16 | S STATE=0 | |
17 | A S STATE= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE)) G: 'STATE END | |
18 | S ZIP="" | |
19 | A1 S ZIP=$ O(^CHMZHOL D("ADD-VEN -LABELS",S TATE,ZIP)) G:ZIP="" A S NAME=" " | |
20 | A2 S NAME= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME)) G:N AME="" A1 | |
21 | S SORT=0 | |
22 | A3 S SORT= $O(^CHMZHO LD("ADD-VE N-LABELS", STATE,ZIP, NAME,SORT) ) G A2:'SO RT | |
23 | S CT=CT+1 | |
24 | S DATA=^C HMZHOLD("A DD-VEN-LAB ELS",STATE ,ZIP,NAME, SORT) | |
25 | ; | |
26 | I STATE=3 10 G OKNOW | |
27 | I STATE=7 2 G OKNOW | |
28 | I STATE>5 6 G A3 ; B YPASS ALL FOREIGN ST ATE CODES EXCEPT 66 AND 72 | |
29 | OKNOW ;W ! ,DATA | |
30 | S ADD1=$P (DATA,"^", 6) | |
31 | S ADD2=$P (DATA,"^", 3) | |
32 | S ADD3=$P (DATA,"^", 4) | |
33 | I ADD2="C /O MED MAT RIX INC" G A3 | |
34 | I ADD2="M EDICAL MAT RIX INC" G A3 | |
35 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G A3 | |
36 | I ADD2="M ED MATRIX INC" G A3 | |
37 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G A3 | |
38 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
39 | I ADD3="C /O MED MAT RIX INC" G A3 | |
40 | I ADD3="M EDICAL MAT RIX INC" G A3 | |
41 | I $E(ADD3 ,1,16)="% MED MATRIX INC" G A3 | |
42 | I ADD3="M ED MATRIX INC" G A3 | |
43 | I $E(ADD3 ,1,15)="%M ED MATRIX INC" G A3 | |
44 | I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
45 | ; | |
46 | S ZIPZ=$P (DATA,"^", 5) | |
47 | I $L(ZIPZ )>9 G OVER 1 | |
48 | RETURN1 I $L(ZIPZ)>5 S ZIP1=$E (ZIPZ,1,5) S ZIP2=$E (ZIPZ,6,9) S ZIPZ=ZI P1_"-"_ZIP 2 | |
49 | OVER1 S AD D4=$P(DATA ,"^",2)_", "_$P(DATA ,"^",1)_" "_ZIPZ | |
50 | ; ADD3="" S ADD3=AD D4 S ADD4= "" | |
51 | ;I ADD3=" " S ADD3= ADD4 S ADD 4="" | |
52 | ;I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 ="" | |
53 | ;I ADD2=" " S ADD2= ADD4 S ADD 3="" S ADD 4="" | |
54 | ; | |
55 | S T=$C(9) | |
56 | S TMPS=AD D1_T_ADD2_ T_ADD3_T_A DD4_T | |
57 | ; | |
58 | U FIO W T MPS,! | |
59 | ;W !,TMPS | |
60 | S (ADD1,A DD2,ADD3,A DD4,ZIPZ)= "" | |
61 | S DCNT=DC NT+1 | |
62 | G A3 | |
63 | L4 Q | |
64 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
65 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
66 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
67 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
68 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
69 | Q | |
70 | G RETURN1 | |
71 | END C FIO | |
72 | ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-DOM" )=COUNT | |
73 | ;W !,COUN T | |
74 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.