Routine: BRARPT1

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
IHS Changes To ADT	1	$$HRCN^BDGF2
IHS Mods To Radiology Nuclear Medicine	1	^BRARPT2
IHS VA Utilities	1	^XBKVAR
Radiology Nuclear Medicine	1	(DATE,ZIS)^RAUTL

Package

Total

Call Graph

VA Fileman

^DIC ^DIR

IHS Changes To ADT

$$HRCN^BDGF2

IHS Mods To Radiology Nuclear Medicine

^BRARPT2

IHS VA Utilities

^XBKVAR

Radiology Nuclear Medicine

(DATE,ZIS)^RAUTL

Package	Total	Caller Graph
IHS Mods To Radiology Nuclear Medicine	2	BRARPT3 BRARPT5
Radiology Nuclear Medicine	1	RA IHS EXAM ROSTER BY RAD

Package

Total

Caller Graph

IHS Mods To Radiology Nuclear Medicine

BRARPT3 BRARPT5

Radiology Nuclear Medicine

RA IHS EXAM ROSTER BY RAD

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;---> SORT EXAMS FOR SELECTED CRITERIA.
RAD	;---> SELECT RADIOLOGISTS.
SET	;
PROMPT	;
DIAG	;---> SELECT DIAGNOSTIC CODES.
RACNI
DEV	;---> GET DEVICE AND/OR QUEUE.
START	;---> TASKMAN STARTING POINT.
TASKMAN	;---> TASKMAN STUFF.
EXIT	;
PRINT
RADFN
PROC	;---> SELECT PROCEDURES.
SELECT	;EP---> SELECT PROCEDURE(S), RADIOLOGIST(S), DIAGNOSTIC CODE(S).

