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

Package: Engineering

Routine: ENPL9


Information

ENPL9 ;(WASH ISC)/LKG-CHIEF ENG/VAMC DIRECTOR PROJ APPROVAL ;5/15/95

Source Information

Source file <ENPL9.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^DIC  ^DIE  EN1^DIP  GETS^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 ENPLM16  

Entry Points

Name Comments DBIA/ICR reference
EN
A
SEL ; select project
EX

External References

Name Field # of Occurrence
^DIC SEL+4
^DIE SEL+25, SEL+27
EN1^DIP SEL+18
GETS^DIQ SEL+7
^DIR SEL+14, SEL+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Sorry, You lack a Security Key required for Approval Authority",!
  • Line Location: A+0
Function Call: WRITE
  • Prompt: $C(7),!,"File in Use, Please try later",!
  • Line Location: SEL+5
Function Call: WRITE
  • Prompt: $C(7),!,"Chief Engineer must sign approval before VAMC Director",!
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: @IOF,!,"Project Number: ",$P(ENY0,U),?27,"Title: ",$E($P(ENY0,U,3),1,45)
  • Line Location: SEL+9
Function Call: WRITE
  • Prompt: !,"Program: ",ENQ(6925,ENIEN,155),?27,"Category: ",ENQ(6925,ENIEN,158.1),!!
  • Line Location: SEL+10
Function Call: WRITE
  • Prompt: !!,"Project was previously approved by ",ENQ(6925,ENIEN,ENF+1)," on ",ENQ(6925,ENIEN,ENF+2)
  • Line Location: SEL+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL+28
Routine Call
  • DIC
  • Line Location:
    • SEL+4
Routine Call
  • DIE
  • Line Location:
    • SEL+25
    • SEL+27
Routine Call
  • DIR
  • Line Location:
    • SEL+14
    • SEL+24

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("PROJ" - [#6925] SEL+5, SEL+8, SEL+14, SEL+27
^XUSEC("ENPLK001" EN
^XUSEC("ENPLK002" EN

Label References

Name Line Occurrences
EX A, SEL+4, SEL+14, SEL+20, SEL+27
SEL SEL+5, SEL+8, SEL+20, SEL+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY SEL+16*, SEL+18!
DA SEL+25*!, SEL+26*, SEL+27!, EX!
DHD SEL+17*, SEL+18!
DIC SEL+2*, SEL+4!, SEL+16*, SEL+18!, EX!
DIC("A" SEL+2*
DIC("S" SEL+3*
DIC(0 SEL+2*
DIE SEL+25*!, SEL+26*, SEL+27!, EX!
DIR SEL+14!, SEL+24!
DIR("?" SEL+13*
DIR("A" SEL+11*, SEL+22*
DIR("B" SEL+12*, SEL+23*
DIR(0 SEL+11*, SEL+22*
DIROUT EX!
DIRUT SEL+14, SEL+20, EX!
DR SEL+25*!, SEL+26*, SEL+27!, EX!
DTOUT SEL+4, SEL+27, EX!
DUOUT SEL+4, SEL+27, EX!
DUZ EN
ENDA SEL+1!, SEL+4*, SEL+5, SEL+6, SEL+8, SEL+14, SEL+25, SEL+26, SEL+27, EX+1!
ENF EN*, A, SEL+8, SEL+20, SEL+21, SEL+25, SEL+26, EX+1!
ENIEN SEL+1!, SEL+6*, SEL+7, SEL+8, SEL+10, SEL+20, SEL+21, SEL+25, EX+1!
ENQ SEL+1!, EX+1!
ENQ(6925 SEL+8, SEL+10, SEL+20, SEL+21, SEL+25
ENY0 SEL+1!, SEL+6*, SEL+9, SEL+17, EX+1!
FLDS SEL+16*, SEL+18!
FR SEL+17*, SEL+18!
IOF SEL+9, SEL+28
>> IOP SEL+17*
L SEL+16*, SEL+18!
TO SEL+17*, SEL+18!
U SEL+9, SEL+17
X EX!
Y SEL+4, SEL+15, SEL+20, EX!
Y(0 SEL+6
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