Routine: OOPSLOG

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

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

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

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

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!

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!

Customize PDF page

Package: Asists

Routine: OOPSLOG

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: