Routine: RAUTL

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ^XUVERIFY
Registration	1	PID^VADPT6
VA Fileman	1	^%DT

Package	Total	Caller Graph
Radiology Nuclear Medicine	97	RABTCH RABTCH1 RABUL RABUL1 RABUL2 RABUL3 RACDR RACMP RACMP2 RACNLU RACPT RACPT1 RACTEX RACTEX2 RACTRG8 RACTTK2 RADEM RADEM1 RADEM2 RADLQ1 RADLQ3 RADLY RADLY1 RADOSTIK RAERRPT RAESO RAESR RAESR2 RAFLH RAFLH1 RAFLM RAFLM2 RAHLEX RAHLEX1 RAHLO4 RAJAC RALIST RALWKL RALWKL1 RALWKL2 RAMIS RAMIS1 RANMUSE1 RAO7PC4 RAO7RO RAORD RAORD2 RAORD4 RAORD5 RAORD6 RAORD7 RAORD7A RAORD8 RAORDP RAORDQ RAORR3 RAOUT RAPAST RAPCE2 RAPERR RAPM RAPMW RAPRC RAPRC1 RAPRINT RAPRINT1 RAPROD1 RAPROS RAPTLU RAPURGE RAPURGE1 RAREG RART1 RARTE6 RARTR RARTR0 RARTR2 RARTST RARTST1 RARTST2 RARTST2A RARTST3 RARTUVR RARTUVR2 RARTUVR3 RARTVER1 RASIGU RASTAT RASTRPT RATRAN RAUTL0 RAUTL2 RAUTL7A RAWFR1 RAWKL RAWKL2 RAWORK
IHS Mods To Radiology Nuclear Medicine	6	BRARPT1 BRARPT2 BRARPT3 BRARPT4 BRARPT5 BRARPT6

Package

Total

Caller Graph

Radiology Nuclear Medicine

RABTCH  RABTCH1  RABUL  RABUL1  RABUL2  RABUL3  RACDR  RACMP
RACMP2  RACNLU  RACPT  RACPT1  RACTEX  RACTEX2  RACTRG8  RACTTK2
RADEM  RADEM1  RADEM2  RADLQ1  RADLQ3  RADLY  RADLY1  RADOSTIK
RAERRPT  RAESO  RAESR  RAESR2  RAFLH  RAFLH1  RAFLM  RAFLM2
RAHLEX  RAHLEX1  RAHLO4  RAJAC  RALIST  RALWKL  RALWKL1  RALWKL2
RAMIS  RAMIS1  RANMUSE1  RAO7PC4  RAO7RO  RAORD  RAORD2  RAORD4
RAORD5  RAORD6  RAORD7  RAORD7A  RAORD8  RAORDP  RAORDQ  RAORR3
RAOUT  RAPAST  RAPCE2  RAPERR  RAPM  RAPMW  RAPRC  RAPRC1
RAPRINT  RAPRINT1  RAPROD1  RAPROS  RAPTLU  RAPURGE  RAPURGE1  RAREG
RART1  RARTE6  RARTR  RARTR0  RARTR2  RARTST  RARTST1  RARTST2
RARTST2A  RARTST3  RARTUVR  RARTUVR2  RARTUVR3  RARTVER1  RASIGU  RASTAT
RASTRPT  RATRAN  RAUTL0  RAUTL2  RAUTL7A  RAWFR1  RAWKL  RAWKL2
RAWORK

IHS Mods To Radiology Nuclear Medicine

BRARPT1 BRARPT2 BRARPT3 BRARPT4 BRARPT5 BRARPT6

Entry Points

