| 1 | ENLBL9 ;(WASH ISC)/DH-Companion Listing for Equipment Labels ;11.27.96
|
|---|
| 2 | ;;7.0;ENGINEERING;**12,35,80**;Aug 17, 1993
|
|---|
| 3 | ; Print companion list (if desired)
|
|---|
| 4 | ; Also asks if previously printed labels should be reprinted
|
|---|
| 5 | EN S DIR(0)="Y",DIR("A")="New labels only",DIR("B")="YES"
|
|---|
| 6 | S DIR("?",1)="The system records the printing of equipment bar code labels. If you do not"
|
|---|
| 7 | S DIR("?",2)="wish to have labels printed again if they have already been printed at least"
|
|---|
| 8 | S DIR("?")="once, please enter 'YES' at this time."
|
|---|
| 9 | D ^DIR K DIR Q:$D(DIRUT)
|
|---|
| 10 | S ENEQREP=+Y
|
|---|
| 11 | EN1 K ENEQIO W !,"Would you like a companion listing for this set of labels" S %=1 D YN^DICN Q:%=2!(%<0) I %<1 D HLP G EN
|
|---|
| 12 | S %ZIS("A")="Select PRINTER for Companion Listing: ",%ZIS="NQ",%ZIS("B")="" D ^%ZIS K %ZIS I POP D ERR G EN
|
|---|
| 13 | I IOM<80 D HOME^%ZIS W !,*7,"Device selected must have a MARGIN WIDTH of at least 80 char.",!! G EN
|
|---|
| 14 | I $E(^%ZOSF("OS"),1,3)="MSM",IO=IO(0) D ^%ZISC W !,*7,"MSM sites may not send Companion List to HOME device.",!! G EN
|
|---|
| 15 | S ENEQIO=IO,ENEQIOSL=IOSL,ENEQIOF=IOF,ENEQION=ION,ENEQIOST=IOST,ENEQIOST(0)=IOST(0),ENEQPG=0,ENEQY=0 S:$D(IO("S")) ENEQIO("S")=IO("S") S X="N",%DT="T" D ^%DT X ^DD("DD") S ENEQDATE=Y,ENHDMRGN=79-$L(ENEQDATE)
|
|---|
| 16 | D HOME^%ZIS
|
|---|
| 17 | I $D(DUZ),$D(^VA(200,DUZ,0)) S ENEQUSER=$P(^(0),U)
|
|---|
| 18 | E S ENEQUSER=""
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | CPRNT ;I $D(^ENG(6914,DA,3)),$P(^(3),U,10)]"" Q ;Suppress if already printed
|
|---|
| 22 | U ENEQIO I ENEQY=0!((ENEQIOSL-ENEQY)<8) D CHDR
|
|---|
| 23 | K EN S (ENMAN,ENMOD,ENSN,ENCAT,ENUSE,ENSER,ENLOC,ENPMN)="",ENMEN=$P(^ENG(6914,DA,0),U,2) S:$D(^ENG(6914,DA,1)) EN(1)=^(1) S:$D(^(3)) EN(3)=^(3)
|
|---|
| 24 | I $D(EN(1)) S ENMAN=$P(EN(1),U,4),ENMOD=$P(EN(1),U,2),ENSN=$P(EN(1),U,3),ENCAT=$P(EN(1),U,1)
|
|---|
| 25 | S:ENMAN]"" ENMAN=$P(^ENG("MFG",ENMAN,0),U,1) S:ENCAT]"" ENCAT=$P(^ENG(6911,ENCAT,0),U,1)
|
|---|
| 26 | I $D(EN(3)) S ENUSE=$P(EN(3),U,1),ENSER=$P(EN(3),U,2),ENLOC=$P(EN(3),U,5),ENPMN=$P(EN(3),U,6) S:ENUSE]"" ENUSE=$P($P(^DD(6914,20,0),U,3),";",ENUSE) I ENSER]"",$D(^DIC(49,ENSER)) S ENSER=$P(^DIC(49,ENSER,0),U,1)
|
|---|
| 27 | I ENLOC=+ENLOC,$D(^ENG("SP",ENLOC,0)) S ENLOC=$P(^(0),U)
|
|---|
| 28 | W !!,DA,?15,$E(ENMEN,1,60),!,?5,"Man: ",$E(ENMAN,1,30),?40,"Cat: ",$E(ENCAT,1,35)
|
|---|
| 29 | W !,?5,"Model: ",$E(ENMOD,1,28),?40,"S/N: ",$E(ENSN,1,35),!,?5,"Servc: ",$E(ENSER,1,28),?40,"Status: ",$P(ENUSE,":",2),!,?5,"Location: ",$E(ENLOC,1,25),?40,"PM#: ",ENPMN
|
|---|
| 30 | S ENEQY=ENEQY+6 K EN
|
|---|
| 31 | D:$O(^DIC(6910,1,2,0))]"" LOC1^ENLBL16
|
|---|
| 32 | Q
|
|---|
| 33 | CHDR W:ENEQPG @ENEQIOF S ENEQPG=ENEQPG+1 W "COMPANION LISTING (Bar Code Labels)",?ENHDMRGN,"Page ",ENEQPG
|
|---|
| 34 | W !,ENEQBY W:$L(ENEQBY)<41 " (",$S(ENEQUSER]"":$E(ENEQUSER,1,20),1:"User unknown"),")" W ?ENHDMRGN,ENEQDATE,!,"Equip ID",?15,"* Description *"
|
|---|
| 35 | S X="",$P(X,"-",80)="-" W !,X
|
|---|
| 36 | S ENEQY=0
|
|---|
| 37 | Q
|
|---|
| 38 | HLP W !!,"A 'companion listing' is simply a printout on regular paper (must be at",!,"least 80 columns wide) that is intended for use in the initial application"
|
|---|
| 39 | W !,"of the actual bar code labels to individual equipment items. The companion",!,"listing will contain more descriptive information than can be printed"
|
|---|
| 40 | W !,"on the labels themselves, and will be sorted in the same order as the",!,"labels."
|
|---|
| 41 | Q
|
|---|
| 42 | OPEN ;
|
|---|
| 43 | S IOP=ENEQION D ^%ZIS K IOP
|
|---|
| 44 | Q
|
|---|
| 45 | ERR W !,*7,"Device selection unsuccessful.",!
|
|---|
| 46 | Q
|
|---|
| 47 | ;ENLBL9
|
|---|
