| 1 | ENLBL8 ;(WASH ISC)/DH-Help Processor for Location Labels ;10.10.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**12,16,35,45**;Aug 17, 1993
|
|---|
| 3 | WARN Q:$D(ZTQUEUED)
|
|---|
| 4 | U IO(0) W *7,!,"NOTE: Location ",ENEQB," not properly formatted.",!," NO BAR CODE LABEL PRINTED." W !," Press <RETURN> to continue...",! R X:DTIME
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | BHELP W !!,"You must enter a building number as it appears in the Space File. If you",!,"obtain unanticipated results, you should first check your entry against",!,"the Space File."
|
|---|
| 8 | W !,"Press <RETURN> to continue..." R X:DTIME
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | WHELP1 W !!,"Select a WING as defined in the Space File (#6928).",!,"Would you like to see the entries" S %=2 D YN^DICN D:%=1 WHELP2
|
|---|
| 12 | S X="" Q
|
|---|
| 13 | ;
|
|---|
| 14 | WHELP2 W !,"Choose from:" S ENY=0
|
|---|
| 15 | WHELP21 S A=0 F B=0:0 S A=$O(^ENG("SP","C",A)) Q:A="" W !?3,A S ENY=ENY+1 I (ENY>(IOSL-3)) D WHELP22 Q:A=""
|
|---|
| 16 | I X'="^" W !,"Press <RETURN> to continue..." R X:DTIME
|
|---|
| 17 | S X="" Q
|
|---|
| 18 | WHELP22 W !!,"Press <RETURN> to continue, '^' to escape..." R X:DTIME S:X="^" A="" S ENY=0
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | FLOOR S DIC="^ENG(""SP"",",DIC(0)="AEQM",DIC("S")="I $P(^(0),U,3)=ENEQC",DIC("A")="Start with: " D ^DIC K DIC Q:Y'>0
|
|---|
| 22 | S ENEQC("FR")=$P(^ENG("SP",+Y,0),U,1)
|
|---|
| 23 | S DIC="^ENG(""SP"",",DIC(0)="AEQM",DIC("S")="I $P(^(0),U,3)=ENEQC",DIC("A")="Go to: " D ^DIC K DIC I +Y'>0 K ENEQC("FR") Q
|
|---|
| 24 | S ENEQC("TO")=$P(^ENG("SP",+Y,0),U,1) I ENEQC("FR")]ENEQC("TO") W !!,"Your starting point comes after your ending point. Can't process.",*7 K ENEQC("FR"),ENEQC("TO") G FLOOR
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | REQ ;Requeue the print job
|
|---|
| 28 | S ZTREQ="900S"
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | EXIT I $D(ENEQIO) U ENEQIO W @ENEQIOF S IO=ENEQIO,IOF=ENEQIOF,ION=ENEQION,IOST=ENEQIOST,IOST(0)=ENEQIOST(0) S:$D(ENEQIO("S")) IO("S")=ENEQIO("S") D ^%ZISC
|
|---|
| 32 | EXIT1 K ENEQIO,ENEQIOF,ENEQION,ENEQIOST,ENEQIOSL
|
|---|
| 33 | I $D(ENBCIO) S IO=ENBCIO,IOF=ENBCIOF,ION=ENBCION,IOST=ENBCIOST,IOST(0)=ENBCIOST(0) S:$D(ENBCIO("S")) IO("S")=ENBCIO("S") D ^%ZISC
|
|---|
| 34 | K ENBCIO,ENBCIOF,ENBCION,ENBCIOST,ENBCIOSL,ENBCIOS
|
|---|
| 35 | K EN,ENA,ENB,ENERR,ENEQSTA,ENEQSTAN,ENEQBY,ENEQDA,ENEQLM,ENEQBC,ENHDMRGN,ENEQUSER,ENEQPG,ENEQX,ENEQY,ENDX
|
|---|
| 36 | K ENMOD,ENSN,ENPMN,ENCMR,ENID,ENMEN,ENMAN,ENCAT,ENUSE,ENSER,ENLOC,ENEQDATE,ENEQA,ENEQB,ENEQC,ENBLDG,ENDIV,ENX,ENY,ENWNG,ENFLG,ENFR,ENTO,ENROOM
|
|---|
| 37 | K ENSHKEY,ENPMDT,ENPMWO,ENDA,ENLOCSRT,ENPO,ENLBLHD,ENLBLBOT,ENPM,ENLID,ENIX,ENEQREP
|
|---|
| 38 | D HOME^%ZIS K ^TMP($J)
|
|---|
| 39 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 40 | Q
|
|---|
| 41 | ;ENLBL8
|
|---|
