Routine: RAPSAPI

Package	Total	Call Graph
VA Fileman	3	$$ROOT^DILFD $$GET1^DIQ ^DIR
Pharmacy Data Management	2	(DATA,ZERO)^PSS50 ($$FNAME,DIC,DO)^PSSDI
Kernel	1	HOME^%ZIS
Radiology Nuclear Medicine	1	SETVACL^RAPSAPI2

Package	Total	Caller Graph
Radiology Nuclear Medicine	7	RADD3 RADOSTIK RAMAIN2 RANMUSE2 RANMUTL1 RAPSAPI2 RAPSAPI3

Entry Points

Name	Comments	DBIA/ICR reference
EN2(RADIC,RAUTIL)	; adapted from EN1^RASELCT ; called from selradio+11^RANMUTL1
PAUSE	;
HELP	;
SHOW
K
SOME	; SG 4/12/07
HLP
1	;
EN1(RAX,RAN)	; call data^pss50 to get external values to some fields
EN5()	;display identifier from file 71.9, field 5 radiopharm ; ^(0) is ^RAMIS(71.9,-,0)
EXIT	;
WRAP	;
SHO

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(RANUM>1:"Another one (Select/De-Select): ",1:RADIC("A")) Line Location: 1+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: 1+2
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: SOME+2
Function Call: WRITE	Prompt: " ?? Enter at least 1 character before the ""*"".",$C(7) Line Location: SOME+3
Function Call: WRITE	Prompt: !?5,"To deselect a ",RAFLD01," type a minus sign (-)",!?5,"in front of it, e.g., -",RAFLD01,"." Line Location: HELP+2
Function Call: WRITE	Prompt: !?5,"Use an asterisk (*) to do a wildcard selection, e.g.," Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"enter ",RAFLD01,"* to select all entries that begin" Line Location: HELP+4
Function Call: WRITE	Prompt: !?5,"with the text '",RAFLD01,"'. Wildcard selection is" Line Location: HELP+5
Function Call: WRITE	Prompt: !?5,"case sensitive." Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"You have already selected:" Line Location: SHOW+0
Function Call: WRITE	Prompt: ! Line Location: HLP+0
Function Call: WRITE	Prompt: !?3,RA Line Location: SHO+0
Function Call: WRITE	Prompt: ! Line Location: WRAP+1
Function Call: WRITE	Prompt: !?5,$P(RA," ",1,Y) Line Location: WRAP+1
Routine Call	%ZIS Line Location: EN2+24
Routine Call	DIR Line Location: PAUSE+1

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN1+10!, EN1+12, EN1+13!, EN2+24!, 1+14, 1+15, EXIT+1, SOME+8, SOME+10, SOME+17 , SOME+18*, SOME+20, SOME+22!, HELP+7, SHOW+1

Name	Field # of Occurrence
^(	1+14*, 1+15!, SOME+20!
^(0	EN5+2

Name	Field # of Occurrence
%	K!
%X	K!
%Y	K!
%Z	K!
C	K!
D0	K!
DA	K!
DIC	EN2+18~, EN2+19*, K!
DIC(0	EN2+20*
DIK	K!
DIR	K!, PAUSE+1!
DIR(0	PAUSE+1*
DO	EN2+23!, K!
DTIME	1+2
IOM	WRAP+1
IOSL	SHO+1
NAME	SOME+1~, SOME+15*, SOME+17, SOME+18, SOME+20
PSSDIY	EN2+18~, EN2+22
RA	K!, HELP+1, SHOW, SHOW+1, SHO, WRAP+1
RA50I	SOME+1~, SOME+9, SOME+10, SOME+13
RAALL	K!
RACASE	K!
RAD0	K!, SHOW+1*
RADIC	EN2~, EN2+17, EN2+19*, EN2+21, 1+11, EXIT+1!, SOME+13
RADIC("A"	1+1
RADIC(0	EN2+17, EN2+20, SOME+4, SOME+21*
RADIC0	SOME+1~, SOME+4*, SOME+21
RADSEL	1+2*, 1+14, 1+15, K!, SOME+17
RAENTRY	SOME+1~, SOME+5*, SOME+6
RAFLD01	EN2+23*, K!, HELP+1, HELP+2, HELP+4, HELP+5
RAFNAME	EN2+23*, K+1!, HELP+1
RAFNUM	K+1!
RAFSCR	K+1!
RALINE	K+1!, SHOW, SHO+1
RAN	EN1~, EN1+3, EN1+12
RANUM	EN2+24, 1+1, 1+14, 1+15, K+1!, SOME+18, SOME+20*
>> RAQUIT	EN2+16, EN2+17, EN2+19, EN2+22, 1+2, EXIT+1, SHOW+1, HLP, PAUSE+1
RAUTIL	EN2~, EN2+17, EN2+24, 1+14, 1+15, EXIT+1!, SOME+17, SOME+18, SOME+20, HELP+7 , SHOW+1
RAVACL	1+11, K+1!, SOME+13
RAVALUE	K+1!
RAX	EN1~, EN1+3, EN1+9*, EN1+11, EN1+12
RAXN	SOME+1~, SOME+7, SOME+8, SOME+10
RAY	EN1+8~, EN1+12*, EN1+14
SCR	EN1+8~
U	1+14, 1+15, SOME+15, EN5+2
X	EN1+3, EN1+4, EN1+8~, EN2+18~, 1+2, 1+3, 1+5, 1+11, K+1!, SOME+2 , SOME+3, SOME+5, HELP+1~
Y	EN2+18~, 1+12, 1+14, 1+15, K+1!, SOME+14, SOME+15, SOME+17, SOME+18, SOME+20 , WRAP+1*, PAUSE+1