Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
RASET ;P47 Check SSAN and use ADC or ADC1 accordingly:
XREF
XREF1
Q
MODS ;get procedure modifiers
MODS0 ;falls through from MODS; get CPT modifiers
MODS1 ;builds procedure modifier string (called from MODS above)
ORDPRC
ORDPRC1
CHKUSR ; Check if valid user
ORDMES
ORDMES1
CHKSP
KILLVAR ;This call will clean up possible variables left after execution
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

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
  • Variable: RAX
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call