Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: OOPSPRT2

Package: Asists

Routine: OOPSPRT2


Information

OOPSPRT2 ;HINES/WAA-Print CA1/CA2 Routines ;3/24/98

Source Information

Source file <OOPSPRT2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Asists 2 EN1^OOPSPCA  $$EMP^OOPSUTL1  

Entry Points

Name Comments DBIA/ICR reference
EN1(CALLER) ;
; Input:
; Caller O = Safety Officer
; S = Supervisor
; E = Employee
;
EXIT ;
FORM() ;Select a form to print
SELECT(CALLER) ; Select a case to print
EMP(IEN) ; Employee
SUP(IEN) ; Supervisor
SAF(IEN) ; Safety Officer
DEVICE ; This is the device selection routine.
PRINT ; This is the main print portion of the routine
END ; exit the report

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
HOME^%ZIS DEVICE+8
^%ZISC END+1
^%ZTLOAD DEVICE+8
^DIC SELECT+20
$$GET1^DIQ EN1+10, EMP+3, SUP+3, SUP+4, SAF+3
^DIR FORM+11
EN1^OOPSPCA PRINT+3
$$EMP^OOPSUTL1 EMP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," 1) Injury (CA1)"
  • Line Location: FORM+5
Function Call: WRITE
  • Prompt: !," 2) Illness (CA2)"
  • Line Location: FORM+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FORM+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
Routine Call
  • DIC
  • Line Location:
    • SELECT+20
Routine Call
  • DIR
  • Line Location:
    • FORM+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OOPS(2260 - [#2260] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2260 - [#2260] SELECT+11
^VA(200 - [#200] SELECT+8, SELECT+10

Label References

Name Line Occurrences
$$FORM EN1+9
$$SELECT EN1+8
EXIT EN1+12
PRINT EN1+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
CALLER EN1~, EN1+8, SELECT~, SELECT+9, SELECT+16, SELECT+17, SELECT+18
CASE EN1+6~, EN1+9*, EN1+10*, SELECT+5~, SELECT+6*, SELECT+9, SELECT+11*, SELECT+22*, SELECT+24, PRINT+3
DIC SELECT+14~, SELECT+15*
DIC("A" SELECT+19*
DIC("S" SELECT+16*, SELECT+17*, SELECT+18*
DIC(0 SELECT+19*
DIR FORM+4~
DIR("?" FORM+10*
DIR("A" FORM+9*
DIR(0 FORM+8*
>> DTOUT SELECT+21
>> DUOUT SELECT+21
DUZ SELECT+7, SELECT+8, SELECT+10, SUP+4
FORM EN1+6~, EN1+9*, EN1+10*, FORM+1~, FORM+12*, FORM+13*, FORM+14, DEVICE+4, PRINT+1*, PRINT+2*
, PRINT+3
IEN EN1+8*, EN1+9, EN1+10, SELECT+5~, SELECT+6*, EMP~, EMP+4, SUP~, SUP+4, SAF~
IO("Q" EXIT+1!, DEVICE+3
OUT EN1+6~, EN1+7*, DEVICE+2*
>> POP DEVICE+2
SSN SELECT+5~, SELECT+10*, SELECT+11, EMP+4
U EN1+10, SELECT+10
VIEW EMP+1~, EMP+2*, EMP+3*, EMP+4*, EMP+5, SUP+1~, SUP+2*, SUP+3*, SUP+4*, SUP+5
, SAF+1~, SAF+2*, SAF+3*, SAF+4
X SELECT+14~
Y FORM+4~, SELECT+14~, SELECT+21*, SELECT+22, EMP+3, SUP+3, SAF+3
Y(0 FORM+12, FORM+13
>> ZTDESC DEVICE+4*
>> ZTQUEUED END+2
>> ZTREQ END+2*
>> ZTRTN DEVICE+4*
>> ZTSAVE("CASE" DEVICE+6*
>> ZTSAVE("FORM" DEVICE+7*
>> ZTSAVE("OUT" DEVICE+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All