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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RAORDR1

Package: Radiology Nuclear Medicine

Routine: RAORDR1


Information

RAORDR1 ;ABV/SCR/MKN - Refer Pending/Hold Requests continued ; Apr 14, 2025@11:55:42

Source Information

Source file <RAORDR1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 (,$$FIND1,FIND)^DIC  ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Order Entry Results Reporting 3 GETDLG^ORCD  (SAVE,SEND)^ORWDX  VALID^ORWDXA  
Radiology Nuclear Medicine 2 ($$GETILOC,GETREAS)^RAORDR2  ^RAORDU  

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

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAORDR  

Entry Points

Name Comments DBIA/ICR reference
MAKECONS(RAOIFN) ;Create Consult using Order Dialog GMRCOR CONSULT
HOLD(RAOIFN,RAORIEN,RAOREA) ;p196 - put radiology order on hold set special comment.
USRPRMT() ;Prompt for consult/request service -p161 REMOVE!
CHECKDLG() ;
UPORDLG(RADLGNA,RADATA) ;Stuff answer into Order Dialog array ORDIALOG
DLGLST ;
ERROR(RAERR) ;
GETDIAG(RAORDIEN) ;RETURN POINTER TO #80 FROM ORDER ENTRY
MAMMO() ;p223 - modified
GETCON(RAOIEN,RAITYP,RAIL) ;p223 - get consult title
SPECPR(RAOIEN,RAIL) ;p223 - Check if procedure has a special CC Title mapped
MAP(RAIN) ;

External References

Name Field # of Occurrence
^DIC MAKECONS+8, MAKECONS+28, MAKECONS+63, CHECKDLG+3
$$FIND1^DIC GETCON+10, SPECPR+18, SPECPR+37
FIND^DIC MAKECONS+55
^DIE MAKECONS+101
$$GET1^DIQ HOLD+3, GETDIAG+6, GETCON+11, SPECPR+8, SPECPR+9, SPECPR+19, SPECPR+28, SPECPR+29, SPECPR+38
GETS^DIQ MAKECONS+16, MAKECONS+70, SPECPR+5
^DIR USRPRMT+1, MAMMO+4
GETDLG^ORCD MAKECONS+10
SAVE^ORWDX MAKECONS+90
SEND^ORWDX MAKECONS+97
VALID^ORWDXA MAKECONS+95
$$GETILOC^RAORDR2 MAKECONS+35, MAKECONS+38
GETREAS^RAORDR2 MAKECONS+81
^RAORDU HOLD+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,RAERR
  • Line Location: ERROR+1
Function Call: WRITE
  • Prompt: !!,"Please select the type of Mammography order from the following options:"
  • Line Location: MAMMO+2
Routine Call
  • DIC
  • Line Location:
    • MAKECONS+8
    • MAKECONS+28
    • MAKECONS+63
    • CHECKDLG+3
Routine Call
  • DIC
  • Line Location:
    • GETCON+10
    • SPECPR+18
    • SPECPR+37
Routine Call
  • DIC
  • Line Location:
    • MAKECONS+55
Routine Call
  • DIE
  • Line Location:
    • MAKECONS+101
Routine Call
  • DIR
  • Line Location:
    • USRPRMT+1
    • MAMMO+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GETS^DIQ
