OOPSPRT1 ;HINES/WAA-Utilities Routines ;3/24/98
Source file <OOPSPRT1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN1(CALLER) | ;
; Input: ; Caller O = Safety Officer ; U = Union ; S = Supervisor ; E = Employee ; |
|
EXIT | ;
|
|
RANGE(YEAR,OUT) | ; This Subroutine will allow the user to select a range.
; Output ; YEAR = The year that the user what to print ; = "" all years |
|
R1 | ||
STATION(STA,OUT) | ;
|
|
S1 | ; if get here user <CR>
|
|
DEVICE | ; This is the device selection routine.
|
|
; This is the main print portion of the routine
|
||
MAIN | ; Main Loop
|
|
ONE | ; Only 1 Station Selected
|
|
DATA | ; Loop to get & print data
|
|
HEAD | ; This is the head portion of the routine
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^OOPS(2260 - [#2260] | GET1^DIQ |
^DIC(4 - [#4] | Classic Fileman Calls, GET1^DIQ |