Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENPL5B

Package: Engineering

Routine: ENPL5B


Information

ENPL5B ;(WIRMFO)/LKG,SAB-FYFP REPORT: PROJECT DETAIL PAGE ;5/15/96

Source Information

Source file <ENPL5B.m>

Entry Points

Name Comments DBIA/ICR reference
PD ; detail page for project ENDA
HD ; page header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"PROJECT NUMBER: ",ENPN
  • Line Location: PD+6
Function Call: WRITE
  • Prompt: ?35,"TITLE: ",$P(ENY0,U,3)
  • Line Location: PD+7
Function Call: WRITE
  • Prompt: ?95,"FACILITY TYPE: ",$P(ENY52,U,6)
  • Line Location: PD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PD+9
Function Call: WRITE
  • Prompt: ?5,"DIVISION: ",$$GET1^DIQ(6925,ENDA_",",176)
  • Condition for execution: ENMDA
  • Line Location: PD+9
Function Call: WRITE
  • Prompt: !,?5,"PROGRAM: ",$$GET1^DIQ(6925,ENDA_",",155)
  • Line Location: PD+10
Function Call: WRITE
  • Prompt: !,?5,"PROJECT CATEGORY: ",ENPC
  • Line Location: PD+13
Function Call: WRITE
  • Prompt: ?60,"# NEW NHCU BEDS:"
  • Line Location: PD+15
Function Call: WRITE
  • Prompt: !,?5,"BONUS CATEGORY: "
  • Line Location: PD+18
Function Call: WRITE
  • Prompt: $S(ENPR="NR":ENBO,1:"N/A")
  • Line Location: PD+19
Function Call: WRITE
  • Prompt: ?60,"# NHCU BEDS RENOVATED:"
  • Line Location: PD+20
Function Call: WRITE
  • Prompt: !,?5,"AMBULATORY CARE PERCENTAGE: "
  • Line Location: PD+22
Function Call: WRITE
  • Prompt: $S(ENPR="NR":$$GET1^DIQ(6925,ENDA_",",158.9),1:"N/A")
  • Line Location: PD+23
Function Call: WRITE
  • Prompt: ?60,"# NHCU BEDS CONVERTED:"
  • Line Location: PD+24
Function Call: WRITE
  • Prompt: !,?5,"BUDGET CATEGORY: ",$$GET1^DIQ(6925,ENDA_",",158.2)
  • Line Location: PD+26
Function Call: WRITE
  • Prompt: !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
  • Line Location: PD+28
Function Call: WRITE
  • Prompt: !,?5,"DESIGN",?23,$P($G(^ENG("PROJ",ENDA,5)),U,7),?38,"$",$J($FN($P(ENY19,U,10)+500\1000,","),9)
  • Line Location: PD+33
Function Call: WRITE
  • Prompt: !,?5,"CONSTRUCTION",?23,$P(ENY0,U,7),?38,"$",$J($FN($P(ENY19,U,11)+500\1000,","),9)
  • Line Location: PD+35
Function Call: WRITE
  • Prompt: !,?5,"TOTAL",?38,"$",$J($FN($P(ENY19,U,10)+500\1000+($P(ENY19,U,11)+500\1000),","),9)
  • Line Location: PD+37
Function Call: WRITE
  • Prompt: !!,?5,"LEASE TYPE: ",$$GET1^DIQ(6925,ENDA_",",285)
  • Line Location: PD+41
Function Call: WRITE
  • Prompt: !,?5,"PROPOSED LEASE TERM: ",+$P(ENY55,U,6)," YEARS"
  • Line Location: PD+42
Function Call: WRITE
  • Prompt: !,?5,"RENTABLE SQ FT: ",$FN(+$P(ENY55,U,7),",")
  • Line Location: PD+43
Function Call: WRITE
  • Prompt: !,?5,"NET PARKING: ",$FN($P($G(^ENG("PROJ",ENDA,15)),U,3),",")
  • Line Location: PD+44
Function Call: WRITE
  • Prompt: !!,?20,"FUNDING YEAR",?35,"ESTIMATED COST (in $000)"
  • Line Location: PD+45
Function Call: WRITE
  • Prompt: !,?5,"AWARD LEASE",?23,$P(ENY55,U,2),?38,"$",$J($FN($P(ENY55,U,4)+500\1000,","),9)," (Lump Sum)"
  • Line Location: PD+46
Function Call: WRITE
  • Prompt: !,?5,"RENT STARTS",?23,$P(ENY55,U,3),?38,"$",$J($FN($P(ENY55,U,5)+500\1000,","),9)," (Annual Rent)"
  • Line Location: PD+47
Function Call: WRITE
  • Prompt: !,?5,"TOTAL",?38,"$",$J($FN($P(ENY55,U,4)+500\1000+($P(ENY55,U,5)+500\1000),","),9)
  • Line Location: PD+48
Function Call: WRITE
  • Prompt: !!,?5,"ACTIVATIONS: FISCAL YEAR REQUIRED: ",$P(ENY24,U)
  • Line Location: PD+52
Function Call: WRITE
  • Prompt: ?60,"(costs in $000)"
  • Line Location: PD+53
Function Call: WRITE
  • Prompt: !,?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)
  • Line Location: PD+54
Function Call: WRITE
  • Prompt: !,?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)
  • Line Location: PD+55
Function Call: WRITE
  • Prompt: !,?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)
  • Line Location: PD+56
Function Call: WRITE
  • Prompt: !!,?5,"EQUIPMENT OVER $250K:",?27,"NAME",?60,"ADD/REPL",?73,"QUANTITY",?84,"TOTAL COST (in $000)"
  • Line Location: PD+59
Function Call: WRITE
  • Prompt: !,?27,"none listed"
  • Line Location: PD+60
Function Call: WRITE
  • Prompt: !,?10,"TOTAL COST",?84,"$",$J($FN(ENEQPT,","),7)
  • Line Location: PD+61
Function Call: WRITE
  • Prompt: !,?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)
  • Line Location: PD+65
Function Call: WRITE
  • Prompt: !!,?5,"BUILDINGS: ",$$GET1^DIQ(6925,ENDA_",",178)
  • Line Location: PD+68
Function Call: WRITE
  • Prompt: !!,?5,"CITED DEFICIENCY: ",$$CD^ENPL5A(ENDA)
  • Line Location: PD+70
Function Call: WRITE
  • Prompt: !
  • Line Location: PD+76
Function Call: WRITE
  • Prompt: !
  • Line Location: PD+77
Function Call: WRITE
  • Prompt: !,?64,"Page ",ENPG,?100,ENRDT
  • Line Location: PD+78
Function Call: WRITE
  • Prompt: !,?(125-$L(ENX)\2+5),ENX
  • Line Location: HD+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG("PROJ" - [#6925] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call