Routine: RAORD8

Package	Total	Call Graph
Radiology Nuclear Medicine	3	Q^RAORD8 ($$SSN,CLOSE,D,ZIS)^RAUTL IPOP^RAUTL13
VA Fileman	2	^%DT ^DIC
Kernel	1	$$FMTE^XLFDT
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA ORDERLOGLOC RAORD8

Entry Points

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+1, START+7
^DIC	RAORD8+2
Q^RAORD8	DATE, DATE+1
$$SSN^RAUTL	PRT+2
CLOSE^RAUTL	Q+4
D^RAUTL	START+6, START+7
ZIS^RAUTL	DATE+4
IPOP^RAUTL13	XFER+1
$$SITE^VASITE	START+2
$$FMTE^XLFDT	PRT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: RAORD8+2
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !?5," ?? Starting date must be before ending date. Please try again.",! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: !!?5,"There are no scheduled requests ",!?5,"for ",RALNM," from ",RALDTE1P," to ",RALDTE2P,"." Line Location: START+9
Function Call: WRITE	Prompt: ! Line Location: Q+4
Function Call: WRITE	Prompt: !,$E(RANME,1,19),?20,$$SSN^RAUTL(RADFN,1),?28,RATIME,?43,$E(RAPRC,1,21) Line Location: PRT+2
Function Call: WRITE	Prompt: ?66,$E(RAILCNM,1,15) Condition for execution: $D(RAILCNM) Line Location: PRT+2
Function Call: WRITE	Prompt: !?10,"Patient transferred to: ",RALOCN,! Line Location: PRT+5
Function Call: WRITE	Prompt: !?10,"Requesting Location: ",RARLOCN,! Line Location: PRT+6
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y>0 Line Location: HD+0
Function Call: WRITE	Prompt: !?23,">>> RADIOLOGY/NUCLEAR MEDICINE <<<",!!,"Scheduled Request Log for ",RALNM Line Location: HD+0
Function Call: WRITE	Prompt: ?70,"Page: ",RAPGE Line Location: HD+0
Function Call: WRITE	Prompt: !?5,"Schedule dates from ",RALDTE1P," to ",RALDTE2P Line Location: HD+1
Function Call: WRITE	Prompt: !,"Run Date: ",RARUNDTE Line Location: HD+1
Function Call: WRITE	Prompt: !!,"Patient",?20,"Pt ID",?28,"Sched. Date",?43,"Procedure" Line Location: HD+2
Function Call: WRITE	Prompt: ?66,"Imaging Loc" Condition for execution: $D(RALOCFLG) Line Location: HD+2
Function Call: WRITE	Prompt: !,"-------------------",?20,"-----",?28,"-------------",?43,"---------------------" Line Location: HD+2
Function Call: WRITE	Prompt: ?66,"Imaging Loc" Condition for execution: $D(RALOCFLG) Line Location: HD+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: CRCHK+0
Function Call: WRITE	Prompt: !!,*7,"Press RETURN to continue or '^' to stop " Line Location: CRCHK+0
Routine Call	DIC Line Location: RAORD8+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHKUTL
^RA(79 - [#79]	START+3, START+4
^RA(79.1 - [#79.1]	PRT+1
^RAMIS(71 - [#71]	PRT
^RAO(75.1 - [#75.1]	START+8, CHKORD
^SC - [#44]	START+1, PRT+1
^TMP($J	START!, START+9, START+10, Q!, CHKORD, XFER+4, CHKUTL, PRT+3

Label References

Name	Line Occurrences
CHKORD	START+8
CHKUTL	START+10
CRCHK	HD
DATE	DATE+2
HD	PRT
PRT	CHKUTL
Q	RAORD8+2, DATE+4, START+9
XFER	CHKORD

Naked Globals

Name	Field # of Occurrence
^(	START+4, CHKUTL
^(0	START+1, CHKUTL, PRT, PRT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE!, DATE+1!, START+7*
%DT("A"	DATE, DATE+1
DDH	Q+3!
DFN	Q+3!
DIC	RAORD8+2!*
DIC("A"	RAORD8+2*
DIC(0	RAORD8+2*
DT	START+2
DTIME	CRCHK
IO	START
IOF	HD
IOSL	PRT
IOST	CRCHK
POP	Q+1!
RABEGDT	START*, START+8, Q+1!
RADFN	START+8, START+10, Q+1!, CHKORD, XFER+4, CHKUTL, PRT+2, PRT+3
RADIV	START+2, START+3, START+4, Q+1!
RADPT0	Q+1!, CHKUTL*, PRT
RAENDDT	START*, START+8, Q+1!
RAILCNM	Q+1!, PRT+1*, PRT+2
RAL0	START+1*, START+2, START+5, Q+1!
RALDTE1	DATE*, DATE+2, START, START+6, Q+1!
RALDTE1P	START+6*, START+9, Q+1!, HD+1
RALDTE2	DATE+1, DATE+2, DATE+3, START, START+6, Q+1!
RALDTE2P	START+6*, START+9, Q+1!, HD+1
RALIFN	RAORD8+2*, START+1, Q+1!, CHKORD
RALNAME	START+5*, Q+1!, XFER+2, XFER+3, PRT+5, PRT+6
RALNM	RAORD8+2*, START+9, Q+1!, HD
RALOCFLG	START+4*, Q+1!, PRT+1, HD+2
RALOCN	Q+1!, XFER+2, XFER+3, XFER+4, PRT+4*, PRT+5, PRT+6
RAMES	Q+2!
RANME	Q+1!, PRT*, PRT+2
RAOIFN	Q+1!, CHKORD, XFER+4, CHKUTL, PRT+3
RAORD0	Q+1!, CHKORD, CHKUTL, PRT, PRT+1
RAOSCH	START+8, START+10, Q+1!, CHKORD, XFER+4, CHKUTL, PRT+1, PRT+3
RAPGE	START, Q+1!, PRT, HD, CRCHK
RAPOP	DATE+4, Q+1!
RAPRC	Q+1!, PRT*, PRT+2
RARLOCN	Q+1!, XFER+2, XFER+3, XFER+4, PRT+4*, PRT+5, PRT+6
RARUNDTE	START+7*, Q+1!, HD+1
RASSN	Q+1!
RATIME	Q+1!, PRT+1*, PRT+2
RAX	START, START+10, Q+1!, CHKUTL, PRT, HD, CRCHK
RAXFERIN	Q+1!, CHKORD, XFER+1, XFER+2, XFER+4
RAXFEROU	Q+1!, XFER+1, XFER+3, XFER+4
U	START+5, XFER+4, PRT+4
VAERR	Q+3!
X	START+7, Q+1!, PRT+3, PRT+4, CRCHK*
Y	RAORD8+2, DATE, DATE+1, START+6*, START+7, Q+1!
ZTDESC	Q+2!
ZTRTN	DATE+4*, Q+2!
ZTSAVE	Q+2!
ZTSAVE("RALDTE1"	DATE+4*
ZTSAVE("RALDTE2"	DATE+4*
ZTSAVE("RALIFN"	DATE+4*
ZTSAVE("RALNM"	DATE+4*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORD8

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CHKORD
Q
START
CHKUTL
CRCHK
PRT
DATE
XFER	;Find out if patient transferred in or out of the requesting loc
HD