Routine: RASTREQ1

Information

RASTREQ1 ;HISC/CAH,GJC AISC/MJK-Cont. of RASTREQ status reqmts ck ;5/29/97 12:52

Package	Total	Call Graph
Radiology Nuclear Medicine	2	($$PSET,$$STUB)^RAEDCN1 HELP1^RASTREQ

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RASTREQ RAUTL1

Name	Comments	DBIA/ICR reference
CANCEL	; cancel an exam
STUFF	; initialize RAOR=-1 to assume NO change if early quit
LOOP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This exam is in the '",$P(^(0),"^"),"' status and cannot be 'CANCELLED'" Line Location: CANCEL+7
Function Call: WRITE	Prompt: !,"A report has been filed for this case. Therefore cancellation is not allowed !" Line Location: CANCEL+12

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	STUFF+2, STUFF+4, LOOP, LOOP+1, LOOP+4, LOOP+5, LOOP+6, LOOP+7, CANCEL+1, CANCEL+7
^RA(79.2 - [#79.2]	STUFF+6
^RADPT - [#70]	STUFF+1, STUFF+6
^XUSEC("RA MGR"	CANCEL+10

Name	Field # of Occurrence
^(0	STUFF+4, LOOP, CANCEL+7

Name	Field # of Occurrence
>> DA	STUFF+1
>> DA(1	STUFF+1, STUFF+6
>> DA(2	STUFF+1, STUFF+6
DUZ	CANCEL+10
E	LOOP+5*, LOOP+6, LOOP+7, LOOP+9, LOOP+14!
FL	LOOP+14!
K	LOOP+4*, LOOP+5, LOOP+9, LOOP+14!
N	LOOP+7*, LOOP+9, LOOP+14!
RA	LOOP+3~
RA(0	LOOP+7*
>> RAAFTER	LOOP+12, CANCEL+2, CANCEL+7, CANCEL+12
>> RABEFORE	STUFF+2*, CANCEL+7, CANCEL+12
>> RACNI	CANCEL+10
>> RACS	STUFF+3*
>> RADFN	CANCEL+10
>> RADTI	CANCEL+10
RAE	LOOP+14!
>> RAF5	STUFF+5*
RAIMGTYI	STUFF+6*, LOOP+14!
RAIMGTYJ	STUFF+6*, LOOP, LOOP+1, LOOP+4, LOOP+5, LOOP+14!
RAJ	STUFF+1*, STUFF+2, STUFF+3, STUFF+4, STUFF+5, LOOP+13, LOOP+14!, CANCEL+7, CANCEL+10, CANCEL+12
RAJ1	LOOP+14!
RAK	LOOP+14!
>> RAOPT("DELETEXAM"	CANCEL+3
>> RAOR	STUFF+1, LOOP, LOOP+1, LOOP+9, LOOP+12, LOOP+13, CANCEL+1*, CANCEL+2
>> RAORDIFN	STUFF+3*
>> RAPRIT	STUFF+3*
RAS	LOOP+7, LOOP+8, LOOP+14!
>> RASN	STUFF+4, LOOP+1, LOOP+9, CANCEL+1
>> RASTI	LOOP+1, LOOP+9, LOOP+13, CANCEL+1*
>> RAXX	CANCEL+1
RAZ	LOOP+14!
U	STUFF+2, STUFF+6, LOOP+1, CANCEL+7, CANCEL+10, CANCEL+12
>> X	LOOP+5*, LOOP+9