Routine: RAUTL18

Package	Total	Call Graph
Kernel	1	HOME^%ZIS
Registration	1	ADD^VADPT
VA Fileman	1	EN^DDIOL

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RACTQE ^RAMIS(71.3 RACTOE6

Entry Points

Name	Comments	DBIA/ICR reference
ILOC(X)	; Determines based on procedure I-Type if only one I-Loc is available ; for this user. ; To be called from: [RA OERR EDIT], [RA ORDER EXAM] and ; [RA QUICK EXAM ORDER] input templates. (File: 75.1) ; Input Variable: 'X'-> IEN of the procedure ; Output Variable: 'Y'-> $S(one I-Loc of proc. I-Type: IEN of I-Loc,1:0)
ADDRESS(RADA,DFN)	; Pass back the address of the patient for Print Label ; Fields. ; Input: RADA-ien of the print label field, DFN-patient ien ; Output: The street address of the patient. ; It can be the street address(123 Main Street), possibly followed by ; additional street address information such as 'P.O. Box' data, and ; finally the city, state, and zip code.
BCDE(X)	; Output data in a barcode format. 'X' is the data to be converted. ; RAIND1 & RAIND2 are newed in PRT^RAFLH. Used for indirection.
EN3(RADA)	; Displays the available sequence numbers for the current
EN1	; TYPE OF PROCEDURE: Non-parent ==> Parent ; Is PROCEDURE a DESCENDENT? If it is KILL X ; Input: PROCEDURE file (#71) IEN (RAPROCD0)
EN2	; TYPE OF PROCEDURE: Parent ==> Non-parent, delete DESCENDENTS ; Input: PROCEDURE file (#71) IEN (RAPROCD0)
EN(RAPROCD0,PROCTYPE)	; ; Check/delete DESCENDENT multiple when the TYPE OF PROCEDURE changes ; Input: PROCEDURE file (#71) IEN (RAPROCD0) ; New TYPE OF PROCEDURE value in internal format (PROCTYPE)

External References

Name	Field # of Occurrence
HOME^%ZIS	EN3+6
EN^DDIOL	EN1+15, EN2+4
ADD^VADPT	ADDRESS+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"Available Sequence Numbers for "_RAIMGTYJ_":" Line Location: EN3+10
Function Call: WRITE	Prompt: !!?5,"The only valid sequence number for an Imaging Type of" Line Location: EN3+23
Function Call: WRITE	Prompt: !?5,"'"_RAIMGTYJ_"' is: ",$P(RA0,"^",4)_".",! Line Location: EN3+24
Function Call: WRITE	Prompt: !!?5,"There are no available sequence numbers.",! Line Location: EN3+26
Function Call: WRITE	Prompt: !,$G(RA(RACNT)) Line Location: EN3+28
Function Call: WRITE	Prompt: ! Line Location: EN3+29
Function Call: WRITE	Prompt: !?5,"The current sequence number is: "_$P(RA0,"^",4)_"." Line Location: EN3+30
Function Call: WRITE	Prompt: !?5,"The"_$S(+$P(RA0,"^",4)&(+$P(RA0,"^",4)<RAHIT):" next",1:"") Line Location: EN3+32
Function Call: WRITE	Prompt: " lowest available sequence number is: ",RAHIT,! Line Location: EN3+33
Routine Call	%ZIS Line Location: EN3+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(71.05	EN2+9, EN2+11
^DIC(5 - [#5]	ADDRESS+17
^RA(78.7 - [#78.7]	ADDRESS+7, ADDRESS+9, ADDRESS+12, ADDRESS+15
^RA(79.1 - [#79.1]	ILOC+10, ILOC+11, ILOC+14
^RA(79.2 - [#79.2]	EN3+7
^RAMIS(71 - [#71]	EN1+5, EN1+6, EN2+3, EN2+6, EN2+7, EN2+13!, EN2+15!, ILOC+7, ILOC+9
^RAMIS(71.3 - [#71.3]	EN3+8, EN3+12
^SC - [#44]	ILOC+14

Label References

Name	Line Occurrences
EN1	EN+5
EN2	EN+6

Naked Globals

Name	Field # of Occurrence
^(2	EN2+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	EN2+2~, EN2+10*
D1	EN2+2~, EN2+10*
DA	EN2+2~, EN2+10*
DA(1	EN2+10*
DFN	ADDRESS~, ADDRESS+7
>> IOBAROFF	BCDE+4
>> IOBARON	BCDE+4
IOM	EN3+14
PROCTYPE	EN~, EN+5, EN+6
RA	EN3+6~, EN3+11*, EN3+12, EN3+13, EN3+14, EN3+18
RA(	EN3+14, EN3+15, EN3+18, EN3+20*, EN3+28
RA0	EN3+6~, EN3+8*, EN3+22, EN3+24, EN3+29, EN3+30, EN3+32
RA791	ILOC+8~, ILOC+9, ILOC+10, ILOC+11, ILOC+12
RABBR	ADDRESS+17~*, ADDRESS+18
>> RACCESS	EN3+3
RACNT	EN1+3~, EN1+4, EN1+7, EN1+10, EN3+6~, EN3+8, EN3+14, EN3+15, EN3+16, EN3+18 , EN3+20, EN3+28, BCDE+2, BCDE+3, BCDE+5, BCDE+7, ILOC+8~, ILOC+9, ILOC+10, ILOC+12 , ILOC+14, ILOC+15
RADA	EN3~, EN3+8, ADDRESS~, ADDRESS+7, ADDRESS+9, ADDRESS+12, ADDRESS+15
RADESCD0	EN2+2~, EN2+5, EN2+6, EN2+7, EN2+10, EN2+13
RAEXIT	EN1+3~, EN1+4, EN1+9, EN1+17
RAFDA	EN2+2~
RAFLG	EN3+6~, EN3+7*
RAHIT	EN3+6~, EN3+7, EN3+13, EN3+20, EN3+21, EN3+32, EN3+33
>> RAIMGTYI	EN3+5, EN3+7, EN3+12
RAIMGTYJ	EN3+6~, EN3+7*, EN3+10, EN3+24
>> RAIND1(	BCDE+3, BCDE+5, BCDE+7*
>> RAIND2	BCDE+3, BCDE+5, BCDE+7*, BCDE+8
RALOWER	EN3+6~, EN3+9*, EN3+11
>> RAMDIV	EN3+3
>> RAMDV	EN3+3
>> RAMLC	EN3+3
RAPARENT	EN1+3~, EN1+4, EN1+5, EN1+6
RAPARENT(0	EN1+6*, EN1+7
>> RAPROC	EN2+7*, EN2+10
RAPROCD0	EN~, EN1+5, EN2+3, EN2+6, EN2+7, EN2+10, EN2+13, EN2+15
RAPROI	ILOC+8~, ILOC+9*, ILOC+10
RASAV	ILOC+8~, ILOC+12*, ILOC+14, ILOC+15
RATXT	EN1+3~, EN1+15, EN2+2~
RATXT(	EN1+7, EN1+10
RATXT(0	EN1+9
RATXT(1	EN1+11*
RATXT(2	EN1+12*
RATXT(3	EN1+13*
RATXT(4	EN1+14*
RAUPPER	EN3+6~, EN3+9*, EN3+11
RAXREF	EN2+2~, EN2+8, EN2+9, EN2+11
U	EN1+6, EN2+7
VAERR	ADDRESS+8~
VAPA	ADDRESS+8~
VAPA(1	ADDRESS+10
VAPA(11	ADDRESS+19
VAPA(2	ADDRESS+13
VAPA(3	ADDRESS+13
VAPA(4	ADDRESS+18
VAPA(5	ADDRESS+17, ADDRESS+18
VAPA(6	ADDRESS+19
X	EN1+3~, EN2+2~, EN2+10, BCDE~, BCDE+3, BCDE+5, ILOC~, ILOC+6, ILOC+7, ILOC+9 , ADDRESS+8~, ADDRESS+10, ADDRESS+13, ADDRESS+18, ADDRESS+19, ADDRESS+21
Y	EN1+3~, EN2+2~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL18

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: