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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENPL5B 4785 printed Nov 22, 2024@17:04:55 Page 2
ENPL5B ;(WIRMFO)/LKG,SAB-FYFP REPORT: PROJECT DETAIL PAGE ;5/15/96
+1 ;;7.0;ENGINEERING;**3,11,23,28**;Aug 17, 1993
PD ; detail page for project ENDA
+1 NEW ENBO,ENCSTA,ENCSTCA,ENCSTDA,ENEQPL,ENEQPT,ENI,ENPC,ENPN,ENPR,ENX,ENY,ENY0,ENY19,ENY24,ENY52,ENY55
+2 FOR ENX=0,19,24,52,55
SET @("ENY"_ENX)=$GET(^ENG("PROJ",ENDA,ENX))
+3 SET ENPN=$PIECE(ENY0,U)
SET ENPR=$PIECE(ENY0,U,6)
SET ENPC=$$GET1^DIQ(6925,ENDA_",",158.1)
+4 SET ENBO=$$GET1^DIQ(6925,ENDA_",",158.8)
+5 DO HD
+6 WRITE !!,?5,"PROJECT NUMBER: ",ENPN
+7 WRITE ?35,"TITLE: ",$PIECE(ENY0,U,3)
+8 WRITE ?95,"FACILITY TYPE: ",$PIECE(ENY52,U,6)
+9 WRITE !
if ENMDA
WRITE ?5,"DIVISION: ",$$GET1^DIQ(6925,ENDA_",",176)
+10 WRITE !,?5,"PROGRAM: ",$$GET1^DIQ(6925,ENDA_",",155)
+11 IF "^MA^MI^MM^NR^"[(U_ENPR_U)
Begin DoDot:1
+12 WRITE ?60,"MCPS SCORE: ",$SELECT(ENPR'="MA":"N/A",1:$PIECE(ENY24,U,8))
End DoDot:1
+13 WRITE !,?5,"PROJECT CATEGORY: ",ENPC
+14 IF "^MA^MI^MM^NR^"[(U_ENPR_U)
Begin DoDot:1
+15 WRITE ?60,"# NEW NHCU BEDS:"
+16 WRITE ?83,$SELECT(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FNUMBER(+$PIECE(ENY52,U,3),","))
End DoDot:1
+17 IF "^MA^MI^MM^NR^"[(U_ENPR_U)
Begin DoDot:1
+18 WRITE !,?5,"BONUS CATEGORY: "
+19 WRITE $SELECT(ENPR="NR":ENBO,1:"N/A")
+20 WRITE ?60,"# NHCU BEDS RENOVATED:"
+21 WRITE ?83,$SELECT(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FNUMBER(+$PIECE(ENY52,U,4),","))
+22 WRITE !,?5,"AMBULATORY CARE PERCENTAGE: "
+23 WRITE $SELECT(ENPR="NR":$$GET1^DIQ(6925,ENDA_",",158.9),1:"N/A")
+24 WRITE ?60,"# NHCU BEDS CONVERTED:"
+25 WRITE ?83,$SELECT(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FNUMBER(+$PIECE(ENY52,U,5),","))
End DoDot:1
+26 WRITE !,?5,"BUDGET CATEGORY: ",$$GET1^DIQ(6925,ENDA_",",158.2)
+27 IF "^MA^MI^MM^NR^"[(U_ENPR_U)
Begin DoDot:1
+28 WRITE !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
+29 SET ENCSTDA=$PIECE($GET(^ENG("PROJ",ENDA,5)),U,2)+500\1000
+30 SET ENCSTCA=$PIECE($GET(^ENG("PROJ",ENDA,1)),U)+500\1000
+31 SET ENCSTA=ENCSTDA+ENCSTCA
+32 if ENCSTA
WRITE ?67,"",?81,"APPROVED COST (in $000)"
+33 WRITE !,?5,"DESIGN",?23,$PIECE($GET(^ENG("PROJ",ENDA,5)),U,7),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY19,U,10)+500\1000,","),9)
+34 if ENCSTA
WRITE ?84,"$",$JUSTIFY($FNUMBER(ENCSTDA,","),9)
+35 WRITE !,?5,"CONSTRUCTION",?23,$PIECE(ENY0,U,7),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY19,U,11)+500\1000,","),9)
+36 if ENCSTA
WRITE ?84,"$",$JUSTIFY($FNUMBER(ENCSTCA,","),9)
+37 WRITE !,?5,"TOTAL",?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY19,U,10)+500\1000+($PIECE(ENY19,U,11)+500\1000),","),9)
+38 if ENCSTA
WRITE ?84,"$",$JUSTIFY($FNUMBER(ENCSTA,","),9)
End DoDot:1
+39 ;
+40 IF "^LE^"[(U_ENPR_U)
Begin DoDot:1
+41 WRITE !!,?5,"LEASE TYPE: ",$$GET1^DIQ(6925,ENDA_",",285)
+42 WRITE !,?5,"PROPOSED LEASE TERM: ",+$PIECE(ENY55,U,6)," YEARS"
+43 WRITE !,?5,"RENTABLE SQ FT: ",$FNUMBER(+$PIECE(ENY55,U,7),",")
+44 WRITE !,?5,"NET PARKING: ",$FNUMBER($PIECE($GET(^ENG("PROJ",ENDA,15)),U,3),",")
+45 WRITE !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
+46 WRITE !,?5,"AWARD LEASE",?23,$PIECE(ENY55,U,2),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY55,U,4)+500\1000,","),9)," (Lump Sum)"
+47 WRITE !,?5,"RENT STARTS",?23,$PIECE(ENY55,U,3),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY55,U,5)+500\1000,","),9)," (Annual Rent)"
+48 WRITE !,?5,"TOTAL",?38,"$",$JUSTIFY($FNUMBER($PIECE(ENY55,U,4)+500\1000+($PIECE(ENY55,U,5)+500\1000),","),9)
+49 WRITE !!,?5,"EXISTING SPACE RENTABLE SQ FT: ",$SELECT($PIECE(ENY55,U)'="NE":"N/A",1:$FNUMBER(+$PIECE(ENY55,U,9),","))
+50 WRITE !,?5,"EXISTING SPACE ANNUAL RENT: ",$SELECT($PIECE(ENY55,U)'="NE":"N/A",1:"$"_$FNUMBER(+$PIECE(ENY55,U,8),","))
End DoDot:1
+51 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR
if 'Y
SET END=1
if END
QUIT
+52 WRITE !!,?5,"ACTIVATIONS: FISCAL YEAR REQUIRED: ",$PIECE(ENY24,U)
+53 WRITE ?60,"(costs in $000)"
+54 WRITE !,?10,"ADD'L FTEE REQUIRED:",?42,$JUSTIFY($FNUMBER($PIECE(ENY24,U,3)+0,","),6,2),?53,"EQUIPMENT:",?78,"$",$JUSTIFY($FNUMBER($PIECE(ENY24,U,5)+500\1000,","),7)
+55 WRITE !,?10,"RECURRING PS:",?40,"$",$JUSTIFY($FNUMBER($PIECE(ENY24,U,4)+500\1000,","),7),?53,"RECURRING ALL OTHER:",?78,"$",$JUSTIFY($FNUMBER($PIECE(ENY24,U,2)+500\1000,","),7)
+56 WRITE !,?10,"NON-RECURRING ALL OTHER:",?40,"$",$JUSTIFY($FNUMBER($PIECE(ENY24,U,6)+500\1000,","),7),?53,"TRAVEL .007:",?78,"$",$JUSTIFY($FNUMBER($PIECE(ENY24,U,7)+500\1000,","),7)
+57 ;
+58 SET ENEQPT=0
+59 WRITE !!,?5,"EQUIPMENT OVER $250K:",?27,"NAME",?60,"ADD/REPL",?73,"QUANTITY",?84,"TOTAL COST (in $000)"
+60 IF '$ORDER(^ENG("PROJ",ENDA,20,0))
WRITE !,?27,"none listed"
+61 IF '$TEST
Begin DoDot:1
+62 SET ENI=0
FOR
SET ENI=$ORDER(^ENG("PROJ",ENDA,25,ENI))
if 'ENI
QUIT
Begin DoDot:2
+63 SET ENY=$GET(^ENG("PROJ",ENDA,25,ENI,0))
if ENY=""
QUIT
+64 SET ENEQPL=$PIECE(ENY,U,2)*$PIECE(ENY,U,3)+500\1000
+65 WRITE !,?27,$PIECE(ENY,U),?60,$SELECT($PIECE(ENY,U,4)="A":"ADDITIONAL",$PIECE(ENY,U,4)="R":"REPLACEMENT",1:"UNKNOWN"),?75,$JUSTIFY($PIECE(ENY,U,2),3),?84,"$",$JUSTIFY($FNUMBER(ENEQPL,","),7)
+66 SET ENEQPT=ENEQPT+ENEQPL
End DoDot:2
End DoDot:1
WRITE !,?10,"TOTAL COST",?84,"$",$JUSTIFY($FNUMBER(ENEQPT,","),7)
+67 ;
+68 IF "^MA^MI^MM^NR^"[(U_ENPR_U)
WRITE !!,?5,"BUILDINGS: ",$$GET1^DIQ(6925,ENDA_",",178)
+69 ;
+70 WRITE !!,?5,"CITED DEFICIENCY: ",$$CD^ENPL5A(ENDA)
+71 ;
+72 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR
if 'Y
SET END=1
if END
QUIT
+73 ;
+74 DO WP^ENPL5C
+75 SET ENPG=ENPG+1
+76 ;F ENI=$Y+6:1:IOSL W !
+77 ; for long page length
FOR ENI=$Y+6:1:$SELECT(IOSL>254:$Y+9,1:IOSL)
WRITE !
+78 WRITE !,?64,"Page ",ENPG,?100,ENRDT
+79 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR
if 'Y
SET END=1
if END
QUIT
+80 QUIT
HD ; page header
+1 DO FYFPHD^ENPL5A
+2 SET ENX=$SELECT("^MA^MI^MM^NR^"[(U_ENPR_U):"CONSTRUCTION","LE"=ENPR:"LEASE",1:"")
+3 SET ENX=ENX_" PROJECT DETAIL"
+4 WRITE !,?(125-$LENGTH(ENX)\2+5),ENX
+5 QUIT
+6 ;ENPL5B
