- 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 Jan 18, 2025@02:55:50 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