Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Engineering 2 ($$CD,FYFPHD)^ENPL5A  WP^ENPL5C  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENPL5  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ PD+3, PD+4, PD+9, PD+10, PD+23, PD+26, PD+41, PD+68
^DIR PD+51, PD+72, PD+79
$$CD^ENPL5A PD+70
FYFPHD^ENPL5A HD+1
WP^ENPL5C PD+74

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
Routine Call
  • DIR
  • Line Location:
    • PD+51
    • PD+72
    • PD+79

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG("PROJ" - [#6925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("PROJ" - [#6925] PD+2, PD+29, PD+30, PD+33, PD+44, PD+60, PD+62, PD+63

Label References

Name Line Occurrences
HD PD+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR PD+51!, PD+72!, PD+79!
DIR(0 PD+51*, PD+72*, PD+79*
ENBO PD+1~, PD+4*, PD+16, PD+19, PD+21, PD+25
ENCSTA PD+1~, PD+31*, PD+32, PD+34, PD+36, PD+38
ENCSTCA PD+1~, PD+30*, PD+31, PD+36
ENCSTDA PD+1~, PD+29*, PD+31, PD+34
>> END PD+51*, PD+72*, PD+79*
>> ENDA PD+2, PD+3, PD+4, PD+9, PD+10, PD+23, PD+26, PD+29, PD+30, PD+33
, PD+41, PD+44, PD+60, PD+62, PD+63, PD+68, PD+70
ENEQPL PD+1~, PD+64*, PD+65, PD+66
ENEQPT PD+1~, PD+58*, PD+61, PD+66*
ENI PD+1~, PD+62*, PD+63, PD+77*
>> ENMDA PD+9
ENPC PD+1~, PD+3*, PD+13, PD+16, PD+21, PD+25
>> ENPG PD+75*, PD+78
ENPN PD+1~, PD+3*, PD+6
ENPR PD+1~, PD+3*, PD+11, PD+12, PD+14, PD+16, PD+17, PD+19, PD+21, PD+23
, PD+25, PD+27, PD+40, PD+68, HD+2
>> ENRDT PD+78
ENX PD+1~, PD+2*, HD+2*, HD+3*, HD+4
ENY PD+1~, PD+63*, PD+64, PD+65
ENY0 PD+1~, PD+3, PD+7, PD+35
ENY19 PD+1~, PD+33, PD+35, PD+37
ENY24 PD+1~, PD+12, PD+52, PD+54, PD+55, PD+56
ENY52 PD+1~, PD+8, PD+16, PD+21, PD+25
ENY55 PD+1~, PD+42, PD+43, PD+46, PD+47, PD+48, PD+49, PD+50
IOSL PD+77
IOST PD+51, PD+72, PD+79
U PD+3, PD+7, PD+8, PD+11, PD+12, PD+14, PD+16, PD+17, PD+21, PD+25
, PD+27, PD+29, PD+30, PD+33, PD+35, PD+37, PD+40, PD+42, PD+43, PD+44
, PD+46, PD+47, PD+48, PD+49, PD+50, PD+52, PD+54, PD+55, PD+56, PD+64
, PD+65, PD+68, HD+2
>> Y PD+51, PD+72, PD+79
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All