Last change
on this file since 1378 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
580 bytes
|
Rev | Line | |
---|
[613] | 1 | ENPL6 ;(WASH ISC)/LKG- ENVIRONMENTAL ANALYSIS FM E/E ;6/23/93 14:49
|
---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
---|
| 3 | ENT ;Entry point for enter/editing project application fields related to
|
---|
| 4 | ;;Environmental Analyses (VAF 10-1193a)
|
---|
| 5 | A S DIC="^ENG(""PROJ"",",DIC(0)="AEMQ",DIC("A")="Select PROJECT NUMBER: "
|
---|
| 6 | D ^DIC K DIC,DO
|
---|
| 7 | I Y<1!$D(DUOUT)!$D(DTOUT) G EX
|
---|
| 8 | S (ENDA,DA)=+Y
|
---|
| 9 | L +^ENG("PROJ",DA):5 E W *7,!,"File in Use, Please try later",! G C
|
---|
| 10 | S DR="[ENPLI003]",DIE="^ENG(""PROJ""," D ^DIE K DR,DIE
|
---|
| 11 | L -^ENG("PROJ",ENDA)
|
---|
| 12 | C K DA,ENDA
|
---|
| 13 | I '$D(DTOUT),'$D(DUOUT) G A
|
---|
| 14 | EX K ENDA,DA,DIC,DIE,DUOUT,DTOUT
|
---|
| 15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.