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

Entry Points

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call