Name	Field # of Occurrence
$$HRCN^BDGF2	SET+12
^BRARPT2	PRINT
^DIC	SELECT+15
^DIR	SELECT+6, SELECT+23
DATE^RAUTL	PROMPT+8
ZIS^RAUTL	DEV+1
^XBKVAR	BRARPT1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "-" Line Location: PROMPT+2
Function Call: WRITE	Prompt: !!,?10 Line Location: PROMPT+3
Function Call: WRITE	Prompt: "-" Line Location: PROMPT+3
Function Call: WRITE	Prompt: "-" Line Location: PROMPT+3
Function Call: WRITE	Prompt: "-" Line Location: PROMPT+3
Function Call: WRITE	Prompt: !?10,"\| * EXAM ROSTER BY RADIOLOGIST, PROCEDURE, DIAG CODE * \|" Line Location: PROMPT+4
Function Call: WRITE	Prompt: !?10 Line Location: PROMPT+5
Function Call: WRITE	Prompt: "-" Line Location: PROMPT+5
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: !!,"Select the "_BRADIR_"(s) you wish to include in this report." Line Location: SELECT+11
Function Call: WRITE	Prompt: !,"No ",BRADIR,"s selected.",! Line Location: SELECT+16
Function Call: WRITE	Prompt: !!,"The following ",BRADIR,"s will be included in this report:" Line Location: SELECT+17
Function Call: WRITE	Prompt: ! Line Location: SELECT+18
Function Call: WRITE	Prompt: "-" Line Location: SELECT+18
Function Call: WRITE	Prompt: " - ",$P(@(BRAGBL_"N,0)"),U,2) Line Location: SELECT+21
Function Call: WRITE	Prompt: ! Line Location: SELECT+22
Routine Call	DIC Line Location: SELECT+15
Routine Call	DIR Line Location: SELECT+6 SELECT+23

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SET+10
^RA(72 - [#72]	SET+12
^RA(78.3 - [#78.3]	SET+13
^RA(79 - [#79]	SET+2
^RADPT - [#70]	RADFN+2, RADFN+4, RACNI+1, RACNI+2, RACNI+4
^RADPT("AR"	SORT+3, RADFN+1
^RAMIS(71 - [#71]	SET+8
^TMP($J	EXIT+3!, SORT+1!, SET+14*
^VA(200 - [#200]	SET+5

Name	Line Occurrences
EXIT	PROMPT+8, PROC+4, RAD+4, DIAG+4, DEV+1
RACNI	RADFN+5
RADFN	SORT+5
SELECT	PROC+3, RAD+3, DIAG+3, SELECT+24
SET	RACNI+11
SORT	START+1

Name	Field # of Occurrence
^(0	SET+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BEGDATE	PROMPT+9
BRADIC	BRARPT1+3!, PROC+1, RAD+2, DIAG+1*, EXIT+2!, SELECT+12
BRADIC("S"	RAD+2*, RAD+3!, SELECT+14
BRADIR	PROC+1, RAD+1, DIAG+1*, EXIT+3!, SELECT+2, SELECT+4, SELECT+5, SELECT+11, SELECT+13, SELECT+16 , SELECT+17, SELECT+18, SELECT+25
BRAGBL	PROC+2, RAD+1, DIAG+2*, EXIT+3!, SELECT+20, SELECT+21
BRAVAR	PROC+2, RAD+1, DIAG+2*, EXIT+3!, SELECT+1, SELECT+9, SELECT+15, SELECT+16, SELECT+19, SELECT+21 , SELECT+24
BRAY	PROMPT+11, PROC+4, RAD+4, DIAG+4, EXIT+3!, SELECT+7, SELECT+9, SELECT+16, SELECT+23, SELECT+26
DIC	EXIT+1!, SELECT+1~, SELECT+12*
DIC("A"	SELECT+13*
DIC("S"	SELECT+14*
DIC(0	SELECT+12*
DIR	EXIT+1!, SELECT+1~, SELECT+6!
DIR("?"	SELECT+4, SELECT+5
DIR("A"	SELECT+2, SELECT+22
DIR("B"	SELECT+3, SELECT+22
DIR(0	SELECT+3, SELECT+22
DIRUT	EXIT+1!, SELECT+7, SELECT+23
DUZ("2"	SET+12
>> ENDDATE	PROMPT+9
I	PROMPT+3, PROMPT+5, EXIT+1!, SELECT+18*
N	EXIT+1!, SELECT+19*
O	EXIT+1!
P	EXIT+1!
Q	EXIT+1!
R	EXIT+1!
RABEGDT	PROMPT+9*, EXIT+1!, SORT+2
RACNI	EXIT+1!, RACNI, RACNI+1, RACNI+2, RACNI+4
RAD0	EXIT+1!, RADFN+4*, SET+2
RADFN	EXIT+1!, RADFN, RADFN+1, RADFN+2, RADFN+4, RACNI+1, RACNI+2, RACNI+4, SET+10, SET+12
RADIAG	EXIT+1!
RADIAG(	RACNI+10
RADIAG("ALL"	RACNI+10
>> RADIV	SET+2*, SET+14
RADTE	EXIT+1!, SORT+2, SORT+3, SORT+4, RADFN+1, SET+14
RADTI	EXIT+2!, SORT+4*, RADFN+2, RADFN+4, RACNI+1, RACNI+2, RACNI+4
RAEND	EXIT+2!, SORT+2*, SORT+3
RAENDDT	PROMPT+9*, EXIT+2!, SORT+2
RAMES	EXIT+2!
RANAME	EXIT+2!, SET+10*, SET+14
RAP0	EXIT+2!, RACNI+4*, RACNI+6, RACNI+8, RACNI+10, SET+5, SET+8, SET+12, SET+13
RAPAGE	EXIT+2!
RAPOP	PROMPT+8, DEV+1, EXIT+1!
RAPRC	EXIT+2!, SET+8*, SET+14
RAPRC(	RACNI+6
RAPRC("ALL"	RACNI+6
RARAD	EXIT+2!, SET+4, SET+5, SET+6*, SET+14
RARAD(	RACNI+8
RARAD("ALL"	RACNI+8
RASV	TASKMAN+2*, TASKMAN+3, EXIT+2!
U	RACNI+6, RACNI+8, RACNI+10, SET+5, SET+8, SET+10, SET+12, SET+13, SELECT+20, SELECT+21
X	EXIT+3!, SET+12, SET+13, SET+14
Y	EXIT+3!, SELECT+9, SELECT+15, SELECT+24
ZTDESC	EXIT+3!
ZTRTN	TASKMAN+1*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE(	TASKMAN+3*

Customize PDF page

Package: IHS Mods To Radiology Nuclear Medicine

Routine: BRARPT1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: