source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPL6.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 580 bytes
Line 
1ENPL6 ;(WASH ISC)/LKG- ENVIRONMENTAL ANALYSIS FM E/E ;6/23/93 14:49
2 ;;7.0;ENGINEERING;;Aug 17, 1993
3ENT ;Entry point for enter/editing project application fields related to
4 ;;Environmental Analyses (VAF 10-1193a)
5A 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)
12C K DA,ENDA
13 I '$D(DTOUT),'$D(DUOUT) G A
14EX K ENDA,DA,DIC,DIE,DUOUT,DTOUT
15 Q
Note: See TracBrowser for help on using the repository browser.