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: ENPL5A

Package: Engineering

Routine: ENPL5A


Information

ENPL5A ;(WIRMFO)/LKG,SAB-FYFP REPORT: YEAR SUMMARY PAGE ;5/15/96

Source Information

Source file <ENPL5A.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 $$GET1^DIQ  ^DIR  
Engineering 1 SUM^ENPL5D  

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: 4

Package Total Caller Graph
Engineering 4 ENPL5  ENPL5B  ENPL5C  ENPL5D  

Entry Points

Name Comments DBIA/ICR reference
YS ; year summary page for ENYR
HD ; page header
FT ; page footer
FYFPHD ; FYFP Header
CD(ENDA) ; Cited Deficiencies Text Extrinsic Variable

External References

Name Field # of Occurrence
$$GET1^DIQ YS+21, YS+31, CD+4
^DIR FT+3
SUM^ENPL5D YS+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: YS+20
Function Call: WRITE
  • Prompt: ?12,$P(ENPN,"-",2,3)
  • Line Location: YS+22
Function Call: WRITE
  • Prompt: ?21,$E($P($G(^ENG("PROJ",ENDA,0)),U,3),1,30)
  • Line Location: YS+23
Function Call: WRITE
  • Prompt: ?54,"$",$J($FN(ENCST,","),9)
  • Line Location: YS+24
Function Call: WRITE
  • Prompt: $S(ENAE:" D",ENCO:" C",1:"")
  • Line Location: YS+26
Function Call: WRITE
  • Prompt: ?66,"!"
  • Line Location: YS+29
Function Call: WRITE
  • Prompt: ?70,ENPRE
  • Line Location: YS+30
Function Call: WRITE
  • Prompt: ?83,$E($$GET1^DIQ(6925,ENDA_",",158.1),1,20)
  • Line Location: YS+31
Function Call: WRITE
  • Prompt: ?118,$$CD(ENDA)
  • Line Location: YS+35
Function Call: WRITE
  • Prompt: !,?54,"----------"
  • Line Location: YS+36
Function Call: WRITE
  • Prompt: !,?5,"TOTAL COST (Excluding Expedited Leases)",?54,"$",$J($FN($P($G(ENT(ENYR,"LE")),U)+$P($G(ENT(ENYR,"MA")),U)+$P($G(ENT(ENYR,"MI")),U)+$P($G(ENT(ENYR,"MM")),U)+$P($G(ENT(ENYR,"NR")),U),","),9)
  • Line Location: YS+37
Function Call: WRITE
  • Prompt: !
  • Line Location: YS+38
Function Call: WRITE
  • Prompt: !
  • Line Location: YS+39
Function Call: WRITE
  • Prompt: !,?10,"Project Count"
  • Line Location: YS+40
Function Call: WRITE
  • Prompt: " LEASE (excludes Expedited) = ",$P($G(ENT(ENYR,"LE")),U,2)+0
  • Line Location: YS+41
Function Call: WRITE
  • Prompt: " MAJOR = ",$P($G(ENT(ENYR,"MA")),U,2)+0
  • Line Location: YS+42
Function Call: WRITE
  • Prompt: " MINOR = ",$P($G(ENT(ENYR,"MI")),U,2)+0
  • Line Location: YS+43
Function Call: WRITE
  • Prompt: " MINOR MISC = ",$P($G(ENT(ENYR,"MM")),U,2)+0
  • Line Location: YS+44
Function Call: WRITE
  • Prompt: " NRM = ",$P($G(ENT(ENYR,"NR")),U,2)+0
  • Line Location: YS+45
Function Call: WRITE
  • Prompt: !,?(125-$L(ENX)\2+5),ENX,!!
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?12,"PROJ #",?21,"TITLE",?56,"COST",?65,"*",?70,"PROGRAM"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?83,"PROJECT"
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?54,"(in $000)",?83,"CATEGORY"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+13
Function Call: WRITE
  • Prompt: !!,?5,"* C = Construction dollars only D = Design dollars only"
  • Line Location: FT+1
Function Call: WRITE
  • Prompt: !!,?64,"Page ",ENPG,?100,ENRDT
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !,?56,"FIVE YEAR FACILITY PLAN",!,?ENPGHC,ENPGH
  • Line Location: FYFPHD+2
Routine Call
  • DIR
  • Line Location:
    • FT+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("PROJ" - [#6925] YS+12, YS+17, YS+18, YS+23, YS+34, CD+3, CD+7
^TMP($J YS+4, YS+8, YS+9

Label References

Name Line Occurrences
$$CD YS+35
FT YS+19, YS+46
FYFPHD HD+1
HD YS+2, YS+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR FT+3!
DIR(0 FT+3*
ENAE YS+1~, YS+10*, YS+15, YS+26
ENCA CD+1~, CD+4*, CD+5
ENCD CD+1~, CD+2*, CD+5*, CD+6*, CD+7*, CD+8*, CD+9
ENCO YS+1~, YS+10*, YS+15, YS+26
ENCST YS+1~, YS+15*, YS+17*, YS+24
ENCSTC YS+1~, YS+14*, YS+15
ENCSTCA YS+1~
ENCSTD YS+1~, YS+13*, YS+15
ENCSTDA YS+1~
>> END YS+3, YS+8, YS+19, FT+3*
ENDA YS+1~, YS+10*, YS+12, YS+17, YS+18, YS+21, YS+23, YS+31, YS+34, YS+35
, CD~, CD+3, CD+4, CD+7
>> ENFY HD+2, HD+3
ENI YS+38*, CD+1~, CD+2*, CD+3*, CD+4
>> ENMDA YS+21, HD+7
>> ENPG FT+2*, FYFPHD+1
>> ENPGH FYFPHD+2
>> ENPGHC FYFPHD+2
ENPN YS+1~, YS+7*, YS+8*, YS+9, YS+22
ENPR YS+1~, YS+3*, YS+4, YS+5, YS+8, YS+9, YS+11, YS+16, YS+18, YS+25
, YS+34
ENPRE YS+1~, YS+5*, YS+30
>> ENRDT FT+2
>> ENT( YS+37, YS+41, YS+42, YS+43, YS+44, YS+45
ENX YS+1~, YS+9*, YS+10, YS+12*, YS+13, YS+14, HD+2*, HD+3*, HD+4*, HD+5*
, HD+6
>> ENYR YS+4, YS+8, YS+9, YS+33, YS+37, YS+41, YS+42, YS+43, YS+44, YS+45
, HD+2, HD+3, HD+5, HD+10, HD+12
IOF FYFPHD+1
IOSL YS+19, YS+38
IOST YS+6, FT+3, FYFPHD+1
U YS+10, YS+11, YS+13, YS+14, YS+16, YS+17, YS+18, YS+23, YS+25, YS+34
, YS+37, YS+41, YS+42, YS+43, YS+44, YS+45, HD+3, CD+5
>> Y FT+3
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