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

Package: Engineering

Routine: ENPL3A


Information

ENPL3A ;(WASH ISC)/LKG-PRINT MINOR DESIGN/MISC PRIORITY SHEET ;4/29/94

Source Information

Source file <ENPL3A.m>

Entry Points

Name Comments DBIA/ICR reference
A ;Entry point for printing Sheet
C
C1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,?80-$L(X)\2,X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !!,"Medical Center: ",ENM(4,DA,.01,"E")
  • Line Location: C+3
Function Call: WRITE
  • Prompt: " (",$P(^(15),U),")"
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !,"Project Title:",?60,"Project #",!,$P(ENN,U,3),?60,$P(ENN,U)
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: !!,"Category: ",ENM
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: !!,"TOTAL ESTIMATED: Construction Cost: ",$FN(ENM,",")
  • Line Location: C1+8
Function Call: WRITE
  • Prompt: ?55,"Design Cost: ",$FN(ENM(6925,DA,220.1,"E"),",")
  • Line Location: C1+9
Function Call: WRITE
  • Prompt: !!,"Activations FY: ",$P(ENM,U)
  • Line Location: C1+10
Function Call: WRITE
  • Prompt: !,?2,"Additional FTEE Required:",?32,$J($FN($P(ENM,U,3)+0,",",2),11)
  • Line Location: C1+11
Function Call: WRITE
  • Prompt: ?45,"Recurring PS $:",?68,$J($FN($P(ENM,U,4)+0,",",0),11)
  • Line Location: C1+12
Function Call: WRITE
  • Prompt: !,?2,"Non-Recurring All Other $:",?29,$J($FN($P(ENM,U,6)+0,",",0),11)
  • Line Location: C1+13
Function Call: WRITE
  • Prompt: ?45,"Equipment $:",?68,$J($FN($P(ENM,U,5)+0,",",0),11)
  • Line Location: C1+14
Function Call: WRITE
  • Prompt: !,?2,"Travel .007 $:",?29,$J($FN($P(ENM,U,7)+0,",",0),11)
  • Line Location: C1+15
Function Call: WRITE
  • Prompt: ?45,"Recurring all other $:",?68,$J($FN($P(ENM,U,2)+0,",",0),11)
  • Line Location: C1+16
Function Call: WRITE
  • Prompt: !!,"Major/Minor Funded Projects to which Domino",!,?2,"#",?15,"Title",?70,"Type"
  • Line Location: C1+17
Function Call: WRITE
  • Prompt: !,?2,X,?15,$P(ENL(X),U),?70,$P(ENL(X),U,2)
  • Line Location: C1+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: C1+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: C1+19
Function Call: WRITE
  • Prompt: !!,"Equipment Over $250K:"
  • Line Location: C1+20
Function Call: WRITE
  • Prompt: !,?2,"Name: ",$P(ENM,U),?40,"A/R: ",$P(ENM,U,4),?50,"Qty: ",$P(ENM,U,2),?62,"$",$FN($P(ENM,U,2)*$P(ENM,U,3),",",0)
  • Line Location: C1+22
Function Call: WRITE
  • Prompt: !!,"Brief Project Description: "
  • Line Location: C1+23
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: C1+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: C1+27
Function Call: WRITE
  • Prompt: !!,?70,"POINTS"
  • Line Location: C1+28
Function Call: WRITE
  • Prompt: !,"1. Cited JCAHO/AALAC/CAP Accreditation Deficiency."
  • Line Location: C1+29
Function Call: WRITE
  • Prompt: !,?6,"Date",?19,"Page",?29,"Name/Title"
  • Line Location: C1+30
Function Call: WRITE
  • Prompt: !,?2,"(",ENA,")",?6,$P(ENF(1,ENA),U),?19,$P(ENF(1,ENA),U,2),?29,$P(ENF(1,ENA),U,3)
  • Line Location: C1+31
Function Call: WRITE
  • Prompt: !,?70,$J($P($G(ENF),U)+0,2)
  • Line Location: C1+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call