ENPL6 ;(WASH ISC)/LKG- ENVIRONMENTAL ANALYSIS FM E/E ;6/23/93 14:49
;;7.0;ENGINEERING;;Aug 17, 1993
ENT ;Entry point for enter/editing project application fields related to
;;Environmental Analyses (VAF 10-1193a)
A S DIC="^ENG(""PROJ"",",DIC(0)="AEMQ",DIC("A")="Select PROJECT NUMBER: "
D ^DIC K DIC,DO
I Y<1!$D(DUOUT)!$D(DTOUT) G EX
S (ENDA,DA)=+Y
L +^ENG("PROJ",DA):5 E W *7,!,"File in Use, Please try later",! G C
S DR="[ENPLI003]",DIE="^ENG(""PROJ""," D ^DIE K DR,DIE
L -^ENG("PROJ",ENDA)
C K DA,ENDA
I '$D(DTOUT),'$D(DUOUT) G A
EX K ENDA,DA,DIC,DIE,DUOUT,DTOUT
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL6 595 printed Dec 13, 2024@01:54:49 Page 2
ENPL6 ;(WASH ISC)/LKG- ENVIRONMENTAL ANALYSIS FM E/E ;6/23/93 14:49
+1 ;;7.0;ENGINEERING;;Aug 17, 1993
ENT ;Entry point for enter/editing project application fields related to
+1 ;;Environmental Analyses (VAF 10-1193a)
A SET DIC="^ENG(""PROJ"","
SET DIC(0)="AEMQ"
SET DIC("A")="Select PROJECT NUMBER: "
+1 DO ^DIC
KILL DIC,DO
+2 IF Y<1!$DATA(DUOUT)!$DATA(DTOUT)
GOTO EX
+3 SET (ENDA,DA)=+Y
+4 LOCK +^ENG("PROJ",DA):5
IF '$TEST
WRITE *7,!,"File in Use, Please try later",!
GOTO C
+5 SET DR="[ENPLI003]"
SET DIE="^ENG(""PROJ"","
DO ^DIE
KILL DR,DIE
+6 LOCK -^ENG("PROJ",ENDA)
C KILL DA,ENDA
+1 IF '$DATA(DTOUT)
IF '$DATA(DUOUT)
GOTO A
EX KILL ENDA,DA,DIC,DIE,DUOUT,DTOUT
+1 QUIT
