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

Package: Radiology Nuclear Medicine

Routine: RAORD


Information

RAORD ;HISC/CAH,FPT,GJC,AISC/RMO - Rad/NM Order Entry Main Menu ; Dec 11, 2023@09:59:17

Source Information

Source file <RAORD.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Radiology Nuclear Medicine 7 ^RAORD5  CRCHK^RAORD6  ^RAORDS  (,$$ORVR)^RAORDU  (CLOSE,ZIS)^RAUTL  ($$LK,ULK)^RAUTL19  CHKUSR^RAUTL2  
Kernel 3 HOME^%ZIS  ^%ZTLOAD  ($$DT,$$FMADD,$$FMDIFF,$$FMTE)^XLFDT  
VA FileMan 3 ^DIC  $$GET1^DIQ  ^DIR  
Health Summary 1 ENX^GMTSDVR  

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

Package Total Caller Graph
Radiology Nuclear Medicine 7 RA ORDERCANCEL  RA ORDERHOLD  RA ORDERPRINTPAT  RA ORDERREASON UPDATE  RA ORDERSCHEDULE  RAORD1  RAORR  

Entry Points

Name Comments DBIA/ICR reference
2 ;;Schedule a Request
21 ; Patient lookup
Q2 ; Unlock if appropriate, kill vars
3 ;;Cancel a Request
31 ; Patient lookup
ENCAN ;OE/RR Entry Point for the CANCEL ACTION Option
Q3 ; unlock if appropriate, kill variables
Q35
CHECK ; Check on the status of the order
REASON ; Select a Cancel Reason
4 ;;Hold a Request
40 ; Patient lookup
41 ; Select a Hold Reason
Q4 ; unlock if appropriate, kill variables
6 ;;Udate a HOLD REASON /RA*5*133
60 ; Patient lookup
61 ; Select a Hold Reason
64 ; unlock if appropriate, kill variables
9 ;;Print Selected Requests by Patient
START9 ; Start printing requests
Q9
KILL ; kill variables - called from RAORD1
PCR ; Print Cancelled Requests. Called from the 'Cancel A Request' option.
MAXDD(ARY) ;for the RIS orders (#75.1) selected by the user
RESCH(Y) ;P174 - pass back subject and request statuses depending
OUTXDAYS(RAPD,RAQD,RAMAX) ;P174 - compare two dates. Are they
; within the max # of days allowed?

External References

Name Field # of Occurrence
HOME^%ZIS PCR+6
^%ZTLOAD PCR+5
^DIC 21+1, 31+1, REASON+2, 40+1, 41+1, 60+1, 61+2, 9+2
$$GET1^DIQ 21+40, 21+44, ENCAN+15
^DIR 2+8, 21+26, 21+45, 9+8
ENX^GMTSDVR START9+9
^RAORD5 START9+3
CRCHK^RAORD6 START9+4
^RAORDS 21+14, 31+8, 40+7, 60+4, 9+2
^RAORDU 21+49, ENCAN+5, 41+7, 61+8
$$ORVR^RAORDU 21+2, Q2+1, 31+2, Q3+1, 40+2, Q4+1
CLOSE^RAUTL Q9+6
ZIS^RAUTL 9+11
$$LK^RAUTL19 21+3, 31+3, 40+3
ULK^RAUTL19 Q2+2, Q3+2, Q4+2
CHKUSR^RAUTL2 31+7
$$DT^XLFDT 21+21
$$FMADD^XLFDT 21+20
$$FMDIFF^XLFDT 21+38, OUTXDAYS+15
$$FMTE^XLFDT 21+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 21+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 21+21
Function Call: WRITE
  • Prompt: !?3,"Procedure: "_$E($$GET1^DIQ(75.1,RAOIFN,2),1,20)_" not scheduled: date is out of range."
  • Line Location: 21+40
Function Call: WRITE
  • Prompt: !?3,"Schedule date for "_$E($$GET1^DIQ(75.1,RAOIFN,2),1,20)_" is "_$P(RADIF,"-",2)_" days before the date desired!"
  • Line Location: 21+44
Function Call: WRITE
  • Prompt: !
  • Line Location: 31+1
Function Call: WRITE
  • Prompt: !?3,"...will now 'CANCEL' selected request(s)..."
  • Line Location: ENCAN+2
Function Call: WRITE
  • Prompt: !?10,"...",$P(^(0),"^")," cancelled..."
  • Line Location: ENCAN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: REASON+2
Function Call: WRITE
  • Prompt: !!?3,"A Cancel Reason is required to proceed."
  • Line Location: REASON+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 40+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 41+1
Function Call: WRITE
  • Prompt: !!?3,"A Hold Reason is required to proceed."
  • Line Location: 41+3
Function Call: WRITE
  • Prompt: !?3,"...will now 'HOLD' selected request(s)..."
  • Line Location: 41+5
Function Call: WRITE
  • Prompt: !?10,"...",$P(^(0),"^")," held..."
  • Line Location: 41+8
Function Call: WRITE
  • Prompt: !
  • Line Location: 60+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 61+2
Function Call: WRITE
  • Prompt: !!?3,"A Hold Reason is required to proceed."
  • Line Location: 61+4
Function Call: WRITE
  • Prompt: !?3,"...will now update the hold reason for the selected request(s)..."
  • Line Location: 61+6
Function Call: WRITE
  • Prompt: !?10,"...",$P(^(0),"^")," updated..."
  • Line Location: 61+9
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+4
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+11
Function Call: WRITE
  • Prompt: !
  • Line Location: Q9+6
Routine Call
  • %ZIS
  • Line Location:
    • PCR+6
Routine Call
  • DIC
  • Line Location:
    • 21+1
    • 31+1
    • REASON+2
    • 40+1
    • 41+1
    • 60+1
    • 61+2
    • 9+2
Routine Call
  • DIR
  • Line Location:
    • 2+8
    • 21+26
    • 21+45
    • 9+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^%ZIS(1 - [#3.5] GET1^DIQ
^RAO(75.1 - [#75.1] GET1^DIQ
^RA(75.2 - [#75.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] 21+5, 31+5, 40+5, 60+2, 9+2
^RA(79.1 - [#79.1] ENCAN+9, ENCAN+10, ENCAN+14
^RAMIS(71 - [#71] ENCAN+6, 41+8, 61+9, START9+7
^RAO(75.1 - [#75.1] 21+34, ENCAN+6, ENCAN+8, 41+8, 61+9, START9+6, MAXDD+6
^TMP("XQORS" KILL+4
^TMP($J Q2+6!, Q4+5!, 64+3!, 9+1!, START9+8, START9+10*, Q9+2!, Q9+5!, KILL+5!

Label References

Name Line Occurrences
$$MAXDD 21+19
$$OUTXDAYS 21+39
$$RESCH 21+7
21 21+2, 21+51
31 31+2
40 40+2, 41+10
41 41+3
60 61+11
61 61+4
64 60+1, 60+4, 61+3, 61+11
PCR ENCAN+16
Q2 21+1, 21+14, 21+51
Q3 31+1, 31+8, 31+9
Q35 Q3+6
Q4 40+1, 40+7, 41+2, 41+10
Q9 9+2, 9+8, 9+11
REASON 31+9, REASON+4

Naked Globals

Name Field # of Occurrence
^("TOT" KILL+4
^("XQALSET" Q4+5!, 64+3!
^(0 21+5, 31+5, ENCAN+6, 40+5, 41+8, 60+2, 61+9, 9+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q3+3!, KILL+1!
%DT Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!, KILL+1!
A1 Q2+6!
ARY MAXDD~
ARY( MAXDD+5, MAXDD+6
C Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!
D Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!, KILL+1!
D0 Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!, KILL+1!
D1 Q2+6!, Q4+5!, 64+3!, KILL+1!
DA Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!, KILL+1!
DDER Q2+6!, Q4+5!, 64+3!
DDH Q2+6!
DFN Q9!, KILL+1!
DI Q2+6!, Q4+5!, 64+3!
DIC 21+1*!, 31+1*!, REASON+1*, REASON+2!, 40+1*!, 41+1*!, 60+1*!, 61+2*!, 9+2*!, KILL+1!
DIC("A" REASON+1*, 41+1*, 61+2*
DIC("S" REASON+1*, 41+1*, 61+2*
DIC(0 21+1*, 31+1*, REASON+1*, 40+1*, 41+1*, 60+1*, 61+2*, 9+2*
DIK KILL+1!
DIPGM Q2+6!, Q35!, Q4+5!, 64+3!, Q9+5!
DIR 2+3~, 2+9!, 21+16!, 21+27!, 21+43!, 9+4!, Q9+4!
DIR("?" 2+6*, 2+7*, 21+23*, 21+24*, 9+6*
DIR("??" 21+25*
DIR("A" 2+4*, 21+22*, 21+45*, 9+7*
DIR("B" 2+4*, 21+45*, 9+5*
DIR(0 2+5*, 21+21*, 21+45*, 9+5*
DIROUT 2+3~, 2+9!, 21+16!, 21+27!, 9+4!, Q9+4!, KILL+1!
DIRUT 2+3~, 2+8, 2+9!, 21+16!, 21+26, 21+27!, 21+46, 9+4!, 9+8, Q9+4!
KILL+1!
DISYS Q4+5!, 64+3!, Q9+5!
DIV KILL+1!
DIW Q9+5!
DIWT Q9+5!
DN Q9+5!
DR KILL+1!
DTOUT 2+3~, 2+9!, 21+16!, 21+27!, 9+4!, Q9+4!, KILL+1!
DUOUT 2+3~, 2+9!, 21+16!, 21+27!, Q4+5!, 64+3!, 9+4!, Q9+4!, KILL+1!
DWPK KILL+1!
GMTSTYP START9+7*, START9+8, START9+9, START9+10, Q9!
I Q2+3!, Q35!, Q4+3!, 64+1!, Q9!, PCR+1~, PCR+4*
IO START9+1
IOF START9+9
J KILL+1!
N Q3+5, Q3+6, Q3+7!
ORCOST ENCAN+1!
OREND 31+9, Q3+4!, CHECK+1*, REASON+5*, KILL+1!
>> ORIFN REASON+5
ORIT ENCAN+1!
>> ORPK REASON+5
ORPURG ENCAN+1!
ORSTOP ENCAN+1!
ORSTRT ENCAN+1!
>> ORSTS CHECK+1
ORTO ENCAN+1!
ORTX ENCAN+1!
POP Q2+6!, Q3+3!, Q4+3!, 64+1!, Q9!
R MAXDD+5~*, MAXDD+7*, MAXDD+9
RA6 Q9+5!
RA7 Q9+5!
RA751 ENCAN+8!*, ENCAN+9, ENCAN+13, ENCAN+19!, START9+1~
RA751(0 START9+6*
RA751(2 START9+6*, START9+7
RA791 ENCAN+8!, ENCAN+9*, ENCAN+10, ENCAN+14, ENCAN+19!
RAACI KILL+3!
RABLNK KILL+1!
RACNI Q9!
RACNT KILL+1!
RACRHD ENCAN+11!*, ENCAN+17!
RACT KILL+1!
RADFN 21+5*, Q2+1, Q2+2, Q2+3!, 31+5*, ENCAN+13~*, Q3+1, Q3+2, Q3+3!, 40+5*
Q4+1, Q4+2, Q4+3!, 60+2*, 64+1!, 9+2*, START9+8, START9+9, START9+10, Q9!
RADIF 21+33~, 21+38*, 21+42, 21+44
RADIV Q2+3!, Q3+3!, Q4+3!, 64+1!, Q9!, KILL+1!
RADTI Q9!
RAEXMUL KILL+1!
RAFIN KILL+1!
RAFIN1 KILL+1!
RAFLGA 2+10~*, 21+7
RAGMTS 9+8*, START9+5, Q9+2!
RAI KILL+1!
RAILOC KILL+1!
RAIMGTYI KILL+1!
RAION ENCAN+11!, ENCAN+14*, ENCAN+15*, ENCAN+17!, PCR+2, PCR+5
RAIP KILL+1!
RAJ KILL+1!
RAL0 KILL+1!
RALIFN KILL+1!
RALOC KILL+1!
RALOCFLG KILL+1!
RAMAX OUTXDAYS~, OUTXDAYS+15
RAMAXDD 21+16!, 21+19*, 21+20, Q2+4!
RAMAXDD(0 21+20*, 21+21, 21+24
RAMES Q9+3!
RAMIN 2+1~*, 21+42
RAMOD KILL+2!
RAMSG 31+7, Q3+3!
RAMT KILL+2!
RANME 21+5*, Q2+3!, 31+5*, Q3+3!, 40+5*, Q4+3!, 60+2*, 64+1!, 9+2*, Q9!
RANUM KILL+2!
RAOFNS 21+8*, Q2+3!, 31+6*, Q3+3!, 40+6*, Q4+3!, 60+3*, 64+1!, 9+2*, Q9!
RAOIFN 21+32~*, 21+34, 21+40, 21+44, Q2+3!, ENCAN+5*, ENCAN+6, ENCAN+8, Q3+3!, 41+7*
41+8, Q4+3!, 61+8*, 61+9, 64+1!, START9+2*, START9+6, Q9+1!, KILL+2!
RAOIFN(0 21+34*
RAOIFN(21 21+34*, 21+38, 21+39
RAOIFNS 9+3*, START9+2, Q9+1!
RAOK 21+33~*, 21+39*, 21+42, 21+46*, 21+47*, 21+49
RAOLP 21+28*, 21+31*, 21+32, Q2+3!, ENCAN+3*, ENCAN+4*, ENCAN+5, Q3+3!, 41+5*, 41+6*
41+7, Q4+3!, 61+6*, 61+7*, 61+8, 64+1!, 9+3*, START9+2*, Q9+1!
>> RAOPT 9+10
RAOPTN 21+8*, Q2+4!, 31+6*, Q3+4!, 40+6*, Q4+4!, 60+3*, 64+2!
RAORD0 KILL+2!
RAORDS 21+14, 21+19, Q2+3!, 31+8, Q3+4!, 40+7, Q4+3!, 60+4, 64+1!, 9+2
Q9+1!
RAORDS( 21+31, 21+32, ENCAN+4, ENCAN+5, 41+6, 41+7, 61+7, 61+8, 9+3
RAOREA Q3+5, Q3+6!, Q3+7!, 41+4*, Q4+4!, 61+5*, 64+2!
RAOREA( Q3+7!, REASON+5*
RAOSCH 21+28*, 21+38, 21+39, Q2+3!
RAOSTS 21+49*, Q2+4!, ENCAN+5*, Q3+4!, 41+7*, Q4+4!, 61+8*, 64+2!, Q9+1!
RAOUT KILL+2!
RAOVSTS 21+11*, Q2+4!, 31+7*, Q3+4!, 40+6*, Q4+4!, 60+3*, 64+2!, 9+2*, Q9+1!
RAPARENT Q2+5!, Q3+5!, Q3+8!, Q4+5!, 64+3!, Q9+1!
RAPD OUTXDAYS~, OUTXDAYS+15
RAPGE ENCAN+11!*, ENCAN+17!, START9+3*, Q9+1!
RAPIFN KILL+2!
RAPKG 3+1*, ENCAN+2, ENCAN+6, Q3+4!, KILL+4
RAPOP 9+11, Q9+1!
RAPRC KILL+2!
RAPREG KILL+2!
RAPREOP1 KILL+2!
RAPRI KILL+2!
RAPTLOCK 2+1~, 21+2, 21+3*, Q2+1, 3+1~, 31+2, 31+3*, Q3+1, 4+1~, 40+2
40+3*, Q4+1, 6+1~
RAQD OUTXDAYS~, OUTXDAYS+15
RAREASK KILL+2!
RAREQDT KILL+2!
RAREQPRT KILL+2!
RARU KILL+2!
RARX KILL+2!
RAS3 KILL+2!
RASEQ KILL+2!
RASEX KILL+2!
RASKPREG KILL+2!
RASTOP KILL+2!
RASX KILL+2!
RAWHEN KILL+2!
RAX 21+7~*, 21+8, 21+11, ENCAN+11!*, ENCAN+17!, START9+1*, START9+2, START9+3, START9+4, Q9+1!
KILL+2!
RAXIT 3+1~*, 31+9, REASON+3*
U 21+8, 21+11, 21+34, MAXDD+6
VA200 KILL+2!
VAERR KILL+2!
VAI Q9+2!, KILL+2!
VAIN Q9+2!
VAIP KILL+2!
X 2+3~, Q2+4!, Q3+5!, Q3+8!, REASON+3, 41+2, Q4+4!, 61+3, 64+2!, Q9+2!
KILL+2!, MAXDD+5~, MAXDD+6*, RESCH+4~*, RESCH+5
>> X21 MAXDD+6*, MAXDD+7
>> XQORS KILL+4
Y 2+3~, 2+10, 21+1, 21+3, 21+5, 21+28, 21+47, Q2+4!, 31+1, 31+3
31+5, Q3+5!, Q3+8!, REASON+3, REASON+4, REASON+5, 40+1, 40+3, 40+5, 41+2
41+3, 41+4, Q4+4!, 60+1, 60+2, 61+3, 61+4, 61+5, 64+2!, 9+2
9+8, Q9+2!, KILL+2!, MAXDD+5~*, MAXDD+6, RESCH~, RESCH+5
Z Q9+2!
ZTDESC Q9+3!, PCR+1~, PCR+2*
ZTDTH PCR+1~, PCR+2*
ZTIO PCR+1~, PCR+2*
ZTRTN 9+9*, Q9+3!, PCR+1~, PCR+3*
ZTSAVE Q9+3!, PCR+1~
ZTSAVE( PCR+4*
ZTSAVE("RADFN" 9+9*
ZTSAVE("RAGMTS" 9+10*
ZTSAVE("RAOIFNS" 9+9*
ZTSAVE("RAOPT(" 9+10*
ZTSK PCR+1~, PCR+5
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  | All