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

Package: Asists

Routine: OOPSPRT1


Information

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

;;2.0;ASISTS;;Jun 03, 2002

Source Information

Source file <OOPSPRT1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Asists 2 $$EDSTA^OOPSUTL1  $$ISEMP^OOPSUTL4  

Entry Points

Name Comments DBIA/ICR reference
HEAD ; This is the head portion of the routine
MAIN ; Main Loop
R1
PRINT ; This is the main print portion of the routine
S1 ; if get here user
ONE ; Only 1 Station Selected
DEVICE ; This is the device selection routine.
STATION(STA,OUT) ;
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
EN1(CALLER) ;
; Input:
; Caller O = Safety Officer
; U = Union
; S = Supervisor
; E = Employee
;
DATA ; Loop to get & print data

External References

Name Field # of Occurrence
^%ZIS DEVICE+2
HOME^%ZIS DEVICE+11
^%ZISC EXIT+1
^%ZTLOAD DEVICE+11
^DIC S1+3
$$GET1^DIQ DATA+2, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11, DATA+14, DATA+30, DATA+42
, HEAD+18
^DIR R1+3, STATION+6, HEAD+8
$$EDSTA^OOPSUTL1 DATA+24, DATA+36, DATA+49
$$ISEMP^OOPSUTL4 DATA+30, DATA+42
$$FMTE^XLFDT HEAD+15
$$NOW^XLFDT HEAD+15

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
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+11
Routine Call
  • DIC
  • Line Location:
    • S1+3
Routine Call
  • DIR
  • Line Location:
    • R1+3
    • STATION+6
    • HEAD+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OOPS(2260 - [#2260] EN1+13, R1+7, S1+6, MAIN+1, MAIN+2, ONE+1, ONE+2
^VA(200 - [#200] EN1+12

Label References

Name Line Occurrences
DATA MAIN+2, ONE+2
DEVICE EN1+17
HEAD MAIN+1, ONE+1, DATA+16
ONE PRINT+5
PRINT EN1+18
R1 R1+5, R1+7
RANGE EN1+15
S1 S1+6
STATION EN1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
CALLER EN1~, EN1+11, DATA+13, DATA+14, DATA+18, DATA+33, DATA+46, HEAD+22
CASE DATA+1~, DATA+2*, DATA+3, DATA+17
CAT DATA+1~, DATA+11*
CNT PRINT+1~, PRINT+2*, DATA+12*
DATE DATA+1~, DATA+10*, DATA+19
DIC STATION+2~, S1+2*, S1+3!
DIC("A" S1+1*
DIC(0 S1+2*
DIR RANGE+5~, STATION+2~, HEAD+8~
DIR("?" STATION+4*, STATION+5*
DIR("??" R1+2*
DIR("A" R1+1*, STATION+3*
DIR("B" STATION+3*
DIR(0 R1*, STATION+3*, HEAD+8*
DIRUT RANGE+5~, STATION+2~, STATION+7
>> DTOUT R1+4
>> DUOUT R1+4, STATION+7
DUZ EN1+12, DATA+14
HEAD EN1+7~, MAIN+1*, HEAD+4, HEAD+25*
>> IEN MAIN+2*, ONE+2*, DATA+2, DATA+6, DATA+7, DATA+8, DATA+9, DATA+10, DATA+11, DATA+14
, DATA+24, DATA+30, DATA+36, DATA+42, DATA+49
INC DATA+1~, DATA+7*, DATA+26, DATA+27, DATA+31, DATA+38, DATA+39, DATA+43
IO PRINT+4
IO("Q" EN1+18, EXIT+3!, DEVICE+3
IOF HEAD+2, HEAD+6, HEAD+13
IOSL HEAD+4
IOST HEAD+2, HEAD+5
LINE2 HEAD+14~, HEAD+18*, HEAD+19, HEAD+20
LINER HEAD+14~, HEAD+16*, HEAD+17, HEAD+20
LOOP PRINT+1~, PRINT+3*, MAIN+1*, MAIN+2, ONE+1, ONE+2, HEAD+18
NAME DATA+1~, DATA+8*, DATA+18
OUT EN1+7~, EN1+9*, EN1+15, EN1+16, EN1+17, EN1+18, RANGE~, R1+4*, STATION~, STATION+7*
, S1+4*, DEVICE+2*, MAIN+1, MAIN+2, ONE+2, DATA+16, HEAD+5, HEAD+7, HEAD+8*, HEAD+12
OUTPUT EN1+7~, EN1+9*, DATA+15*
PAGE EN1+7~, EN1+9*, HEAD+1, HEAD+4, HEAD+6, HEAD+7, HEAD+13, HEAD+15, HEAD+25*
>> POP DEVICE+2
SIGN DATA+23~, DATA+24*, DATA+31, DATA+35~, DATA+36*, DATA+43, DATA+44, DATA+48~, DATA+49*, DATA+51
SSN EN1+7~, EN1+12*, EN1+13, DATA+13
SSN1 DATA+1~, DATA+9*, DATA+13, DATA+18
STA EN1+7~, EN1+16, STATION~, STATION+1*, STATION+6*, S1+5*, S1+6, PRINT+3, PRINT+5
TAB HEAD+14~, HEAD+17*, HEAD+20
TAB2 HEAD+14~, HEAD+19*, HEAD+20
U EN1+12, DATA+31, DATA+43, DATA+44, DATA+51
Y RANGE+5~, R1+5, R1+6, STATION+2~, STATION+6, S1+4, S1+5, HEAD+8, HEAD+9!
YEAR EN1+7~, EN1+10*, EN1+15, RANGE~, R1+6*, R1+7, DATA+4, HEAD+16
YR DATA+1~, DATA+3*, DATA+4
>> ZTDESC DEVICE+4*
>> ZTQUEUED EXIT+2
>> ZTREQ EXIT+2*
>> ZTRTN DEVICE+4*
>> ZTSAVE("CALLER" DEVICE+7*
>> ZTSAVE("OUT" DEVICE+6*
>> ZTSAVE("OUTPUT" DEVICE+10*
>> ZTSAVE("PAGE" DEVICE+9*
>> ZTSAVE("SSN" DEVICE+8*
>> ZTSAVE("STA" DEVICE+5*
>> ZTSAVE("YEAR" 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