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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: ENFSA

Package: Engineering

Routine: ENFSA


Information

ENFSA ;(WASH ISC)/JED/DH-Enter or Edit Accident Report (2162) ;2.18.98

Source Information

Source file <ENFSA.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Engineering 2 INIT^EN  EN^ENJ  
VA FileMan 2 ^DIC  DT^DICRW  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Engineering 4 ENFS-2162  ENFS-2162-DISPLAY  ENFS-2162-EDIT  ENFS-2162-ENTER  

Entry Points

Name Comments DBIA/ICR reference
V ;;7.0;ENGINEERING;**48**;Aug 17, 1993
IN
PR
RE
HDR
R1 ;ENTER NEW ACCIDENT REPORT
SET
SET1
R2 ;EDIT 2162 REPORT
R3 ;DISPLAY 2162 REPORT
R4 ;PRINT 2162 ACCIDENT REPORT
MSG
HLD
EXIT
INIT
OPT ;;ACCIDENT REPORTING MODULE; ACCIDENT REPORTING OPTIONS;ENFSA;INIT

External References

Name Field # of Occurrence
^%ZIS PR, INIT
^DIC RE, R2+1, R3+1
DT^DICRW V+3, R1+1, INIT
INIT^EN R1+1, R2+1, R3+1
EN^ENJ SET1+5, R2+4, R3+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?15,J,". ",$P(^DOPT($P(O,S,5),J,0),U,1)
  • Line Location: PR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RE+0
Function Call: WRITE
  • Prompt: @IOF,!!,?12,"ENGINEERING ACCIDENT REPORTING MODULE",!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,*7,"Can't add new records at this time. Please try again later."
  • Line Location: R1+2
Function Call: WRITE
  • Prompt: !!,*7,"Someone else is adding a record. Please try again later."
  • Line Location: R1+3
Function Call: WRITE
  • Prompt: *7,!,"Record being edited by someone else. Please try later."
  • Line Location: R2+3
Function Call: WRITE
  • Prompt: !!,"one moment please"
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue..."
  • Line Location: HLD+0
Function Call: WRITE
  • Prompt: @IOF,@ENLO
  • Line Location: EXIT+0
Routine Call
  • %ZIS
  • Line Location:
    • PR
    • INIT
Routine Call
  • DIC
  • Line Location:
    • RE
    • R2+1
    • R3+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DOPT( V+3, V+4!, V+5*, V+6*, PR+1
^ENG("FSA" - [#6924] R1+2, R1+3, R1+4, R1+5, SET, SET1, SET1+2*, SET1+3, SET1+5, R2+3
, R2+4

Label References

Name Line Occurrences
@( IN, RE
EXIT RE, R1+2, R1+3, SET1+5, R2+1, R2+3, R2+4, R3+1, R3+2
HDR PR+1
HLD R1+2, R1+3, R2+3
IN V+3
MSG R1+1
OPT V+3, PR, RE
PR RE
RE RE
SET R1+4
SET1 SET1
V V+3, V+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT!
DA EXIT!
DIC RE*!, R2+1*, R3+1*, EXIT!
DIC("A" RE*
DIC(0 RE*, R2+1*, R3+1*
DIE EXIT!
DJD0 EXIT!
DJDIS R3+2*, EXIT+1!
DJDN SET1+4*, R2+2*, R2+3, R3+2*, EXIT+1!
DJLG EXIT!
DJLS EXIT!
DJSC SET1+4*, R2+2*, R3+2*, EXIT+1!
DJSW2 EXIT!
DN EXIT!
DR EXIT!
DT V+3, R1+1
DTIME HLD, INIT*
ENFNO SET*, SET1+1, SET1+4!
>> ENHI R1+1, R2+1, R3+1
ENL EXIT!
>> ENLO R1+1, R2+1, R3+1, EXIT
ENLOCK SET1+4*, SET1+5, R2+2*, R2+4, EXIT+1!
ENNXL SET*, SET1*, SET1+1, SET1+2, SET1+3, SET1+4!
ENNXT SET*, SET1+1*, SET1+4!
ENOUT SET1+1*, SET1+2, SET1+4!
ENR R1+4*, R1+5*, SET1+2, SET1+4!
ENY R1+1*, R1+4, R1+5, SET1+4!
I V+5*, V+6!, SET1+4!, EXIT!
IO("Q" EXIT!
IOF PR, HDR, EXIT
IOP PR*!, INIT*!
IOST PR
J PR+1*, RE!, SET1+4!, EXIT!
K V+6*!, SET1+4!, EXIT!
O V+3*, V+4, V+5, V+6, IN, PR*, PR+1, RE!, EXIT!
R EXIT!
S V+3*, V+4, V+5, V+6, IN, PR*, PR+1, RE, EXIT!
U V+3*, V+6, PR+1, RE, SET, SET1+1, INIT*
X V+6!, RE, HLD*
XY EXIT!
Y RE, R2+1, R2+2, R3+1, R3+2, EXIT!
Z EXIT!

Marked Items

Name Field # of Occurrence
$T(OPT V+3, PR, RE
$T(OPT+I V+5
$T(OPT+Y RE
$T(V V+3, V+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All