Produced by Araxis Merge on 11/9/2018 12:34:01 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 | CHMKVLBL.m | Mon Nov 5 16:44:49 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKVLBL.m | Mon Nov 5 17:49:43 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 192 |
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 | CHMKVLBL ; AHJ/DEN;VE NDOR NAME/ ADDRESS FO R ALL STAT ES LABELS | |
2 | ;V1.0 | |
3 | ;DEV01289 3 1/20/201 4 DGC - MO DIFY DECNE T WRITE | |
4 | ;MTN02426 5 09/23/15 SBB - Fix the DECNE T routines that have a typo | |
5 | ; | |
6 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
7 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
8 | 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 | |
9 | S U="^" | |
10 | S (ADD1,A DD2,ADD3,A DD4)="" | |
11 | ZNAM ; | |
12 | ;W @IOF,! !,"VENDOR N&A" | |
13 | L1 ;W !!," 1) Print l etter",!," 2) Print L abels" | |
14 | ;W !!,"Ch oose: " D SBRS G END :$D(DFOUT) ,END:$D(DU OUT) | |
15 | ;I $D(DQO UT) W !!," Choose 1-4 , or <RETU RN>" G L1 | |
16 | ;G END:Y= "" I "1^2" '[Y W *7," ??" G L1 | |
17 | ;S ANS=Y, RTN=$S(ANS =1:"LETT", ANS=2:"LAB ",1:"") | |
18 | ;G:RTN="" L1 D @RTN G L1 | |
19 | LETT ; | |
20 | LAB ;BREAK ;DGC 1/20 /2014 DEV0 12893 - BE GIN | |
21 | ;S FIO="H AC_HFS$:[D SMMANAG]VL BL1425.TXT " | |
22 | ;S FIO="H ACFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]PROVIDERA LL.TXT" | |
23 | ;O FIO C FIO:"D" | |
24 | ;O FIO:"N WV" | |
25 | X ^%ZOSF( "UCI") S U CI=$P(Y,"1 ,",1) | |
26 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;DGC 7 /30/2015 D EV012893 | |
27 | S FILENM2 =PROVIDERA LL.TXT | |
28 | S FIO="HA C_HFS$:[SC R.TEMP_FIL ES)"_FILEN M2 | |
29 | I UCI'="H AC" S FIO= "HAC_HFS$: [DSMMANAG. CHAMPVA]"_ FILENM2 | |
30 | I '$$OPEN FIWR^CHTFL IB9(.FIO," FIO") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q ;DGC 7/30 /2015 DEV0 12893 ;DGC 1/20/2014 DEV012893 - END | |
31 | S VENPT=0 | |
32 | S COUNT=0 | |
33 | S CHSTOP= 0,SORT=0,C T=0 | |
34 | S STATE=0 | |
35 | A S STATE= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE)) G: 'STATE END | |
36 | S ZIP="" | |
37 | A1 S ZIP=$ O(^CHMZHOL D("AHJ-VEN -LABELS",S TATE,ZIP)) G:ZIP="" A S NAME=" " | |
38 | A2 S NAME= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE,ZIP, NAME)) G:N AME="" A1 | |
39 | S SORT=0 | |
40 | A3 S SORT= $O(^CHMZHO LD("AHJ-VE N-LABELS", STATE,ZIP, NAME,SORT) ) G A2:'SO RT | |
41 | S CT=CT+1 | |
42 | S DATA=^C HMZHOLD("A HJ-VEN-LAB ELS",STATE ,ZIP,NAME, SORT) | |
43 | ; | |
44 | ;W !,DATA | |
45 | S ADD1=$P (DATA,"^", 6) | |
46 | S ADD2=$P (DATA,"^", 3) | |
47 | S ADD3=$P (DATA,"^", 4) | |
48 | I ADD2="C /O MED MAT RIX INC" G A3 | |
49 | I ADD2="M EDICAL MAT RIX INC" G A3 | |
50 | I $E(ADD2 ,1,16)="% MED MATRIX INC" G A3 | |
51 | I ADD2="M ED MATRIX INC" G A3 | |
52 | I $E(ADD2 ,1,15)="%M ED MATRIX INC" G A3 | |
53 | I $E(ADD2 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
54 | I ADD3="C /O MED MAT RIX INC" G A3 | |
55 | I ADD3="M EDICAL MAT RIX INC" G A3 | |
56 | I $E(ADD3 ,1,16)="% MED MATRIX INC" G A3 | |
57 | I ADD3="M ED MATRIX INC" G A3 | |
58 | I $E(ADD3 ,1,15)="%M ED MATRIX INC" G A3 | |
59 | I $E(ADD3 ,1,20)="64 21 CAMP BO WIE BLVD" G A3 | |
60 | ; | |
61 | S ZIPZ=$P (DATA,"^", 5) | |
62 | I $L(ZIPZ )>9 G OVER 1 | |
63 | ;I $L(ZIP Z)>5 G BRE AK1 | |
64 | I SORT=37 807 G BREA K1 | |
65 | RETURN1 I $L(ZIPZ)>5 S ZIP1=$E (ZIPZ,1,5) S ZIP2=$E (ZIPZ,6,9) S ZIPZ=ZI P1_"-"_ZIP 2 | |
66 | OVER1 S AD D4=$P(DATA ,"^",2)_", "_$P(DATA ,"^",1)_" "_ZIPZ | |
67 | ;BREAK | |
68 | I ADD3="" S ADD3=AD D4 S ADD4= "" | |
69 | I ADD3=" " S ADD3=A DD4 S ADD4 ="" | |
70 | I ADD2="" S ADD2=AD D4 S ADD3= "" S ADD4= "" | |
71 | I ADD2=" " S ADD2=A DD4 S ADD3 ="" S ADD4 ="" | |
72 | ; | |
73 | S T=$C(9) | |
74 | S TMPS=AD D1_T_ADD2_ T_ADD3_T_A DD4_T | |
75 | ;BREAK | |
76 | U FIO W ! ,TMPS | |
77 | ;W !,TMPS | |
78 | S (ADD1,A DD2,ADD3,A DD4)="" | |
79 | S COUNT=C OUNT+1 | |
80 | G A3 | |
81 | L4 Q | |
82 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
83 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
84 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
85 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
86 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
87 | Q | |
88 | BREAK1 ; | |
89 | ;BREAK | |
90 | G RETURN1 | |
91 | END ;DGC 1 /20/2014 D EV012893 - BEGIN | |
92 | ;C FIO | |
93 | D CLOSEF^ CHTFLIB9(F IO,"FIO") | |
94 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DGC 7 /30/2015 D EV012893 | |
95 | D FTPFILE ^CHTFLIB9( FIO," DNS fs3. DNS ","/FS3BIG ","PUT") ; DGC 1/20/2 014 DEV012 893 - END | |
96 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG. CHAMPVA]VE NDCOPY.COM ") | |
97 | W !,COUNT | |
98 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.