Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: RAUTL2

Package: Radiology Nuclear Medicine

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

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: 43

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

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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

Naked Globals

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*

Marked Items

Name Field # of Occurrence
$T( RASET+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All