Name	Field # of Occurrence
^%DT	DATE+1, END, DATE1+1, END1
^%ZIS	ZIS+3
HOME^%ZIS	ZIS+8, DEV+1
^%ZISC	ZIS+3, CLOSE+1
^%ZTLOAD	ZIS+6
PID^VADPT6	SSN+5
^XUVERIFY	USER, VERIFY+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: END+0
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: DATE1+0
Function Call: WRITE	Prompt: ! Line Location: DATE1+1
Function Call: WRITE	Prompt: ! Line Location: END1+0
Function Call: WRITE	Prompt: ! Line Location: ZIS+2
Function Call: WRITE	Prompt: RASELDEV,! Line Location: ZIS+2
Function Call: WRITE	Prompt: *7,!?5,"You must select a printer for this output.",! Line Location: ZIS+3
Function Call: WRITE	Prompt: *7," ??" Line Location: USER+0
Function Call: WRITE	Prompt: !!?3,*7,"Must be a user with the appropriate privileges to continue!" Line Location: USER1+0
Function Call: WRITE	Prompt: @IOF,!,"The following is a list of possible devices. You must choose",!,"one of these by entering in the device's full name.",!!,"NOTE: This field is not a pointer field to file 3.5!",! Line Location: DEV+1
Function Call: WRITE	Prompt: !?3,"Device Name:",?25,"Device Location:",!?3,"------------",?25,"----------------" Line Location: DEV+2
Function Call: READ	Prompt: "(Type ""^"" to stop)" Formatting: ! Timeout: DTIME Variable: X Line Location: DEV+3
Function Call: WRITE	Prompt: @IOF Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: VERIFY+1
Function Call: WRITE	Prompt: *7,!,"Sorry, that's not your access code. Try again." Condition for execution: %=2 Line Location: VERIFY+1
Function Call: WRITE	Prompt: !,"Enter your access code or an uparrow to exit." Condition for execution: %=0 Line Location: VERIFY+1
Function Call: WRITE	Prompt: !!?2,"",?21,"Since you have changed the procedure,",?76,"" Line Location: WARNPRC+18
Function Call: WRITE	Prompt: !?2,"",?RATAB,"the",$S(RAWHICH#2:" Radiopharmaceuticals",1:""),$S(RAWHICH=3:" and",1:""),$S(RAWHICH>1:" Meds",1:"")," for",?76,"" Line Location: WARNPRC+20
Function Call: WRITE	Prompt: !?2,"",?RATAB,RATEXT,?76,"" Line Location: WARNPRC+22
Function Call: WRITE	Prompt: !?2,"",?30,"will now be deleted.",?76,"",!,*7 Line Location: WARNPRC+23
Function Call: WRITE	Prompt: !!?2,"",?17,"You have changed the procedure, but there are",?76,"" Line Location: WARN0+0
Function Call: WRITE	Prompt: !?2,"",?14,"no data for Radiopharmaceuticals and Meds to delete.",?76,"",*7,! Line Location: WARN0+1
Routine Call	%ZIS Line Location: ZIS+8 DEV+1
Routine Call	%ZIS Line Location: ZIS+3

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEV+3
^RADPT - [#70]	WARNPRC+10, WARNPRC+12
^RADPTN - [#70.2]	WARNPRC+11
^RAMIS(71 - [#71]	WARNPRC+21
^VA(200 - [#200]	A+3*, DUZ+2, DUZ+4, DUZ+5, DUZ+6
^XUSEC(	USER1

Name	Line Occurrences
A	DUZ+4
USER	USER
USERQ	USER
VERIFY	VERIFY+1
WARN0	WARNPRC+17
ZIS	ZIS+3
ZIS1	ZIS+4

Name	Field # of Occurrence
^(	DEV+3
^(0	DEV+3
^(1	DEV+3
^(20	DUZ+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	USER, VERIFY+1, DUZ+2, DUZ+3
%DT	DATE+1, END!, DATE1+1, END1!
%DT("A"	DATE+1, END, DATE1+1, END1
%DT(0	DATE+1, DATE1+1
>> %DUZ	USER, VERIFY+1
%INT	DUZ+3!, DUZ+4!, DUZ+6!
%X	A+3!, DUZ+5!
%ZIS	ZIS+3*!
%ZIS("B"	ZIS+3*
BEGDATE	DATE!, DATE+1, DATE1!, DATE1+1
BID	SSN~, SSN+4*, SSN+6
DFN	SSN+2~, SSN+5*
DOD	SSN~, SSN+4
DTIME	DEV+3
DUZ	USER, VERIFY+1, DUZ+2
ENDDATE	DATE!, END, DATE1!, END1
>> I	DEV+3*
IO("DOC"	ZIS+5
IO("Q"	ZIS+4, ZIS+5!
IOF	DEV+1, DEV+3
IOM	ZIS+5
ION	ZIS+5
>> IOP	ZIS+3*
IOSL	ZIS+5, DEV+3
IOST	ZIS+3, ZIS+5
PID	SSN~
>> POP	ZIS+3
>> RACNI	WARNPRC+4, WARNPRC+10, WARNPRC+12
>> RADDT	DATE+1, DATE1+1
>> RADFLTP	ZIS+3
>> RADFN	SSN+3, SSN+5, WARNPRC+4, WARNPRC+10, WARNPRC+12
RADIO	WARNPRC+6~, WARNPRC+7, WARNPRC+10, WARNPRC+11*, WARNPRC+14, WARNPRC+15, WARNPRC+16
>> RADTI	WARNPRC+4, WARNPRC+10, WARNPRC+12
>> RADUPSCN	ZIS+3
RADUZ	USER, USER1, VERIFY+1!
>> RAKEY	USER1
>> RAMDV	USER*
RAMEDS	WARNPRC+6~, WARNPRC+7, WARNPRC+12, WARNPRC+14, WARNPRC+15, WARNPRC+16
RAMES	ZIS+1*, ZIS+7, ZIS+8!, ZIS1!
>> RAPOP	DATE, DATE+1, END, DATE1, DATE1+1, END1, ZIS+3, ZIS+8, USERQ*
>> RAPRI	WARNPRC+8, WARNPRC+9
>> RAPRIT	WARNPRC+5, WARNPRC+9, WARNPRC+21
RASELDEV	ZIS+2!, ZIS1!
>> RASIG("NAME"	DUZ+6*
>> RASIG("PER"	A+3, DUZ+2*, DUZ+3, DUZ+4, DUZ+5, DUZ+6
>> RASKTIME	DATE+1, END, DATE1+1, END1
>> RASSN	SSN+6*, SSN+8
RASV	ZIS+8!
RATAB	WARNPRC+6~, WARNPRC+19, WARNPRC+20, WARNPRC+21, WARNPRC+22
RATEXT	WARNPRC+6~, WARNPRC+21*, WARNPRC+22
>> RAWHICH	WARNPRC+13, WARNPRC+14, WARNPRC+15, WARNPRC+16, WARNPRC+17, WARNPRC+19, WARNPRC+20
>> RAY	WARNPRC+5, WARNPRC+8, WARNPRC+21
>> RAZIS	ZIS+3
U	WARNPRC+8, WARNPRC+10, WARNPRC+21
>> VA("BID"	SSN+6, SSN+7!
>> VA("PID"	SSN+6, SSN+7!
VAERR	SSN+5!, SSN+7!
VAPTYP	SSN+4*, SSN+7!
>> X	DEV+3*
>> Y	DATE+1, END, DATE1+1, END1, D*
ZTDESC	ZIS*, ZIS+8!, ZIS1!
ZTDTH	ZIS+8!
ZTIO	ZIS+5*, ZIS+8!
>> ZTQUEUED	CLOSE
>> ZTREQ	CLOSE*
ZTRTN	ZIS, ZIS+8!, ZIS1!
ZTSAVE	ZIS+8!, ZIS1!
ZTSK	ZIS+7, ZIS+8!
ZTSK("D"	ZIS+7

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 103

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DATE1
END1
END
ZIS
WARNPRC	; send warning if user changes procedure within exam edit ; and the exam has either or both radiopharms and meds ; RAY (sub-rec 70.03) comes from rtns RAEDCN or RAEDPT (exam edit) ; RAPRIT (ien file 71) comes from rtn RASTED (status tracking)
ZIS1
VERIFY	;Ask Access Code
USER1
DEV	;EXECUTEABLE HELP FOR DEVICE FIELDS IN FILE 79.1 (IMAGING LOCATIONS)
DUZ	;Lookup and set RASIG("PER")=New Person File IFN, set signature block
A	;Create signature block name using RASIG("PER") as input IEN of file 200
USER
WARN0
USERQ
DATE
CLOSE
SSN(PID,BID,DOD)	;returns full Pt.ID (VA("PID")), BID=1 returns VA("BID")
D