| [613] | 1 | ENLBL7 ;(WASH ISC)/DH-Physical Print of Bar Code Label ;10.10.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**12,35,45**;Aug 17, 1993
|
|---|
| 3 | NXPRT ;Generation of NX barcode labels (equipment)
|
|---|
| 4 | I ENBAR("EQUIPMENT DATA")]"" X ENBAR("EQUIPMENT DATA") Q
|
|---|
| 5 | NXPRT1 Q:'$D(^ENG(6914,DA,0)) S ENEQBC=ENEQSTA_" EE"_DA
|
|---|
| 6 | S ENLBLHD="* EQUIPMENT LABEL *"
|
|---|
| 7 | I $D(^DIC(6910,1,0)),$P(^(0),U,8),$D(^ENG(6914,DA,1)),$P(^(1),U)]"" S ENA=$P(^(1),U) S:$D(^ENG(6911,ENA,0)) ENLBLHD=$E($P(^(0),U),1,20)
|
|---|
| 8 | S ENLBLBOT=ENEQSTAN D:$O(^DIC(6910,1,1,0))]"" ENLBLBOT
|
|---|
| 9 | PRT ;Physical print
|
|---|
| 10 | W *2,*27,"E3",!,*24,ENLBLHD,!,ENEQBC,!,ENLBLBOT
|
|---|
| 11 | W *23,*3
|
|---|
| 12 | Q
|
|---|
| 13 | FORMAT ;Equipment labels
|
|---|
| 14 | G:'$D(ENEQBY) FORMAT1
|
|---|
| 15 | K ENBAR S (ENBAR("EQUIPMENT FORMAT"),ENBAR("EQUIPMENT DATA"))=""
|
|---|
| 16 | S ENBCIOS(0)=$O(^DIC(6910.1,"B",ENBCIOS,0)) D:ENBCIOS(0)
|
|---|
| 17 | . S ENBAR("EQUIPMENT FORMAT")=$G(^DIC(6910.1,ENBCIOS(0),1))
|
|---|
| 18 | . S ENBAR("EQUIPMENT DATA")=$G(^DIC(6910.1,ENBCIOS(0),3))
|
|---|
| 19 | I ENBAR("EQUIPMENT FORMAT")]"" X ENBAR("EQUIPMENT FORMAT") Q
|
|---|
| 20 | FORMAT1 ;Entry point for location labels
|
|---|
| 21 | I $D(ENEQBY),$O(^DIC(6910,1,1,0))]"" S ENEQLM=280
|
|---|
| 22 | W *2,*27,"P",*3
|
|---|
| 23 | W *2,"E3;F3;"
|
|---|
| 24 | W "H0;o0,280;f1;c2;d0,23;h1;w1;"
|
|---|
| 25 | W "B1;o23,280;f1;c0,0;h25;w1;i2;d0,20;p@;"
|
|---|
| 26 | W "H2;o62,",ENEQLM,";f1;c0;d0,40;h1;w1;"
|
|---|
| 27 | W *3
|
|---|
| 28 | W *2,"R",*3
|
|---|
| 29 | Q
|
|---|
| 30 | BCDT ;Record print of Equip Label
|
|---|
| 31 | I $D(^ENG("VERSION")),^ENG("VERSION")>6.4 S DIE="^ENG(6914,",DR="28///T" D ^DIE
|
|---|
| 32 | Q
|
|---|
| 33 | ENLBLBOT ;Locally specified fields (human readable)
|
|---|
| 34 | ; in DA = equipment ien
|
|---|
| 35 | ; ENLBLBOT = text for bottom line (changed)
|
|---|
| 36 | N ENC,ENI,ENX
|
|---|
| 37 | S (ENC,ENI)=0
|
|---|
| 38 | F S ENI=$O(^DIC(6910,1,1,ENI)) Q:'ENI D Q:ENC=2
|
|---|
| 39 | . S ENX=$G(^DIC(6910,1,1,ENI,0))
|
|---|
| 40 | . Q:'$P(ENX,U)
|
|---|
| 41 | . Q:$$GET1^DID(6914,$P(ENX,U),"","MULTIPLE-VALUED")
|
|---|
| 42 | . S ENC=ENC+1
|
|---|
| 43 | . S ENLBLBOT=$S(ENC=1:"",1:ENLBLBOT_" ") ; init when 1st, else append
|
|---|
| 44 | . S ENLBLBOT=ENLBLBOT_$P(ENX,U,2)_" "_$$GET1^DIQ(6914,DA,$P(ENX,U))
|
|---|
| 45 | I $L(ENLBLBOT)>35 S ENLBLBOT=$E(ENLBLBOT,1,34)_"*" ; won't fit on label
|
|---|
| 46 | Q
|
|---|
| 47 | ;ENLBL7
|
|---|
