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

Package: Radiology Nuclear Medicine

Routine: RAORD3


Information

RAORD3 ;HISC/CAH - AISC/RMO-Detailed Request Display Cont. ; 06 Oct 2013 11:04 AM

Source Information

Source file <RAORD3.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Radiology Nuclear Medicine 5 ODX^RABWUTL  HDR^RAORD2  TIME^RAUTL1  ($$EOS,DIWP)^RAUTL5  $$PTSEX^RAUTL8  
VA Fileman 4 $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 1 $$FMTE^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RAORD2  RAORD5  RAORD6  

Entry Points

Name Comments DBIA/ICR reference
A
NOSECNDS(X) ; If a timestamp is associated with a date, strip off seconds.
; Input : X-timestamp (153048)
; Output: (1530)
PRTLOG
TEXT ; display Hold Description text
USERCAN2 ;use vars DUZ and RAORD0 to get "who" and "when" cancelled
USERCAN1 ;use request track times to get when and who cancelled
Q
ASK
USERCAN ;user who cancelled this request
TRDT
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.

External References

Name Field # of Occurrence
$$GET1^DIQ RAORD3+11, RAORD3+12
^DIR ASK
^DIWP TEXT+4, CHIST+6
^DIWW TEXT+5
ODX^RABWUTL RAORD3+20
HDR^RAORD2 CHIST+12, CHIST+21
TIME^RAUTL1 PRTLOG
$$EOS^RAUTL5 EOS+11
DIWP^RAUTL5 RAORD3+19
$$PTSEX^RAUTL8 RAORD3+7
$$FMTE^XLFDT TRDT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Pregnancy Screen: ",RA700332
  • Line Location: RAORD3+13
Function Call: WRITE
  • Prompt: !,"Pregnancy Screen Comment: ",RA700380
  • Line Location: RAORD3+14
Function Call: WRITE
  • Prompt: !,"Desired Date:",?22,RA("RDT")
  • Condition for execution: $D(RA("RDT"))&($D(RAPKG))
  • Line Location: RAORD3+16
Function Call: WRITE
  • Prompt: !,"Pre-op Scheduled:",?22,RA("PDT")
  • Condition for execution: $D(RA("PDT"))
  • Line Location: RAORD3+16
Function Call: WRITE
  • Prompt: !,"Exam Scheduled:",?22,RA("SDT")
  • Line Location: RAORD3+16
Function Call: WRITE
  • Prompt: !,"Transport:",?22,RA("TRAN")
  • Line Location: RAORD3+18
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+24
Function Call: WRITE
  • Prompt: !!?7,$C(7),"** Note: Request has been changed by the Imaging Service **"
  • Line Location: RAORD3+27
