source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENPL5B.m@ 862

Last change on this file since 862 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.6 KB
RevLine 
[613]1ENPL5B ;(WIRMFO)/LKG,SAB-FYFP REPORT: PROJECT DETAIL PAGE ;5/15/96
2 ;;7.0;ENGINEERING;**3,11,23,28**;Aug 17, 1993
3PD ; detail page for project ENDA
4 N ENBO,ENCSTA,ENCSTCA,ENCSTDA,ENEQPL,ENEQPT,ENI,ENPC,ENPN,ENPR,ENX,ENY,ENY0,ENY19,ENY24,ENY52,ENY55
5 F ENX=0,19,24,52,55 S @("ENY"_ENX)=$G(^ENG("PROJ",ENDA,ENX))
6 S ENPN=$P(ENY0,U),ENPR=$P(ENY0,U,6),ENPC=$$GET1^DIQ(6925,ENDA_",",158.1)
7 S ENBO=$$GET1^DIQ(6925,ENDA_",",158.8)
8 D HD
9 W !!,?5,"PROJECT NUMBER: ",ENPN
10 W ?35,"TITLE: ",$P(ENY0,U,3)
11 W ?95,"FACILITY TYPE: ",$P(ENY52,U,6)
12 W ! W:ENMDA ?5,"DIVISION: ",$$GET1^DIQ(6925,ENDA_",",176)
13 W !,?5,"PROGRAM: ",$$GET1^DIQ(6925,ENDA_",",155)
14 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
15 . W ?60,"MCPS SCORE: ",$S(ENPR'="MA":"N/A",1:$P(ENY24,U,8))
16 W !,?5,"PROJECT CATEGORY: ",ENPC
17 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
18 . W ?60,"# NEW NHCU BEDS:"
19 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,3),","))
20 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
21 . W !,?5,"BONUS CATEGORY: "
22 . W $S(ENPR="NR":ENBO,1:"N/A")
23 . W ?60,"# NHCU BEDS RENOVATED:"
24 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,4),","))
25 . W !,?5,"AMBULATORY CARE PERCENTAGE: "
26 . W $S(ENPR="NR":$$GET1^DIQ(6925,ENDA_",",158.9),1:"N/A")
27 . W ?60,"# NHCU BEDS CONVERTED:"
28 . W ?83,$S(ENPR'="NR"&(ENPC'="NHCU"):"N/A",ENPR="NR"&(ENBO'="NHCU"):"N/A",1:$FN(+$P(ENY52,U,5),","))
29 W !,?5,"BUDGET CATEGORY: ",$$GET1^DIQ(6925,ENDA_",",158.2)
30 I "^MA^MI^MM^NR^"[(U_ENPR_U) D
31 . W !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
32 . S ENCSTDA=$P($G(^ENG("PROJ",ENDA,5)),U,2)+500\1000
33 . S ENCSTCA=$P($G(^ENG("PROJ",ENDA,1)),U)+500\1000
34 . S ENCSTA=ENCSTDA+ENCSTCA
35 . W:ENCSTA ?67,"",?81,"APPROVED COST (in $000)"
36 . W !,?5,"DESIGN",?23,$P($G(^ENG("PROJ",ENDA,5)),U,7),?38,"$",$J($FN($P(ENY19,U,10)+500\1000,","),9)
37 . W:ENCSTA ?84,"$",$J($FN(ENCSTDA,","),9)
38 . W !,?5,"CONSTRUCTION",?23,$P(ENY0,U,7),?38,"$",$J($FN($P(ENY19,U,11)+500\1000,","),9)
39 . W:ENCSTA ?84,"$",$J($FN(ENCSTCA,","),9)
40 . W !,?5,"TOTAL",?38,"$",$J($FN($P(ENY19,U,10)+500\1000+($P(ENY19,U,11)+500\1000),","),9)
41 . W:ENCSTA ?84,"$",$J($FN(ENCSTA,","),9)
42 ;
43 I "^LE^"[(U_ENPR_U) D
44 . W !!,?5,"LEASE TYPE: ",$$GET1^DIQ(6925,ENDA_",",285)
45 . W !,?5,"PROPOSED LEASE TERM: ",+$P(ENY55,U,6)," YEARS"
46 . W !,?5,"RENTABLE SQ FT: ",$FN(+$P(ENY55,U,7),",")
47 . W !,?5,"NET PARKING: ",$FN($P($G(^ENG("PROJ",ENDA,15)),U,3),",")
48 . W !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
49 . W !,?5,"AWARD LEASE",?23,$P(ENY55,U,2),?38,"$",$J($FN($P(ENY55,U,4)+500\1000,","),9)," (Lump Sum)"
50 . W !,?5,"RENT STARTS",?23,$P(ENY55,U,3),?38,"$",$J($FN($P(ENY55,U,5)+500\1000,","),9)," (Annual Rent)"
51 . W !,?5,"TOTAL",?38,"$",$J($FN($P(ENY55,U,4)+500\1000+($P(ENY55,U,5)+500\1000),","),9)
52 . W !!,?5,"EXISTING SPACE RENTABLE SQ FT: ",$S($P(ENY55,U)'="NE":"N/A",1:$FN(+$P(ENY55,U,9),","))
53 . W !,?5,"EXISTING SPACE ANNUAL RENT: ",$S($P(ENY55,U)'="NE":"N/A",1:"$"_$FN(+$P(ENY55,U,8),","))
54 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
55 W !!,?5,"ACTIVATIONS: FISCAL YEAR REQUIRED: ",$P(ENY24,U)
56 W ?60,"(costs in $000)"
57 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)
58 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)
59 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)
60 ;
61 S ENEQPT=0
62 W !!,?5,"EQUIPMENT OVER $250K:",?27,"NAME",?60,"ADD/REPL",?73,"QUANTITY",?84,"TOTAL COST (in $000)"
63 I '$O(^ENG("PROJ",ENDA,20,0)) W !,?27,"none listed"
64 E D W !,?10,"TOTAL COST",?84,"$",$J($FN(ENEQPT,","),7)
65 . S ENI=0 F S ENI=$O(^ENG("PROJ",ENDA,25,ENI)) Q:'ENI D
66 . . S ENY=$G(^ENG("PROJ",ENDA,25,ENI,0)) Q:ENY=""
67 . . S ENEQPL=$P(ENY,U,2)*$P(ENY,U,3)+500\1000
68 . . 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)
69 . . S ENEQPT=ENEQPT+ENEQPL
70 ;
71 I "^MA^MI^MM^NR^"[(U_ENPR_U) W !!,?5,"BUILDINGS: ",$$GET1^DIQ(6925,ENDA_",",178)
72 ;
73 W !!,?5,"CITED DEFICIENCY: ",$$CD^ENPL5A(ENDA)
74 ;
75 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
76 ;
77 D WP^ENPL5C
78 S ENPG=ENPG+1
79 ;F ENI=$Y+6:1:IOSL W !
80 F ENI=$Y+6:1:$S(IOSL>254:$Y+9,1:IOSL) W ! ; for long page length
81 W !,?64,"Page ",ENPG,?100,ENRDT
82 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR S:'Y END=1 Q:END
83 Q
84HD ; page header
85 D FYFPHD^ENPL5A
86 S ENX=$S("^MA^MI^MM^NR^"[(U_ENPR_U):"CONSTRUCTION","LE"=ENPR:"LEASE",1:"")
87 S ENX=ENX_" PROJECT DETAIL"
88 W !,?(125-$L(ENX)\2+5),ENX
89 Q
90 ;ENPL5B
Note: See TracBrowser for help on using the repository browser.