Routine: RAORD7A

Information

RAORD7A ;HISC/CAH-Log of Scheduled Requests by Procedure ;11/5/01 15:19

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Radiology Nuclear Medicine	2	($$SSN,CLOSE,D)^RAUTL IPOP^RAUTL13
VA FileMan	2	^%DT Y^DIQ
Kernel	1	$$FMTE^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAORD7

Entry Points

Name	Comments	DBIA/ICR reference
START	;Entry point for Scheduled Request Log task
GET
GETDFN
WRT
NEG	;Negative reporting
Q
HD
CRCHK

External References

Name	Field # of Occurrence
^%DT	START+3
Y^DIQ	WRT+3
$$SSN^RAUTL	WRT+2
CLOSE^RAUTL	Q+3
D^RAUTL	START+3
IPOP^RAUTL13	GETDFN+3
$$FMTE^XLFDT	WRT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," No scheduled requests are logged for ",RALDTE1," through ",RALDTE2,"." Line Location: START+19
Function Call: WRITE	Prompt: !,$E(RANME,1,12),?14,$$SSN^RAUTL(RADFN,1),?21,$S($E(RASORT)="P":RA5,1:RA7),?44,$E(RALOCN,1,10),?56,$$FMTE^XLFDT(RAOSCH,2) Line Location: WRT+2
Function Call: WRITE	Prompt: ?71,$E(Y,1,7),! Line Location: WRT+3
Function Call: WRITE	Prompt: ?28,"Requesting Loc: ",RARLOCN Line Location: WRT+4
Function Call: WRITE	Prompt: !!," No scheduled requests are logged for ",RALDTE1," through ",RALDTE2,"." Line Location: NEG+3
Function Call: WRITE	Prompt: ! Line Location: Q+3
Function Call: WRITE	Prompt: @IOF Condition for execution: RAPGE!($E(IOST,1,2)="C-") Line Location: HD+0
Function Call: WRITE	Prompt: !,"Scheduled Request Log by Imaging Location, ",RASORT Line Location: HD+0
Function Call: WRITE	Prompt: ?70,"Page: ",RAPGE,!?5,"Includes requests scheduled from ",RALDTE1," to ",RALDTE2 Line Location: HD+1
Function Call: WRITE	Prompt: !,"Run Date: ",RARUNDTE,?31,"Imaging Location: ",RALNM Line Location: HD+2
Function Call: WRITE	Prompt: !?5,$S($D(RANOSHOW):"(no-show's only) ",1:"") Line Location: HD+3
Function Call: WRITE	Prompt: !,"Patient",?14,"Pt ID",?22,"Procedure",?44,"Pt Loc",?56,"Sched. Date",?71,"Urgency",!,RALNE Line Location: HD+4
Function Call: READ	Variable: X Timeout: DTIME Line Location: CRCHK+0
Function Call: WRITE	Prompt: !!,$C(7),"Press RETURN to continue or '^' to stop " Line Location: CRCHK+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(75.1	WRT+3
^DPT - [#2]	GETDFN
^RA(79.1 - [#79.1]	START+6, START+16
^RAMIS(71 - [#71]	START+11, START+12
^RAO(75.1 - [#75.1]	START+8, START+9, GET+3
^SC - [#44]	START+16
^TMP($J	START+2!, START+17, START+18, START+19, START+20*, START+21, GET, GET+1, GET+2, GET+3 , NEG+3, Q!

Label References

Name	Line Occurrences
CRCHK	HD
GET	START+21
GETDFN	GET+3
HD	GET, WRT+1, NEG+3
NEG	START+21
Q	START+19, START+22
WRT	GETDFN+3

Naked Globals

Name	Field # of Occurrence
^(	START+12, GET+3
^(0	START+9, START+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+3*, Q!
C	WRT+3*, Q!
DDH	Q+4!
DFN	Q+4!
DIR	Q!
DIRUT	Q+4!
DISYS	Q+4!
DTIME	CRCHK
DTOUT	Q!
DUOUT	Q!
I	START+20*, Q!
IO	START+2
IOF	HD
IOP	Q!
IOSL	WRT+1
IOST	HD, CRCHK
POP	Q!
RA5	GET*, GET+1, GET+2, GET+3, GETDFN, WRT+2, Q+2!
RA6	GET+1*, GET+2, GET+3, GETDFN, Q+2!
RA7	GET+1*, GET+2, GET+3, WRT+2, Q+2!
RA791IEN	START+4, START+6, START+7!
RABEGDT	START+2*, START+8, Q!
RACIPOP	GETDFN+2!, Q!
RADAY	START+13*, START+17, START+18, Q!
RADFN	START+8, START+9, START+17, START+18, GET+2, GET+3, GETDFN, WRT+2, Q!
RADLOCS	Q!
RADONE	GETDFN+2!
RADPT0	Q!
RAENDDT	START+2*, START+8, Q!
RAHI	START+2, GETDFN+2, WRT+1, Q!, HD+5
RAI	START+12*, Q!
RAIN44	Q!
RAIPLOC	GETDFN+2!, Q!
RAIPLOCN	GETDFN+2!, Q!
RAIPOP	Q!
RALDTE1	START+2, START+3*, START+19, NEG+3, Q+1!, HD+1
RALDTE2	START+2, START+3*, START+19, NEG+3, Q+1!, HD+1
RALIEN	START+15, START+16, START+17, START+18, GET, GET+1, GET+2, GET+3, GETDFN+2*, WRT+1 , Q+1!, HD+5
RALNE	START+2*, Q+1!, HD+4
RALNE1	START+2*, GET, Q+1!
RALNM	START+16, START+17, START+18, START+21, GET, GET+1, GET+2, GET+3, NEG+2, NEG+3 , Q+1!, HD+2
RALOC	Q+1!
RALOC(	START+4, START+20
RALOC("UNKNOWN"	START+5*
RALOC1	Q+1!
RALOC1(	START+4*, START+6, START+9, GET
RALOC1(99999	START+5*
RALOC2	Q+1!
RALOC2(	START+6*, START+10
RALOCN	WRT+2, Q+1!
RALOCNM	START+4*, START+7!
RALOCSAV	Q+1!
RAMES	Q+1!
RAMIS	START+12, START+17, START+18, GET+2, GET+3, Q+1!
RANEG	START+21!, NEG+1!, NEG+3*, Q+1!
RANEWLOC	Q+1!
RANME	GETDFN*, WRT+2, Q+1!
RANO	Q+1!
RANOSHOW	GETDFN+1, Q+1!, HD+3
RAOIFN	START+9, START+17, START+18, GET+3, Q+1!
RAORD0	START+9, START+10, START+11, START+15, GET+3, GETDFN, WRT, Q+1!
RAORST	Q+1!
RAORSTS	Q+1!
RAOSCH	START+8, START+9, START+13, GETDFN, WRT+2, Q+1!
RAOURG	WRT*, WRT+3, Q+1!
RAPGE	START+2, GET, WRT+1, Q+1!, HD, HD+1, CRCHK
RAPOP	Q+1!
RAPRC	START+11*, START+17, START+18, Q+1!
RAPRI	START+11*, START+12, Q+1!
RAQUIT	Q+1!
RARIPOP	GETDFN+2!, Q+2!
RARLOC	GETDFN+2!, Q+2!
RARLOCN	GETDFN+2!, WRT+4, Q+2!
RARUNDTE	START+3*, Q+2!, HD+2
RASORT	START+17, START+18, GET, GETDFN, WRT+2, Q+2!, HD
RASSN	Q+2!
RAST	Q+2!
RASTAT	GETDFN*, GETDFN+1, Q+2!
RASTX	Q+2!
RATIME	START+13, START+14, START+17, START+18, GET+3, GETDFN, Q+2!
RAUPDLOC	Q+2!
RAX	START+2, START+19, START+21, GET, GET+1, GET+2, GET+3, GETDFN, WRT+1, NEG+1 , NEG+3, Q+2!, HD, CRCHK
RAZERO	START+1*, START+14, Q+2!
RAZTIME	START+14*, START+17, START+18, Q+2!
U	START+6, START+9, START+10, START+11, START+16, GETDFN, WRT+3
VA200	Q+2!
VAIN	Q+2!
VAIP	Q+2!
X	START+3, GETDFN, Q+2!, CRCHK*
X1	Q+2!
Y	START+3, WRT+3, Q+2!
ZTDESC	Q+2!
ZTRTN	Q+2!
ZTSAVE	Q+2!

Customize PDF page

Package: Radiology Nuclear Medicine