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

Package: Asists

Routine: OOPSLOG


Information

OOPSLOG ;HINES CIOFO/GB-Log of Federal Occupational Injuries and Illnesses ;8/15/96

Source Information

Source file <OOPSLOG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 NOW^%DTC  ^DIC  $$GET1^DID  $$GET1^DIQ  EN^DIQ1  ^DIR  ^DIWP  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMDIFF^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
TASK ;Queue a task
SDED
P ;Display Data
LOGSUM ;Log Summary
S1 ; if get here user <CR>
DEV
PRT
STATION(STA,OUT) ; Get 'ALL' or one station
EXIT ; Clean up and exit
PREDEV
WP ;Process Word Processing Fields
DATA ;
HDR ;Header

External References

Name Field # of Occurrence
NOW^%DTC PRT+4
^%ZIS DEV
^%ZISC DEV+2, TASK+12
^%ZTLOAD TASK+12
^DIC S1+3
$$GET1^DID WP+4
$$GET1^DIQ DATA+2, DATA+28, DATA+32, DATA+34, DATA+35, DATA+36, HDR+1
EN^DIQ1 DATA+9
^DIR SDED+4, SDED+10, SDED+16, SDED+19, LOGSUM+5, LOGSUM+21, P+2, STATION+6
^DIWP WP+5
$$FMDIFF^XLFDT SDED+13, DATA+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"The Ending Date cannot be before or on the Starting Date, please re-enter this data."
  • Line Location: SDED+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,CASE,?12,$P(OOPS(2260,DA,4,"E"),"@",1),?26,OOPS(2260,DA,1,"E")
  • Line Location: DATA+23
Function Call: WRITE
  • Prompt: ?58,OOPS(2260,DA,15,"E"),?64,$E(OOPS(2260,DA,14,"E"),1,4)
  • Line Location: DATA+24
Function Call: WRITE
  • Prompt: ?70,OOPS(2260,DA,33,"E")
  • Line Location: DATA+25
Function Call: WRITE
  • Prompt: !,$E(OOPS(2260,DA,52,"E"),1,7),?12,$E(OOPS(2260,DA,51,"E"),1,12)
  • Line Location: DATA+26
Function Call: WRITE
  • Prompt: ?26,OOPS(2260,DA,3,"E")
  • Line Location: DATA+27
Function Call: WRITE
  • Prompt: ?58,$E($$GET1^DIQ(49,OOPS(2260,DA,86,"I"),.01),1,22)
  • Line Location: DATA+28
Function Call: WRITE
  • Prompt: !,$E(OOPS(2260,DA,29,"E"),1,35),?58,$E(OOPS(2260,DA,30,"E"),1,21)
  • Line Location: DATA+29
Function Call: WRITE
  • Prompt: $$GET1^DIQ(2261.6,OOPS(2260,DA,37,"I"),.01)
  • Line Location: DATA+32
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2260,DA,"38:.01")
  • Line Location: DATA+34
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2260,DA,"82:.01")
  • Line Location: DATA+35
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(2260,DA,108)
  • Line Location: DATA+36
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: DATA+38
Function Call: WRITE
  • Prompt: !,"Log Summary"
  • Line Location: LOGSUM+10
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: LOGSUM+11
Function Call: WRITE
  • Prompt: !,"Injuries.: ",$J(INJ,3),?16,"Fatal Injuries....: ",$J(FCINJ,3)
  • Line Location: LOGSUM+12
Function Call: WRITE
  • Prompt: ?41,"Lost Time Injuries....: ",$J(LTINJ,3)
  • Line Location: LOGSUM+13
Function Call: WRITE
  • Prompt: !,"Illnesses: ",$J(ILL,3),?16,"Fatal Illnesses...: ",$J(FCILL,3)
  • Line Location: LOGSUM+14
Function Call: WRITE
  • Prompt: ?41,"Lost Time Illnesses...: ",$J(LTILL,3)
  • Line Location: LOGSUM+15
Function Call: WRITE
  • Prompt: !,"--------------",?16,"-----------------------",?41,"---------------------------"
  • Line Location: LOGSUM+16
Function Call: WRITE
  • Prompt: !,"Total....: ",$J(INJILL,3),?16,"Total.............: ",$J(FCINJILL,3)
  • Line Location: LOGSUM+18
Function Call: WRITE
  • Prompt: ?41,"Total.................: ",$J(LTINJILL,3)
  • Line Location: LOGSUM+19
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: LOGSUM+20
Function Call: WRITE
  • Prompt: !,"Request Queued",!
  • Line Location: TASK+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?(40-($L(HDR)/2)),HDR,?72,"Page",$S($L(PG)=2:" ",1:" "),PG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?(40-($L(RANGE)/2)),RANGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?(40-($L(HDR1)/2)),HDR1,!?(40-($L(HDR2)/2)),HDR2,!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"Inj/Ill",?12,"Status",?26,"Type of Incident",?58,"Service"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Char. of Injury",?58,"Body Part Affected"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Activity at time of Injury"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"Object Causing Injury"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !,"Model and Brand of Object Causing Injury"
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,"Location of Injury"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,"Description of Injury"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !?5,"No Station selected, report will not run"
  • Line Location: S1+5
