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

Package: Engineering

Routine: ENPL5A


Information

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

Source Information

Source file <ENPL5A.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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