Routine: RAPROS

Package	Total	Call Graph
Radiology Nuclear Medicine	6	^RADPA ($$SSANVAL,$$USESSAN)^RAHLRU1 ^RAPROD $$IMGDISP^RAPTLU ($$SSN,CLOSE,D,DATE,ZIS)^RAUTL EN1^RAUTL20
VA Fileman	3	^DIC DT^DIO2 ^DIR
Kernel	1	$$UP^XLFSTR

Package

Total

Call Graph

Radiology Nuclear Medicine

^RADPA ($$SSANVAL,$$USESSAN)^RAHLRU1 ^RAPROD $$IMGDISP^RAPTLU ($$SSN,CLOSE,D,DATE,ZIS)^RAUTL EN1^RAUTL20

VA Fileman

^DIC DT^DIO2 ^DIR

Kernel

$$UP^XLFSTR

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RA PROFSORT

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA PROFSORT

Entry Points

External References

Name	Field # of Occurrence
^DIC	PROC+3
DT^DIO2	HD+2
^DIR	ASKSRT+4
^RADPA	PAT
$$SSANVAL^RAHLRU1	PRT3+4
$$USESSAN^RAHLRU1	PRT3+6, PRT3+12, HD+3, HD+4
^RAPROD	ST2+1
$$IMGDISP^RAPTLU	PRT3+8, PRT3+14
$$SSN^RAUTL	PAT
CLOSE^RAUTL	START+10
D^RAUTL	START+5
DATE^RAUTL	SORT+2
ZIS^RAUTL	ZIS+2
EN1^RAUTL20	PRT3+3
$$UP^XLFSTR	SORT+1

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: !! Timeout: ",!?10,"P Variable: "Sort by one of the following Line Location: SORT+0
Function Call: WRITE	Prompt: *7," ??" Line Location: SORT+1
Function Call: WRITE	Prompt: ! Line Location: ASKSRT+1
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !!?5,"For the above criteria, no registered exams filed for patient...",!?30,"...",RANME," ",RASSN,".",! Line Location: START+9
Function Call: READ	Timeout: DTIME Variable: RAX Line Location: ST1+0
Function Call: WRITE	Prompt: !,"CHOOSE FROM 1-",RASEQ,": " Line Location: ST1+0
Function Call: WRITE	Prompt: !,*7,"You may only select one exam at a time. Choose a number between 1 and ",RASEQ,"." Line Location: ST1+1
Function Call: READ	Timeout: DTIME Variable: RAX Line Location: PRT1+0
Function Call: WRITE	Prompt: !,"Type '^' to STOP, or",!,"CHOOSE FROM 1-",RASEQ,": " Line Location: PRT1+0
Function Call: WRITE	Prompt: !,*7,"You may only select one exam at a time. Choose a number between 1 and ",RASEQ,"." Line Location: PRT1+1
Function Call: WRITE	Prompt: "Profile for ",RANME," ",RASSN,?55,"Run Date: " Line Location: HD+2
Function Call: WRITE	Prompt: !!,?20,"*** Registered Exams Profile ***" Line Location: HD+2
Function Call: WRITE	Prompt: !?4,"Case No.",?22,"Procedure",?49,"Exam Dt",?58,"Exam Status",?70,"Img Loc",!?4,"-----------------",?22,"-------------",?49,"--------",?58,"-----------",?70,"----------" Line Location: HD+3
Function Call: WRITE	Prompt: !?3,"Case No.",?13,"Procedure",?41,"Exam Date",?52,"Status of Exam",?69,"Imaging Loc",!?3,"--------",?13,"-------------",?41,"---------",?52,"------------",?69,"-----------" Line Location: HD+4
Function Call: WRITE	Prompt: !!?3,"Enter the number corresponding to the exam you wish to select.",! Line Location: HLP+1
Function Call: WRITE	Prompt: !! Line Location: PROC+3
Routine Call	DIC Line Location: PROC+3
Routine Call	DIR Line Location: ASKSRT+4

