Routine: RASITE

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE EN1^DIP
Kernel	1	HOME^%ZIS

Package

Total

Call Graph

VA Fileman

^DIC YN^DICN ^DIE EN1^DIP

Kernel

HOME^%ZIS

Package	Total	Caller Graph
Radiology Nuclear Medicine	10	AMIS CODES PROCEDURE MODIFIERS RA DEVICE RA FAILSOFT RA IMGLOG RACTOE RACTQE RACTRG2 RAORD1 RARTST2A
IHS VA Support Files	1	AMIS CODES

Package

Total

Caller Graph

Radiology Nuclear Medicine

AMIS CODES PROCEDURE MODIFIERS RA DEVICE RA FAILSOFT RA IMGLOG RACTOE RACTQE RACTRG2
RAORD1 RARTST2A

IHS VA Support Files

AMIS CODES

Entry Points

Name	Comments	DBIA/ICR reference
Q3
Q2
21	; Select a location and answer the default printer prompts.
ITYPE(X)	;get image type for procedure in 71
3	;;Failsoft Parameters
2	;;Device Specifications
5	;;Imaging Type Activity Log
DEVHLP	; Display printer assignment help text to the user.
DD71	;entry point for input transform, 71.03, .01 field
IMAG(X)	;set string of passed image type

Name	Field # of Occurrence
HOME^%ZIS	DEVHLP+1
^DIC	21+1, 3+1
YN^DICN	2+3
^DIE	21+2, 3+1
EN1^DIP	5+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to see a 'help' message on printer assignment" Line Location: 2+2
Function Call: WRITE	Prompt: !!?3,"Enter 'Yes' to see the help message, or 'No' not to." Line Location: 2+4
Function Call: WRITE	Prompt: ! Line Location: 21+1
Function Call: WRITE	Prompt: !?5,"Select Radiology AMIS codes for Radiology imaging type procedures,",!?5,"Nuclear Medicine AMIS codes for Nuclear Medicine procedures",*7 Line Location: DD71+7
Function Call: WRITE	Prompt: @IOF Line Location: DEVHLP+1
Function Call: WRITE	Prompt: !,"Default Printer Assignments:",!,"----------------------------" Line Location: DEVHLP+2
Function Call: WRITE	Prompt: !,"There are six imaging location parameters that the coordinator will" Line Location: DEVHLP+3
Function Call: WRITE	Prompt: !,"not be able to enter. They are the default printers; specifically,the" Line Location: DEVHLP+4
Function Call: WRITE	Prompt: !,"default flash card/exam label, jacket label, request, request cancellation," Line Location: DEVHLP+5
Function Call: WRITE	Prompt: !,"radiopharmaceutical dosage ticket, and report printers. Once you have" Line Location: DEVHLP+6
Function Call: WRITE	Prompt: !,"assigned these printer names to a location, the module will automatically" Line Location: DEVHLP+7
Function Call: WRITE	Prompt: !,"route output to the appropriate printer without having to ask the user." Line Location: DEVHLP+8
Function Call: WRITE	Prompt: !,"NOTE: If you have more than one imaging location within an imaging type" Line Location: DEVHLP+9
Function Call: WRITE	Prompt: !,"the Division parameter 'Ask Imaging Location' must be set to 'yes' in" Line Location: DEVHLP+10
Function Call: WRITE	Prompt: !,"order to print cancelled requests on the request cancellation printer." Line Location: DEVHLP+11
Routine Call	%ZIS Line Location: DEVHLP+1
Routine Call	DIE Line Location: 21+2 3+1
Routine Call	DIC Line Location: 21+1 3+1

FileNo	Call Tags
^RA(79.1 - [#79.1]	Classic Fileman Calls
^RA(79.2 - [#79.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.2 - [#79.2]	IMAG+4
^RAMIS(71 - [#71]	ITYPE+3, ITYPE+4

Name	Line Occurrences
$$IMAG	ITYPE+5
$$ITYPE	DD71+5
21	21+3
DEVHLP	2+7
Q2	2+6, 21+1, 21+3
Q3	3+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	2+1, 2+3*, 2+4, 2+6, 2+7, Q2!, 3+1!
%DT	3+1!
%W	Q2!
%X	Q2!, 3+1!
%Y	Q2!, 3+1!
BY	5+1*!
C	Q2!
D	Q2!, 3+1!
D0	Q2!, 3+1!
D1	Q2!, 3+1!
DA	21+2, Q2!, 3+1!
DA(1	DD71+4, DD71+5
DDER	Q3!
DDH	Q3!
DE	21+3!, 3+1!
DHD	5+1!
DI	Q2!, 3+1!
DIC	21+1!, 3+1!, 5+1*
DIC("A"	21+1*
DIC(0	21+1, 3+1
DIE	21+2, 21+3!, 3+1!
DIE("NO^"	3+1*
DISYS	Q2+1!, Q3!
DIW	Q2!
DIWF	Q2!
DIWL	Q2!
DIWR	Q2!
DIWT	Q2!
DLAYGO	21+1*!, Q2!, 3+1!
DN	Q2!
DQ	21+3!, 3+1!
DR	21+2, 21+3!, 3+1!
FLDS	5+1*!
FR	5+1*!
I	Q2!, Q3!
IOF	DEVHLP+1
>> L	5+1*
POP	Q2!, Q3!, 5+1!
RA791	Q2+1!
RA792	Q2+1!
RAI	Q2!
RAIMAG	DD71+5~*
RAIMAGA	DD71+5~*, DD71+6
RAJ	Q2!
>> RASERIES	ITYPE+3*
TO	5+1*!
U	DD71+5, ITYPE+3, ITYPE+4, IMAG+5
X	Q2!, 3+1!, DD71+6, DD71+8!, ITYPE~, ITYPE+3, ITYPE+4*, ITYPE+5, IMAG~, IMAG+4 , IMAG+5
Y	21+1, 21+2, Q2!, 3+1, IMAG+3~, IMAG+4*, IMAG+5
Z	Q2!

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASITE

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: