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
Print Page as PDF
Routine: ENPL5D

Package: Engineering

Routine: ENPL5D


Information

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

Source Information

Source file <ENPL5D.m>

Entry Points

Name Comments DBIA/ICR reference
PS
SUBTOT ; add program totals for year (ENYR) to FYFP subtotals
LN ; cost line for ENX array
HD ; page header
FT ; page footer
SUM ; add a project to year-program totals

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"FY ",ENYR
  • Line Location: PS+9
Function Call: WRITE
  • Prompt: !,?5,ENLE,!
  • Line Location: PS+11
Function Call: WRITE
  • Prompt: !,?5,ENLE,!,?5,"PLAN TOTAL"
  • Line Location: PS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PS+13
Function Call: WRITE
  • Prompt: !,?5,"FY FUTURE"
  • Line Location: PS+16
Function Call: WRITE
  • Prompt: !,?5,ENLE,!,?5,"PLAN+FUTURE"
  • Line Location: PS+18
Function Call: WRITE
  • Prompt: ?18,$J($P($G(@(ENX_"""MA"")")),U,2)+0,3)
  • Line Location: LN+1
Function Call: WRITE
  • Prompt: ?23,"$",$J($FN($P($G(@(ENX_"""MA"")")),U),","),9)
  • Line Location: LN+2
Function Call: WRITE
  • Prompt: ?37,$J($P($G(@(ENX_"""MI"")")),U,2)+0,3)
  • Line Location: LN+3
Function Call: WRITE
  • Prompt: ?42,"$",$J($FN($P($G(@(ENX_"""MI"")")),U),","),9)
  • Line Location: LN+4
Function Call: WRITE
  • Prompt: ?56,$J($P($G(@(ENX_"""MM"")")),U,2)+0,3)
  • Line Location: LN+5
Function Call: WRITE
  • Prompt: ?61,"$",$J($FN($P($G(@(ENX_"""MM"")")),U),","),9)
  • Line Location: LN+6
Function Call: WRITE
  • Prompt: ?75,$J($P($G(@(ENX_"""NR"")")),U,2)+0,3)
  • Line Location: LN+7
Function Call: WRITE
  • Prompt: ?80,"$",$J($FN($P($G(@(ENX_"""NR"")")),U),","),9)
  • Line Location: LN+8
Function Call: WRITE
  • Prompt: ?94,$J($P($G(@(ENX_"""C"")")),U,2)+0,3)
  • Line Location: LN+9
Function Call: WRITE
  • Prompt: ?99,"$",$J($FN($P($G(@(ENX_"""C"")")),U),","),9)
  • Line Location: LN+10
Function Call: WRITE
  • Prompt: ?113,$J($P($G(@(ENX_"""LE"")")),U,2)+0,3)
  • Line Location: LN+11
Function Call: WRITE
  • Prompt: ?118,"$",$J($FN($P($G(@(ENX_"""LE"")")),U),","),9)
  • Line Location: LN+12
Function Call: WRITE
  • Prompt: !,?42,"PLAN SUMMARY BY PROGRAMS AND FISCAL YEARS (in $000)"
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !,?23,"MAJOR",?42,"MINOR",?58,"MINOR MISC",?81,"NRM"
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?96,"CONST TOTAL",?115,"LEASE TOTAL"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,?18,"CNT",?26,"COST",?37,"CNT",?45,"COST",?56,"CNT",?64,"COST"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?75,"CNT",?83,"COST",?94,"CNT",?102,"COST",?113,"CNT",?121,"COST"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,?5,ENLD
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FT+3
Function Call: WRITE
  • Prompt: !,?5,"PLAN and PLAN+FUTURE counts only include split year projects once and may not equal the sum of the year counts."
  • Line Location: FT+4
Function Call: WRITE
  • Prompt: !,?5,"Lease column excludes Expedited leases."
  • Line Location: FT+5
Function Call: WRITE
  • Prompt: !,?64,"Page ",ENPG,?100,ENRDT
  • Line Location: FT+7
Info |  Source |  Entry Points |  Interaction Calls