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

Package: Radiology Nuclear Medicine

Routine: RAORDR


Information

RAORDR ;ABV/SCR/MKN - Refer Pending/Hold Requests ;4/1/2018 11:28 AM

Source Information

Source file <RAORDR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  ^DIC  $$GET1^DIQ  ^DIR  ^DIWP  
Kernel 2 $$NOW^XLFDT  $$TRIM^XLFSTR  
Order Entry Results Reporting 1 CMT^ORQQCN2  
Radiology Nuclear Medicine 1 $$MAKECONS^RAORDR1  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Radiology Nuclear Medicine 2 RA ORDERREF  RAORDR2  

Entry Points

Name Comments DBIA/ICR reference
JUSTSUB(PARENT,LINE) ;
GETMAIN ;Ask the main questions and fill in the answers at tag GETJSUB
HDR ; header
GETINFO(RAARAY) ;this function collects information that would be collected from a SEOC in Consult Toolbox
GETJSUB ;
HELP(MSG) ;
JUSTMAIN(OPT,LINE) ;
GETPAT ;
BRKLINE(OUT,LINE,LGTH) ;Break line down into 80 character lines in OUT
AUTOHOLD(ORIFN) ;
ADDEXPL ;
JUSTQ ;Justification for Community Care prompts
GETORD ;
ENT ;
ADDEXPLS ;
SELORDER ;
KILL ;
SETJUST2 ;Build RAJUST

External References

Name Field # of Occurrence
DD^%DT SELORDER+7, SELORDER+10
^DIC GETPAT+3
$$GET1^DIQ GETPAT+24, SELORDER+17
^DIR GETPAT+7, SELORDER+24, GETMAIN+5, GETJSUB+13, GETJSUB+28, GETJSUB+38
^DIWP BRKLINE+3
CMT^ORQQCN2 GETPAT+30, GETPAT+36
$$MAKECONS^RAORDR1 GETPAT+21
DEM^VADPT GETORD+2
$$NOW^XLFDT GETPAT+29, GETPAT+35
$$TRIM^XLFSTR BRKLINE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: GETPAT+9
Function Call: WRITE
  • Prompt: !,"No Imaging orders found for this patient",!
  • Line Location: GETPAT+17
Function Call: WRITE
  • Prompt: !!,"Consult with UCID: "_$S(RAUCID]"":RAUCID,1:"(Not known)")," has been created",!
  • Line Location: GETPAT+37
Function Call: WRITE
  • Prompt: !!,"**NO Consult created**",!
  • Line Location: GETPAT+38
Function Call: WRITE
  • Prompt: !?(80-$L(RAHDR)/2),RAHDR
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?35,"SSN",?47,"PROCEDURE"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?10,"DATE DESIRED",?25,"DATE ORDERED",?55,$S(RAREQSTA=3:"HOLD DT",1:"ORDERING PROVIDER")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?10,"IMAGING LOCATION",?50,"REQUEST STATUS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,QQ
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"You selected number "_Y
  • Line Location: SELORDER+29
Function Call: WRITE
  • Prompt: !!,"Justification for Community Care"
  • Line Location: GETMAIN+2
Function Call: WRITE
  • Prompt: !!,$P(RAJUST(RAANS),U)
  • Line Location: GETJSUB+19
Function Call: WRITE
  • Prompt: !!,MSG
  • Line Location: HELP+1
Routine Call
  • DIC
  • Line Location:
    • GETPAT+3
