Routine: RALWKL1

Package	Total	Call Graph
Radiology Nuclear Medicine	5	(DIVCHK,IMGCHK)^RALWKL2 EN1^RALWKL4 D^RAUTL $$EOS^RAUTL5 STOPCHK^RAUTL9
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^%DT

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	RAFLM RALWKL RALWKL2 RALWKL4 RAMIS RAPRC RAWKL

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; Entry point
DISPXAM(A)	; Display Examination Statuses which meet certain criteria. ; 'A' is the equivalent of the variable 'RACRT'. This code is related ; to the 'CRIT^RAUTL1' subroutine. This sets up the RACRT local array ; according to I-Type.
PRT1	; Tabulate the data for non summary report, output the data.
HD	; Header
TOT	; Total within Service, Ward, Clinic, etc.

External References

Name	Field # of Occurrence
^%DT	EN1+1
DIVCHK^RALWKL2	EN1+23
IMGCHK^RALWKL2	EN1+21
EN1^RALWKL4	EN1+4
D^RAUTL	EN1+1
$$EOS^RAUTL5	PRT1+5, TOT+2, TOT+9, DISPXAM+10, DISPXAM+18
STOPCHK^RAUTL9	HD+17
$$FMTE^XLFDT	EN1+2, EN1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(RAPRC,1,28),?30,$J(+$P(RATTL2,"^"),5),?36,$J(+$P(RATTL2,"^",2),5) Line Location: PRT1+6
Function Call: WRITE	Prompt: ?42,$J(+$P(RATTL2,"^",3),5),?48,$J(+$P(RATTL2,"^",4),5) Line Location: PRT1+7
Function Call: WRITE	Prompt: ?55,$J(RATTL3,5),?62,$J($S(RATTL1:(100*RATTL3)/RATTL1,1:0),5,1) Line Location: PRT1+8
Function Call: WRITE	Prompt: ?68,$J(RAWWU2,5),?75,$J($S(RAWWU1:(RAWWU2*100)/RAWWU1,1:0),5,1) Line Location: PRT1+10
Function Call: WRITE	Prompt: !!,$G(RATITLE)_" Total" Line Location: TOT+3
Function Call: WRITE	Prompt: ?30,$J(+$P(RATTL0,"^"),5),?36,$J(+$P(RATTL0,"^",2),5) Line Location: TOT+4
Function Call: WRITE	Prompt: ?42,$J(+$P(RATTL0,"^",3),5),?48,$J(+$P(RATTL0,"^",4),5) Line Location: TOT+5
Function Call: WRITE	Prompt: ?55,$J(RATTL1,5) Line Location: TOT+6
Function Call: WRITE	Prompt: !,RALN Line Location: TOT+8
Function Call: WRITE	Prompt: !?5,">>> "_RATITLE_" Workload Report <<<" Line Location: HD+3
Function Call: WRITE	Prompt: ?70,"Page: ",RAPG Line Location: HD+4
Function Call: WRITE	Prompt: !!?4,"Division: ",$S($D(^DIC(4,+RADIV,0)):$P(^(0),U,1),1:"UNKNOWN") Line Location: HD+5
Function Call: WRITE	Prompt: ?52,"For period: ",?64,BEGDATE("X"),?77,"to" Line Location: HD+7
Function Call: WRITE	Prompt: !?4,"Run Date: ",RATDY,?64,ENDDATE("X") Line Location: HD+8
Function Call: WRITE	Prompt: !!?32,"-------Examinations------",!?62,"% of" Line Location: HD+9
Function Call: WRITE	Prompt: ?75," % of" Condition for execution: $D(RAFL) Line Location: HD+9
Function Call: WRITE	Prompt: ?42," Res",?48,"Other",?55,"Total",?62,"Exams" Line Location: HD+11
Function Call: WRITE	Prompt: !,RALN Line Location: HD+13
Function Call: WRITE	Prompt: !!?(IOM-$L(RAHD(0))\2),RAHD(0),!?(IOM-$L(RAHD(1))\2),RAHD(1) Line Location: DISPXAM+7
Function Call: WRITE	Prompt: @IOF Line Location: DISPXAM+10
Function Call: WRITE	Prompt: !!?10,X,!?10,UNDRLN Line Location: DISPXAM+11
Function Call: WRITE	Prompt: @IOF,!?10,X,!?10,UNDRLN Line Location: DISPXAM+19
Function Call: WRITE	Prompt: !?15,$P(RA(0),"^") Line Location: DISPXAM+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HD+5
^RA(72 - [#72]	DISPXAM+9, DISPXAM+12, DISPXAM+13, DISPXAM+14
^RA(79.2 - [#79.2]	HD+6
^TMP($J	EN1+5, EN1+6, EN1+7, EN1+9, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, DISPXAM+8

Label References

Name	Line Occurrences
HD	PRT1+4, PRT1+5, TOT+2, TOT+9
PRT1	EN1+16
TOT	EN1+19

Naked Globals

Name	Field # of Occurrence
^(0	HD+5, HD+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN1+1*!
A	DISPXAM~, DISPXAM+15, DISPXAM+16
>> BEGDATE	EN1+2
>> BEGDATE("X"	EN1+2*, HD+7
>> ENDDATE	EN1+3
>> ENDDATE("X"	EN1+3*, HD+8
>> I	EN1+11, PRT1+3
IOF	EN1+3, HD+1, DISPXAM+10, DISPXAM+19
IOM	DISPXAM+7
IOSL	PRT1+5, TOT+2, DISPXAM+10, DISPXAM+18
IOST	HD+1
RA	DISPXAM+4~
RA(	DISPXAM+14, DISPXAM+15, DISPXAM+16
RA(0	DISPXAM+14*, DISPXAM+16, DISPXAM+21
RA1	TOT+8~*, TOT+9
>> RACRT(	DISPXAM+17*
>> RADIFLG(	EN1+23
>> RADIV	EN1+5, EN1+6, EN1+7, EN1+9, EN1+10, EN1+13, EN1+15, EN1+23, PRT1+1, TOT+8 , HD+5
>> RADIVSUM	HD+6, HD+14, HD+16
>> RAFL	PRT1+9, TOT+7, HD+9, HD+12
RAFLD	EN1+8, EN1+9, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, TOT+9~*, HD+16
RAHD	DISPXAM+4~
RAHD(0	DISPXAM+5*, DISPXAM+7
RAHD(1	DISPXAM+6*, DISPXAM+7
>> RAIMG	EN1+5, EN1+7, EN1+9, EN1+10, EN1+13, EN1+15, PRT1+1, TOT+8, HD+6
>> RAIMGSUM	HD+15, HD+16
>> RALN	EN1+1*, TOT+8, HD+13
>> RAMIS	EN1+12, EN1+13, EN1+14, EN1+15, PRT1+1
>> RAPG	EN1+3, PRT1+4, HD+1, HD+2, HD+4
>> RAPRC	EN1+14, EN1+15, PRT1+1, PRT1+6
>> RASUM	EN1+4, HD+10, HD+16
>> RATDY	EN1+1*, HD+8
>> RATITLE	TOT+3, HD+3, HD+10, HD+16
>> RATTL0	EN1+10*, EN1+11, TOT+4, TOT+5
>> RATTL1	EN1+11*, PRT1+8, TOT+1, TOT+6
>> RATTL2	PRT1+1*, PRT1+2, PRT1+3, PRT1+6, PRT1+7
>> RATTL3	PRT1+2, PRT1+3, PRT1+8
>> RAWWU1	EN1+10*, PRT1+10, TOT+1, TOT+7
>> RAWWU2	PRT1+2*, PRT1+10
>> RAXIT	EN1+6, EN1+7, EN1+9, EN1+13, EN1+15, EN1+19, EN1+21, EN1+23, PRT1+4, PRT1+5* , TOT+2, TOT+9, HD+17, DISPXAM+8, DISPXAM+10, DISPXAM+12, DISPXAM+13, DISPXAM+18*
U	HD+5, HD+6
UNDRLN	DISPXAM+4~, DISPXAM+9!, DISPXAM+11*, DISPXAM+19
X	EN1+1, DISPXAM+4~, DISPXAM+8, DISPXAM+9, DISPXAM+11, DISPXAM+12, DISPXAM+13, DISPXAM+17, DISPXAM+19
Y	EN1+1, DISPXAM+4~, DISPXAM+9, DISPXAM+12, DISPXAM+13
Z	DISPXAM+4~, DISPXAM+13*, DISPXAM+14, DISPXAM+17
>> ZTQUEUED	HD+17
>> ZTSTOP	HD+17

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RALWKL1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: