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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Radiology Nuclear Medicine 3 BADISP^RABWORD1  $$ORVR^RAORDU  ASK^RAUTL4  
VA FileMan 3 ^DIR  ^DIWP  ^DIWW  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA CREATE OE/RR PROTOCOL  RAORD1  

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

External References

Name Field # of Occurrence
^DIR CP+11, BADISP+4
^DIWP BADISP+2, DISREA+6
^DIWW BADISP+3
BADISP^RABWORD1 BADISP
$$ORVR^RAORDU CP+3, DISP+10
ASK^RAUTL4 CP+9, CP+12

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
Routine Call
  • DIR
  • Line Location:
    • CP+11
    • BADISP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(75.1 DISP+6, DISP+8
^DIC(9.4 - [#9.4] CP+6, CP2+7
^ORD(101 - [#101] CP+7, CP2+7
^RA(79.1 - [#79.1] CP2DISP+9
^RAMIS(71 - [#71] CP+9, CP1DISP+5
^RAMIS(71.2 - [#71.2] CP2+5, DISP+3
^RAMIS(71.3 - [#71.3] CP+9, CP2+5
^SC - [#44] DISP+9, DISP+10
^TMP($J CP+8!, CP+9*, CP1, Q!, BADISP+2
^UTILITY($J BADISP+2!, DISREA+7, DISREA+9, DISREA+10!

Label References

Name Line Occurrences
CP1 CP+11
CP2 CP1
DISREA DISP+11
Q CP+3, CP+6, CP+7, CP+10, CP+11, CP+12

Naked Globals

Name Field # of Occurrence
^( CP+9, CP2CP2+5, BADISP+2, DISREA+9
^(0 CP+9, CP2+5, CP2+7, DISP+5, DISP+9
^(1 BADISP+2!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DISREA+4~
%1 Q!
D Q!
D0 Q!
DA CP1*, Q!, CP2+5
DI Q+1!
DIC Q!
DIE Q!
DIG Q+1!
DIH Q+1!
DIR Q!, BADISP+4!
DIR("A" CP+11*, BADISP+4*
DIR("B" BADISP+4*
DIR(0 CP+11*, BADISP+4*
DIU Q+1!
DIV Q+1!
DIW DISREA+4~
DIWF BADISP+2*, DISREA+4~, DISREA+6*
DIWI DISREA+4~
DIWL BADISP+2*, DISREA+4~, DISREA+6*, DISREA+7, DISREA+9, DISREA+10
DIWR BADISP+2*, DISREA+4~
DIWT DISREA+4~
DIWTC DISREA+4~
DIWX DISREA+4~
DN DISREA+4~
DQ Q+1!
DR Q!
>> DTOUT BADISP+4
>> DUOUT BADISP+4
I CP+8*, CP+9*, Q!, DISP+3*, BADISP+2*, DISREA+4~, DISREA+7*, DISREA+9*
J Q!, CP2+5*, DISP+2*, BADISP+3
K Q!, CP2+5*
LINES DISREA+4~, DISREA+7*, DISREA+9
>> ORDA CP2+7*
ORDEF CP+7*, Q!
OREA Q!, CP2+3*, CP2+4*, CP2+5*, CP2+6*
ORFL Q!, CP2+3*, CP2+7
ORPKG CP+6*, Q!, CP2+7
ORTXT Q!, CP2+1*, CP2+2!, CP2+7
RA1 CP2+7~*
>> RAACI DISP+3*, DISP+6
>> RABWDX BADISP
>> RABWDX(1 BADISP
>> RACAT DISP+6
RACNT CP+8*, CP+9*, CP+10, CP+11, CP+12, Q!
>> RADR1 BADISP+4*
>> RADR2 BADISP+4*
RADUP CP+12, Q!
RADUP( CP1
RADUP(1 CP+11*
RAERR Q!, CP2*, CP2+1*, CP2+2
RAF1 CP+8*, Q!
RAI CP1*, Q!, DISP+3*
RAILOC Q!, CP2*!, CP2+2!, CP2+3, DISP+9
>> RAIP DISP+7*
>> RALIFN DISP+10
>> RAMOD DISP+1*, DISP+3*, DISP+5
>> RAMOD( DISP+3
>> RAMT DISP+6*
>> RANME DISP+4
>> RAOUT BADISP+4*
RAPAR Q!
>> RAPREG DISP+4*
>> RAPREOP1 DISP+8
>> RAPRI DISP+5
>> RAREAST DISP+11
>> RARU DISP+8*
RASEL Q!
>> RASEX DISP+4
>> RASTOP BADISP+4*
>> RAWHEN DISP+7
U DISP+3, DISP+10, BADISP
X CP+8*, CP+9, CP+10, CP+12, Q!, CP2+4*, CP2+5*, BADISP+2*, DISREA~
Y CP+9*, CP+11, CP1*, Q!, CP2CP2+1, CP2+3, CP2+4, BADISP+4
Z Q!, CP2+4*, DISREA+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All