Routine: RAUTL12

Package	Total	Call Graph
Radiology Nuclear Medicine	2	EN1^RASELCT PROCMSG^RAUTL5
Kernel	1	$$NOW^XLFDT
Registration	1	INP^VADPT
VA Fileman	1	^DIR

Package

Total

Call Graph

Radiology Nuclear Medicine

EN1^RASELCT PROCMSG^RAUTL5

Kernel

$$NOW^XLFDT

Registration

INP^VADPT

VA Fileman

^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	25	RACNLU RAEDCN RAEDPT RAFLM1 RAHLO RALWKL3 RAMAINP RAMAINP1 RAMIS RAORD1 RAPERR RAPRC RAPSET RAPTLU RART RARTE RARTE1 RARTE4 RARTE5 RARTR0 RARTRPV RARTRPV1 RASTED RASYS RAWKL1

Package

Total

Caller Graph

Radiology Nuclear Medicine

RACNLU  RAEDCN  RAEDPT  RAFLM1  RAHLO  RALWKL3  RAMAINP  RAMAINP1
RAMIS  RAORD1  RAPERR  RAPRC  RAPSET  RAPTLU  RART  RARTE
RARTE1  RARTE4  RARTE5  RARTR0  RARTRPV  RARTRPV1  RASTED  RASYS
RAWKL1

Entry Points

Name	Comments	DBIA/ICR reference
LOCK(X,Y)	; Lock the data global ; 'X' is the global root ; 'Y' is the record number
DESDT(RAPRI)	; Obtain 'Date Desired (NOT appt date)' by DIR call. ; Input: IEN of procedure ; The 'Date Desired' is passed back in internal format. ; 75.1 -> Rad Orders File Fld 21 -> Date desired
PTLOC()	; Current patient location. Used for entry: 'CURRENT PATIENT ; LOCATION' in the Label Print Fields file. (78.7) ; 'X' is the patient's DFN. DFN must be a positive integer.
UNLOCK(X,Y)	; Unlock the data global
EXTRA(RAQI)	;Input is RAQI (Modifier)
LOC(RAX)	; Select one/many/all imaging locations. L-Types are not ; screened. Passes back '1' if L-Type(s) are selected, '0' if nothing ; selected. Used for the option: 'Location Parameter List' (4^RASYS)
IMG()	; Select one/many/all imaging types. This code will be used for ALL ; the options under the Procedure File Listings option as exported by ; Rad/Nuc Med version 5. I-Types are not screened. ; Passes back '1' if I-Type(s) are selected, '0' if nothing selected.
IMGTY(X,Y,Z)	; Determines the Imaging Type ; 'X' -> either 'e', 'l', or 'p' ; 'e' means we determine the Imaging Type from the 'Registered ; Exams' multiple in Rad/Nuc Med Patient file (70) ; 'l' means that we determine the Imaging Type from data in the ; Imaging Locations file (79.1) ; 'p' means that we determine the Imaging Type from data in the ; Rad/Nuc Med Procedures file (71)

