OOPSSUP1 ;HINES/WAA-S/E Supervisor Edit routine ;04/17/1998
Source file <OOPSSUP1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1(CALLER) | ; Main Entry Point
|
|
SELECT | ; Select a form
; Injury (2162,CA1) ; Illness (2162,CA2) ; VA form 2162 ; Get the type of incident ; If the supporting global doesn't exist force the ; Supervisor to fill both the 2162 and supporting form. |
|
INCIDENT(CALLER) | ; Select a case
|
|
SUP(IEN) | ; Supervisor Screen
|
|
SAFETY(IEN) | ; Safety officer screen
|
|
FORMS | ; Process Form
|
|
SIGNS(FORM) | ; Sign/validate Document
|
|
FILE | ;File the ES and send a bull
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^OOPS(2260 - [#2260] | Classic Fileman Calls, GET1^DIQ |