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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: OOPSPRT1

Package: Asists

Routine: OOPSPRT1


Information

OOPSPRT1 ;HINES/WAA-Utilities Routines ;3/24/98

Source Information

Source file <OOPSPRT1.m>

Entry Points

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.
PRINT ; 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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must enter a 4 digit year."
  • Line Location: R1+5
Function Call: WRITE
  • Prompt: !,"No date for that Fiscal Year please select again."
  • Line Location: R1+7
Function Call: WRITE
  • Prompt: !?5,"No Station selected, report will not run"
  • Line Location: S1+4
Function Call: WRITE
  • Prompt: !?5,"No data for that Station Number, Please select again."
  • Line Location: S1+6
Function Call: WRITE
  • Prompt: !!,CASE
  • Line Location: DATA+17
Function Call: WRITE
  • Prompt: ?57,DATE
  • Line Location: DATA+19
Function Call: WRITE
  • Prompt: !,?35," CA1 ",?50," CA2 ",?65," 2162 "
  • Line Location: DATA+20
Function Call: WRITE
  • Prompt: !,?35,"---------",?50,"---------",?65,"---------"
  • Line Location: DATA+21
Function Call: WRITE
  • Prompt: !,?20,"EMPLOYEE:"
  • Line Location: DATA+25
Function Call: WRITE
  • Prompt: ?35
  • Line Location: DATA+26
Function Call: WRITE
  • Prompt: ?50
  • Line Location: DATA+27
Function Call: WRITE
  • Prompt: "N/A(",$E($$GET1^DIQ(2260,IEN,2,"E"),1,7),")"
  • Line Location: DATA+30
Function Call: WRITE
  • Prompt: $S($P(SIGN,U,INC):" ",1:"UN-"),"SIGNED"
  • Line Location: DATA+31
Function Call: WRITE
  • Prompt: !,?20,"SUPERVISOR:"
  • Line Location: DATA+37
Function Call: WRITE
  • Prompt: ?35
  • Line Location: DATA+38
Function Call: WRITE
  • Prompt: ?50
  • Line Location: DATA+39
Function Call: WRITE
  • Prompt: "N/A(",$E($$GET1^DIQ(2260,IEN,2,"E"),1,7),")"
  • Line Location: DATA+42
Function Call: WRITE
  • Prompt: $S($P(SIGN,U,INC):" ",1:"UN-"),"SIGNED"
  • Line Location: DATA+43
Function Call: WRITE
  • Prompt: ?65,$S($P(SIGN,U,3):" ",1:"UN-"),"SIGNED"
  • Line Location: DATA+44
Function Call: WRITE
  • Prompt: !,?20,"SAFETY OFFICER:"
  • Line Location: DATA+50
Function Call: WRITE
  • Prompt: ?65,$S($P(SIGN,U):" ",1:"UN-"),"SIGNED"
  • Line Location: DATA+51
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,$$FMTE^XLFDT($$NOW^XLFDT,1),?70,"PAGE: ",PAGE,!
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: ?TAB,LINER,!,?TAB2,LINE2
  • Line Location: HEAD+20
Function Call: WRITE
  • Prompt: !,"Case No."
  • Line Location: HEAD+21
Function Call: WRITE
  • Prompt: ?57,"DATE OF INCIDENT"
  • Line Location: HEAD+23
Function Call: WRITE
  • Prompt: !,"============================================================================="
  • Line Location: HEAD+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OOPS(2260 - [#2260] GET1^DIQ
^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call