Function Call: WRITE
  • Prompt: !?5,"No data for that Station Number, Please select again."
  • Line Location: S1+7
Function Call: WRITE
  • Prompt: !,"Description of Injury:"
  • Line Location: WP+8
Function Call: WRITE
  • Prompt: !?2,^UTILITY($J,"W",1,OPI,0)
  • Line Location: WP+10
Routine Call
  • DIC
  • Line Location:
    • S1+3
Routine Call
  • DIR
  • Line Location:
    • SDED+4
    • SDED+10
    • SDED+16
    • SDED+19
    • LOGSUM+5
    • LOGSUM+21
    • P+2
    • STATION+6
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PRT+4
^OOPS(2260 - [#2260] PRT+10, PRT+11, PRT+14, DATA+4, S1+7, WP+5
^UTILITY($J WP+2!, WP+6, WP+9, WP+10, WP+11!

Label References

Name Line Occurrences
DATA PRT+11, PRT+14
EXIT SDED+5, SDED+11, SDED+17, SDED+20, PREDEV+2, DEV, DEV+1, DEV+2, PRT+9, PRT+12
HDR DATA+22, P+3
LOGSUM PRT+11, PRT+14
P DATA+25, DATA+27, DATA+28, DATA+29, DATA+32, DATA+34, DATA+35, DATA+36, LOGSUM+10, LOGSUM+11
, LOGSUM+13, LOGSUM+15, LOGSUM+16, WP+10
PREDEV SDED+15
PRT DEV+2
S1 S1+7
SDED SDED+13
STATION PREDEV+1
TASK DEV+1
WP DATA+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRT+4, EXIT+1!
%ZIS DEV!*, DEV+2!
CASE DATA+1~, DATA+2*, DATA+3, DATA+23
CD DATA+1~, DATA+4*, DATA+5
CL OOPSLOG+2~
CN OOPSLOG+2~
DA OOPSLOG+2~, PRT+11*, PRT+14*, DATA+2, DATA+4, DATA+10, DATA+11, DATA+12, DATA+13, DATA+15
, DATA+16, DATA+17, DATA+18, DATA+19, DATA+20, DATA+21, DATA+23, DATA+24, DATA+25, DATA+26
, DATA+27, DATA+28, DATA+29, DATA+32, DATA+34, DATA+35, DATA+36, WP+5
DASHES OOPSLOG+2~, PRT+3!*, DATA+38, LOGSUM+9, LOGSUM+11, LOGSUM+20, HDR+17
DATE OOPSLOG+2~, PRT+4*
DIC DATA+1~, DATA+7*, STATION+2~, S1+2*
DIC("A" S1+1*
DIC(0 S1+2*
DIQ DATA+1~, DATA+9*
DIQ(0 DATA+9*
DIR SDED~, SDED+7!, SDED+16!, SDED+19!, LOGSUM+5!, LOGSUM+21!, P+2!, STATION+2~
DIR("?" SDED+3*, SDED+9*, STATION+4*, STATION+5*
DIR("A" SDED+2*, SDED+8*, SDED+16*, SDED+19*, STATION+3*
DIR("B" SDED+19*, STATION+3*
DIR(0 SDED+1*, SDED+7*, SDED+16*, SDED+19*, LOGSUM+5*, LOGSUM+21*, P+2*, STATION+3*
DIRUT SDED~, SDED+5, SDED+7!, SDED+11, SDED+17, SDED+20, PREDEV+2, STATION+2~, STATION+7
DIWF WP+1~, WP+3*
DIWL WP+1~, WP+3*
DIWR WP+1~, WP+3*
DR DATA+1~, DATA+8*
DUOUT SDED~, SDED+7!, STATION+7, S1+4
ED SDED~, SDED+12*, SDED+13, DATA+5
EDT SDED~, SDED+12*, SDED+14
EV SDED+15, SDED+18*, PRT+6, EXIT+1!, DATA+11
EX OOPSLOG+2~, PRT+2*, PRT+10, PRT+11, PRT+14, DATA+25, DATA+27, DATA+28, DATA+29, DATA+31
, DATA+32, DATA+34, DATA+35, DATA+36, LOGSUM+1, LOGSUM+4, LOGSUM+5*, LOGSUM+10, LOGSUM+11, LOGSUM+13
, LOGSUM+15, LOGSUM+16, LOGSUM+21*, P+1, P+2*, WP+9, WP+10
FCILL OOPSLOG+2~, PRT+1*, DATA+19*, LOGSUM+3, LOGSUM+14, LOGSUM+17, LOGSUM+22*
FCINJ OOPSLOG+2~, PRT+1*, DATA+16*, LOGSUM+3, LOGSUM+12, LOGSUM+17, LOGSUM+22*
FCINJILL OOPSLOG+2~, LOGSUM+17*, LOGSUM+18, LOGSUM+22*
FY OOPSLOG+2~
FYR OOPSLOG+2~
HDR OOPSLOG+2~, PRT+5*, LOGSUM+7, HDR+3
HDR1 OOPSLOG+2~, SDED+15*, PRT+6*, HDR+5
HDR2 OOPSLOG+2~, HDR+1*, HDR+5
HDRFLG OOPSLOG+3~, PRT+10*, PRT+13*, DATA+22*
ILL OOPSLOG+3~, PRT+1*, DATA+18*, LOGSUM+3, LOGSUM+14, LOGSUM+17, LOGSUM+22*
INC OOPSLOG+3~, SDED+15*, SDED+21*, DATA+21, HDR+6, HDR+7
INJ OOPSLOG+3~, PRT+1*, DATA+15*, LOGSUM+3, LOGSUM+12, LOGSUM+17, LOGSUM+22*
INJILL OOPSLOG+3~, LOGSUM+17*, LOGSUM+18, LOGSUM+22*
IO DEV+2, TASK+12
IO("Q" DEV+1, TASK+1!
IOF LOGSUM+6, HDR+2
IOP DEV!, DEV+2!
IOSL PRT+2
IOST PRT+2, LOGSUM+4, LOGSUM+21, P+2
LIN OOPSLOG+3~, PRT+2*, P+1
LP1 OOPSLOG+3~, PRT+8*, PRT+10*, PRT+11, PRT+13*, PRT+14, HDR+1
LTILL OOPSLOG+3~, PRT+1*, DATA+20*, LOGSUM+3, LOGSUM+15, LOGSUM+17, LOGSUM+22*
LTINJ OOPSLOG+3~, PRT+1*, DATA+17*, LOGSUM+3, LOGSUM+13, LOGSUM+17, LOGSUM+22*
LTINJILL OOPSLOG+3~, LOGSUM+17*, LOGSUM+19, LOGSUM+22*
LYR OOPSLOG+3~
NS PRT+5, EXIT+1!, DATA+10, DATA+31, HDR+10
OOPS DATA+1~, DATA+6!
OOPS(2260 DATA+10, DATA+11, DATA+12, DATA+13, DATA+15, DATA+16, DATA+17, DATA+18, DATA+19, DATA+20
, DATA+21*, DATA+23, DATA+24, DATA+25, DATA+26, DATA+27, DATA+28, DATA+29, DATA+32
OPC WP+1~, WP+9*
OPFLD DATA+37*!, WP+4
OPGLB WP+1~
OPI WP+1~, WP+5*, WP+9*, WP+10
OPNODE WP+1~, WP+4*, WP+5
OPT WP+1~, WP+6*, WP+7
OUT OOPSLOG+3~, PREDEV*, PREDEV+1, PREDEV+2, STATION~, STATION+7*, S1+4*, S1+5*
PG OOPSLOG+3~, PRT*, LOGSUM+6*, LOGSUM+7, HDR+2*, HDR+3
POP DEV, EXIT+1!
RANGE OOPSLOG+4~, SDED+14*, LOGSUM+8, HDR+4
SD SDED~, SDED+6*, SDED+13, DATA+5
SDT SDED~, SDED+6*, SDED+14
STA OOPSLOG+3~, PREDEV+1, PRT+9, PRT+12, PRT+13, STATION~, STATION+1*, STATION+6*, S1+6*, S1+7
U PRT+10, PRT+11, PRT+14, DATA+25, DATA+27, DATA+28, DATA+29, DATA+31, DATA+32, DATA+34
, DATA+35, DATA+36, LOGSUM+1, LOGSUM+4, LOGSUM+5, LOGSUM+10, LOGSUM+11, LOGSUM+13, LOGSUM+15, LOGSUM+16
, LOGSUM+21, P+1, P+2, WP+9, WP+10
X SDED~, SDED+7!, EXIT+1!, WP+5*, WP+11!
Y SDED~, SDED+6, SDED+7!, SDED+12, SDED+18, SDED+21, PRT+4*, EXIT+1!, LOGSUM+5, LOGSUM+21
, P+2, STATION+2~, STATION+6, S1+5, S1+6
Y(0 SDED+6, SDED+12
YR DATA+1~, DATA+3*
>> ZTDESC TASK+3*
ZTDTH TASK+1!
ZTIO TASK+1!
>> ZTREQ TASK+2*
>> ZTRTN TASK+2*
ZTSAVE TASK+1!
ZTSAVE("ED" TASK+8*
ZTSAVE("EDT" TASK+8*
ZTSAVE("EV" TASK+4*
ZTSAVE("FY" TASK+4*
ZTSAVE("HDR" TASK+10*
ZTSAVE("HDR1" TASK+10*
ZTSAVE("HDR2" TASK+11*
ZTSAVE("INC" TASK+4*
ZTSAVE("NS" TASK+4*
ZTSAVE("RANGE" TASK+10*
ZTSAVE("SD" TASK+8*
ZTSAVE("SDT" TASK+8*
ZTSAVE("STA" TASK+6*
ZTSAVE("ZTREQ" TASK+2*
ZTSK TASK+13!
ZTUCI TASK+1!
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