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
Print Page as PDF
Routine: RAORDU1

Package: Radiology Nuclear Medicine

Routine: RAORDU1


Information

RAORDU1 ;HISC/CAH - AISC/SAW-Utility for Rad/NM Orders Module ;05/15/09 12:56

Source Information

Source file <RAORDU1.m>

Entry Points

Name Comments DBIA/ICR reference
CP ;Create protocols for Rad/Nuc Med in OE/RR Protocol file (#100)
CP1
Q
CP2
DISP ;Display request with defaults
BADISP
DISREA(X) ;this function formats and displays the reason for study for this

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"In order to use this option, your site must be running version 2.5 of the",!,"Order Entry/Results Reporting package."
  • Line Location: CP+3
Function Call: WRITE
  • Prompt: !,$C(7),"There is no entry for the Radiology/Nuclear Medicine package in your Package",!,"file (#9.4), unable to proceed. Contact your site manager."
  • Line Location: CP+6
Function Call: WRITE
  • Prompt: !,$C(7),"You do not have a default Radiology/Nuclear Medicine protocol in your",!,"Protocol file (#101), unable to continue. Contact your site manager."
  • Line Location: CP+7
Function Call: WRITE
  • Prompt: !!?10,"Create an OE/RR Protocol from a Radiology/Nuclear Medicine",!?10,"Common Procedure",!
  • Line Location: CP+8
Function Call: WRITE
  • Prompt: !,$C(7),"The Common Procedures file does not have any entries from which to choose."
  • Line Location: CP+10
Function Call: WRITE
  • Prompt: !!,"Processing the ",$P(^RAMIS(71,+Y,0),"^")," procedure.",!
  • Line Location: CP1+0
Function Call: WRITE
  • Prompt: !,$C(7),"You must enter an 'Imaging Location' before this procedure can be processed",!,"as an orderable item in OE/RR."
  • Line Location: CP2+0
Function Call: WRITE
  • Prompt: !,$C(7),"You must enter a 'Name of Ordeable Item' before this procedure can be processed",!,"as an orderable item in OE/RR."
  • Line Location: CP2+1
Function Call: WRITE
  • Prompt: !!,J
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !?10,"Patient: ",RANME
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: " Pregnant at time of order entry: ",$S(RAPREG="y":"YES",RAPREG="u":"UNKNOWN",RAPREG="n":"NO",1:"")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !?8,"Procedure: ",$S($D(^RAMIS(71,RAPRI,0)):$P(^(0),"^"),1:"UNKNOWN"),!?2,"Proc. Modifiers: ",RAMOD
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !?9,"Category: ",RACAT,?49,"Mode of Transport: ",$P(RAMT,"^",2)
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !," Desired Date: ",RAWHEN,?46,"Isolation Procedures: ",$S(RAIP="y":"YES",1:"NO")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !," Request Urgency: ",$S($D(RARU):$P($P(^DD(75.1,6,0),RARU_":",2),";"),1:"ROUTINE"),?46,"Scheduled for Pre-op: ",$S($D(RAPREOP1):"YES",1:"NO")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: !,"Submit Request To: ",$S($D(^RA(79.1,+RAILOC,0)):$S($D(^SC(+$P(^(0),"^"),0)):$P(^(0),"^"),1:"Unknown"),1:"Unknown")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: ?46,"Nature of order: SVC CORRECTION"
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !,J
  • Line Location: BADISP+3
Function Call: WRITE
  • Prompt: !," Reason for Study: "
  • Line Location: DISREA+7
Info |  Source |  Entry Points |  Interaction Calls