ENLBL8 ;(WASH ISC)/DH-Help Processor for Location Labels ;10.10.97
;;7.0;ENGINEERING;**12,16,35,45**;Aug 17, 1993
WARN Q:$D(ZTQUEUED)
U IO(0) W *7,!,"NOTE: Location ",ENEQB," not properly formatted.",!," NO BAR CODE LABEL PRINTED." W !," Press <RETURN> to continue...",! R X:DTIME
Q
;
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."
W !,"Press <RETURN> to continue..." R X:DTIME
Q
;
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
S X="" Q
;
WHELP2 W !,"Choose from:" S ENY=0
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=""
I X'="^" W !,"Press <RETURN> to continue..." R X:DTIME
S X="" Q
WHELP22 W !!,"Press <RETURN> to continue, '^' to escape..." R X:DTIME S:X="^" A="" S ENY=0
Q
;
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
S ENEQC("FR")=$P(^ENG("SP",+Y,0),U,1)
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
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
Q
;
REQ ;Requeue the print job
S ZTREQ="900S"
Q
;
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
EXIT1 K ENEQIO,ENEQIOF,ENEQION,ENEQIOST,ENEQIOSL
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
K ENBCIO,ENBCIOF,ENBCION,ENBCIOST,ENBCIOSL,ENBCIOS
K EN,ENA,ENB,ENERR,ENEQSTA,ENEQSTAN,ENEQBY,ENEQDA,ENEQLM,ENEQBC,ENHDMRGN,ENEQUSER,ENEQPG,ENEQX,ENEQY,ENDX
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
K ENSHKEY,ENPMDT,ENPMWO,ENDA,ENLOCSRT,ENPO,ENLBLHD,ENLBLBOT,ENPM,ENLID,ENIX,ENEQREP
D HOME^%ZIS K ^TMP($J)
S:$D(ZTQUEUED) ZTREQ="@"
Q
;ENLBL8
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENLBL8 2322 printed Apr 09, 2024@20:58:22 Page 2
ENLBL8 ;(WASH ISC)/DH-Help Processor for Location Labels ;10.10.97
+1 ;;7.0;ENGINEERING;**12,16,35,45**;Aug 17, 1993
WARN if $DATA(ZTQUEUED)
QUIT
+1 USE IO(0)
WRITE *7,!,"NOTE: Location ",ENEQB," not properly formatted.",!," NO BAR CODE LABEL PRINTED."
WRITE !," Press <RETURN> to continue...",!
READ X:DTIME
+2 QUIT
+3 ;
BHELP WRITE !!,"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."
+1 WRITE !,"Press <RETURN> to continue..."
READ X:DTIME
+2 QUIT
+3 ;
WHELP1 WRITE !!,"Select a WING as defined in the Space File (#6928).",!,"Would you like to see the entries"
SET %=2
DO YN^DICN
if %=1
DO WHELP2
+1 SET X=""
QUIT
+2 ;
WHELP2 WRITE !,"Choose from:"
SET ENY=0
WHELP21 SET A=0
FOR B=0:0
SET A=$ORDER(^ENG("SP","C",A))
if A=""
QUIT
WRITE !?3,A
SET ENY=ENY+1
IF (ENY>(IOSL-3))
DO WHELP22
if A=""
QUIT
+1 IF X'="^"
WRITE !,"Press <RETURN> to continue..."
READ X:DTIME
+2 SET X=""
QUIT
WHELP22 WRITE !!,"Press <RETURN> to continue, '^' to escape..."
READ X:DTIME
if X="^"
SET A=""
SET ENY=0
+1 QUIT
+2 ;
FLOOR SET DIC="^ENG(""SP"","
SET DIC(0)="AEQM"
SET DIC("S")="I $P(^(0),U,3)=ENEQC"
SET DIC("A")="Start with: "
DO ^DIC
KILL DIC
if Y'>0
QUIT
+1 SET ENEQC("FR")=$PIECE(^ENG("SP",+Y,0),U,1)
+2 SET DIC="^ENG(""SP"","
SET DIC(0)="AEQM"
SET DIC("S")="I $P(^(0),U,3)=ENEQC"
SET DIC("A")="Go to: "
DO ^DIC
KILL DIC
IF +Y'>0
KILL ENEQC("FR")
QUIT
+3 SET ENEQC("TO")=$PIECE(^ENG("SP",+Y,0),U,1)
IF ENEQC("FR")]ENEQC("TO")
WRITE !!,"Your starting point comes after your ending point. Can't process.",*7
KILL ENEQC("FR"),ENEQC("TO")
GOTO FLOOR
+4 QUIT
+5 ;
REQ ;Requeue the print job
+1 SET ZTREQ="900S"
+2 QUIT
+3 ;
EXIT IF $DATA(ENEQIO)
USE ENEQIO
WRITE @ENEQIOF
SET IO=ENEQIO
SET IOF=ENEQIOF
SET ION=ENEQION
SET IOST=ENEQIOST
SET IOST(0)=ENEQIOST(0)
if $DATA(ENEQIO("S"))
SET IO("S")=ENEQIO("S")
DO ^%ZISC
EXIT1 KILL ENEQIO,ENEQIOF,ENEQION,ENEQIOST,ENEQIOSL
+1 IF $DATA(ENBCIO)
SET IO=ENBCIO
SET IOF=ENBCIOF
SET ION=ENBCION
SET IOST=ENBCIOST
SET IOST(0)=ENBCIOST(0)
if $DATA(ENBCIO("S"))
SET IO("S")=ENBCIO("S")
DO ^%ZISC
+2 KILL ENBCIO,ENBCIOF,ENBCION,ENBCIOST,ENBCIOSL,ENBCIOS
+3 KILL EN,ENA,ENB,ENERR,ENEQSTA,ENEQSTAN,ENEQBY,ENEQDA,ENEQLM,ENEQBC,ENHDMRGN,ENEQUSER,ENEQPG,ENEQX,ENEQY,ENDX
+4 KILL ENMOD,ENSN,ENPMN,ENCMR,ENID,ENMEN,ENMAN,ENCAT,ENUSE,ENSER,ENLOC,ENEQDATE,ENEQA,ENEQB,ENEQC,ENBLDG,ENDIV,ENX,ENY,ENWNG,ENFLG,ENFR,ENTO,ENROOM
+5 KILL ENSHKEY,ENPMDT,ENPMWO,ENDA,ENLOCSRT,ENPO,ENLBLHD,ENLBLBOT,ENPM,ENLID,ENIX,ENEQREP
+6 DO HOME^%ZIS
KILL ^TMP($JOB)
+7 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+8 QUIT
+9 ;ENLBL8
