ENPL11.m

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 ---ENPL11   588     printed  Nov 22, 2024@17:04:47                                                                                                                                                                                                       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