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

Package: Asists

Routine: OOPSPRT


Information

OOPSPRT ;HIRMFO/GWB-Print Report of Accident ;3/5/98

Source Information

Source file <OOPSPRT.m>

Call Graph

Call Graph

Call Graph Total: 10

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

Entry Points

Name Comments DBIA/ICR reference
SUP
SO
DIC
PRT
KILL ;Kill Variables and Exit
P ;Print
TASK ;Queue a task
WP ; Process Word Processing Fields (#47, #55)
HDR ;Header
UNION ; Union Entry point

External References

Name Field # of Occurrence
NOW^%DTC PRT+2
^%ZIS DIC+3
^%ZISC DIC+5, TASK+5
^%ZTLOAD TASK+5
^DIC DIC+1
$$GET1^DID WP+4
$$GET1^DIQ PRT+9
EN^DIQ1 PRT+3, PRT+4, PRT+5
^DIR PRT+88, P+2
^DIWP WP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DIC+3
Function Call: WRITE
  • Prompt: !,"CASE NUMBER..................: ",OOPS(2260,IEN,.01)
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !,"PERSONNEL STATUS.............: ",OOPS(2260,IEN,2)
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !,"SERVICE......................: ",OOPS(2260,IEN,86)
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !,"TYPE OF INCIDENT.............: ",OOPS(2260,IEN,3)
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: !,"CASE STATUS..................: ",OOPS(2260,IEN,51)
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !,"INJURY/ILLNESS...............: ",OOPS(2260,IEN,52)
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !,"PERSON INVOLVED..............: ",OOPS(2260,IEN,1)
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !,"SSN..........................: ",OOPS(2260,IEN,5)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !,"DATE OF BIRTH................: ",OOPS(2260,IEN,6)
  • Line Location: PRT+22
Function Call: WRITE
  • Prompt: !,"SEX..........................: ",OOPS(2260,IEN,7)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !,"HOME ADDRESS.................: ",OOPS(2260,IEN,8)
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !," ",OOPS(2260,IEN,9),", ",OOPS(2260,IEN,10)," ",OOPS(2260,IEN,11)
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: !,"HOME PHONE NUMBER............: ",OOPS(2260,IEN,12)
  • Line Location: PRT+26
Function Call: WRITE
  • Prompt: !,"STATION NUMBER...............: ",OOPS(2260,IEN,13)
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !,"COST CENTER/ORG..............: ",OOPS(2260,IEN,14)
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !,"OCCUPATION...................: ",OOPS(2260,IEN,15)
  • Line Location: PRT+30
Function Call: WRITE
  • Prompt: OOPS(2260,IEN,17)
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: !,"EDUCATION....................: ",OOPS(2260,IEN,18)
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !,SUP," ",OOPS(2260,IEN,53)
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: !,"SECONDARY SUPERVISOR.........: ",OOPS(2260,IEN,53.1)
  • Line Location: PRT+34
Function Call: WRITE
  • Prompt: !,"STATION NUMBER...............: ",OOPS(2260,IEN,13)
  • Line Location: PRT+37
Function Call: WRITE
  • Prompt: !,"DATE/TIME OF OCCURRENCE......: ",OOPS(2260,IEN,4)
  • Line Location: PRT+38
Function Call: WRITE
  • Prompt: !,"GENERAL SETTING OF INCIDENT..: ",OOPS(2260,IEN,26)
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: !,"LOCATION OF INCIDENT.........: ",OOPS(2260,IEN,27)
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: !,"CHARACTERIZATION OF INJURY...: ",OOPS(2260,IEN,29)
  • Line Location: PRT+41
Function Call: WRITE
  • Prompt: !,"MEDICAL EMERGENCY............: ",OOPS(2260,IEN,29.5)
  • Line Location: PRT+43
Function Call: WRITE
  • Prompt: !,"BODY PART MOST AFFECTED......: ",OOPS(2260,IEN,30)
  • Line Location: PRT+44
Function Call: WRITE
  • Prompt: !,"ADDITIONAL BODY PART AFFECTED: ",OOPS(2260,IEN,30.1)
  • Line Location: PRT+45
Function Call: WRITE
  • Prompt: !,"SIDE OF BODY AFFECTED........: ",OOPS(2260,IEN,31)
  • Line Location: PRT+46
Function Call: WRITE
  • Prompt: !,"DUTY RETURNED TO.............: ",OOPS(2260,IEN,32)
  • Line Location: PRT+47
Function Call: WRITE
  • Prompt: !,"LOST TIME....................: ",OOPS(2260,IEN,33)
  • Line Location: PRT+48
Function Call: WRITE
  • Prompt: !,"DESCRIPTION OF INCIDENT......:"
  • Line Location: PRT+49
Function Call: WRITE
  • Prompt: !," ",OOPS(2260,IEN,28,DOI)
  • Line Location: PRT+50
Function Call: WRITE
  • Prompt: ?31,OOPS(2260.039,AETBF,.01),!
  • Line Location: PRT+65
Function Call: WRITE
  • Prompt: "PERSONAL PROTECTIVE EQUIPMENT: "
  • Line Location: PRT+66
Function Call: WRITE
  • Prompt: ?31,OOPS(2260.01,PPE,.01),!
  • Line Location: PRT+67
Function Call: WRITE
  • Prompt: "BODILY FLUID EXPOSURE SOURCE.: ",OOPS(2260,IEN,41)
  • Line Location: PRT+68
Function Call: WRITE
  • Prompt: !,"DID INJURY OCCUR BEFORE"
  • Line Location: PRT+75
Function Call: WRITE
  • Prompt: !," SAFETY DEVICE WAS ENGAGED...: ",OOPS(2260,IEN,87)
  • Line Location: PRT+76
Function Call: WRITE
  • Prompt: !,"SAFETY CHARACTERISTICS.......: ",OOPS(2260,IEN,84)
  • Line Location: PRT+77
Function Call: WRITE
  • Prompt: !,"CORRECTIVE ACTION............: "
  • Line Location: PRT+79
Function Call: WRITE
  • Prompt: !,"SAFETY OFF. COMMENTS.........: "
  • Line Location: PRT+81
Function Call: WRITE
  • Prompt: !,"PERSON ENTERING STUB RECORD..: ",OOPS(2260,IEN,56)
  • Line Location: PRT+83
Function Call: WRITE
  • Prompt: !,"/ES/SUPERVISOR...............: ",OOPS(2260,IEN,44)
  • Line Location: PRT+84
Function Call: WRITE
  • Prompt: !,"SUPERVISOR SIGNATURE DATE....: ",OOPS(2260,IEN,46)
  • Line Location: PRT+85
Function Call: WRITE
  • Prompt: !,"/ES/SAFETY OFFICER...........: ",OOPS(2260,IEN,48)
  • Line Location: PRT+86
Function Call: WRITE
  • Prompt: !,"SAFETY OFFICER SIGNATURE DATE: ",OOPS(2260,IEN,50)
  • Line Location: PRT+87
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT+88
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+88
Function Call: WRITE
  • Prompt: !,"Request Queued",!
  • Line Location: TASK+5
Function Call: WRITE
  • Prompt: !?1,^UTILITY($J,"W",1,OPI,0)
  • Line Location: WP+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Report of Accident ",CN,?73,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,DASHES
  • Line Location: HDR+4
Routine Call
  • DIC
  • Line Location:
    • DIC+1
Routine Call
  • DIR
  • Line Location:
    • PRT+88
    • P+2
Routine Call
  • %ZIS
  • Line Location:
    • DIC+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
DIC SUP+2, UNION+4
HDR PRT+11, P+3
KILL DIC+3, DIC+4, DIC+5
P PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+20, PRT+21, PRT+22, PRT+23
, PRT+24, PRT+25, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32, PRT+33, PRT+34
, PRT+37, PRT+38, PRT+39, PRT+40, PRT+41, PRT+43, PRT+44, PRT+45, PRT+46, PRT+47
, PRT+48, PRT+50, PRT+54, PRT+56, PRT+57, PRT+58, PRT+59, PRT+61, PRT+62, PRT+65
, PRT+67, PRT+68, PRT+72, PRT+73, PRT+76, PRT+77, PRT+78, PRT+83, PRT+84, PRT+85
, PRT+86, PRT+87, WP+8
PRT DIC+5
TASK DIC+4
WP PRT+80, PRT+82

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRT+2, KILL+1!
%ZIS DIC+3!*, DIC+5!
AETBF PRT~, PRT+65*
CA KILL+2!
CACNT KILL+2!
CAT PRT~, PRT+9*, PRT+10
CN PRT+6*, KILL+2!, HDR+2
D0 KILL+2!
DA PRT+3!*, PRT+4*, PRT+5*, KILL+2!
DA( PRT+4*, PRT+5*
DASHES KILL+2!, HDR+1!*, HDR+4
DATE PRT+2*, KILL+2!
DIC SUP*, SO*, PRT+3*, PRT+4*, PRT+5*, KILL+2!, UNION+2*
DIC("A" DIC*
DIC("S" SUP+1*, UNION+3*
DIC(0 DIC*
DIQ PRT+3!*, PRT+4!*, PRT+5!*, KILL+2!
DIQ2 KILL+2!
DIR PRT+88!, KILL+1!, P+2!
DIR(0 PRT+88*, P+2*
DIROUT KILL+1!
DIRUT KILL+1!
DIWF WP+1~, WP+3*
DIWL WP+1~, WP+3*
DIWR WP+1~, WP+3*
DOI PRT+50*, KILL+2!
DR PRT+3!*, PRT+4*, PRT+5*, KILL+2!
DR( PRT+4*, PRT+5*
DTOUT DIC+1, KILL+1!
DUOUT DIC+1, KILL+1!
EIEN PRT+4*, KILL+2!
EX PRT+1*, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+19, PRT+20, PRT+21
, PRT+22, PRT+23, PRT+24, PRT+25, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32
, PRT+33, PRT+34, PRT+36, PRT+37, PRT+38, PRT+39, PRT+40, PRT+41, PRT+43, PRT+44
, PRT+45, PRT+46, PRT+47, PRT+48, PRT+50, PRT+53, PRT+54, PRT+56, PRT+57, PRT+58
, PRT+59, PRT+61, PRT+62, PRT+63, PRT+65, PRT+67, PRT+68, PRT+69, PRT+71, PRT+72
, PRT+73, PRT+76, PRT+77, PRT+78, PRT+83, PRT+84, PRT+85, PRT+86, PRT+87, KILL+2!
, P+1, P+2*, WP+7, WP+8
FIEN PRT+5*, KILL+2!
I KILL+2!
IE PRT+1*, KILL+2!
IEN DIC+2*, PRT+1, PRT+3, PRT+4, PRT+5, PRT+6, PRT+7, PRT+9, PRT+12, PRT+13
, PRT+14, PRT+15, PRT+16, PRT+17, PRT+20, PRT+21, PRT+22, PRT+23, PRT+24, PRT+25
, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32, PRT+33, PRT+34, PRT+37, PRT+38
, PRT+39, PRT+40, PRT+41, PRT+43, PRT+44, PRT+45, PRT+46, PRT+47, PRT+48, PRT+50
, PRT+52, PRT+54, PRT+56, PRT+57, PRT+58, PRT+59, PRT+60, PRT+61, PRT+62, PRT+68
, PRT+71, PRT+72, PRT+73, PRT+74, PRT+76, PRT+77, PRT+78, PRT+83, PRT+84, PRT+85
, PRT+86, PRT+87, KILL+3!, WP+5
INCID PRT~, PRT+52*, PRT+53, PRT+55, PRT+63, PRT+69
IND PRT+65!*, PRT+66!, PRT+67!*, PRT+68!
IO DIC+5, TASK+5
IO("Q" DIC+4, TASK+1!
IOF PRT+88, HDR+1
IOP DIC+3!, DIC+5!
IOSL PRT+1
IOST PRT+1, PRT+88, P+2
LIN PRT~, PRT+1*, P+1
OOPS KILL+3!
OOPS( PRT+65, PRT+67
OOPS(2260 PRT+6, PRT+7, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+20, PRT+21
, PRT+22, PRT+23, PRT+24, PRT+25, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32
, PRT+33, PRT+34, PRT+37, PRT+38, PRT+39, PRT+40, PRT+41, PRT+43, PRT+44, PRT+45
, PRT+46, PRT+47, PRT+48, PRT+50, PRT+54, PRT+56, PRT+57, PRT+58, PRT+59, PRT+60
, PRT+61, PRT+62, PRT+68, PRT+71, PRT+72, PRT+73, PRT+74, PRT+76, PRT+77, PRT+78
, PRT+83, PRT+84, PRT+85, PRT+86, PRT+87
OOPSLST DIC+4*, TASK+4, TASK+6!
OPC WP+1~, WP+7*
OPFLD PRT+80*!, PRT+82*!, WP+4
OPGLB WP+1~
OPI WP+1~, WP+5*, WP+7*, WP+8
OPNODE WP+1~, WP+4*, WP+5
OPT WP+1~, WP+6*, WP+7
PG PRT+1*, KILL+3!, HDR+1*, HDR+2
>> POP DIC+3
PPE PRT~, PRT+67*
SUP PRT~, PRT+10*, PRT+33, KILL+3!
TOI PRT+7*, KILL+3!
U PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+19, PRT+20, PRT+21, PRT+22
, PRT+23, PRT+24, PRT+25, PRT+26, PRT+28, PRT+29, PRT+30, PRT+31, PRT+32, PRT+33
, PRT+34, PRT+36, PRT+37, PRT+38, PRT+39, PRT+40, PRT+41, PRT+43, PRT+44, PRT+45
, PRT+46, PRT+47, PRT+48, PRT+50, PRT+52, PRT+53, PRT+54, PRT+56, PRT+57, PRT+58
, PRT+59, PRT+61, PRT+62, PRT+63, PRT+65, PRT+67, PRT+68, PRT+69, PRT+71, PRT+72
, PRT+73, PRT+76, PRT+77, PRT+78, PRT+83, PRT+84, PRT+85, PRT+86, PRT+87, P+1
, P+2, WP+7, WP+8
UNION PRT+19, PRT+36, PRT+84, KILL+3!, UNION+1*
V1 TASK+4*, TASK+6!
V2 TASK+4*, TASK+6!
X KILL+1!, WP+5*, WP+9!
Y DIC+1, DIC+2, PRT+2*, KILL+1!, P+2
>> ZTDESC TASK+3*
ZTDTH TASK+1!
ZTIO TASK+1!
>> ZTREQ TASK+2*
>> ZTRTN TASK+2*
ZTSAVE TASK+1!
ZTSAVE( TASK+4*
ZTSAVE("ZTREQ" TASK+2*
ZTSK TASK+6!
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