ENPL10 ;(WASH ISC)/LKG-VAF 10-1193 FORM ;6/23/93 14:42
;;7.0;ENGINEERING;;Aug 17, 1993
A S DIC="^ENG(""PROJ"",",DIC(0)="AEMQZ",DIC("A")="Select PROJECT NUMBER: "
D ^DIC K DIC
I Y<1!$D(DTOUT)!$D(DUOUT) G EX
S ENDA=+Y,ENPC=$P(Y(0),U,6) K Y
L +^ENG("PROJ",ENDA):5 E W *7,!,"File is use, Please try later!" G A
B S %ZIS="PQ" D ^%ZIS I POP L -^ENG("PROJ",ENDA) G EX
I IOM<132 K IO("Q") D:IO'=IO(0) ^%ZISC W *7,!,"Must Support 132 Character Display" G B
I $D(IO("Q")) S ZTRTN="IN^ENPL10",ZTDESC="Printing VAF 10-1193",ZTSAVE("ENDA")="",ZTSAVE("ENPC")="",ZTSAVE("DUZ")="" D ^%ZTLOAD,HOME^%ZIS L -^ENG("PROJ",ENDA) K IO("Q"),ZTSK,ZTRTN,ZTDESC,ZTSAVE,ENDA,ENPC G A
IN I $D(ZTQUEUED) L +^ENG("PROJ",ENDA)
D:'$D(DT) DT^DICRW U IO
K DXS,D0 S D0=ENDA D ^ENPLPB K DXS,D0
I $E(IOST,1,2)="C-",'$D(ZTQUEUED) R !,"Hit <RETURN> to Continue; '^' to Quit",ENX:DTIME
I $G(ENX)["^"!$D(DTOUT)!$D(DUOUT) G CL
W @IOF
S D0=ENDA D @$S(ENPC="NR":"^ENPLPA",1:"^ENPLPD") K DXS,D0
I $E(IOST,1,2)="C-",'$D(ZTQUEUED) R !,"Hit <RETURN> to Continue",ENX:DTIME W @IOF
CL L -^ENG("PROJ",ENDA)
K DIC,ENDA,ENPC,ENX,DTOUT,DUOUT,D,D0,D1,DIWL,DIWR,DIXX,DN,Y
D ^%ZISC
I $D(ZTQUEUED) S ZTREQ="@" Q
G A
EX K DTOUT,DUOUT,ENDA,ENPC,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL10 1234 printed Dec 13, 2024@01:54:38 Page 2
ENPL10 ;(WASH ISC)/LKG-VAF 10-1193 FORM ;6/23/93 14:42
+1 ;;7.0;ENGINEERING;;Aug 17, 1993
A SET DIC="^ENG(""PROJ"","
SET DIC(0)="AEMQZ"
SET DIC("A")="Select PROJECT NUMBER: "
+1 DO ^DIC
KILL DIC
+2 IF Y<1!$DATA(DTOUT)!$DATA(DUOUT)
GOTO EX
+3 SET ENDA=+Y
SET ENPC=$PIECE(Y(0),U,6)
KILL Y
+4 LOCK +^ENG("PROJ",ENDA):5
IF '$TEST
WRITE *7,!,"File is use, Please try later!"
GOTO A
B SET %ZIS="PQ"
DO ^%ZIS
IF POP
LOCK -^ENG("PROJ",ENDA)
GOTO EX
+1 IF IOM<132
KILL IO("Q")
if IO'=IO(0)
DO ^%ZISC
WRITE *7,!,"Must Support 132 Character Display"
GOTO B
+2 IF $DATA(IO("Q"))
SET ZTRTN="IN^ENPL10"
SET ZTDESC="Printing VAF 10-1193"
SET ZTSAVE("ENDA")=""
SET ZTSAVE("ENPC")=""
SET ZTSAVE("DUZ")=""
DO ^%ZTLOAD
DO HOME^%ZIS
LOCK -^ENG("PROJ",ENDA)
KILL IO("Q"),ZTSK,ZTRTN,ZTDESC,ZTSAVE,ENDA,ENPC
GOTO A
IN IF $DATA(ZTQUEUED)
LOCK +^ENG("PROJ",ENDA)
+1 if '$DATA(DT)
DO DT^DICRW
USE IO
+2 KILL DXS,D0
SET D0=ENDA
DO ^ENPLPB
KILL DXS,D0
+3 IF $EXTRACT(IOST,1,2)="C-"
IF '$DATA(ZTQUEUED)
READ !,"Hit <RETURN> to Continue; '^' to Quit",ENX:DTIME
+4 IF $GET(ENX)["^"!$DATA(DTOUT)!$DATA(DUOUT)
GOTO CL
+5 WRITE @IOF
+6 SET D0=ENDA
DO @$SELECT(ENPC="NR":"^ENPLPA",1:"^ENPLPD")
KILL DXS,D0
+7 IF $EXTRACT(IOST,1,2)="C-"
IF '$DATA(ZTQUEUED)
READ !,"Hit <RETURN> to Continue",ENX:DTIME
WRITE @IOF
CL LOCK -^ENG("PROJ",ENDA)
+1 KILL DIC,ENDA,ENPC,ENX,DTOUT,DUOUT,D,D0,D1,DIWL,DIWR,DIXX,DN,Y
+2 DO ^%ZISC
+3 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
QUIT
+4 GOTO A
EX KILL DTOUT,DUOUT,ENDA,ENPC,Y
+1 QUIT
