Routine: RAFLM

Call Graph Total: 12

Package	Total	Call Graph
Radiology Nuclear Medicine	11	$$NAMCODE^RACPTMSC RADTI^RAFLM1 (,Q)^RAFLM2 DISPXAM^RALWKL1 IT^RALWKL2 $$ALLNOTH^RALWKL3 SETVARS^RAPSET1 EN1^RASELCT (DATE,ZIS)^RAUTL CRIT^RAUTL1 $$DIVLOC^RAUTL7
VA Fileman	1	^DIR

Package

Total

Call Graph

$$NAMCODE^RACPTMSC RADTI^RAFLM1 (,Q)^RAFLM2 DISPXAM^RALWKL1 IT^RALWKL2 $$ALLNOTH^RALWKL3 SETVARS^RAPSET1 EN1^RASELCT
(DATE,ZIS)^RAUTL CRIT^RAUTL1 $$DIVLOC^RAUTL7

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA FILMUSE RAFLM1 RAWKL1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
SUM
DEV
START	; start processing
ASKSUM
KILL	;
CPT	;
FILM	; select films to include in report

Name	Field # of Occurrence
^DIR	ASKSUM+1
$$NAMCODE^RACPTMSC	CPT+2
RADTI^RAFLM1	START+6
^RAFLM2	START+7
Q^RAFLM2	ASKSUM+1, ASKSUM+4, ASKSUM+14, ASKSUM+15, ASKSUM+18, ASKSUM+19, DEV
DISPXAM^RALWKL1	ASKSUM+19
IT^RALWKL2	ASKSUM+10
$$ALLNOTH^RALWKL3	ASKSUM+14
SETVARS^RAPSET1	RAFLM+3
EN1^RASELCT	FILM+5
DATE^RAUTL	ASKSUM+18
ZIS^RAUTL	DEV
CRIT^RAUTL1	START+1
$$DIVLOC^RAUTL7	ASKSUM+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Film Usage Report",!,"-----------------" Line Location: SUM+0
Function Call: WRITE	Prompt: ! Line Location: ASKSUM+0
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Routine Call	DIR Line Location: ASKSUM+1

Name	Line Occurrences (* Changed, ! Killed)
^RA(78.4 - [#78.4]	FILM+2
^RADPT("AR"	START+6
^TMP($J	ASKSUM+7, ASKSUM+10, ASKSUM+16, START+1!, START+4, FILM+1!, FILM+2*

Name	Line Occurrences
FILM	ASKSUM+15
KILL	FILM+2

Name	Field # of Occurrence
%W	KILL+1!
%Y1	KILL+1!
A	ASKSUM+5, ASKSUM+6, ASKSUM+7, ASKSUM+9, ASKSUM+13!
A1	ASKSUM+7*, ASKSUM+8, ASKSUM+10, ASKSUM+13!
B	ASKSUM+8, ASKSUM+9, ASKSUM+10, ASKSUM+13!
B1	ASKSUM+10, ASKSUM+13!
>> BEGDATE	START+1
DIC	KILL+1!
DIR	ASKSUM!, ASKSUM+1!
DIR("?"	ASKSUM*
DIR("A"	ASKSUM*
DIR("B"	ASKSUM*
DIR(0	ASKSUM*
DIROUT	ASKSUM+3!
DIRUT	ASKSUM+1, ASKSUM+3!
DT	CPT+2
DTOUT	ASKSUM+3!
DUOUT	ASKSUM+3!
DUZ	RAFLM+3, ASKSUM+6, ASKSUM+9, ASKSUM+13
>> ENDDATE	START+1
IO	START+1
>> RABEG	START+1*, START+6
>> RACCESS(	RAFLM+3, ASKSUM+6, ASKSUM+9, ASKSUM+13!
RACNT	KILL+1!
>> RACPT	START+1, CPT+1, CPT+2*, CPT+3, CPT+4
>> RACRT	START+1*
>> RADFN	START+6*
RADIC	FILM+3*, FILM+5, KILL+1!
RADIC("A"	FILM+3*
RADIC("S"	FILM+4*
RADIC(0	FILM+3*
>> RADTE	START+6*
>> RAEND	START+1*, START+6
>> RAEOS	START+3*, START+6, START+7
RAFL1	SUM!, ASKSUM+2*, ASKSUM+20
>> RAFLDCNT	ASKSUM+16*
RAIEN	FILM+2*, KILL+1!
>> RAINPUT	ASKSUM+14*, ASKSUM+15, ASKSUM+16, FILM+5
>> RAITCNT	START+3*
>> RAITCNT(	START+4*
RALP	ASKSUM+16, ASKSUM+17!, START+3, START+4*, START+5!
RALP1	START+4*, START+5!
RAONECHK	FILM+2*, KILL+1!
RAONENME	FILM+2*, KILL+1!
>> RAPOP	ASKSUM+18, DEV
>> RAPRC	CPT+4*
>> RAPRI	CPT+1
>> RAPSTX	RAFLM+3*
>> RAQUIT	ASKSUM+15
>> RASV	ASKSUM+21*
>> RATITLE	ASKSUM+5*, FILM+3
RAUTIL	FILM+3*, FILM+5, KILL+1!
>> RAXIT	ASKSUM+19*
U	FILM+2
X	ASKSUM+4*, KILL+1!
Y	ASKSUM+2, KILL+1!
>> ZTDESC	ASKSUM+20*
>> ZTQUEUED	START+2
>> ZTREQ	START+2*
>> ZTRTN	ASKSUM+20*
>> ZTSAVE(	ASKSUM+21*
>> ZTSAVE("RAFL1"	ASKSUM+20*
>> ZTSAVE("^TMP($J,""RAFILM"","	ASKSUM+20*
>> ZTSAVE("^TMP($J,""RAFLM"","	ASKSUM+20*

Information