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
Print Page as PDF
Routine: ENFSA1

Package: Engineering

Routine: ENFSA1


Information

ENFSA1 ;(WASH ISC)/JED-Accident Reports ;5-29-93

Source Information

Source file <ENFSA1.m>

Entry Points

Name Comments DBIA/ICR reference
P10 ;Report by SERVICE/DIVISION
P11
P20 ;Report by INJURY CAUSE
P21
P22
P30 ;Report by ACCIDENT NATURE
P31
P40 ;Report by LOCATION
P41
P42
PS1
PS2
PS3
PS4
EXIT
DAT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,ENHDR,!!
  • Line Location: P20+4
Function Call: WRITE
  • Prompt: ?10,I,?14,$P(ENMEN,";",I),!
  • Line Location: P20+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P21+0
Function Call: WRITE
  • Prompt: !!?5,"Select CAUSE NUMBER: "
  • Line Location: P21+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P41+0
Function Call: WRITE
  • Prompt: !!?10,"Enter",ENHD,": "
  • Line Location: P41+0
Function Call: WRITE
  • Prompt: *7,!!?5,"UP TO 25 CHARACTERS PLEASE"
  • Line Location: P41+1
Function Call: READ
  • Formatting: !!
  • Prompt: ""Press <RETURN> to continue""
  • Variable: X
  • Timeout: DTIME"
  • Line Location: PS4+2
Info |  Source |  Entry Points |  Interaction Calls