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

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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