Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ENPL5B

ENPL5B.m

Go to the documentation of this file.
ENPL5B ;(WIRMFO)/LKG,SAB-FYFP REPORT: PROJECT DETAIL PAGE ;5/15/96
 ;;7.0;ENGINEERING;**3,11,23,28**;Aug 17, 1993
PD ; detail page for project ENDA
 N ENBO,ENCSTA,ENCSTCA,ENCSTDA,ENEQPL,ENEQPT,ENI,ENPC,ENPN,ENPR,ENX,ENY,ENY0,ENY19,ENY24,ENY52,ENY55
 F ENX=0,19,24,52,55 S @("ENY"_ENX)=$G(^ENG("PROJ",ENDA,ENX))
 S ENPN=$P(ENY0,U),ENPR=$P(ENY0,U,6),ENPC=$$GET1^DIQ(6925,ENDA_",",158.1)
 S ENBO=$$GET1^DIQ(6925,ENDA_",",158.8)
 D HD
 W !!,?5,"PROJECT NUMBER: ",ENPN
 W ?35,"TITLE: ",$P(ENY0,U,3)
 W ?95,"FACILITY TYPE: ",$P(ENY52,U,6)
 W ! W:ENMDA ?5,"DIVISION: ",$$GET1^DIQ(6925,ENDA_",",176)
 W !,?5,"PROGRAM: ",$$GET1^DIQ(6925,ENDA_",",155)
 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
 . W ?60,"MCPS SCORE: ",$S(ENPR'="MA":"N/A",1:$P(ENY24,U,8))
 W !,?5,"PROJECT CATEGORY: ",ENPC
 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
 . W ?60,"# NEW NHCU BEDS:"
 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,3),","))
 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
 . W !,?5,"BONUS CATEGORY: "
 . W $S(ENPR="NR":ENBO,1:"N/A")
 . W ?60,"# NHCU BEDS RENOVATED:"
 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,4),","))
 . W !,?5,"AMBULATORY CARE PERCENTAGE: "
 . W $S(ENPR="NR":$$GET1^DIQ(6925,ENDA_",",158.9),1:"N/A")
 . W ?60,"# NHCU BEDS CONVERTED:"
 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,5),","))
 W !,?5,"BUDGET CATEGORY: ",$$GET1^DIQ(6925,ENDA_",",158.2)
 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
 . W !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
 . S ENCSTDA=$P($G(^ENG("PROJ",ENDA,5)),U,2)+500\1000
 . S ENCSTCA=$P($G(^ENG("PROJ",ENDA,1)),U)+500\1000
 . S ENCSTA=ENCSTDA+ENCSTCA
 . W:ENCSTA ?67,"",?81,"APPROVED COST (in $000)"
 . W !,?5,"DESIGN",?23,$P($G(^ENG("PROJ",ENDA,5)),U,7),?38,"$",$J($FN($P(ENY19,U,10)+500\1000,","),9)
 . W:ENCSTA ?84,"$",$J($FN(ENCSTDA,","),9)
 . W !,?5,"CONSTRUCTION",?23,$P(ENY0,U,7),?38,"$",$J($FN($P(ENY19,U,11)+500\1000,","),9)
 . W:ENCSTA ?84,"$",$J($FN(ENCSTCA,","),9)
 . W !,?5,"TOTAL",?38,"$",$J($FN($P(ENY19,U,10)+500\1000+($P(ENY19,U,11)+500\1000),","),9)
 . W:ENCSTA ?84,"$",$J($FN(ENCSTA,","),9)
 ;
 I "^LE^"[(U_ENPR_U) D
 . W !!,?5,"LEASE TYPE: ",$$GET1^DIQ(6925,ENDA_",",285)
 . W !,?5,"PROPOSED LEASE TERM: ",+$P(ENY55,U,6)," YEARS"
 . W !,?5,"RENTABLE SQ FT: ",$FN(+$P(ENY55,U,7),",")
 . W !,?5,"NET PARKING: ",$FN($P($G(^ENG("PROJ",ENDA,15)),U,3),",")
 . W !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
 . W !,?5,"AWARD LEASE",?23,$P(ENY55,U,2),?38,"$",$J($FN($P(ENY55,U,4)+500\1000,","),9),"  (Lump Sum)"
 . W !,?5,"RENT STARTS",?23,$P(ENY55,U,3),?38,"$",$J($FN($P(ENY55,U,5)+500\1000,","),9),"  (Annual Rent)"
 . W !,?5,"TOTAL",?38,"$",$J($FN($P(ENY55,U,4)+500\1000+($P(ENY55,U,5)+500\1000),","),9)
 . W !!,?5,"EXISTING SPACE RENTABLE SQ FT: ",$S($P(ENY55,U)'="NE":"N/A",1:$FN(+$P(ENY55,U,9),","))
 . W !,?5,"EXISTING SPACE ANNUAL RENT: ",$S($P(ENY55,U)'="NE":"N/A",1:"$"_$FN(+$P(ENY55,U,8),","))
 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
 W !!,?5,"ACTIVATIONS:  FISCAL YEAR REQUIRED: ",$P(ENY24,U)
 W ?60,"(costs in $000)"
 W !,?10,"ADD'L FTEE REQUIRED:",?42,$J($FN($P(ENY24,U,3)+0,","),6,2),?53,"EQUIPMENT:",?78,"$",$J($FN($P(ENY24,U,5)+500\1000,","),7)
 W !,?10,"RECURRING PS:",?40,"$",$J($FN($P(ENY24,U,4)+500\1000,","),7),?53,"RECURRING ALL OTHER:",?78,"$",$J($FN($P(ENY24,U,2)+500\1000,","),7)
 W !,?10,"NON-RECURRING ALL OTHER:",?40,"$",$J($FN($P(ENY24,U,6)+500\1000,","),7),?53,"TRAVEL .007:",?78,"$",$J($FN($P(ENY24,U,7)+500\1000,","),7)
 ;
 S ENEQPT=0
 W !!,?5,"EQUIPMENT OVER $250K:",?27,"NAME",?60,"ADD/REPL",?73,"QUANTITY",?84,"TOTAL COST (in $000)"
 I '$O(^ENG("PROJ",ENDA,20,0)) W !,?27,"none listed"
 E  D  W !,?10,"TOTAL COST",?84,"$",$J($FN(ENEQPT,","),7)
 . S ENI=0 F  S ENI=$O(^ENG("PROJ",ENDA,25,ENI)) Q:'ENI  D
 . . S ENY=$G(^ENG("PROJ",ENDA,25,ENI,0)) Q:ENY=""
 . . S ENEQPL=$P(ENY,U,2)*$P(ENY,U,3)+500\1000
 . . W !,?27,$P(ENY,U),?60,$S($P(ENY,U,4)="A":"ADDITIONAL",$P(ENY,U,4)="R":"REPLACEMENT",1:"UNKNOWN"),?75,$J($P(ENY,U,2),3),?84,"$",$J($FN(ENEQPL,","),7)
 . . S ENEQPT=ENEQPT+ENEQPL
 ;
 I "^MA^MI^MM^NR^"[(U_ENPR_U) W !!,?5,"BUILDINGS: ",$$GET1^DIQ(6925,ENDA_",",178)
 ;
 W !!,?5,"CITED DEFICIENCY: ",$$CD^ENPL5A(ENDA)
 ;
 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
 ;
 D WP^ENPL5C
 S ENPG=ENPG+1
 ;F ENI=$Y+6:1:IOSL W !
 F ENI=$Y+6:1:$S(IOSL>254:$Y+9,1:IOSL) W ! ; for long page length
 W !,?64,"Page ",ENPG,?100,ENRDT
 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
 Q
HD ; page header
 D FYFPHD^ENPL5A
 S ENX=$S("^MA^MI^MM^NR^"[(U_ENPR_U):"CONSTRUCTION","LE"=ENPR:"LEASE",1:"")
 S ENX=ENX_" PROJECT DETAIL"
 W !,?(125-$L(ENX)\2+5),ENX
 Q
 ;ENPL5B