^ORD(101.43 - [#101.43] FIND^DIC
^GMR(123 - [#123] GET1^DIQ
^RAMIS(71 - [#71] GET1^DIQ
^RAO(75.1 - [#75.1] GETS^DIQ
79.11 FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] MAKECONS+94, MAKECONS+102, HOLD+2
^RA(71.1235 - [#71.1235] GETCON+7, GETCON+8, SPECPR+12, SPECPR+13, SPECPR+15, SPECPR+16, SPECPR+31, SPECPR+32, SPECPR+34, SPECPR+35
^RA(75.2 - [#75.2] MAKECONS+105
^RA(79.1 - [#79.1] MAKECONS+38, MAKECONS+43
^RAMIS(71 - [#71] SPECPR+26, SPECPR+27
^XTMP("ORPTLK-" MAKECONS+89, MAKECONS+91

Label References

Name Line Occurrences
$$CHECKDLG MAKECONS+11
$$GETCON MAKECONS+43
$$MAMMO GETCON+6
$$SPECPR GETCON+4
ERROR MAKECONS+8, MAKECONS+11, MAKECONS+28, MAKECONS+36, MAKECONS+39, MAKECONS+45, MAKECONS+60, MAKECONS+63, MAKECONS+72, MAKECONS+89
, MAKECONS+94, CHECKDLG+3, CHECKDLG+5
HOLD MAKECONS+105
UPORDLG MAKECONS+62, MAKECONS+65, MAKECONS+66, MAKECONS+67, MAKECONS+68, MAKECONS+73, MAKECONS+74, MAKECONS+75

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MAKECONS+3~, MAKECONS+99*
DA(1 MAKECONS+99*
DFN MAKECONS+3~, MAKECONS+17*
DIC MAKECONS+3~, MAKECONS+8!*, MAKECONS+28!*, MAKECONS+63!*, CHECKDLG+3!*
DIE MAKECONS+3~, MAKECONS+99*
DIR USRPRMT+1~, MAMMO+1~
DIR(0 USRPRMT+1*, MAMMO+3*
DIRUT USRPRMT+1~, MAMMO+1~, MAMMO+5
DR MAKECONS+3~, MAKECONS+100*
DUZ MAKECONS+95
IENS HOLD+1~
ORDIALOG MAKECONS+3~, MAKECONS+87!*, MAKECONS+90
ORDIALOG( MAKECONS+80*, MAKECONS+83, MAKECONS+84, MAKECONS+85, CHECKDLG+5, UPORDLG+2*
ORDIALOG("ORCHECK" MAKECONS+76*
ORDIALOG("ORTS" MAKECONS+77*
ORDIALOG("WP" MAKECONS+86
>> RAARAY("TYPEOFSERVICE" MAMMO+6*
RACCC GETCON+2~, GETCON+8*, GETCON+10, SPECPR+3~, SPECPR+16*, SPECPR+18, SPECPR+35*, SPECPR+37
RACPT SPECPR+9*, SPECPR+15, SPECPR+23~, SPECPR+28*, SPECPR+34
RADATA UPORDLG~, UPORDLG+2
RADES SPECPR+23~, SPECPR+27*, SPECPR+28, SPECPR+29
RADFN MAKECONS+3~, MAKECONS+17*, MAKECONS+89, MAKECONS+91
RADIAG GETDIAG+2~, GETDIAG+6*, GETDIAG+7*, GETDIAG+8
RADLG MAKECONS+3~, MAKECONS+7*, MAKECONS+8, MAKECONS+90
RADLGNA UPORDLG~, UPORDLG+2
RADPRN SPECPR+23~, SPECPR+29*, SPECPR+30*, SPECPR+31, SPECPR+32
RADTDES MAKECONS+3~, MAKECONS+25*, MAKECONS+75
RAERR ERROR~, ERROR+1, GETDIAG+2~, GETDIAG+7
RAERR("DIERR" GETDIAG+7
RAFDA HOLD+1~
RAFIELDS MAKECONS+3~, MAKECONS+15*, MAKECONS+16
RAFILE MAKECONS+3~, MAKECONS+13*, MAKECONS+16, GETDIAG+2~, GETDIAG+3*, GETDIAG+6
RAFLD GETDIAG+2~, GETDIAG+5*, GETDIAG+6
RAI CHECKDLG+1~, CHECKDLG+2*, GETCON+2~, GETCON+7*, GETCON+8, SPECPR+3~, SPECPR+13*, SPECPR+15, SPECPR+16, SPECPR+32*
, SPECPR+34, SPECPR+35, MAP+1~, MAP+3*
RAIEN GETCON+2~, GETCON+9*, GETCON+10, SPECPR+3~, SPECPR+17*, SPECPR+18, SPECPR+36*, SPECPR+37
RAIENS MAKECONS+3~, MAKECONS+14*, MAKECONS+16, MAKECONS+17, MAKECONS+18, MAKECONS+19, MAKECONS+20, MAKECONS+21, MAKECONS+22, MAKECONS+23
, MAKECONS+24, MAKECONS+25, MAKECONS+26, MAKECONS+27, GETDIAG+2~, GETDIAG+4*, GETDIAG+6, GETCON+2~, GETCON+10*, GETCON+11
, SPECPR+3~, SPECPR+18*, SPECPR+19, SPECPR+37*, SPECPR+38
RAIL GETCON~, GETCON+4, GETCON+9, GETCON+10, SPECPR~, SPECPR+17, SPECPR+18, SPECPR+36, SPECPR+37
RAIN MAP~, MAP+3
RAIT MAMMO+1~, MAMMO+8*, MAMMO+9
RAITYP MAKECONS+5~, MAKECONS+20*, MAKECONS+35, MAKECONS+38, GETCON~, GETCON+6*, GETCON+7
RAJ MAKECONS+56~*, MAKECONS+57
RAMAM MAMMO+1~
RAMAP MAKECONS+3~, MAKECONS+43*, MAKECONS+44, MAKECONS+45, MAKECONS+47, MAKECONS+55, MAKECONS+57, MAKECONS+60, USRPRMT+2*, USRPRMT+3
RAN MAKECONS+3~, MAKECONS+83*, MAKECONS+84, MAKECONS+85
RAN1 MAKECONS+3~, MAKECONS+84*, MAKECONS+85*
RANEWORD MAKECONS+3~, MAKECONS+87
RANEWORD( MAKECONS+84*, MAKECONS+85*, MAKECONS+86*
RAO MAKECONS+3~, MAKECONS+95, MAKECONS+97
RAO( MAKECONS+71
>> RAOI MAKECONS+55
>> RAOI("DILIST" MAKECONS+56, MAKECONS+57
RAOIEN MAKECONS+3~, GETCON~, GETCON+4, SPECPR~, SPECPR+2, SPECPR+5, SPECPR+6
RAOIENS SPECPR+3~, SPECPR+6*, SPECPR+7, SPECPR+8, SPECPR+9, SPECPR+24
RAOIFN MAKECONS~, MAKECONS+14, MAKECONS+43, MAKECONS+105, HOLD~
RAOILOC MAKECONS+5~, MAKECONS+21*, MAKECONS+35*, MAKECONS+36, MAKECONS+38*, MAKECONS+39, MAKECONS+43
RAORC MAKECONS+5~, HOLD+2*, HOLD+3*, HOLD+4*
RAORD MAKECONS+5~, MAKECONS+18*
RAORDG MAKECONS+3~, MAKECONS+29*, MAKECONS+90
RAORDIEN MAKECONS+4~, MAKECONS+18*, MAKECONS+70, MAKECONS+71, MAKECONS+72, MAKECONS+92*, MAKECONS+93, MAKECONS+94, MAKECONS+95, MAKECONS+96
, MAKECONS+99, MAKECONS+102, MAKECONS+105, MAKECONS+107, HOLD+2, GETDIAG~, GETDIAG+4
RAORDITM MAKECONS+4~, MAKECONS+57*, MAKECONS+60, MAKECONS+62
RAORDLOC MAKECONS+4~, MAKECONS+27*
RAORDS MAKECONS+4~, MAKECONS+96!, MAKECONS+97
RAORDS(1 MAKECONS+96*
RAORDTXT MAKECONS+4~, MAKECONS+71*, MAKECONS+72
RAOREA MAKECONS+4~, MAKECONS+5~, MAKECONS+105*, HOLD~
RAORGTX MAKECONS+4~
RAORGTX( CHECKDLG+6*, UPORDLG+2
RAORGTX("OR G TX WORD PROCESSING 1" , MAKECONS+79
RAORIEN HOLD~
RAORIT MAKECONS+4~, MAKECONS+9*, MAKECONS+10, MAKECONS+90
RAORL MAKECONS+4~, MAKECONS+26*, MAKECONS+90, MAKECONS+97
RAORNP MAKECONS+4~, MAKECONS+24*, MAKECONS+90, MAKECONS+97
RAORPRE MAKECONS+4~, MAKECONS+22*
RAORPREG MAKECONS+4~, MAKECONS+23*
RAORTYP MAKECONS+4~, MAKECONS+19*, MAKECONS+43
RAORVP MAKECONS+5~, MAKECONS+17*, MAKECONS+90, MAKECONS+97
RAORWANT MAKECONS+5~, MAKECONS+25*
RAOSTS HOLD+1~, HOLD+5*
RAPAR SPECPR+23~, SPECPR+24*, SPECPR+26, SPECPR+27
RAPRN SPECPR+3~, SPECPR+7*, SPECPR+11*, SPECPR+12, SPECPR+13
RAPROC SPECPR+3~
RAPROC( SPECPR+7, SPECPR+8, SPECPR+9, SPECPR+24
RAPROVDX MAKECONS+6~, MAKECONS+47*, MAKECONS+51, MAKECONS+74
RAPROVTX MAKECONS+6~, MAKECONS+51*, MAKECONS+73
RAPTYP SPECPR+3~, SPECPR+8*, SPECPR+12, SPECPR+22
RAQUIT MAKECONS+5~, MAKECONS+81
RAR911 MAKECONS+6~, MAKECONS+49*, MAKECONS+51
RARES CHECKDLG+1~, CHECKDLG+2*, CHECKDLG+3*, CHECKDLG+5*, CHECKDLG+7, MAMMO+1~, MAMMO+5*, MAP+1~, MAP+2*, MAP+3*
, MAP+4
RARET MAKECONS+5~, MAKECONS+90
RARET(1 MAKECONS+92
RARSLT GETCON+2~, GETCON+3*, GETCON+4*, GETCON+5, GETCON+11*, GETCON+12, SPECPR+3~, SPECPR+4*, SPECPR+19*, SPECPR+27
, SPECPR+38*, SPECPR+43
RARTRN MAKECONS+5~
RARTRN( MAKECONS+17, MAKECONS+18, MAKECONS+19, MAKECONS+20, MAKECONS+21, MAKECONS+22, MAKECONS+23, MAKECONS+24, MAKECONS+25, MAKECONS+26
, MAKECONS+27
RATOM MAMMO+1~, MAMMO+7*, MAMMO+8
RAUCID MAKECONS+5~, HOLD+3*, HOLD+4
RAURG MAKECONS+5~, MAKECONS+64*, MAKECONS+65
RAWPN MAKECONS+5~, MAKECONS+79*, MAKECONS+80
RAX MAKECONS+5~, MAKECONS+86*, MAKECONS+92*, CHECKDLG+1~, CHECKDLG+2*, CHECKDLG+3, CHECKDLG+5, CHECKDLG+6, UPORDLG+1~, UPORDLG+2*
, SPECPR+23~, SPECPR+26*, SPECPR+27, MAP+1~, MAP+3*
RAY MAKECONS+5~, CHECKDLG+1~, CHECKDLG+4*, CHECKDLG+5, CHECKDLG+6
RAZ0189 MAKECONS+6~, MAKECONS+50*, MAKECONS+51
RAZ122 MAKECONS+6~, MAKECONS+48*, MAKECONS+51
U MAKECONS+57, MAKECONS+92, GETCON+8, SPECPR+15, SPECPR+16, SPECPR+34, SPECPR+35
VADM MAKECONS+5~
X MAKECONS+5~, MAKECONS+8*, MAKECONS+28*, MAKECONS+63*, CHECKDLG+1~, CHECKDLG+3*
Y MAKECONS+5~, MAKECONS+8, MAKECONS+9, MAKECONS+28, MAKECONS+29, MAKECONS+63, MAKECONS+64, USRPRMT+1~, CHECKDLG+1~, CHECKDLG+3
, CHECKDLG+4, MAMMO+1~, MAMMO+6, MAMMO+7
Y(0 USRPRMT+2

Marked Items

Name Field # of Occurrence
$T(DLGLST+RAI CHECKDLG+2
$T(ORDITEMS+RAI MAP+3
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 |  Local Variables |  Marked Items  | All