ENPL11 ;(WASH ISC)/LKG-VAF 10-1193a FORM Print ;7/7/93 15:25
;;7.0;ENGINEERING;;Aug 17, 1993
A ;Entry point 'A' for selecting project and printing its VAF 10-1193a
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 L +^ENG("PROJ",ENDA):5 E W *7,!,"File in use, Please try later!" K Y,ENDA G A
S DIC="^ENG(""PROJ"",",FLDS="[ENPLP001]",L=0,BY=.01,(FR,TO)=Y(0,0)
S DHD="@"
D EN1^DIP K DIC,FLDS,L,BY,FR,TO,DHD
L -^ENG("PROJ",ENDA) K ENDA,Y
I '$D(DTOUT),'$D(DUOUT) G A
EX K DTOUT,DUOUT,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL11 588 printed Dec 13, 2024@01:54:38 Page 2
ENPL11 ;(WASH ISC)/LKG-VAF 10-1193a FORM Print ;7/7/93 15:25
+1 ;;7.0;ENGINEERING;;Aug 17, 1993
A ;Entry point 'A' for selecting project and printing its VAF 10-1193a
+1 SET DIC="^ENG(""PROJ"","
SET DIC(0)="AEMQZ"
SET DIC("A")="Select PROJECT NUMBER: "
+2 DO ^DIC
KILL DIC
+3 IF Y<1!$DATA(DTOUT)!$DATA(DUOUT)
GOTO EX
+4 SET ENDA=+Y
LOCK +^ENG("PROJ",ENDA):5
IF '$TEST
WRITE *7,!,"File in use, Please try later!"
KILL Y,ENDA
GOTO A
+5 SET DIC="^ENG(""PROJ"","
SET FLDS="[ENPLP001]"
SET L=0
SET BY=.01
SET (FR,TO)=Y(0,0)
+6 SET DHD="@"
+7 DO EN1^DIP
KILL DIC,FLDS,L,BY,FR,TO,DHD
+8 LOCK -^ENG("PROJ",ENDA)
KILL ENDA,Y
+9 IF '$DATA(DTOUT)
IF '$DATA(DUOUT)
GOTO A
EX KILL DTOUT,DUOUT,Y
+1 QUIT