Name	Field # of Occurrence
^DIR	DESDT+10
EN1^RASELCT	IMG+7, LOC+7
PROCMSG^RAUTL5	DESDT+5
INP^VADPT	PTLOC+9
$$NOW^XLFDT	PTLOC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"This record is being edited by another user." Line Location: LOCK+7
Function Call: WRITE	Prompt: !?5,"Try again later!",$C(7) Line Location: LOCK+8
Function Call: WRITE	Prompt: !! Line Location: IMG+7
Function Call: WRITE	Prompt: !! Line Location: LOC+7
Routine Call	DIR Line Location: DESDT+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RA(79.1 - [#79.1]	IMGTY+19
^RA(79.2 - [#79.2]	IMGTY+16, IMGTY+20, IMGTY+24
^RADPT - [#70]	IMGTY+15, PTLOC+7, PTLOC+16
^RAMIS(71 - [#71]	IMGTY+23
^RAMIS(71.2 - [#71.2]	EXTRA+3
^RAO(75.1 - [#75.1]	PTLOC+17
^SC - [#44]	PTLOC+17
^TMP("RAD LOCKS"	LOCK+11*, UNLOCK+2!
^TMP($J	IMG+8, LOC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PTLOC+3~
%H	PTLOC+3~
%I	PTLOC+3~
A	IMGTY+13~, IMGTY+15, IMGTY+19, IMGTY+23, PTLOC+3~, PTLOC+17
B	IMGTY+13~, IMGTY+15, IMGTY+16, IMGTY+19, IMGTY+20, IMGTY+23, IMGTY+24, PTLOC+3~, PTLOC+17, PTLOC+18 , PTLOC+19
C	PTLOC+3~, PTLOC+17*, PTLOC+18
DFN	PTLOC+3~, PTLOC+7*, PTLOC+8
DIR	DESDT+4~
DIR("?"	DESDT+7, DESDT+8, DESDT+9*
DIR(0	DESDT+10*
DIROUT	DESDT+4~
DIRUT	DESDT+4~
DTOUT	DESDT+4~, DESDT+11
DUOUT	DESDT+4~, DESDT+11
DUZ	LOCK+4, UNLOCK+1
>> ORL	DESDT+5
>> ORNP	DESDT+5
>> ORVP	DESDT+5
>> RABILAT	EXTRA+3*
>> RACNI	PTLOC+16
>> RADFN	PTLOC+7, PTLOC+16
RADIC	IMG+4~, IMG+5, IMG+7, LOC+3~, LOC+4, LOC+7
RADIC("A"	IMG+6, LOC+5
RADIC("B"	IMG+6, LOC+5
RADIC("S"	LOC+6*
RADIC(0	IMG+5, LOC+4
>> RADTI	PTLOC+16
>> RADUZ	LOCK+4, LOCK+11, UNLOCK+1, UNLOCK+2
RALCKFLG	LOCK+3~, LOCK+4, LOCK+6, LOCK+13
>> RAOR	EXTRA+3*
>> RAPKG	DESDT+5
>> RAPORT	EXTRA+3*
RAPRI	DESDT~, DESDT+5
RAQI	EXTRA~, EXTRA+3*
RAQUIT	IMG+4~, LOC+3~
RAUTIL	IMG+4~, IMG+7, LOC+3~, LOC+7
RAX	LOC~, LOC+6
RAXYZ	IMGTY+13~, IMGTY+16, IMGTY+20, IMGTY+24*, IMGTY+26
U	IMGTY+15, IMGTY+16, IMGTY+19, IMGTY+20, IMGTY+23, IMGTY+24, EXTRA+3
VAERR	PTLOC+3~
VAIN	PTLOC+3~
VAIN(4	PTLOC+10, PTLOC+11
X	IMGTY~, IMGTY+14, IMGTY+18, IMGTY+22, LOCK~, LOCK+4, LOCK+11, UNLOCK~, UNLOCK+1, UNLOCK+2 , DESDT+4~, PTLOC+3~, PTLOC+16*, PTLOC+17, IMG+4~, LOC+3~
XY	LOCK+3~, LOCK+4, LOCK+5, UNLOCK+1~
Y	IMGTY~, IMGTY+15, IMGTY+19, IMGTY+23, LOCK~, LOCK+4, LOCK+11, UNLOCK~, UNLOCK+1, UNLOCK+2 , DESDT+4~, DESDT+6, DESDT+11, DESDT+13, PTLOC+3~, PTLOC+4, PTLOC+10, PTLOC+11*, IMG+4~, LOC+3~
Y1	PTLOC+3~, PTLOC+4*, PTLOC+5
Y2	PTLOC+3~, PTLOC+4*, PTLOC+6
Y3	PTLOC+3~, PTLOC+5*, PTLOC+7
Y4	PTLOC+3~, PTLOC+6*, PTLOC+7
Y5	PTLOC+3~, PTLOC+7*, PTLOC+8, PTLOC+11, PTLOC+18
Z	IMGTY~, IMGTY+15

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL12

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: