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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENY2KA

Package: Engineering

Routine: ENY2KA


Information

ENY2KA ;;(WIRMFO)/DH-Equipment Y2K Management ;5.12.98

Source Information

Source file <ENY2KA.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Engineering 2 (DATA,UPDATE)^ENY2K1  OVERWRT^ENY2K8  
Kernel 1 $$UP^XLFSTR  
VA FileMan 1 ^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: 2

Package Total Caller Graph
Engineering 2 ENY2KMEN  ENY2KR1  

Entry Points

Name Comments DBIA/ICR reference
MEN ; data entry by MANUFACTURER EQUIPMENT NAME
; menu option disabled at request of Technical Advisory Group
; thought to be too confusing and of limited utility
MEN1
EXIT

External References

Name Field # of Occurrence
^DIR MEN1+15
DATA^ENY2K1 MEN+7
UPDATE^ENY2K1 MEN+9
OVERWRT^ENY2K8 MEN1+16
$$UP^XLFSTR MEN1+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Please enter MANUFACTURER EQUIPMENT NAME: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: MEN1+1
Function Call: WRITE
  • Prompt: !!,"Please enter a MANUFACTURER EQUIPMENT NAME, of the form"
  • Line Location: MEN1+2
Function Call: WRITE
  • Prompt: !,?10,$O(^ENG(6914,"H",J))
  • Line Location: MEN1+2
Function Call: WRITE
  • Prompt: " ("_MEN_")"
  • Line Location: MEN1+4
Function Call: WRITE
  • Prompt: !,"Another user is editing this MANUFACTURER EQUIPMENT NAME. Can't proceed."
  • Line Location: MEN1+8
Function Call: WRITE
  • Prompt: !!,"There are no active equipment records whose MANUFACTURER EQUIPMENT NAME",!,"is "_MEN_"."
  • Line Location: MEN1+12
Function Call: WRITE
  • Prompt: !!,"There are "_COUNT_" active equipment records whose MANUFACTURER EQUIPMENT",!,"NAME is "_MEN_". Do you wish to proceed?"
  • Line Location: MEN1+13
Routine Call
  • DIR
  • Line Location:
    • MEN1+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("MEN" MEN+5, MEN+8, MEN+10, MEN1+8, MEN1+12, MEN1+17
^ENG(6914 - [#6914] MEN1+2, MEN1+4, MEN1+5, MEN1+10, MEN1+11
^TMP($J MEN1!, MEN1+11*, EXIT!

Label References

Name Line Occurrences
EXIT MEN+11
MEN1 MEN+4, MEN1+2, MEN1+4, MEN1+8, MEN1+12, MEN1+17

Naked Globals

Name Field # of Occurrence
^(3 MEN1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COUNT MEN+3~, MEN1+10*, MEN1+11*, MEN1+12, MEN1+13
COUNT( MEN1+9*, MEN1+11*
COUNT("PRE" MEN1+11*, MEN1+16
>> CRITER MEN1+16
DA MEN+3~, MEN1+10*, MEN1+11
DIC MEN+3~
DIE MEN+3~
DIR MEN1+15!
DIR("B" MEN1+14*
DIR(0 MEN1+14*
>> DIRUT MEN1+15
DR MEN+3~
DTIME MEN1+1
ENY2K MEN+3~
ENY2K("CONT" MEN+7, MEN1+17*
ESCAPE MEN+3~, MEN+4, MEN+5, MEN+6, MEN+8, MEN1+1*, MEN1+15*, MEN1+16
>> J MEN1+2*, MEN1+9*
>> L MEN1+5*, MEN1+6
MEN MEN+3~, MEN+5, MEN+8, MEN+10*, MEN1+3*, MEN1+4, MEN1+5, MEN1+6*, MEN1+7*, MEN1+8*
, MEN1+10, MEN1+12*, MEN1+13, MEN1+17*
MEN(1 MEN1+5*, MEN1+6
U MEN1+11
>> X MEN1+1*, MEN1+2, MEN1+3, MEN1+11*
>> Y MEN1+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All