| [613] | 1 | ENPL3A ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;4/29/94
|
|---|
| 2 | ;;7.0;ENGINEERING;**11**;Aug 17, 1993
|
|---|
| 3 | A ;Entry point for printing Sheet
|
|---|
| 4 | S DIC="^ENG(""PROJ"",",DIC("S")="I "",MI,MM,""[("",""_$P(^(0),U,6)_"",""),$P($G(^(52)),U,6)=""VHA"""
|
|---|
| 5 | S DIC(0)="AEQZ",DIC("A")="Select PROJECT NUMBER: " D ^DIC K DIC
|
|---|
| 6 | I Y<1!$D(DTOUT)!$D(DUOUT) G EX^ENPL3B
|
|---|
| 7 | S ENDA=+Y,ENN=Y(0),%ZIS="PQ" K Y D ^%ZIS G:POP EX^ENPL3B
|
|---|
| 8 | 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
|
|---|
| 9 | D C
|
|---|
| 10 | G A
|
|---|
| 11 | C U IO W:$E(IOST,1,2)="C-" @IOF D J^ENPL3 W !,?80-$L(X)\2,X
|
|---|
| 12 | K ENM S U="^",DA=$P(ENN,U,4) G:DA'?1.N C1 S DIC="^DIC(4,",DIQ="ENM",DIQ(0)="E"
|
|---|
| 13 | S DR=".01" D EN^DIQ1 K DIC,DIQ,DR
|
|---|
| 14 | W !!,"Medical Center: ",ENM(4,DA,.01,"E")
|
|---|
| 15 | C1 I $D(^ENG("PROJ",ENDA,15))#10,$P(^(15),U)]"" W " (",$P(^(15),U),")"
|
|---|
| 16 | W !,"Project Title:",?60,"Project #",!,$P(ENN,U,3),?60,$P(ENN,U)
|
|---|
| 17 | S ENN=$P(ENN,U,6)
|
|---|
| 18 | K ENM S ENM=$P($G(^ENG("PROJ",ENDA,52)),U) S:ENM?1.N ENM=$P($G(^OFM(7336.8,ENM,0)),U)
|
|---|
| 19 | W !!,"Category: ",ENM K ENM
|
|---|
| 20 | S DIC="^ENG(""PROJ"",",DA=ENDA,DIQ="ENM",DIQ(0)="E",DR="221;218.1;219;220.1"
|
|---|
| 21 | D EN^DIQ1 K DIC,DIQ,DR
|
|---|
| 22 | S ENM=ENM(6925,DA,221,"E")+ENM(6925,DA,218.1,"E")+ENM(6925,DA,219,"E")
|
|---|
| 23 | W !!,"TOTAL ESTIMATED: Construction Cost: ",$FN(ENM,",")
|
|---|
| 24 | W ?55,"Design Cost: ",$FN(ENM(6925,DA,220.1,"E"),",") K ENM
|
|---|
| 25 | S ENM=$G(^ENG("PROJ",ENDA,24)) W !!,"Activations FY: ",$P(ENM,U)
|
|---|
| 26 | W !,?2,"Additional FTEE Required:",?32,$J($FN($P(ENM,U,3)+0,",",2),11)
|
|---|
| 27 | W ?45,"Recurring PS $:",?68,$J($FN($P(ENM,U,4)+0,",",0),11)
|
|---|
| 28 | W !,?2,"Non-Recurring All Other $:",?29,$J($FN($P(ENM,U,6)+0,",",0),11)
|
|---|
| 29 | W ?45,"Equipment $:",?68,$J($FN($P(ENM,U,5)+0,",",0),11)
|
|---|
| 30 | W !,?2,"Travel .007 $:",?29,$J($FN($P(ENM,U,7)+0,",",0),11)
|
|---|
| 31 | W ?45,"Recurring all other $:",?68,$J($FN($P(ENM,U,2)+0,",",0),11) K ENM
|
|---|
| 32 | W !!,"Major/Minor Funded Projects to which Domino",!,?2,"#",?15,"Title",?70,"Type"
|
|---|
| 33 | 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)
|
|---|
| 34 | I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME G:X["^" EX0^ENPL3B W @IOF
|
|---|
| 35 | K ENL W !!,"Equipment Over $250K:"
|
|---|
| 36 | W:'$O(^ENG("PROJ",ENDA,25,0)) !,?2,"Name:",?40,"A/R:",?50,"Qty:",?62,"$" S X=0
|
|---|
| 37 | 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)
|
|---|
| 38 | K ENM W !!,"Brief Project Description: " K ^UTILITY($J,"W")
|
|---|
| 39 | S DIWL=10,DIWR=70,DIWF="W",ENM=0
|
|---|
| 40 | F ENA=0:1 S ENM=$O(^ENG("PROJ",ENDA,17,ENM)) Q:ENM'?1.N S X=$G(^(ENM,0)) D ^DIWP
|
|---|
| 41 | D:ENA ^DIWW K ^UTILITY($J,"W"),DIWL,DIWR,DIWF
|
|---|
| 42 | I '$D(ZTQUEUED),$E(IOST,1,2)="C-" R X:DTIME G:X["^" EX0^ENPL3B W @IOF
|
|---|
| 43 | W !!,?70,"POINTS" D IN^ENPL3
|
|---|
| 44 | W !,"1. Cited JCAHO/AALAC/CAP Accreditation Deficiency."
|
|---|
| 45 | W !,?6,"Date",?19,"Page",?29,"Name/Title" S ENA=""
|
|---|
| 46 | 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)
|
|---|
| 47 | W !,?70,$J($P($G(ENF),U)+0,2) K ENF(1)
|
|---|
| 48 | G D^ENPL3B
|
|---|
