Routine: RALWKL

Package	Total	Call Graph
Radiology Nuclear Medicine	6	(DISPXAM,EN1)^RALWKL1 (IT,PURGE,ZEROUT)^RALWKL2 (CHK,ONE,SELECT)^RALWKL3 SETVARS^RAPSET1 (DATE,ZIS)^RAUTL $$DIVLOC^RAUTL7
VA Fileman	1	^DIR

Package

Total

Call Graph

(DISPXAM,EN1)^RALWKL1 (IT,PURGE,ZEROUT)^RALWKL2 (CHK,ONE,SELECT)^RALWKL3 SETVARS^RAPSET1 (DATE,ZIS)^RAUTL $$DIVLOC^RAUTL7

VA Fileman

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	6	RA LWKLBEDSEC RA LWKLCLINIC RA LWKLSERVICE RA LWKLSHARING RA LWKLWARD RALWKL3

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA LWKLBEDSEC RA LWKLCLINIC RA LWKLSERVICE RA LWKLSHARING RA LWKLWARD RALWKL3

Entry Points

Name	Comments	DBIA/ICR reference
SERV	; Service Report Entry Point
SHAR	; Sharing Agreement/Contract Report Entry Point
PRC	; Procedure checks
RADTI	; Traverse the Registered Exam multiple
SUM
DEV	; Save off variables, select a device
START	; Start the sorting/storing process
CLINIC	; Clinic Report Entry Point
BEDSEC	; PTF Bedsection Report Entry Point
RACNI	; Traverse the Examinations multiple
AUX	;
WARD	; Ward Report Entry Point

External References

Name	Field # of Occurrence
^DIR	SUM+5
DISPXAM^RALWKL1	SUM+17
EN1^RALWKL1	START+8
IT^RALWKL2	RACNI+7
PURGE^RALWKL2	SUM+5, SUM+10, SUM+13, SUM+16, SUM+18, DEV+8, START+9
ZEROUT^RALWKL2	SUM+14
CHK^RALWKL3	RACNI+7
ONE^RALWKL3	SUM+11
SELECT^RALWKL3	SUM+12
SETVARS^RAPSET1	SUM+8
DATE^RAUTL	SUM+15
ZIS^RAUTL	DEV+7
$$DIVLOC^RAUTL7	SUM+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?3,RATITLE," Workload Report:",!?3,RALN1,! Line Location: SUM+2
Function Call: WRITE	Prompt: ! Line Location: SUM+11
Function Call: WRITE	Prompt: ! Line Location: SUM+12
Function Call: WRITE	Prompt: ! Line Location: DEV+7
Routine Call	DIR Line Location: SUM+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	RACNI+1, RACNI+2
^RA(79 - [#79]	RACNI+1
^RADPT - [#70]	RADTI+3, RACNI+4, RACNI+5
^RADPT("AR"	START+5, START+6, RADTI+2
^TMP($J	SUM+9!, SUM+12, START+3, RACNI+3, AUX+1, AUX+2, AUX+3, AUX+5

Name	Line Occurrences
RACNI	RADTI+3
RADTI	START+6
RALWKL	WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2

Name	Field # of Occurrence
^(0	RADTI+3, RACNI+2, RACNI+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	AUX+1, AUX+2, AUX+3, AUX+5
>> B	RACNI+7*
>> B1	RACNI+7
>> BEGDATE	START+1
>> C	AUX+4
DIR	SUM+1!, SUM+5!
DIR("?"	SUM+4*
DIR("A"	SUM+3*
DIR("B"	SUM+3*
DIR(0	SUM+3*
DIROUT	SUM+7!
DIRUT	SUM+5, SUM+7!
DTOUT	SUM+7!
DUOUT	SUM+7!
DUZ	SUM+8
>> ENDDATE	START+1
IO	START+1
IOF	SUM+2
>> J	PRC+3*
>> RABEG	START+1*, START+5
RABILAT	RADTI+2!, PRC+3*, PRC+4!
>> RACCESS(	SUM+8
>> RACNI	RACNI+3, RACNI+4, RACNI+5
>> RACRT	SUM+17, WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2*
>> RACRT(	RACNI+6, RACNI+7
>> RAD0	RADTI+3*, RACNI+1
>> RADFN	START+6*, RADTI+2, RADTI+3, RACNI+4, RACNI+5
>> RADIV	RACNI+1*, RACNI+2, AUX+1, AUX+2, AUX+3, AUX+5
>> RADIVNME	RACNI+2*, RACNI+3
>> RADTE	START+5*, START+6, RADTI+2
>> RADTI	RADTI+1, RADTI+2, RADTI+3, RACNI+4, RACNI+5
>> RAEND	START+1*, START+5
>> RAFILE	SUM+11, WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2*
>> RAFL	DEV+1, WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2*
>> RAFLD	AUX+1, AUX+2, AUX+3, AUX+5
>> RAFLDCNT	START+3*
>> RAIMG	RACNI+7*, AUX+1, AUX+2, AUX+3, AUX+5
>> RAINPUT	START+3
>> RALN1	SUM+1*, SUM+2
RALP	START+3*, START+4!
>> RAMIS(	PRC+3*
>> RAMJ	PRC+3
>> RAMUL(	PRC+3*
>> RAMULP	PRC+3*
>> RANUM	AUX+4
RAOR	RADTI+2!, PRC+1*
>> RAP0	RACNI+5*, RACNI+6, RACNI+7
>> RAPCE	WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2*
>> RAPOP	SUM+16, DEV+8
RAPORT	RADTI+2!, PRC+2*
>> RAPRC	AUX+1, AUX+2, AUX+3, AUX+5
>> RAPSTX	SUM+8*
>> RASUM	SUM+6*
>> RASV	DEV+6*
>> RATITLE	SUM, SUM+2, WARD+2, SERV+2, BEDSEC+2, CLINIC+2, SHAR+2*
>> RAWT	AUX+4
>> RAWT(	PRC+3*
>> RAXIT	SUM+9*, SUM+13, SUM+18, START+5, START+6, START+8, RADTI+2, RACNI+4
>> RAZ	PRC+1, PRC+2, PRC+3
U	RACNI+2, PRC+3
>> X	SUM, SUM+1, SUM+10, AUX+3, AUX+4, AUX+5
>> Y	SUM+6
>> ZTDESC	WARD+1, SERV+1, BEDSEC+1, CLINIC+1, SHAR+1*
>> ZTQUEUED	START+2
>> ZTREQ	START+2*
>> ZTRTN	DEV+1*
>> ZTSAVE(	DEV+6*
>> ZTSAVE("RAFL*"	DEV+1*
>> ZTSAVE("^TMP(	$J, ""RA D-TYPE"", " , DEV+4, $J, ""RA I-TYPE"", " , DEV+5
>> ZTSAVE("^TMP($J,""RA"","	DEV+2*
>> ZTSAVE("^TMP($J,""RAFLD"","	DEV+3*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RALWKL

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: