|
Last change
on this file since 661 was 613, checked in by George Lilly, 16 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
574 bytes
|
| Line | |
|---|
| 1 | ENPL11 ;(WASH ISC)/LKG-VAF 10-1193a FORM Print ;7/7/93 15:25
|
|---|
| 2 | ;;7.0;ENGINEERING;;Aug 17, 1993
|
|---|
| 3 | A ;Entry point 'A' for selecting project and printing its VAF 10-1193a
|
|---|
| 4 | S DIC="^ENG(""PROJ"",",DIC(0)="AEMQZ",DIC("A")="Select PROJECT NUMBER: "
|
|---|
| 5 | D ^DIC K DIC
|
|---|
| 6 | I Y<1!$D(DTOUT)!$D(DUOUT) G EX
|
|---|
| 7 | S ENDA=+Y L +^ENG("PROJ",ENDA):5 E W *7,!,"File in use, Please try later!" K Y,ENDA G A
|
|---|
| 8 | S DIC="^ENG(""PROJ"",",FLDS="[ENPLP001]",L=0,BY=.01,(FR,TO)=Y(0,0)
|
|---|
| 9 | S DHD="@"
|
|---|
| 10 | D EN1^DIP K DIC,FLDS,L,BY,FR,TO,DHD
|
|---|
| 11 | L -^ENG("PROJ",ENDA) K ENDA,Y
|
|---|
| 12 | I '$D(DTOUT),'$D(DUOUT) G A
|
|---|
| 13 | EX K DTOUT,DUOUT,Y
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
