Routine: RAORDCP

Information

RAORDCP ;WOIFO/KLM - Log of Discontinued Requests ; May 26, 2021@10:50:10

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Radiology Nuclear Medicine	4	(CLOSE,D,DATE,ZIS)^RAUTL OMA^RAUTL13 $$EOS^RAUTL5 STOPCHK^RAUTL9
VA FileMan	2	(,DD)^%DT $$GET1^DIQ

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	RA ORDER DISCONTINUED

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Option entry point - [RA ORDER DISCONTINUED]
START	;report processing
KILL
CONT	;
MORE	;
WRT	;
HDR	; header
SETTMP	;results in TMP
EOS	; end of screen

External References

Name	Field # of Occurrence
^%DT	START+5
DD^%DT	WRT+1
$$GET1^DIQ	WRT+4, WRT+6
CLOSE^RAUTL	KILL+5
D^RAUTL	START+5
DATE^RAUTL	EN+4
ZIS^RAUTL	EN+8
OMA^RAUTL13	EN+3
$$EOS^RAUTL5	EOS+1
STOPCHK^RAUTL9	HDR+8, SETTMP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?2,"This option will generate a list of DISCONTINUED requests",!?2,"for a selected date range" Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+2
Function Call: WRITE	Prompt: !!,"This report requires a 132 column output device." Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: KILL+0
Function Call: WRITE	Prompt: !?2,"No DISCONTINUED requests for "_RAOBEG("X")_" to "_RAOEND("X")_".",! Line Location: CONT+3
Function Call: WRITE	Prompt: !,$S($D(^DPT(RADFN,0)):$E($P(^(0),"^"),1,19),1:"Unknown"),?21,$E($P(^DPT(RADFN,0),"^",9),6,9),?27,$S($D(^RAMIS(71,RAPR,0)):$E($P(^(0),"^"),1,24),1:"Unknown"),?53,$P(RADD,"@") Line Location: WRT+2
Function Call: WRITE	Prompt: ?67,RALADTX Line Location: WRT+3
Function Call: WRITE	Prompt: ?83,$S(RADCBY="Unknown":RADCBY,1:$E($$GET1^DIQ(200,RADCBY,.01),1,19)) Line Location: WRT+4
Function Call: WRITE	Prompt: ?104,$S(RAOREA="":$E($$GET1^DIQ(75.1,RAO,27),1,28),1:$E($$GET1^DIQ(75.2,RAOREA,.01),1,28)) Line Location: WRT+6
Function Call: WRITE	Prompt: !?(80-$L(RAHDR)/2),RAHDR Line Location: HDR+2
Function Call: WRITE	Prompt: !?14,"Includes discontinued requests from ",RAOBEG("X")," to ",RAOEND("X") Line Location: HDR+3
Function Call: WRITE	Prompt: !,"PATIENT NAME",?21,"SSN",?27,"PROCEDURE",?53,"DATE DESIRED",?67,"CANCELLED DATE" Line Location: HDR+5
Function Call: WRITE	Prompt: ?83,"CANCELLED BY" Line Location: HDR+6
Function Call: WRITE	Prompt: ?104,"CANCEL REASON",!,QQ,!! Line Location: HDR+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RAO(75.1 - [#75.1]	GET1^DIQ
^RA(75.2 - [#75.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	WRT+2
^RA(79.1 - [#79.1]	START+7, HDR+4
^RAMIS(71 - [#71]	WRT+2
^RAO(75.1 - [#75.1]	START+10, START+11, START+12, START+13, START+15
^SC - [#44]	HDR+4
^TMP($J	KILL+1!, CONT+5, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, SETTMP+3*

Label References

Name	Line Occurrences
CONT	START+22
EOS	CONT+1, CONT+3, WRT+8
HDR	CONT+2, WRT+8
KILL	EN+3, EN+4, EN+8, START+20
MORE	CONT+5
SETTMP	START+16, START+17
WRT	MORE+8

Naked Globals

Name	Field # of Occurrence
^(0	WRT+2, HDR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	START+5*!
BEGDATE	EN+5!, KILL+3!
ENDDATE	EN+5!, KILL+3!
IO	START+2
IOF	HDR+1
IOSL	WRT+8
IOST	CONT+1, CONT+3
QQ	START+2*, KILL+2!, HDR+7
RA791IEN	START+7*, START+8!
RACNT	START+22, KILL+2!, MORE+6, WRT+8
RADCBY	START+15, KILL+4!, MORE+2, MORE+3, MORE+4, MORE+5, WRT+4, SETTMP+3
RADD	KILL+4!, WRT+1*, WRT+2
RADDT	EN+4*!, KILL+2!
RADFN	START+13, KILL+2!, CONT+5, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, WRT+2, SETTMP+3
RADLOCS	KILL+4!
RADT	KILL+2!, CONT+5*, MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, WRT+1
RAEOS	START+20, START+22, KILL+2!, CONT+1, CONT+2, CONT+3, CONT+5, MORE+1, MORE+2, MORE+3 , MORE+4, WRT+8, HDR+8, SETTMP+2, EOS+2*
RAHDR	START+2*, KILL+2!, HDR+2
RAHDRDSH	START+2*, KILL+2!
RAILOC	START+14, START+16, START+17, START+21, START+22*, KILL+2!, CONT+1, CONT+3, CONT+4, CONT+5 , MORE+1, MORE+2, MORE+3, MORE+4, MORE+5, WRT+7, WRT+8, HDR+4, SETTMP+3, SETTMP+4 , SETTMP+5
RAIMTYP	START+14*, START+17, KILL+2!
RALADT	START+14, KILL+4!, MORE+3, MORE+4, MORE+5, WRT+1, SETTMP+3
RALADTX	KILL+4!, WRT+1*, WRT+3
RALOC	KILL+2!
RALOC(	START+7
RALOC(0	EN+3
RALOC1	KILL+2!
RALOC1(	START+7, START+16, START+22, CONT+3, CONT+4, WRT+8, SETTMP+5
RALOC1("UNKNOWN"	SETTMP+4*
RALOCIT	KILL+2!
RALOCIT(	START+7*, START+17
RALOCN	KILL+3!, MORE+7!
RALOCNM	START+2, START+7, START+8!
RANOSCRN	EN+3*!
RAO	KILL+3!, MORE+4*, MORE+5, WRT+6
RAO0	START+13*, START+14, KILL+4!, SETTMP+3
RAOBEG	EN+5*, START+1, START+3, KILL+3!
RAOBEG("X"	START+3*, CONT+3, HDR+3
RAODD	START+1~, START+10, START+11, KILL+4!
RAODT	START+14*, KILL+3!
RAOEND	EN+5*, START+4, START+10, KILL+3!
RAOEND("X"	START+4*, CONT+3, HDR+3
RAOIEN	START+9~, START+11*, START+12, START+13, START+15, SETTMP+3
RAOIFN	KILL+3!
RAOLOC	START+2, KILL+3!, CONT+1, CONT+4, WRT+7, WRT+8
RAOLOC(0	CONT+4!, WRT+8!
RAORDST	EN+2*, START+12, KILL+4!
RAOREA	START+14, KILL+4!, MORE+5, WRT+6, SETTMP+3
RAPOP	EN+4, EN+8, KILL+3!
RAPR	KILL+3!, MORE+1*, MORE+2, MORE+3, MORE+4, MORE+5, WRT+2
RAQUIT	EN+3, KILL+3!
RARDT	KILL+3!
RAREA	MORE+5~
RAREQSTA	KILL+3!
RARLOCN	MORE+7!
RARUNDTE	START+5*, KILL+3!, HDR+4
RAT	START+15~*, KILL+4!
U	START+12, START+13, START+14, START+15, SETTMP+3
X	START+5, KILL+4!, EOS+1, EOS+2
Y	START+5, KILL+4!, WRT+1*
ZTDESC	KILL+4!
>> ZTQUEUED	START+6, HDR+8, SETTMP+2
>> ZTREQ	START+6*
ZTRTN	EN+7*, KILL+4!
ZTSAVE	KILL+4!
ZTSAVE("RALOC("	EN+7*
ZTSAVE("RAOBEG"	EN+6*
ZTSAVE("RAOEND"	EN+6*
ZTSAVE("RAORDST"	EN+7*
ZTSAVE("RASORTBY"	EN+7*
>> ZTSTOP	HDR+8, SETTMP+2

Customize PDF page

Package: Radiology Nuclear Medicine