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 |  FileMan Files Accessed Via FileMan Db Call
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>

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?

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call