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