Routine: RANMED1

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL ^DIC ^DIE ^DIR

Package	Total	Caller Graph
Radiology Nuclear Medicine	5	RA NM EDIT LOT RA NM EDIT ROUTE RA NM EDIT SITE RA NM EDIT SOURCE RACTEX17

Entry Points

Name	Comments	DBIA/ICR reference
ROUTE	; Enter/Edit file 71.6
SITE	; Enter/Edit file 71.7
WARN	; Warn if dose is out-of-range, called from [RA EXAM EDIT]
SOURCE	; Enter/Edit file 71.8
EXIT
LOT	; Enter/Edit file 71.9
DUPL	;check for duplicate entry into file 71.9

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ROUTE+1
Function Call: WRITE	Prompt: !!?5,"Current parameters for entry of sites for this route :" Line Location: ROUTE+4
Function Call: WRITE	Prompt: !!?5,"PROMPT FOR FREE TEXT SITE? = ",$P(^RAMIS(71.6,DA,0),U,3) Line Location: ROUTE+5
Function Call: WRITE	Prompt: !?10 Condition for execution: ($L(RA2)+2+$X)>80 Line Location: ROUTE+6
Function Call: WRITE	Prompt: RA2 Line Location: ROUTE+6
Function Call: WRITE	Prompt: ";" Condition for execution: $O(^RAMIS(71.6,DA,"SITE",RA1)) Line Location: ROUTE+6
Function Call: WRITE	Prompt: " " Line Location: ROUTE+6
Function Call: WRITE	Prompt: !!?21,"-- NOTE -- ",!?10,"If 'PROMPT FOR FREE TEXT SITE?' is 'Y',",!?10,"then users will not be given a selection",!?10,"of predefined 'VALID SITES'" Line Location: ROUTE+7
Function Call: WRITE	Prompt: ! Line Location: SITE+1
Function Call: WRITE	Prompt: ! Line Location: SOURCE+1
Function Call: WRITE	Prompt: ! Line Location: LOT+7
Function Call: WRITE	Prompt: !!,RADOT,!?14,"This dose level requires a written, dated and signed",!?27,"directive by a physician.",!,RADOT,! Line Location: WARN+5
Function Call: WRITE	Prompt: !,RADOT Line Location: WARN+6
Function Call: WRITE	Prompt: !?((80-$L(^(RA1,0)))/2),^(0) Line Location: WARN+7
Function Call: WRITE	Prompt: !,RADOT,! Line Location: WARN+8
Routine Call	DIE Line Location: ROUTE+3 ROUTE+13 SITE+3 SOURCE+3 LOT+12
Routine Call	DIC Line Location: ROUTE+2 SITE+2 SOURCE+2 LOT+7
Routine Call	DIR Line Location: ROUTE+10

Name	Line Occurrences (* Changed, ! Killed)
^RA(79 - [#79]	WARN+5, WARN+7
^RADPT - [#70]	WARN+4
^RAMIS(71.6 - [#71.6]	ROUTE+5, ROUTE+6
^RAMIS(71.7 - [#71.7]	ROUTE+6
^RAMIS(71.9 - [#71.9]	DUPL+1

Name	Field # of Occurrence
^(	ROUTE+6, WARN+7
^(0	ROUTE+6, WARN+7

Name	Field # of Occurrence
C	EXIT+1!
D	EXIT+1!
D0	EXIT+1!
DA	ROUTE+3, ROUTE+5, ROUTE+6, SITE+3, SOURCE+3, LOT+2~, LOT+10, LOT+11, EXIT!, EXIT+2!
DDH	EXIT+1!
DG	EXIT+1!
DI	EXIT+1!
DIC	ROUTE+2, ROUTE+3, SITE+2, SITE+3, SOURCE+2, SOURCE+3, LOT+2~, LOT+6, LOT+10, EXIT!
DIC(0	ROUTE+2, SITE+2, SOURCE+2, LOT+6
DIDEL	LOT+2~
DIE	ROUTE+3, SITE+3, SOURCE+3, LOT+2~, LOT+10, EXIT!, EXIT+2!
DINUM	LOT+2~
DIR	EXIT!
DIR("A"	ROUTE+9*
DIR(0	ROUTE+8*
DIRUT	ROUTE+11, EXIT!
DISYS	EXIT+1!
DLAYGO	LOT+2~
DQ	EXIT+1!
DR	ROUTE+3, ROUTE+12, SITE+3, SOURCE+3, LOT+2~, LOT+11*, EXIT!, EXIT+2!
DST	EXIT+1!
DTOUT	LOT+2~
DUOUT	LOT+2~, EXIT+1!
EXIT	LOT+2~, LOT+3, LOT+4, LOT+8
I	EXIT+1!
POP	EXIT+1!
RA	DUPL+3~, DUPL+12
RA(1	DUPL+4, DUPL+5
RA(2	DUPL+6, DUPL+7
RA(3	DUPL+8, DUPL+9
RA(4	DUPL+10, DUPL+11
RA1	ROUTE+1~, ROUTE+6, WARN+2~, WARN+7
RA2	ROUTE+1~, ROUTE+6*
RA50IEN	EXIT+2!
RA719IEN	EXIT+2!
>> RADFN	WARN+1, WARN+4
RADOT	WARN+2~, WARN+3*, WARN+5, WARN+6, WARN+8
>> RADTI	WARN+1, WARN+4
RAENTRY	EXIT+2!
RAFDA	EXIT+2!
RAFIN	EXIT+3!
RAHLP3	EXIT+3!
RANODEL	EXIT+2!
>> RAOPT("NM EDI	T LOT" , DUPL+2
RASTUFF	EXIT+2!
RAVACL	EXIT+2!
RAXDIV	WARN+2~, WARN+4*, WARN+5, WARN+7
RAYN	EXIT+2!
TMP	LOT+2~
U	ROUTE+5, ROUTE+6, WARN+4
X	ROUTE+12, LOT+2~, DUPL+1, DUPL+4, DUPL+8
Y	ROUTE+3, SITE+3, SOURCE+3, LOT+2~, LOT+8, LOT+10