Routine Call
  • DIR
  • Line Location:
    • GETPAT+7
    • SELORDER+24
    • GETMAIN+5
    • GETJSUB+13
    • GETJSUB+28
    • GETJSUB+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^DPT - [#2] Classic Fileman Calls
^RAO(75.1 - [#75.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] AUTOHOLD+8
^OR(100 - [#100] GETPAT+23, AUTOHOLD+6
^RA(79.1 - [#79.1] SELORDER+16
^RAMIS(71 - [#71] SELORDER+14
^RAO(75.1 - [#75.1] GETPAT+11, GETPAT+12, GETPAT+13, SELORDER+5
^SC - [#44] SELORDER+16
^TMP("RAORDR" GETPAT+2!
^UTILITY($J BRKLINE+3!, BRKLINE+4, BRKLINE+5!
^VA(200 - [#200] SELORDER+15

Label References

Name Line Occurrences
$$AUTOHOLD GETPAT+13
$$JUSTMAIN SETJUST2+4
$$JUSTSUB JUSTMAIN+5
ADDEXPL GETPAT+28
ADDEXPLS GETPAT+34
BRKLINE ADDEXPL+4, ADDEXPLS+5, ADDEXPLS+7
GETJSUB GETJSUB+33
GETMAIN GETINFO+5, GETJSUB+3, GETJSUB+29
GETORD GETPAT+19
GETPAT GETPAT+7, GETPAT+17, GETPAT+20, GETPAT+40
HDR SELORDER+2
KILL GETPAT+39
SELORDER SELORDER+26
SETJUST2 GETINFO+4

Naked Globals

Name Field # of Occurrence
^(0 SELORDER+14, SELORDER+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT BRKLINE+1~, BRKLINE+3*, BRKLINE+4*
DFN GETORD+1~, GETORD+2*
DIC ENT+2~, GETPAT+2!, GETPAT+3*!, KILL+1!
DIC(0 GETPAT+3*
DIR ENT+2~, GETPAT+7!, KILL+1!, SELORDER+19!, SELORDER+25!, GETINFO+1~, GETMAIN+3!, GETMAIN+8!, GETJSUB+10!, GETJSUB+20!
, GETJSUB+35!
DIR("?" GETJSUB+11*, GETJSUB+36*
DIR("??" GETJSUB+12*, GETJSUB+37*
DIR("A" SELORDER+21*, SELORDER+22*, GETJSUB+10*, GETJSUB+27*, GETJSUB+35*
DIR(0 GETPAT+7*, SELORDER+20*, SELORDER+23*, GETMAIN+3*, GETMAIN+4*, GETJSUB+10*, GETJSUB+20*, GETJSUB+21*, GETJSUB+26*, GETJSUB+35*
DIRUT ENT+2~, GETPAT+2!, GETPAT+4, KILL+1!, SELORDER+19!, SELORDER+28, GETINFO+1~, GETMAIN+6, GETMAIN+8!
DIWL BRKLINE+1~, BRKLINE+3*
DIWR BRKLINE+1~, BRKLINE+3*
DTOUT ENT+2~, GETJSUB+14, GETJSUB+29, GETJSUB+39
DUOUT ENT+2~, GETJSUB+14, GETJSUB+29, GETJSUB+39
I ADDEXPL+1~, ADDEXPL+5*, ADDEXPLS+1~, ADDEXPLS+6*, ADDEXPLS+8*, SETJUST2+1~, SETJUST2+4*, GETMAIN+3*, BRKLINE+1~, BRKLINE+4*
IOF HDR+1
J JUSTMAIN+1~, JUSTMAIN+3*, JUSTMAIN+5*, JUSTSUB+1~, JUSTSUB+2*
L ADDEXPL+1~, ADDEXPL+4, ADDEXPLS+1~, ADDEXPLS+5, ADDEXPLS+7
L( ADDEXPL+5, ADDEXPLS+6, ADDEXPLS+8
LAST SETJUST2+1~, SETJUST2+2*
LGTH BRKLINE~, BRKLINE+3
LINE JUSTMAIN~, JUSTMAIN+2, JUSTMAIN+3, JUSTSUB~, JUSTSUB+2, BRKLINE~, BRKLINE+2*, BRKLINE+3
MSG HELP~, HELP+1
OPT SETJUST2+4*, JUSTMAIN~, JUSTMAIN+3, JUSTMAIN+4, JUSTMAIN+5, JUSTMAIN+6, JUSTMAIN+7, JUSTMAIN+8, JUSTSUB+1~, JUSTSUB+2*
OR123 AUTOHOLD+4~
ORACT AUTOHOLD+4~, AUTOHOLD+6*
ORCCFND AUTOHOLD+4~, AUTOHOLD+6*, AUTOHOLD+8*, AUTOHOLD+9
ORIFN AUTOHOLD~, AUTOHOLD+5, AUTOHOLD+6
OUT BRKLINE~
OUT( BRKLINE+4*
PARENT JUSTSUB~, JUSTSUB+2, JUSTSUB+3, JUSTSUB+4, JUSTSUB+5, JUSTSUB+6
QQ ENT+2~, KILL+1!, HDR+6, GETORD+4*
RA123IEN ENT+2~, GETPAT+23*, GETPAT+24*, GETPAT+25, GETPAT+30, GETPAT+31, GETPAT+36, GETPAT+38, KILL+1!
RA44NA ENT+2~, KILL+1!
RAANS ENT+2~, GETPAT+26, GETPAT+27, GETPAT+28, GETPAT+32, GETPAT+33, GETPAT+34, KILL+1!, SETJUST2+2*, GETMAIN+10*
, GETJSUB+3, GETJSUB+5, GETJSUB+6, GETJSUB+7, GETJSUB+8, GETJSUB+19, GETJSUB+20, GETJSUB+21, GETJSUB+22, GETJSUB+23
, GETJSUB+24, GETJSUB+25, GETJSUB+27, GETJSUB+41
RAANS2 ENT+2~, GETPAT+25, GETPAT+26, GETPAT+27, GETPAT+28, GETPAT+31, ADDEXPL+2, KILL+1!, SETJUST2+2*, GETJSUB+3*
, GETJSUB+30*, GETJSUB+33, GETJSUB+34, GETJSUB+35, GETJSUB+36, GETJSUB+37, GETJSUB+40, GETJSUB+41
RAARAY ENT+2~, KILL+1!, GETINFO~
RAARAY("JUSTI FICATION EXPLANATION" , GETJSUB+16*, FICATION SUBMENU EXPLANATION" , GETJSUB+42*, FICATION SUBMENU SELECTION" , GETJSUB+41*
RAARAY("JUSTIFICATION" GETMAIN+7*
RAARAY("THIRDPARTY" GETINFO+7*
RAARAY("TRAUMA" GETINFO+8*
RAARAY("TYPEOFSERVICE" GETINFO+6*
RAARRAY ENT+2~, ENT+9*, GETPAT+2!, KILL+1!
RAARRAY( GETPAT+16*, GETPAT+21, SELORDER+3, SELORDER+22
RAARRAY(1 GETPAT+17
RACDW ENT+3~, KILL+1!
RACDW( GETPAT+26, GETPAT+27, GETPAT+28, GETPAT+32, GETPAT+33, GETPAT+34, GETJSUB+6*, GETJSUB+23*, GETJSUB+24
RACDWN ENT+3~, KILL+1!, GETJSUB+5*, GETJSUB+6, GETJSUB+7, GETJSUB+8, GETJSUB+22*, GETJSUB+23, GETJSUB+24, GETJSUB+25
RACIENS ENT+3~, ENT+9*, KILL+1!, KILL+5*, SELORDER+19*
RACNT ENT+3~, KILL+1!
RACOM ENT+3~, GETPAT+30, GETPAT+36, KILL+1!
RACOM( GETPAT+27*, GETPAT+33*, ADDEXPL+3*, ADDEXPL+5*, ADDEXPLS+3, ADDEXPLS+4*, ADDEXPLS+6*, ADDEXPLS+8*
RACOMCT ENT+3~, GETPAT+26*, GETPAT+27*, GETPAT+32*, GETPAT+33*, ADDEXPL+3, ADDEXPL+5*, ADDEXPLS+3, ADDEXPLS+4, ADDEXPLS+6*
, ADDEXPLS+8*, KILL+1!
RACOUNT ENT+3~, GETPAT+1*, GETPAT+10*, GETPAT+16*, GETPAT+18*, KILL+2!, GETORD+3*, SELORDER+3*, SELORDER+4, SELORDER+12
, SELORDER+22, GETINFO+1~
RADD ENT+3~, KILL+2!, SELORDER+8*, SELORDER+15
RADFN ENT+3~, GETPAT+6*, GETPAT+11, KILL+2!, GETORD+2
RADFNARY GETORD+1~
RADT ENT+3~, GETPAT+29*, GETPAT+30, GETPAT+35*, GETPAT+36, KILL+2!, SELORDER+5*, SELORDER+6
RAEND ENT+3~, KILL+2!
RAEOS GETPAT+1!, GETPAT+11, SELORDER+2
RAERR ENT+4~, GETPAT+30, GETPAT+36, KILL+2!
RAEXPL ENT+4~, GETPAT+34, ADDEXPLS+2, KILL+2!, GETJSUB+2!, GETJSUB+15*, GETJSUB+16
RAEXPL( GETPAT+25, GETPAT+28, ADDEXPL+2, GETJSUB+24*, GETJSUB+25*, GETJSUB+33, GETJSUB+34, GETJSUB+35, GETJSUB+36, GETJSUB+37
, GETJSUB+40*
RAF ENT+4~, GETPAT+18*, KILL+2!, SELORDER+4*, SELORDER+20, SELORDER+26*
RAGMRC1 GETINFO+1~
RAHDR ENT+4~, KILL+2!, HDR+2, SELORDER+1*
RAI ENT+4~, GETPAT+26*, GETPAT+27, GETPAT+28, GETPAT+32*, GETPAT+33, GETPAT+34, KILL+2!
RAILOC ENT+4~, ENT+9*, KILL+2!, KILL+5*
RAILOC1 ENT+4~, KILL+2!
RAJUST ENT+4~, KILL+2!, GETINFO+3*
RAJUST( JUSTMAIN+4*, JUSTMAIN+6*, JUSTMAIN+7*, JUSTMAIN+8*, JUSTSUB+3*, JUSTSUB+4*, JUSTSUB+5*, JUSTSUB+6*, GETMAIN+3, GETMAIN+10
, GETJSUB+3, GETJSUB+5, GETJSUB+6, GETJSUB+7, GETJSUB+8, GETJSUB+19, GETJSUB+20, GETJSUB+21, GETJSUB+22, GETJSUB+23
, GETJSUB+25, GETJSUB+27, GETJSUB+41
RAJUST2 ENT+4~, KILL+2!
RAL GETMAIN+1~, GETMAIN+3*
RALADT GETPAT+15*, GETORD+1~, SELORDER+5*, SELORDER+9
RALOCNM ENT+4~, KILL+2!
RAMAND ENT+4~, GETJSUB+8*, GETJSUB+10, GETJSUB+34*, GETJSUB+35
RAMORE GETORD+1~, SELORDER+3*, SELORDER+22*, SELORDER+26, SELORDER+27
RAN ENT+5~, KILL+2!
RANOW ENT+5~, KILL+2!
RANOW2 ENT+5~, KILL+3!
RAO ENT+5~, KILL+3!, SELORDER+3*, SELORDER+5, SELORDER+17
RAO(0 GETPAT+13*, GETPAT+14, GETPAT+15
RAOBEG ENT+5~, KILL+3!
RAOEND ENT+5~, KILL+3!
RAOIFN ENT+5~, GETPAT+11*, GETPAT+12, GETPAT+13, GETPAT+16, KILL+3!
RAOPHY ENT+5~, GETPAT+14*, KILL+3!, SELORDER+15
RAORD0 ENT+5~, KILL+3!, SELORDER+5*
RAORDIEN ENT+5~, GETPAT+21*, GETPAT+23, KILL+3!
RAPOP ENT+5~, KILL+3!
RAPR ENT+6~, KILL+3!, SELORDER+5*, SELORDER+14
RAPRTYDT ENT+6~, KILL+3!, SELORDER+11*, SELORDER+15
RAQUES ENT+6~, KILL+3!, GETJSUB+7*, GETJSUB+9, GETJSUB+10, GETJSUB+11, GETJSUB+12
RAQUIT ENT+6~, GETPAT+4*, GETPAT+5, GETPAT+8*, KILL+3!, GETORD+1~, SELORDER+3*, SELORDER+18*, GETINFO+3*, GETMAIN+6*
, GETMAIN+7, GETMAIN+9
RAREA GETORD+1~
RAREASON ENT+6~, KILL+3!, GETMAIN+10*
RAREQSTA ENT+6~, GETPAT+11*, GETPAT+13, KILL+4!, HDR+4
RARES ENT+6~, GETPAT+18*, GETPAT+20, KILL+4!, SELORDER+30*
RARPT GETINFO+1~, GETINFO+3*, GETJSUB+2*, GETJSUB+3, GETJSUB+14*, GETJSUB+32*, GETJSUB+33, GETJSUB+39*
RASELOC ENT+6~, GETPAT+1*, KILL+4!, SELORDER+5*, SELORDER+16
RASTART ENT+6~, KILL+4!
RASUB ENT+6~, KILL+4!, GETJSUB+20*, GETJSUB+21, GETJSUB+22, GETJSUB+23, GETJSUB+24, GETJSUB+25
RAT ENT+7~, KILL+4!, SELORDER+4*, SELORDER+20, SELORDER+22
RAUCID ENT+7~, GETPAT+23*, GETPAT+24*, GETPAT+37, KILL+4!
RET JUSTMAIN+1~, JUSTMAIN+2*, JUSTMAIN+3*, JUSTMAIN+9, JUSTSUB+1~, JUSTSUB+2*, JUSTSUB+7
U GETPAT+13, GETPAT+14, GETPAT+15, GETPAT+27, GETPAT+28, GETPAT+33, GETPAT+34, ADDEXPL+2, SELORDER+5, SELORDER+14
, SELORDER+15, SELORDER+16, SELORDER+23, GETMAIN+3, GETMAIN+7, GETJSUB+6, GETJSUB+19, GETJSUB+23, GETJSUB+24, GETJSUB+27
, GETJSUB+40, GETJSUB+41
VADM GETORD+1~, GETORD+2!
VADM(1 SELORDER+12
VADM(2 SELORDER+13
X ENT+7~, ADDEXPL+1~, ADDEXPL+2*, ADDEXPL+3, ADDEXPL+4, ADDEXPLS+1~, ADDEXPLS+2*, ADDEXPLS+4, ADDEXPLS+5, ADDEXPLS+7
, KILL+4!, AUTOHOLD+4~, AUTOHOLD+6*, AUTOHOLD+7*, AUTOHOLD+8*, SETJUST2+1~, SETJUST2+4*, JUSTMAIN+1~, JUSTMAIN+3*, JUSTMAIN+4
, JUSTMAIN+5, JUSTMAIN+6, JUSTMAIN+7, JUSTMAIN+8, JUSTSUB+1~, JUSTSUB+2*, JUSTSUB+3, JUSTSUB+4, JUSTSUB+5, JUSTSUB+6
, GETMAIN+3*, BRKLINE+1~, BRKLINE+3*
Y ENT+7~, GETPAT+5, GETPAT+6, GETPAT+7, GETPAT+8*, GETPAT+21, KILL+4!, SELORDER+6*, SELORDER+8, SELORDER+9*
, SELORDER+11, SELORDER+26, SELORDER+27, SELORDER+29, SELORDER+30, GETINFO+1~, GETMAIN+7, GETMAIN+10, GETJSUB+15, GETJSUB+30
, GETJSUB+40, GETJSUB+41, GETJSUB+42
Y(0 GETMAIN+7

Marked Items

Name Field # of Occurrence
$T(JUSTQ+I SETJUST2+4
$T(JUSTQ+J JUSTMAIN+3, JUSTSUB+2
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