Routine: RAUTL2

Information

RAUTL2 ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Utility Routine ;11/10/97 11:18

Source Information

Source file <RAUTL2.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL FILE^DIE DT^DIO2 GETS^DIQ
Radiology Nuclear Medicine	3	$$BASICMOD^RACPTMSC D^RAUTL XPRI^RAUTL20
Kernel	2	(T0,T1)^%ZOSV $$UP^XLFSTR

Caller Graph

Caller Graph Total: 40

Package	Total	Caller Graph
Radiology Nuclear Medicine	40	EXAMINATIONS RABTCH1 RABUL2 RABUL3 RACTOE RACTTK2 RACTTK3 RACTTK4 RACTVR RACTWR RACTWR2 RAHLQ1 RAHLRU RAO7PC3 RAORD RAORD1 RAORR2 RAPCE2 RAPRI RAPROD RAPSET RART1 RARTR ^RARPT RART3 RARTR2 RARTR3 RARTRPV RARTST RARTST2 RARTUVR RARTVER RARTVER1 RARTVER2 RASTEXT RAUTL0 RAUTL8 SECONDARY INTERPRET'G RESIDENT SECONDARY INTERPRETING STAFF ^RAO(75.1

Entry Points

Name	Comments	DBIA/ICR reference
MODS0	;falls through from MODS; get CPT modifiers
XREF1
XREF
RASET	;P47 Check SSAN and use ADC or ADC1 accordingly:
MODS1	;builds procedure modifier string (called from MODS above)
ORDPRC1
KILLVAR	;This call will clean up possible variables left after execution
ORDPRC
CHKSP
Q
CHKUSR	; Check if valid user
MODS	;get procedure modifiers
ORDMES
ORDMES1
CONTRAST(RAZ71)	;Display the contrast media/medium associated with a Rad/Nuc
DELCM(DA)	;Ask the user if he/she is sure that deletion of contrast media

Name	Field # of Occurrence
T0^%ZOSV	RASET+3
T1^%ZOSV	RASET+11
EN^DDIOL	CONTRAST+27
FILE^DIE	DELCM+18
DT^DIO2	ORDMES+1
GETS^DIQ	CONTRAST+7
$$BASICMOD^RACPTMSC	MODS0+3
D^RAUTL	RASET+8
XPRI^RAUTL20	XREF1
$$UP^XLFSTR	DELCM+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please contact appropriate Imaging Service to request this procedure! " Line Location: ORDPRC+0
Function Call: WRITE	Prompt: !?3,"A request dated " Line Location: ORDMES+1
Function Call: WRITE	Prompt: " is already ",$S(RAT=3:"on ",1:""),$P($P(^DD(75.1,5,0),RAT_":",2),";")," for this procedure." Line Location: ORDMES+1
Function Call: READ	Timeout: DTIME Variable: RAX Line Location: ORDMES1+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to request this procedure for this patient, or 'NO' not to.",! Line Location: ORDMES1+2
Function Call: WRITE	Prompt: !?3,"* Deleting all contrast media data associated with this procedure. *" Line Location: DELCM+5
Function Call: WRITE	Prompt: !?3,"Enter 'Y'es to delete associated contrasts, or 'N'o to preserve associated",!?3,"contrasts." Line Location: DELCM+11
Function Call: WRITE	Prompt: !?3,"Please enter 'Y' for yes, or 'N' for no." Line Location: DELCM+12
Routine Call	DIE Line Location: DELCM+18

