Routine: ENPL3B

ENPL3B ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;7/8/94

 ;;7.0;ENGINEERING;**11**;Aug 17, 1993

D W !!,"2. Safety: Handicapped (UFAS), EPA/NRC, Fire/Safety (RSFPE), OSHA."

 W !,?6,"Date",?19,"Page",?29,"Name/Title" S ENA=""

 F  S ENA=$O(ENF(2,ENA)) Q:ENA=""  W !,?2,"(",ENA,")",?6,$P(ENF(2,ENA),U),?19,$P(ENF(2,ENA),U,2),?29,$P(ENF(2,ENA),U,3)

 W !,?70,$J($P($G(ENF),U,2)+0,2) K ENF(2)

 W !!,"3. Space:",!,?5,$S(+ENK>0:$P($G(ENG),U,2),1:"Not Applicable"),?70,$J($G(ENK)+0,2)

 I $Y+5>IOSL D HD G:X["^" EX0

 W !!,"4. Energy Conservation:",!,?5,$S($P(ENK,U,2)>0:$P($G(ENH),U,2),1:"Not Applicable")

 W ?70,$J($P($G(ENK),U,2)+0,2)

 I $Y+7>IOSL D HD G:X["^" EX0

 W !!,"5. Category Bonus (Scope Dependent):"

 W !,?5,$S($P(ENK,U,3)>0:$P($G(ENI),U,2),1:"Not Applicable"),?70,$J($P($G(ENK),U,3)+0,2)

 W !!,?53,"FACTOR SUBTOTAL",?70,$J($G(ENF)+$P($G(ENF),U,2)+$G(ENK)+$P($G(ENK),U,2)+$P($G(ENK),U,3),2)

 I $Y+5>IOSL D HD G:X["^" EX0

 W !!,"6. VAMC Priority: [Rank and Submit ",$S(ENN="MI":"2 Minor Design projects",1:"no more than 4 Minor Misc"),"]"

 W !,?5,$P($G(ENJ),U,2),?70,"UNK" ; $J($G(ENJ)+0,2)

 ; W !!,?46,"VAMC & FACTOR SUBTOTAL",?70,$J($G(ENX)+0,2)

 I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME G EX0

 ;S ENM="",$P(ENM,"*",78)="" W !!!,ENM,!!! K ENM

 ;W !,"Region to Complete:"

 ;W !!,"7. Priority Equipment: High Technology/High Cost [Must be one of Region's"

 ;W !,"top 5 priorities on Over $250K nat'l priority list; equipment name/cost should"

 ;W !,"be listed above]",!,?15,"YES = 10",?35,"NO = 0",!,?70,"_____"

 ;W !!,"8. Region Priority: [Rank and Submit ",$S(ENN="MI":"12 Minor Design",1:"35 Minor Miscellaneous"),"]"

 ;W !,?15,"Priority:",?25,$S(ENN="MI":"1-------12",1:"1-------35"),!,?15,"Points",?25,$S(ENN="MI":"36-------3",1:"70-------2"),?45,"[increment=",$S(ENN="MI":3,1:2),"]"

 ;W ?70,"_____",!!!!!,?58,"TOTAL SCORE",?70,"_____"

 ;F ENM=1:1:(IOSL-3-$Y) W !

 ;W !,?29,"Minor Attachment ",$S(ENN="MI":"B.1-2",1:"B.2-2"),!,?35,"Rev 1/5/93"

EX0 D ^%ZISC S:$D(ZTQUEUED) ZTREQ="@"

EX K DIC,DIQ,DR,DTOUT,DUOUT,DA,ENDA,ENA,ENB,ENC,END,ENE,ENF,ENG,ENH,ENI,ENJ,ENK,ENL,ENM,ENN,ENX,X,Y

HD ; Subsequent Page Header

 I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME Q:X["^"

 W @IOF

 W !,?55,"Project #: ",$P($G(^ENG("PROJ",ENDA,0)),U)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL3B   2288     printed  Mar 13, 2025@20:59:22                                                                                                                                                                                                      Page 2

ENPL3B    ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;7/8/94

 +1       ;;7.0;ENGINEERING;**11**;Aug 17, 1993

D          WRITE !!,"2. Safety: Handicapped (UFAS), EPA/NRC, Fire/Safety (RSFPE), OSHA."

 +1        WRITE !,?6,"Date",?19,"Page",?29,"Name/Title"

           SET ENA=""

 +2        FOR

               SET ENA=$ORDER(ENF(2,ENA))

               if ENA=""

                   QUIT

               WRITE !,?2,"(",ENA,")",?6,$PIECE(ENF(2,ENA),U),?19,$PIECE(ENF(2,ENA),U,2),?29,$PIECE(ENF(2,ENA),U,3)

 +3        WRITE !,?70,$JUSTIFY($PIECE($GET(ENF),U,2)+0,2)

           KILL ENF(2)

 +4        WRITE !!,"3. Space:",!,?5,$SELECT(+ENK>0:$PIECE($GET(ENG),U,2),1:"Not Applicable"),?70,$JUSTIFY($GET(ENK)+0,2)

 +5        IF $Y+5>IOSL

               DO HD

               if X["^"

                   GOTO EX0

 +6        WRITE !!,"4. Energy Conservation:",!,?5,$SELECT($PIECE(ENK,U,2)>0:$PIECE($GET(ENH),U,2),1:"Not Applicable")

 +7        WRITE ?70,$JUSTIFY($PIECE($GET(ENK),U,2)+0,2)

 +8        IF $Y+7>IOSL

               DO HD

               if X["^"

                   GOTO EX0

 +9        WRITE !!,"5. Category Bonus (Scope Dependent):"

 +10       WRITE !,?5,$SELECT($PIECE(ENK,U,3)>0:$PIECE($GET(ENI),U,2),1:"Not Applicable"),?70,$JUSTIFY($PIECE($GET(ENK),U,3)+0,2)

 +11       WRITE !!,?53,"FACTOR SUBTOTAL",?70,$JUSTIFY($GET(ENF)+$PIECE($GET(ENF),U,2)+$GET(ENK)+$PIECE($GET(ENK),U,2)+$PIECE($GET(ENK),U,3),2)

 +12       IF $Y+5>IOSL

               DO HD

               if X["^"

                   GOTO EX0

 +13       WRITE !!,"6. VAMC Priority: [Rank and Submit ",$SELECT(ENN="MI":"2 Minor Design projects",1:"no more than 4 Minor Misc"),"]"

 +14      ; $J($G(ENJ)+0,2)

           WRITE !,?5,$PIECE($GET(ENJ),U,2),?70,"UNK"

 +15      ; W !!,?46,"VAMC & FACTOR SUBTOTAL",?70,$J($G(ENX)+0,2)

 +16       IF '$DATA(ZTQUEUED)

               IF $EXTRACT(IOST,1,2)="C-"

                   READ X:DTIME

                   GOTO EX0

 +17      ;S ENM="",$P(ENM,"*",78)="" W !!!,ENM,!!! K ENM

 +18      ;W !,"Region to Complete:"

 +19      ;W !!,"7. Priority Equipment: High Technology/High Cost [Must be one of Region's"

 +20      ;W !,"top 5 priorities on Over $250K nat'l priority list; equipment name/cost should"

 +21      ;W !,"be listed above]",!,?15,"YES = 10",?35,"NO = 0",!,?70,"_____"

 +22      ;W !!,"8. Region Priority: [Rank and Submit ",$S(ENN="MI":"12 Minor Design",1:"35 Minor Miscellaneous"),"]"

 +23      ;W !,?15,"Priority:",?25,$S(ENN="MI":"1-------12",1:"1-------35"),!,?15,"Points",?25,$S(ENN="MI":"36-------3",1:"70-------2"),?45,"[increment=",$S(ENN="MI":3,1:2),"]"

 +24      ;W ?70,"_____",!!!!!,?58,"TOTAL SCORE",?70,"_____"

 +25      ;F ENM=1:1:(IOSL-3-$Y) W !

 +26      ;W !,?29,"Minor Attachment ",$S(ENN="MI":"B.1-2",1:"B.2-2"),!,?35,"Rev 1/5/93"

EX0        DO ^%ZISC

           if $DATA(ZTQUEUED)

               SET ZTREQ="@"

EX         KILL DIC,DIQ,DR,DTOUT,DUOUT,DA,ENDA,ENA,ENB,ENC,END,ENE,ENF,ENG,ENH,ENI,ENJ,ENK,ENL,ENM,ENN,ENX,X,Y

 +1        QUIT

HD        ; Subsequent Page Header

 +1        IF '$DATA(ZTQUEUED)

               IF $EXTRACT(IOST,1,2)="C-"

                   READ X:DTIME

                   if X["^"

                       QUIT

 +2        WRITE @IOF

 +3        WRITE !,?55,"Project #: ",$PIECE($GET(^ENG("PROJ",ENDA,0)),U)

 +4        QUIT

ENPL3B.m