Function Call: READ
  • Prompt: "Press return to continue or ""^"" to escape "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIR
  • Line Location:
    • ASK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(75.12 PRTLOG+1
^RA(75.2 - [#75.2] RAORD3+24, PRTLOG+2
^RAO(75.1 - [#75.1] RAORD3+21, A, ASK+2, TEXT+1, TEXT+4, CHIST+1, CHIST+4, CHIST+6, USERCAN+1, USERCAN+3
, USERCAN1+1, USERCAN1+2
^UTILITY($J TEXT+3!, CHIST+3!, CHIST+14!, CHIST+16, CHIST+17, CHIST+24!
^VA(200 - [#200] PRTLOG+1, USERCAN1+2, USERCAN2+4

Label References

Name Line Occurrences
$$EOS CHIST+10, CHIST+19
$$NOSECNDS TRDT
A RAORD3+26
ASK A
CHIST RAORD3+22
PRTLOG ASK+2
TEXT RAORD3+24
TRDT USERCAN1+1, USERCAN2+1
USERCAN RAORD3+17
USERCAN1 USERCAN+5
USERCAN2 USERCAN+6

Naked Globals

Name Field # of Occurrence
^( ASK+2, TEXT+4, USERCAN+3
^(0 RAORD3+24, ASK+2, PRTLOG+1, PRTLOG+2, USERCAN+3
^(1 TEXT+3!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR ASK!
DIR("?" ASK*
DIR("A" ASK*
DIR("B" ASK*
DIR(0 ASK*
DIRUT A!, ASK
DIWF TEXT+3*, CHIST+2~, CHIST+3*
DIWL TEXT+3*, CHIST+2~, CHIST+3*, CHIST+16, CHIST+17
DIWR TEXT+3*, CHIST+2~, CHIST+3*
DTIME A+1
DUZ USERCAN2+4
IOF CHIST+11, CHIST+20
IOSL CHIST+9, CHIST+18
IOST A
>> OREND RAORD3+21, ASK*, EOS+11*
>> RA("ILC" RAORD3+25
>> RA("ODT" USERCAN+4*, USERCAN+7, USERCAN+8!, TRDT+1*
>> RA("PDT" RAORD3+16
>> RA("RDT" RAORD3+16
>> RA("SDT" RAORD3+16
>> RA("ST" RAORD3+25
>> RA("STY_REA" RAORD3+19
>> RA("TRAN" RAORD3+18
>> RA("USR" USERCAN+4*, USERCAN+7, USERCAN+8!, USERCAN1+2*, USERCAN2+4*
>> RA("VDT" RAORD3+15
RA700332 RAORD3+10~, RAORD3+11*, RAORD3+13
RA700380 RAORD3+10~, RAORD3+12*, RAORD3+14
RA8 USERCAN+2~*, USERCAN+3*
RA9 USERCAN+2~, USERCAN+3*, USERCAN+5, USERCAN1+1, USERCAN1+2
RABAN CHIST+2~, CHIST+8*, CHIST+15
>> RACNI RAORD3+11, RAORD3+12, RAORD3+26
>> RADFN RAORD3+7, RAORD3+11, RAORD3+12
>> RADTI RAORD3+11, RAORD3+12, RAORD3+26
RALNB ASK+2*, Q!
>> RAOIFN RAORD3+20, RAORD3+21, RAORD3+22, A, ASK+2, TEXT+1, TEXT+4, USERCAN+1, USERCAN+3, USERCAN1+1
, USERCAN1+2
>> RAOPT("ORDERPRINTPAT" USERCAN2+3
>> RAOPT("ORDERPRINTS" USERCAN2+3
>> RAORD0 RAORD3+9, RAORD3+15, RAORD3+16, RAORD3+24, RAORD3+26, USERCAN2+1
>> RAOSTS RAORD3+16*, RAORD3+17, RAORD3+24
>> RAPKG RAORD3+16, A+1, CHIST+11, CHIST+12, CHIST+14, CHIST+20, CHIST+21, CHIST+24, EOS+11
RARR TEXT+4*, CHIST+2~, CHIST+3*, CHIST+4*, CHIST+6, CHIST+8*, CHIST+16*, CHIST+17
>> RASCREEN USERCAN2+3
RATODT Q!, PRTLOG*, PRTLOG+3
RATORD0 ASK+2*, Q!, PRTLOG, PRTLOG+1, PRTLOG+2
RATOST Q!, PRTLOG+1*, PRTLOG+3
RATREA Q!, PRTLOG+2*, PRTLOG+3
RATUSR Q!, PRTLOG+1*, PRTLOG+3
>> RAX RAORD3+21, A*, A+1*, CHIST+14*, CHIST+24*
RAXIT CHIST+2~, CHIST+8*, CHIST+10*, CHIST+11, CHIST+12, CHIST+14, CHIST+16, CHIST+19*, CHIST+20, CHIST+21
, CHIST+24
RAY CHIST~, CHIST+1, CHIST+4, CHIST+6
U USERCAN+1, USERCAN+3, USERCAN1+1, USERCAN1+2, USERCAN2+1, USERCAN2+4
X A+1*, PRTLOG*, TEXT+4*, CHIST+6*, CHIST+17*, USERCAN1+1*, USERCAN2+1*, TRDT*, TRDT+1, NOSECNDS~
, NOSECNDS+3
>> Y A+1, ASK, EOS+11*, EOS+12
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