source: FOIAVistA/trunk/r/ENGINEERING-EN/ENLBL8.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1ENLBL8 ;(WASH ISC)/DH-Help Processor for Location Labels ;10.10.97
2 ;;7.0;ENGINEERING;**12,16,35,45**;Aug 17, 1993
3WARN 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 ;
7BHELP 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 ;
11WHELP1 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 ;
14WHELP2 W !,"Choose from:" S ENY=0
15WHELP21 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
18WHELP22 W !!,"Press <RETURN> to continue, '^' to escape..." R X:DTIME S:X="^" A="" S ENY=0
19 Q
20 ;
21FLOOR 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 ;
27REQ ;Requeue the print job
28 S ZTREQ="900S"
29 Q
30 ;
31EXIT 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
32EXIT1 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
Note: See TracBrowser for help on using the repository browser.