| 1 | ENPL10 ;(WASH ISC)/LKG-VAF 10-1193 FORM ;6/23/93 14:42
|
|---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | A S DIC="^ENG(""PROJ"",",DIC(0)="AEMQZ",DIC("A")="Select PROJECT NUMBER: "
|
|---|
| 4 | D ^DIC K DIC
|
|---|
| 5 | I Y<1!$D(DTOUT)!$D(DUOUT) G EX
|
|---|
| 6 | S ENDA=+Y,ENPC=$P(Y(0),U,6) K Y
|
|---|
| 7 | L +^ENG("PROJ",ENDA):5 E W *7,!,"File is use, Please try later!" G A
|
|---|
| 8 | B S %ZIS="PQ" D ^%ZIS I POP L -^ENG("PROJ",ENDA) G EX
|
|---|
| 9 | I IOM<132 K IO("Q") D:IO'=IO(0) ^%ZISC W *7,!,"Must Support 132 Character Display" G B
|
|---|
| 10 | 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
|
|---|
| 11 | IN I $D(ZTQUEUED) L +^ENG("PROJ",ENDA)
|
|---|
| 12 | D:'$D(DT) DT^DICRW U IO
|
|---|
| 13 | K DXS,D0 S D0=ENDA D ^ENPLPB K DXS,D0
|
|---|
| 14 | I $E(IOST,1,2)="C-",'$D(ZTQUEUED) R !,"Hit <RETURN> to Continue; '^' to Quit",ENX:DTIME
|
|---|
| 15 | I $G(ENX)["^"!$D(DTOUT)!$D(DUOUT) G CL
|
|---|
| 16 | W @IOF
|
|---|
| 17 | S D0=ENDA D @$S(ENPC="NR":"^ENPLPA",1:"^ENPLPD") K DXS,D0
|
|---|
| 18 | I $E(IOST,1,2)="C-",'$D(ZTQUEUED) R !,"Hit <RETURN> to Continue",ENX:DTIME W @IOF
|
|---|
| 19 | CL L -^ENG("PROJ",ENDA)
|
|---|
| 20 | K DIC,ENDA,ENPC,ENX,DTOUT,DUOUT,D,D0,D1,DIWL,DIWR,DIXX,DN,Y
|
|---|
| 21 | D ^%ZISC
|
|---|
| 22 | I $D(ZTQUEUED) S ZTREQ="@" Q
|
|---|
| 23 | G A
|
|---|
| 24 | EX K DTOUT,DUOUT,ENDA,ENPC,Y
|
|---|
| 25 | Q
|
|---|
