Routine: RAORD3

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

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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORD3

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: