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 | CHMVACTD.m | Mon Nov 5 16:41:18 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVACTD.m | Mon Nov 5 17:51:42 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 220 |
Changed | 1 | 2 |
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 | CHMVACTD ; 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 | K ^CHMZHO LD("VEND-D UP-CHECK-O UT") | |
8 | K ^CHMZHO LD("ADD1-V EN-LABELS- CT") | |
9 | S (ADD1,A DD2,ADD3,A DD4)="" | |
10 | LAB ; | |
11 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERN OACTDOMNA. TXT" | |
12 | O FIO C F IO:"D" | |
13 | O FIO:"NW V" | |
14 | S VENPT=0 | |
15 | S (CNTR,D CNT)=0 | |
16 | S CHSTOP= 0,SORT=0,C T=0 | |
17 | S STATE=0 | |
18 | A S STATE= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE)) G:'STATE E ND | |
19 | S ZIP="" | |
20 | A1 S ZIP=$ O(^CHMZHOL D("ADD12-V EN-LABELS" ,STATE,ZIP )) G:ZIP=" " A | |
21 | S NAME="" | |
22 | A2 S NAME= $O(^CHMZHO LD("ADD12- VEN-LABELS ",STATE,ZI P,NAME)) G :NAME="" A 1 | |
23 | S SORT=0 | |
24 | ;A2 S SOR T=$O(^CHMZ HOLD("ADD1 2-VEN-LABE LS",STATE, ZIP,NAME,S ORT)) G A2 :'SORT | |
25 | ; | |
26 | ;S DATA=^ CHMZHOLD(" ADD12-VEN- LABELS",ST ATE,ZIP,NA ME,SORT) | |
27 | S DATA=^C HMZHOLD("A DD12-VEN-L ABELS",STA TE,ZIP,NAM E) | |
28 | ; | |
29 | I STATE=3 10 G OKNOW | |
30 | I STATE=7 2 G OKNOW | |
31 | I STATE>5 6 G A2 ; B YPASS ALL FOREIGN ST ATE CODES EXCEPT 66 AND 72 | |
32 | OKNOW ;W ! ,DATA | |
33 | S NAME1=$ P(DATA,"^" ,6) | |
34 | S ADD2=$P (DATA,"^", 3) | |
35 | S ADD3=$P (DATA,"^", 4) | |
36 | I ADD2="C /O MED MAT RIX INC" G A2 | |
37 | I ADD2="M EDICAL MAT RIX INC" G A2 | |
38 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G A2 | |
39 | I ADD2="M ED MATRIX INC" G A2 | |
40 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G A2 | |
41 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G A2 | |
42 | I ADD3="C /O MED MAT RIX INC" G A2 | |
43 | I ADD3="M EDICAL MAT RIX INC" G A2 | |
44 | I $E(ADD3 ,1,16)="% MED MATRIX INC" G A2 | |
45 | I ADD3="M ED MATRIX INC" G A2 | |
46 | I $E(ADD3 ,1,15)="%M ED MATRIX INC" G A2 | |
47 | I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD" G A2 | |
48 | ; | |
49 | S ZIPZ=$P (DATA,"^", 5) | |
50 | I $L(ZIPZ )>9 G OVER 1 | |
51 | RETURN1 I $L(ZIPZ)>5 S ZIP1=$E (ZIPZ,1,5) S ZIP2=$E (ZIPZ,6,9) S ZIPZ=ZI P1_"-"_ZIP 2 | |
52 | OVER1 ; | |
53 | ;S ADD4=$ P(DATA,"^" ,2)_", "_$ P(DATA,"^" ,1)_" "_ZI PZ ;CITY,S TATE ZIP | |
54 | S CITY=$P (DATA,"^", 2) | |
55 | S STATEP= $P(DATA,"^ ",1) | |
56 | ;I ADD3=" " S ADD3=A DD4 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 | S CNTR=CN TR+1 | |
61 | S DCNT=DC NT+1 | |
62 | ; | |
63 | S SUBS=NA ME1_ADD2 | |
64 | ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_A DD4_U | |
65 | S:'$D(^CH MZHOLD("VE ND-DUP-CHE CK-OUT",ST ATE,SUBS)) ^CHMZHOLD ("VEND-DUP -CHECK-OUT ",STATE,SU BS)=NAME1_ U_ADD2_U_A DD3_U_CITY _U_STATEP_ U_ZIPZ S C T=CT+1 | |
66 | ;S ^CHMZH OLD("VEND- DUP-CHECK- OUT",STATE ,SUBS)=NAM E1_U_ADD2_ U_ADD3_U_C ITY_U_STAT EP_U_ZIPZ | |
67 | S (NAME1, ADD2,ADD3, CITY,STATE P,ZIPZ)="" | |
68 | ;S CT=CT+ 1 | |
69 | S ^CHMZHO LD("ADD1-V EN-LABELS- CT")=CT | |
70 | G A2 | |
71 | L4 Q | |
72 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
73 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
74 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
75 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
76 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
77 | Q | |
78 | END ; | |
79 | S CNTMORE =0 | |
80 | S STATE=0 | |
81 | END1 ; | |
82 | S STATE=$ O(^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE)) I STATE=" " G END4 | |
83 | ;W !," STATE IN= ",STATE | |
84 | S SUBS=0 | |
85 | END2 ; | |
86 | S SUBS=$O (^CHMZHOLD ("VEND-DUP -CHECK-OUT ",STATE,SU BS)) I SUB S="" G END 1 | |
87 | S SUBSDAT A=^CHMZHOL D("VEND-DU P-CHECK-OU T",STATE,S UBS) | |
88 | S CNTMORE =CNTMORE+1 | |
89 | ;W !!," ", CNTMORE | |
90 | ;W !," SUBS IN=" ,STATE," " ,SUBS | |
91 | S NAME1=$ P(SUBSDATA ,U,1) | |
92 | S ADD2=$P (SUBSDATA, U,2) | |
93 | S ADD3=$P (SUBSDATA, U,3) | |
94 | ;S ADD4=$ P(SUBSDATA ,U,4) | |
95 | S CITY=$P (SUBSDATA, U,4) | |
96 | S STATEP= $P(SUBSDAT A,U,5) | |
97 | S ZIP=$P( SUBSDATA,U ,6) | |
98 | ; | |
99 | S T=$C(9) | |
100 | S TMPS=NA ME1_T_ADD2 _T_ADD3_T_ CITY_T_T_S TATEP_T_ZI P | |
101 | U FIO W T MPS,! | |
102 | ;W !," OUT=",NAME 1 | |
103 | S DCNT=DC NT+1 | |
104 | ;;S ^CHMZ HOLD("AHJ- AHJ-AHJ",D CNT)=NAME1 | |
105 | G END2 | |
106 | Q | |
107 | END4 ; | |
108 | C FIO | |
109 | ;S ^CHMZH OLD("AHJ-V EN-LABELS" ,"VEN-DOM" )=COUNT | |
110 | ;W !,COUN T | |
111 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.