FileNo	Call Tags
^RAMIS(71 - [#71]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(75.1	ORDMES+1
^RA(79 - [#79]	CHKSP
^RA(79.1 - [#79.1]	CHKSP
^RADPT - [#70]	RASET+10, XREF, XREF+2, MODS+1, MODS+2, MODS0+2, MODS0+3
^RADPT("ADC"	RASET+7
^RADPT("ADC1"	RASET+6
^RAMIS(71 - [#71]	ORDPRC, CONTRAST+4
^RAMIS(71.2 - [#71.2]	MODS+2
^RAO(75.1 - [#75.1]	ORDPRC+1, ORDPRC1, ORDPRC1+1
^RARPT - [#74]	RASET+4, XREF, XREF1*!
^VA(200 - [#200]	CHKUSR+2, CHKUSR+3, CHKUSR+4

Name	Line Occurrences
CHKUSR	ORDPRC
MODS1	MODS+2
ORDMES	ORDPRC1+1
ORDMES1	ORDPRC1+2, ORDMES1+2
Q	XREF, XREF+2

Name	Field # of Occurrence
^(	MODS+2, MODS0+3
^(0	RASET+4, RASET+10, XREF, XREF+2, MODS+1, MODS+2, ORDPRC, ORDPRC1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	XREF, ORDPRC+1, DELCM~, DELCM+18
DT	MODS0+3, CHKUSR+4
DTIME	ORDMES1, DELCM+7
DUZ	CHKUSR+2, CHKUSR+3, CHKUSR+4
I	MODS+2, MODS0+2, MODS0+3*, MODS0+5!
RAC	CHKUSR+1~, CHKUSR+3*, CHKUSR+4
>> RACN	RASET+5*
>> RACNI	RASET+6, RASET+7, RASET+10, MODS+1, MODS+2, MODS0+2, MODS0+3
RACNIZ	XREF*, XREF+2, Q!
RACSE	KILLVAR+2!
RACTY	KILLVAR+3!
RADA	XREF*, XREF1, Q!
>> RADATE	RASET+8*
>> RADFN	RASET+4*, RASET+6, RASET+7, RASET+10, MODS+1, MODS+2, MODS0+2, MODS0+3
RADFNZ	XREF*, XREF+2, Q!
RADIAG	KILLVAR+2!
RADOB	KILLVAR+2!
RADOC	KILLVAR+2!
>> RADTE	RASET+5*, RASET+8
>> RADTI	RASET+5*, RASET+6, RASET+7, RASET+10, MODS+1, MODS+2, MODS0+2, MODS0+3
RADTIZ	XREF*, XREF+2, Q!
>> RADV	CHKSP*
RAEXDT	KILLVAR+2!
RAEXLST	KILLVAR+2!
RAFDA	DELCM+18!, DELCM+19!
RAFDA(71	DELCM+18*
RAFMT	KILLVAR+3!
RAGE	KILLVAR+2!
RAII	KILLVAR+3!
RAINADT	CHKUSR+1~, CHKUSR+2*, CHKUSR+4
RAINST	KILLVAR+2!
>> RAKILL	XREF1
RAL	KILLVAR+2!
>> RALC	CHKSP*
RALCSE	KILLVAR+2!
RAMOD	KILLVAR+2!
RAMSG	ORDPRC!, ORDPRC1+3!, CHKUSR+4*
RANM	KILLVAR+2!
RANOW	KILLVAR+2!
RAPAGE	KILLVAR+2!
RAPMSG	CONTRAST+27, CONTRAST+28!
RAPMSG(	CONTRAST+16, CONTRAST+18, CONTRAST+19, CONTRAST+25, CONTRAST+26*
RAPMSG(1	CONTRAST+14*
RAPMSG(2	CONTRAST+15, CONTRAST+16
RAPMSG(99	CONTRAST+26*
RAPR	KILLVAR+2!
>> RAPRI	ORDMES1+1*
RAQUIT	ORDPRC1+1, ORDPRC1+2, ORDPRC1+3!
RARAD	XREF+1, XREF+2*, XREF1, KILLVAR+2!
RARADOLD	XREF+1*, Q!
RAREA	KILLVAR+2!
RARPDT	KILLVAR+2!
RARST	KILLVAR+2!
RAS	KILLVAR+3!
RAS3	ORDPRC+1*, ORDPRC1, ORDPRC1+1, ORDPRC1+3!
RAS4	ORDPRC1*, ORDPRC1+1, ORDPRC1+3!
RAS5	ORDPRC1+1*, ORDPRC1+3!, ORDMES+1
RAS6	ORDPRC1+1*, ORDPRC1+3!
RASCNT	ORDPRC1, ORDPRC1+1, ORDPRC1+3!
RASERV	KILLVAR+3!
>> RASET	XREF1
RASEX	KILLVAR+3!
RASIGR	KILLVAR+3!
RASIGS	KILLVAR+3!
RASIGVES	KILLVAR+3!
RASIGVS	KILLVAR+3!
RASIGVSB	KILLVAR+3!
RASSN	KILLVAR+2!
RASTAFF	KILLVAR+3!
RASV	KILLVAR+3!
RAT	ORDPRC1+1*, ORDPRC1+3!, ORDMES+1
RATECH	KILLVAR+3!
RATRAN	KILLVAR+2!
RAVER	KILLVAR+3!
RAVST	KILLVAR+2!
RAX	ORDPRC1!, ORDPRC1+2, ORDPRC1+3!, ORDMES, ORDMES+1, ORDMES1, ORDMES1+1, ORDMES1+2
>> RAXREF	XREF1
RAY0	KILLVAR+2!
RAY1	KILLVAR+2!
RAY2	KILLVAR+2!
RAY3	KILLVAR+2!
RAYN	DELCM+5~, DELCM+6, DELCM+7, DELCM+8, DELCM+9, DELCM+10, DELCM+11!, DELCM+12!, DELCM+17, DELCM+20
RAZ71	CONTRAST~, CONTRAST+4, CONTRAST+7
RAZ71(0	CONTRAST+4*, CONTRAST+5, CONTRAST+15
RAZCM	CONTRAST+4!, CONTRAST+28!
RAZCM(	CONTRAST+12, CONTRAST+17, CONTRAST+18, CONTRAST+19
RAZCMU	CONTRAST+5*, CONTRAST+6!, CONTRAST+28!
RAZI	CONTRAST+16, CONTRAST+17, CONTRAST+18, CONTRAST+19, CONTRAST+28!
RAZSUB	CONTRAST+16, CONTRAST+18, CONTRAST+19, CONTRAST+28!
RAZTAG	CONTRAST+12, CONTRAST+13, CONTRAST+14, CONTRAST+15, CONTRAST+28!
X	MODS+1, MODS+3, MODS0+2, MODS0+5!, ORDPRC!, ORDPRC1, ORDMES1+1!, ORDMES1+2
X1	MODS+2, MODS+3, MODS0+3*, MODS0+5!, MODS1+1
>> XRT0	RASET+11
>> XRTL	RASET+3
>> XRTN	RASET+11*
>> Y	RASET+4, RASET+5, RASET+6, RASET+7, RASET+8, RASET+10, MODS+1, MODS0+1, MODS1+1, ORDMES+1*
>> Y(1	MODS+1, MODS0+3, MODS0+4*
>> Y(2	MODS+1, MODS0+3

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 40

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items