FileNo	Call Tags
^RAMIS(71 - [#71]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PAT
^RA(72 - [#72]	PRT3+10, PRT3+16
^RA(79.1 - [#79.1]	START+3
^RADPT - [#70]	START+1, START+2, START+3, ST2+1, RACN+1
^RAMIS(71 - [#71]	STORE+1
^SC - [#44]	START+3
^TMP($J	START!, START+9, ST1+1, ST2, Q1!, STORE+3, PRT+1, PRT1+1, PRT3*

Label References

Name	Line Occurrences
HD	PRT+1, PRT2
HLP	ST1, PRT1
PAT	ST2+1
PROC	ASKSRT+5
PRT	START+10
PRT1	PRT+1, PRT1, PRT1+1
PRT2	PRT1
PRT3	PRT1
Q	PAT, SORT+1, SORT+2, ASKSRT+4, ASKSRT+5, ZIS+2, START+10
Q1	START+9, ST2, ST2+1
RACN	START+6
SORT	SORT+1
ST1	ST1, ST1+1
ST2	START+10
STORE	RACN+1
ZIS	SORT+2

Name	Field # of Occurrence
^(	RACN+1, STORE+3*, PRT+1
^("RASEQ"	START!, Q1!
^(0	PAT, START+2, RACN+1, STORE+1, PRT3+10, PRT3+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q+1!, PROC+1~
%W	Q+1!
%Y	Q+1!, PROC+1~
%Y1	Q+1!
BEG	SORT+2, ASKSRT+5, Q+1!, STORE+3, PROC+4*
BEGDATE	SORT+2, Q+1!
C	Q+1!, PROC+1~
DA	PROC+1~
DDH	PROC+1~
DIC	PAT!, PROC+1~, PROC+2*
DIC("A"	PROC+2*
DIC(0	PAT, PROC+2
DIR	ASKSRT+1!, ASKSRT+4!
DIR("?"	ASKSRT+2*
DIR("A"	ASKSRT+3*
DIR("B"	ASKSRT+1*
DIR(0	ASKSRT+1*
DIROUT	Q+1!
DIRUT	ASKSRT+4, Q+1!
DT	HD+2
DTIME	SORT, ST1, PRT1
DTOUT	Q+1!
DUOUT	Q+1!
END	SORT+2, ASKSRT+5, Q+1!, STORE+3, PROC+4*
ENDDATE	SORT+2, Q+1!
>> I	ST2*
IO	ZIS+3, START+10
IO(0	ZIS+3
IOF	HD+1
IOSL	PRT2
IOST	HD+1
POP	Q+1!
RAA	Q+2!, PRT+1*
RACN	Q+2!, STORE+2*, STORE+3
RACNDSP	PRT3+4~, PRT3+5*, PRT3+8
RACNI	ST2+1, Q+2!, RACN+1, STORE+3, PRT3+1~, PRT3+2, PRT3+4
RADATE	START+5*, Q+2!, STORE+3
RADFN	PAT, START+1, START+2, START+3, ST2+1, Q+2!, RACN+1, STORE+3, PRT3+1~, PRT3+2 , PRT3+4
RADTE	START+5*, Q+2!, STORE+3
RADTI	START+1, START+2, START+3, ST2+1, Q+2!, RACN+1, STORE+3, PRT3+1~, PRT3+2, PRT3+4
RADTPRT	START+4*, Q+4!, STORE+3
RAELOC	START+3*, Q+4!, STORE+3
RAI	Q+2!, STORE+3, PRT+1
RAII	Q+2!, PRT+1*
RAMEMLOW	PRT3+3~, PRT3+7, PRT3+13
RAMES	Q+5!
RANME	PAT*, START+9, Q+2!, STORE+3, HD+2
RAPAG	START*, Q+3!, HD+1
RAPOP	SORT+2, ZIS+2, Q+2!
RAPRC	Q+3!, STORE+1*, STORE+3
RAPRI	Q+3!, STORE+1*
RAPRT	ZIS+1, ZIS+3, START+10, Q+3!, PRT1, PRT2
RAPRTSET	PRT3+3~, PRT3+7, PRT3+13
RARPT	Q+3!, STORE+2*, STORE+3
RASEQ	START, ST1, ST1+1, Q+3!, PRT1, PRT1+1, PRT3, PRT3+7, PRT3+13
RASORT	SORT+2, ASKSRT, Q+3!, STORE+3, PRT3+7, PRT3+13
RASSAN	PRT3+4~*, PRT3+5
RASSN	PAT*, START+9, Q+2!, STORE+3, HD+2
RAST	Q+3!, STORE+2*, STORE+3
RASV	ZIS+1*, Q+3!
RAX	START, START+10, ST1, ST1+1, ST2, Q1!, PRT+1, PRT1, PRT1+1, PRT1+2
RAXIT	Q+5!
RAXX	SORT, SORT+1, SORT+2, Q+3!, STORE+3
RAY	Q+3!, PRT+1*, PRT3, PRT3+2, PRT3+5, PRT3+8, PRT3+9, PRT3+10, PRT3+11, PRT3+14 , PRT3+15, PRT3+16, PRT3+17
RAZERO	START+2*, START+4, START+5, Q+3!
U	START+3, START+4, PRT3+9, PRT3+11, PRT3+15, PRT3+17
X	Q+4!, PROC+1~
Y	PAT, ASKSRT+5, START+5, ST2, Q+4!, RACN+1, STORE+1, STORE+2, HD+2, PROC+4
Y(0	ST2+1*
ZTDESC	ZIS+2*, Q+4!
ZTRTN	ZIS+1*, Q+4!
ZTSAVE	Q+4!
ZTSAVE(	ZIS+1*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAPROS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SORT
Q1
PRT1
PAT
ZIS	; Device selection
PRT	; Begin output
ASKSRT
HLP	; Generic help
Q	; Kill and quit
START
HD	; Generic header output
ST1
ST2
RACN	; Get the case numbers.
PROC	; Select Procedure
PRT3
STORE	; Store data in the ^TMP global
PRT2