- ENPL3A ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;4/29/94
- ;;7.0;ENGINEERING;**11**;Aug 17, 1993
- A ;Entry point for printing Sheet
- S DIC="^ENG(""PROJ"",",DIC("S")="I "",MI,MM,""[("",""_$P(^(0),U,6)_"",""),$P($G(^(52)),U,6)=""VHA"""
- S DIC(0)="AEQZ",DIC("A")="Select PROJECT NUMBER: " D ^DIC K DIC
- I Y<1!$D(DTOUT)!$D(DUOUT) G EX^ENPL3B
- S ENDA=+Y,ENN=Y(0),%ZIS="PQ" K Y D ^%ZIS G:POP EX^ENPL3B
- I $D(IO("Q")) S ZTRTN="C^ENPL3A",ZTDESC="Printing Minor Design/Misc Prioritization Sheet",ZTSAVE("ENDA")="",ZTSAVE("ENN")="" D ^%ZTLOAD,HOME^%ZIS K IO("Q"),ZTRTN,ZTDESC,ZTSAVE,ZTSK G A
- D C
- G A
- C U IO W:$E(IOST,1,2)="C-" @IOF D J^ENPL3 W !,?80-$L(X)\2,X
- K ENM S U="^",DA=$P(ENN,U,4) G:DA'?1.N C1 S DIC="^DIC(4,",DIQ="ENM",DIQ(0)="E"
- S DR=".01" D EN^DIQ1 K DIC,DIQ,DR
- W !!,"Medical Center: ",ENM(4,DA,.01,"E")
- C1 I $D(^ENG("PROJ",ENDA,15))#10,$P(^(15),U)]"" W " (",$P(^(15),U),")"
- W !,"Project Title:",?60,"Project #",!,$P(ENN,U,3),?60,$P(ENN,U)
- S ENN=$P(ENN,U,6)
- K ENM S ENM=$P($G(^ENG("PROJ",ENDA,52)),U) S:ENM?1.N ENM=$P($G(^OFM(7336.8,ENM,0)),U)
- W !!,"Category: ",ENM K ENM
- S DIC="^ENG(""PROJ"",",DA=ENDA,DIQ="ENM",DIQ(0)="E",DR="221;218.1;219;220.1"
- D EN^DIQ1 K DIC,DIQ,DR
- S ENM=ENM(6925,DA,221,"E")+ENM(6925,DA,218.1,"E")+ENM(6925,DA,219,"E")
- W !!,"TOTAL ESTIMATED: Construction Cost: ",$FN(ENM,",")
- W ?55,"Design Cost: ",$FN(ENM(6925,DA,220.1,"E"),",") K ENM
- S ENM=$G(^ENG("PROJ",ENDA,24)) W !!,"Activations FY: ",$P(ENM,U)
- W !,?2,"Additional FTEE Required:",?32,$J($FN($P(ENM,U,3)+0,",",2),11)
- W ?45,"Recurring PS $:",?68,$J($FN($P(ENM,U,4)+0,",",0),11)
- W !,?2,"Non-Recurring All Other $:",?29,$J($FN($P(ENM,U,6)+0,",",0),11)
- W ?45,"Equipment $:",?68,$J($FN($P(ENM,U,5)+0,",",0),11)
- W !,?2,"Travel .007 $:",?29,$J($FN($P(ENM,U,7)+0,",",0),11)
- W ?45,"Recurring all other $:",?68,$J($FN($P(ENM,U,2)+0,",",0),11) K ENM
- W !!,"Major/Minor Funded Projects to which Domino",!,?2,"#",?15,"Title",?70,"Type"
- D H^ENPL3 S X="" F S X=$O(ENL(X)) Q:X="" W !,?2,X,?15,$P(ENL(X),U),?70,$P(ENL(X),U,2)
- I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME G:X["^" EX0^ENPL3B W @IOF
- K ENL W !!,"Equipment Over $250K:"
- W:'$O(^ENG("PROJ",ENDA,25,0)) !,?2,"Name:",?40,"A/R:",?50,"Qty:",?62,"$" S X=0
- F S X=$O(^ENG("PROJ",ENDA,25,X)) Q:X'?1.N S ENM=$G(^(X,0)) W !,?2,"Name: ",$P(ENM,U),?40,"A/R: ",$P(ENM,U,4),?50,"Qty: ",$P(ENM,U,2),?62,"$",$FN($P(ENM,U,2)*$P(ENM,U,3),",",0)
- K ENM W !!,"Brief Project Description: " K ^UTILITY($J,"W")
- S DIWL=10,DIWR=70,DIWF="W",ENM=0
- F ENA=0:1 S ENM=$O(^ENG("PROJ",ENDA,17,ENM)) Q:ENM'?1.N S X=$G(^(ENM,0)) D ^DIWP
- D:ENA ^DIWW K ^UTILITY($J,"W"),DIWL,DIWR,DIWF
- I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME G:X["^" EX0^ENPL3B W @IOF
- W !!,?70,"POINTS" D IN^ENPL3
- W !,"1. Cited JCAHO/AALAC/CAP Accreditation Deficiency."
- W !,?6,"Date",?19,"Page",?29,"Name/Title" S ENA=""
- F S ENA=$O(ENF(1,ENA)) Q:ENA="" W !,?2,"(",ENA,")",?6,$P(ENF(1,ENA),U),?19,$P(ENF(1,ENA),U,2),?29,$P(ENF(1,ENA),U,3)
- W !,?70,$J($P($G(ENF),U)+0,2) K ENF(1)
- G D^ENPL3B
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL3A 3049 printed Mar 13, 2025@20:59:21 Page 2
- ENPL3A ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;4/29/94
- +1 ;;7.0;ENGINEERING;**11**;Aug 17, 1993
- A ;Entry point for printing Sheet
- +1 SET DIC="^ENG(""PROJ"","
- SET DIC("S")="I "",MI,MM,""[("",""_$P(^(0),U,6)_"",""),$P($G(^(52)),U,6)=""VHA"""
- +2 SET DIC(0)="AEQZ"
- SET DIC("A")="Select PROJECT NUMBER: "
- DO ^DIC
- KILL DIC
- +3 IF Y<1!$DATA(DTOUT)!$DATA(DUOUT)
- GOTO EX^ENPL3B
- +4 SET ENDA=+Y
- SET ENN=Y(0)
- SET %ZIS="PQ"
- KILL Y
- DO ^%ZIS
- if POP
- GOTO EX^ENPL3B
- +5 IF $DATA(IO("Q"))
- SET ZTRTN="C^ENPL3A"
- SET ZTDESC="Printing Minor Design/Misc Prioritization Sheet"
- SET ZTSAVE("ENDA")=""
- SET ZTSAVE("ENN")=""
- DO ^%ZTLOAD
- DO HOME^%ZIS
- KILL IO("Q"),ZTRTN,ZTDESC,ZTSAVE,ZTSK
- GOTO A
- +6 DO C
- +7 GOTO A
- C USE IO
- if $EXTRACT(IOST,1,2)="C-"
- WRITE @IOF
- DO J^ENPL3
- WRITE !,?80-$LENGTH(X)\2,X
- +1 KILL ENM
- SET U="^"
- SET DA=$PIECE(ENN,U,4)
- if DA'?1.N
- GOTO C1
- SET DIC="^DIC(4,"
- SET DIQ="ENM"
- SET DIQ(0)="E"
- +2 SET DR=".01"
- DO EN^DIQ1
- KILL DIC,DIQ,DR
- +3 WRITE !!,"Medical Center: ",ENM(4,DA,.01,"E")
- C1 IF $DATA(^ENG("PROJ",ENDA,15))#10
- IF $PIECE(^(15),U)]""
- WRITE " (",$PIECE(^(15),U),")"
- +1 WRITE !,"Project Title:",?60,"Project #",!,$PIECE(ENN,U,3),?60,$PIECE(ENN,U)
- +2 SET ENN=$PIECE(ENN,U,6)
- +3 KILL ENM
- SET ENM=$PIECE($GET(^ENG("PROJ",ENDA,52)),U)
- if ENM?1.N
- SET ENM=$PIECE($GET(^OFM(7336.8,ENM,0)),U)
- +4 WRITE !!,"Category: ",ENM
- KILL ENM
- +5 SET DIC="^ENG(""PROJ"","
- SET DA=ENDA
- SET DIQ="ENM"
- SET DIQ(0)="E"
- SET DR="221;218.1;219;220.1"
- +6 DO EN^DIQ1
- KILL DIC,DIQ,DR
- +7 SET ENM=ENM(6925,DA,221,"E")+ENM(6925,DA,218.1,"E")+ENM(6925,DA,219,"E")
- +8 WRITE !!,"TOTAL ESTIMATED: Construction Cost: ",$FNUMBER(ENM,",")
- +9 WRITE ?55,"Design Cost: ",$FNUMBER(ENM(6925,DA,220.1,"E"),",")
- KILL ENM
- +10 SET ENM=$GET(^ENG("PROJ",ENDA,24))
- WRITE !!,"Activations FY: ",$PIECE(ENM,U)
- +11 WRITE !,?2,"Additional FTEE Required:",?32,$JUSTIFY($FNUMBER($PIECE(ENM,U,3)+0,",",2),11)
- +12 WRITE ?45,"Recurring PS $:",?68,$JUSTIFY($FNUMBER($PIECE(ENM,U,4)+0,",",0),11)
- +13 WRITE !,?2,"Non-Recurring All Other $:",?29,$JUSTIFY($FNUMBER($PIECE(ENM,U,6)+0,",",0),11)
- +14 WRITE ?45,"Equipment $:",?68,$JUSTIFY($FNUMBER($PIECE(ENM,U,5)+0,",",0),11)
- +15 WRITE !,?2,"Travel .007 $:",?29,$JUSTIFY($FNUMBER($PIECE(ENM,U,7)+0,",",0),11)
- +16 WRITE ?45,"Recurring all other $:",?68,$JUSTIFY($FNUMBER($PIECE(ENM,U,2)+0,",",0),11)
- KILL ENM
- +17 WRITE !!,"Major/Minor Funded Projects to which Domino",!,?2,"#",?15,"Title",?70,"Type"
- +18 DO H^ENPL3
- SET X=""
- FOR
- SET X=$ORDER(ENL(X))
- if X=""
- QUIT
- WRITE !,?2,X,?15,$PIECE(ENL(X),U),?70,$PIECE(ENL(X),U,2)
- +19 IF '$DATA(ZTQUEUED)
- IF $EXTRACT(IOST,1,2)="C-"
- READ X:DTIME
- if X["^"
- GOTO EX0^ENPL3B
- WRITE @IOF
- +20 KILL ENL
- WRITE !!,"Equipment Over $250K:"
- +21 if '$ORDER(^ENG("PROJ",ENDA,25,0))
- WRITE !,?2,"Name:",?40,"A/R:",?50,"Qty:",?62,"$"
- SET X=0
- +22 FOR
- SET X=$ORDER(^ENG("PROJ",ENDA,25,X))
- if X'?1.N
- QUIT
- SET ENM=$GET(^(X,0))
- WRITE !,?2,"Name: ",$PIECE(ENM,U),?40,"A/R: ",$PIECE(ENM,U,4),?50,"Qty: ",$PIECE(ENM,U,2),?62,"$",$FNUMBER($PIECE(ENM,U,2)*$PIECE(ENM,U,3),",",0)
- +23 KILL ENM
- WRITE !!,"Brief Project Description: "
- KILL ^UTILITY($JOB,"W")
- +24 SET DIWL=10
- SET DIWR=70
- SET DIWF="W"
- SET ENM=0
- +25 FOR ENA=0:1
- SET ENM=$ORDER(^ENG("PROJ",ENDA,17,ENM))
- if ENM'?1.N
- QUIT
- SET X=$GET(^(ENM,0))
- DO ^DIWP
- +26 if ENA
- DO ^DIWW
- KILL ^UTILITY($JOB,"W"),DIWL,DIWR,DIWF
- +27 IF '$DATA(ZTQUEUED)
- IF $EXTRACT(IOST,1,2)="C-"
- READ X:DTIME
- if X["^"
- GOTO EX0^ENPL3B
- WRITE @IOF
- +28 WRITE !!,?70,"POINTS"
- DO IN^ENPL3
- +29 WRITE !,"1. Cited JCAHO/AALAC/CAP Accreditation Deficiency."
- +30 WRITE !,?6,"Date",?19,"Page",?29,"Name/Title"
- SET ENA=""
- +31 FOR
- SET ENA=$ORDER(ENF(1,ENA))
- if ENA=""
- QUIT
- WRITE !,?2,"(",ENA,")",?6,$PIECE(ENF(1,ENA),U),?19,$PIECE(ENF(1,ENA),U,2),?29,$PIECE(ENF(1,ENA),U,3)
- +32 WRITE !,?70,$JUSTIFY($PIECE($GET(ENF),U)+0,2)
- KILL ENF(1)
- +33 GOTO D^ENPL3B
