Routine: BRARPT6

Package	Total	Call Graph
VA Fileman	2	^%DT ^DIR
Kernel	1	^%ZISC
Radiology Nuclear Medicine	1	D^RAUTL

Package	Total	Caller Graph
IHS Mods To Radiology Nuclear Medicine	1	BRARPT5

Entry Points

Name	Comments	DBIA/ICR reference
HD2	;---> SUBHEADER
TOT	;
EXIT	;
PRINT	;
LINE	;---> PRINT A LINE OF PATIENT DATA.
HD	;---> HEADER
SUB	;

External References

Name	Field # of Occurrence
^%DT	HD+8
^%ZISC	EXIT+3
^DIR	EXIT+2, HD+2
D^RAUTL	HD+7, HD+8, HD+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EXIT+2
Function Call: WRITE	Prompt: !,$P(X,U,2),?10,$E(Q,1,20) Line Location: LINE+4
Function Call: WRITE	Prompt: ?31,$E(R,4,7),$E(R,2,3),"-",$P(X,U) Line Location: LINE+5
Function Call: WRITE	Prompt: ?44,$P(^VA(200,+RATECH,0),U) Line Location: LINE+7
Function Call: WRITE	Prompt: ?22," * EXAM ROSTER BY ROOM *" Line Location: HD+4
Function Call: WRITE	Prompt: ?70,"Page: ",RAPAGE Line Location: HD+5
Function Call: WRITE	Prompt: !!?1,"Division: ",$P(^DIC(4,N,0),U),?52,"For period: " Line Location: HD+6
Function Call: WRITE	Prompt: ?64,Y,?76,"to" Line Location: HD+7
Function Call: WRITE	Prompt: !?1,"Run Date: ",Y Line Location: HD+8
Function Call: WRITE	Prompt: ?64,Y Line Location: HD+9
Function Call: WRITE	Prompt: ! Line Location: HD+10
Function Call: WRITE	Prompt: "-" Line Location: HD+10
Function Call: WRITE	Prompt: !,"Chart#",?10,"Patient",?31,"Date-Case#",?44,"Technologist" Line Location: HD+11
Function Call: WRITE	Prompt: ?69,"Total" Line Location: HD+12
Function Call: WRITE	Prompt: ! Line Location: HD+13
Function Call: WRITE	Prompt: "-" Line Location: HD+13
Function Call: WRITE	Prompt: !!?5,"ROOM: ",$E(O,1,25),?40,"PROCEDURE: ",P Line Location: HD2+2
Function Call: WRITE	Prompt: !?5 Line Location: HD2+3
Function Call: WRITE	Prompt: "-" Line Location: HD2+3
Function Call: WRITE	Prompt: ?40 Line Location: HD2+4
Function Call: WRITE	Prompt: "-" Line Location: HD2+4
Function Call: WRITE	Prompt: !?44,"Total for this procedure: ",?70,$J(S,4) Line Location: SUB+2
Function Call: WRITE	Prompt: ! Line Location: TOT+2
Function Call: WRITE	Prompt: "*" Line Location: TOT+2
Function Call: WRITE	Prompt: !,"ROOM: ",$E(O,1,30) Line Location: TOT+3
Function Call: WRITE	Prompt: ?52,"Total Procedures: ",?70,$J(T,4) Line Location: TOT+4
Function Call: WRITE	Prompt: ! Line Location: TOT+5
Function Call: WRITE	Prompt: "*" Line Location: TOT+5
Routine Call	DIR Line Location: EXIT+2 HD+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HD+6
^TMP($J	PRINT+5, PRINT+6, PRINT+8, PRINT+10, PRINT+11, PRINT+12
^VA(200 - [#200]	LINE+7

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	HD+8*!
>> BRAY	PRINT+1, PRINT+6, PRINT+8, PRINT+10, PRINT+11, EXIT+2, LINE+2, HD+2, HD2+1
>> DIR(0	EXIT+2, HD+2
>> I	HD+10, HD+13, HD2+3, HD2+4, TOT+2, TOT+5
IO	PRINT+1
IO("S"	EXIT+2
IOF	EXIT+1, HD+3
IOSL	LINE+2, HD2+1, TOT+1
IOST	EXIT+1, EXIT+2, HD+2, HD+3
N	PRINT+4~, PRINT+5*, PRINT+6, PRINT+8, PRINT+10, PRINT+11, PRINT+12, HD+6
O	PRINT+4~, PRINT+6*, PRINT+8, PRINT+10, PRINT+11, PRINT+12, HD2+2, HD2+3, TOT+3
P	PRINT+4~, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+12, HD2+2, HD2+4
Q	PRINT+4~, PRINT+9, PRINT+10, PRINT+11, PRINT+12, LINE+4
R	PRINT+4~, PRINT+11*, PRINT+12, LINE+5
>> RABEGDT	HD+7
>> RAENDDT	HD+9
>> RAEX	LINE+3, SUB+1
>> RAPAGE	PRINT+1, HD+2, HD+3, HD+5
>> RATECH	LINE+6*, LINE+7, LINE+8
S	PRINT+4~, PRINT+9, LINE+1, SUB+2, SUB+3
T	PRINT+4~, PRINT+7, SUB+3, TOT+4
U	LINE+4, LINE+5, LINE+6, LINE+7, HD+6
X	PRINT+4~, PRINT+12, LINE+4, LINE+5, LINE+6, HD+1~, HD+8
Y	HD+1~, HD+2, HD+7, HD+8, HD+9

Customize PDF page

Package: IHS Mods To Radiology Nuclear Medicine

Routine: BRARPT6

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
HD	PRINT+6, HD2+1, TOT+1
HD2	PRINT+8, LINE+2
LINE	PRINT+12
SUB	PRINT+10
TOT	PRINT+8