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

Package: Radiology Nuclear Medicine

Routine: RAORD3


Information

RAORD3 ;HISC/CAH - AISC/RMO-Detailed Request Display Cont. ;05/05/09 10:31

Source Information

Source file <RAORD3.m>

Entry Points

Name Comments DBIA/ICR reference
A
ASK
Q
PRTLOG
TEXT ; display Hold Description text
CHIST(RAY) ; display Clinical History (if applicable)
EOS() ; End of screen check for both OE/RR & Rad/Nuc Med
; Var List: $D(RAPKG) entry through Rad/Nuc Med, else through OE/RR
; Passes back 'Y', Y=1 do not continue, Y=0 continue
; NOTE: Sets OREND if code entered through OE/RR. This code may be
; hit when the user accesses the 'Act On Existing Orders' through
; OE/RR. 'Detailed Order Display' (8^RAORR) hits ENDIS^RAORD2
; which mimics (hits same code) the Rad/Nuc Med 'Detailed Request
; Display' option. The old PGBRK^ORUHDR code set OREND to 0
; initially, (even though it is set to 0 upon entering this
; sub-routine) and re-set it to 1 if the user enters an '^' at
; the "Enter RETURN to continue or '^' to exit:" prompt.
USERCAN ;user who cancelled this request
USERCAN1 ;use request track times to get when and who cancelled
USERCAN2 ;use vars DUZ and RAORD0 to get "who" and "when" cancelled
TRDT
NOSECNDS(X) ; If a timestamp is associated with a date, strip off seconds.
; Input : X-timestamp (153048)
; Output: (1530)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Pregnancy Screen: ",RA700332
  • Line Location: RAORD3+9
Function Call: WRITE
  • Prompt: !,"Pregnancy Screen Comment: ",RA700380
  • Line Location: RAORD3+10
Function Call: WRITE
  • Prompt: !,"Desired Date:",?22,RA("RDT")
  • Condition for execution: $D(RA("RDT"))&($D(RAPKG))
  • Line Location: RAORD3+12
Function Call: WRITE
  • Prompt: !,"Pre-op Scheduled:",?22,RA("PDT")
  • Condition for execution: $D(RA("PDT"))
  • Line Location: RAORD3+12
Function Call: WRITE
  • Prompt: !,"Exam Scheduled:",?22,RA("SDT")
  • Line Location: RAORD3+12
Function Call: WRITE
  • Prompt: !,"Transport:",?22,RA("TRAN")
  • Line Location: RAORD3+14
Function Call: WRITE
  • Prompt: !,"Reason ",$S(RAOSTS=1:"Cancelled",1:"Held"),":",?22,$S($D(^RA(75.2,+$P(RAORD0,"^",10),0)):$E($P(^(0),"^"),1,50),$P(RAORD0,"^",27)]"":$E($P(RAORD0,"^",27),1,50),1:"UNKNOWN")
  • Line Location: RAORD3+20
Function Call: WRITE
  • Prompt: !!?7,$C(7),"** Note: Request has been changed by the Imaging Service **"
  • Line Location: RAORD3+23
Function Call: READ
  • Formatting: !!
  • Prompt: "Press return to continue or ""^"" to escape "
  • Variable: X
  • Timeout: DTIME
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!?20,"*** Request Status Tracking Log ***",!,"Date/Time",?18,"Status",?31,"User",?44,"Reason",!,"-----------------",?18,"------------",?31,"-----------",?44,"------------------------------------"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,?44,$E(RATREA,36,70)
  • Line Location: PRTLOG+3
Function Call: WRITE
  • Prompt: !,"Hold Description:",!
  • Line Location: TEXT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHIST+11
Function Call: WRITE
  • Prompt: !,RABAN
  • Line Location: CHIST+15
Function Call: WRITE
  • Prompt: ?22,X,!
  • Line Location: CHIST+17
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHIST+20
Function Call: WRITE
  • Prompt: !
  • Line Location: CHIST+21
Function Call: WRITE
  • Prompt: !,"Cancelled:",?22,RA("ODT")
  • Line Location: USERCAN+7
Function Call: WRITE
  • Prompt: " by ",RA("USR")
  • Condition for execution: RA("USR")]""
  • Line Location: USERCAN+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call