ENPL10.m

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 ---ENPL10   1234     printed  Apr 09, 2024@20:59:59                                                                                                                                                                                                      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