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

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

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
Info |  Source |  Entry Points |  Interaction Calls