Routine: RASELCT

Information

RASELCT ;HISC/DAD-Generic file entry selector ;7/1/98 15:48

Source Information

Source file <RASELCT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	8	^%DT %XY^%RCR ^DIC DO^DIC1 $$EXTERNAL^DILFD Y^DIQ EN^DIQ1 ^DIR
Kernel	1	HOME^%ZIS

Caller Graph

Caller Graph Total: 28

Package	Total	Caller Graph
Radiology Nuclear Medicine	28	RABAR RABAR1 RABTCH3 RACMHIS RACMPLE RACPT1 RAFLM RAHLEX RALIST RALWKL3 RANMUTL1 RAORD2 RAPINFO RAPMW RAPRINT RARTST1 RARTST3 RASTEXT RASTRPT2 RATRAN RAUTL12 RAUTL13 RAUTL7 RAWKL RAWKLU RAWKLU2 RAWRVUP RAXSTAT

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;
PAUSE	;
SEL(Y)	;
HELP	;
SHOW
FLDSRT(RAFNUM,RAFLD)	; Converts the internal value to the external value ; for sets of codes & pointers. ; 'RAFNUM' = File # 'RAFLD' = Field # ; 'RAPCE' = piece position on 0 node
K
FLD(RAFNUM,RAFLD)	; Validate if field can be sorted on i.e, if ; non-multiple and is either a pointer, free text, set of codes, ; numeric or a date/time field. ; 'RAFNUM' = File # 'RAFLD' = Field # ; returns RAPASS: 0 if valid, else 1
AL
HLP
1
BLDPAT	;
EXIT	;
WRAP	;
EN1(RADIC,RAUTIL,RAARRY,RAINPUT,RAFLD)	;
SETDIC	;
CHFLD(X)	;
SHO

Name	Field # of Occurrence
^%DT	1+10, AL+6, SEL+4
%XY^%RCR	EXIT+3
HOME^%ZIS	EN1+11
^DIC	1+6
DO^DIC1	EN1+6, SETDIC+3
$$EXTERNAL^DILFD	FLDSRT+5
Y^DIQ	AL+3
EN^DIQ1	SEL+3
^DIR	PAUSE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(RANUM>1:"Another one (Select/De-Select): ",1:DIC("A")),$S((RANUM=1)&(RADIC("B")]""):RADIC("B")_"// ",1:"") Line Location: 1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: 1+1
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,"To get all ",RAFLD01,"S type ALL." Line Location: HELP+3
Function Call: WRITE	Prompt: !?5,"Use an asterisk (*) to do a wildcard selection, e.g.," Line Location: HELP+4
Function Call: WRITE	Prompt: !?5,"enter ",RAFLD01,"* to select all entries that begin" Line Location: HELP+5
Function Call: WRITE	Prompt: !?5,"with the text '",RAFLD01,"'. Wildcard selection is" Line Location: HELP+6
Function Call: WRITE	Prompt: !?5,"case sensitive." Line Location: HELP+7
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,RAD0,?15,RA(0) Line Location: SHO+6
Function Call: WRITE	Prompt: !?3,RA(0) Line Location: SHO+7
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: EN1+11
Routine Call	DIC Line Location: 1+6
Routine Call	DIR Line Location: PAUSE+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(	EN1+6, AL+2, CHFLD+2, FLD+6, FLD+7, FLD+9, FLDSRT+4
^DD("DD"	SHO+4
^DIC - [#1]	EN1+4
^TMP($J	EN1+11!, 1+14, 1+15, 1+19, 1+20, EXIT+5, AL+10, AL+11, AL+16, AL+17 , HELP+8, SHOW+1, SEL+5

Label References

Name	Line Occurrences
$$CHFLD	1+8, AL+4, SHO+2, CHFLD+6, SEL+4
$$FLD	EN1+7
$$FLDSRT	1+18, AL+15
1	1+3, 1+6, 1+22
AL	ALL+14
ALL	1+3
BLDPAT	ALL+10, ALL+12
EXIT	EN1+1, EN1+2, EN1+4, EN1+7, 1+1, 1+3
HELP	1+4
HLP	HELP+8
K	EN1+4
PAUSE	SHO+9
SETDIC	1, AL, AL+1, SHO+8
SHO	SHOW+1
WRAP	HELP+1

Name	Field # of Occurrence
^(	1+14, 1+15!, 1+19, 1+20!, AL+10, AL+11!, AL+16, AL+17!
^("GL"	EN1+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	K!
%DT	1+9~, 1+10, AL+5~, AL+6, SEL+1~, SEL+4*
%X	EXIT+2*, K!
%Y	EXIT+2*, K!
%Z	K!
A	CHFLD+1~, CHFLD+2, CHFLD+3, CHFLD+4, CHFLD+5, CHFLD+6*, CHFLD+8
C	K!, AL+2*
CHAR	ALL+5~, ALL+8*, ALL+9, BLDPAT+2
D0	K!, AL, AL+1, SHO+8*
DA	K!, AL, AL+1, SHO+8, SEL+1~, SEL+2
DIC	EN1+4, 1+6!, K!, SETDIC+1!, SEL+1~, SEL+2*
DIC(	SETDIC+2*
DIC("A"	1
DIC("S"	1+5*, AL+1
DIC("W"	SHO+8
DIC(0	EN1+5*
DIK	K!
DIQ	SEL+1~, SEL+2*
DIQ(0	SEL+2*
DIR	K!, PAUSE+1!
DIR(0	PAUSE+1*
DO	EN1+6!, K!, SETDIC+1!
DO("SCR"	EN1+6
DO(2	EN1+6
DR	SEL+1~, SEL+2*
DTIME	1+1
I	ALL+5~, ALL+7*, ALL+8
IOM	WRAP+1
IOSL	SHO+9
PAT	ALL+3~, ALL+6, AL+8, BLDPAT+1, BLDPAT+2*
RA	K!, HELP+1, SHOW, SHOW+1, SHO+1, WRAP+1, FLD+7~, FLD+12*
RA(0	SHO, SHO+1, SHO+4, SHO+6, SHO+7, FLD+7, FLD+8
RA(2	FLD+7*, FLD+9, FLD+12
RA(4	FLD+8*, FLD+10
RAALL	EN1+11, 1+3, K!, ALL+2
RAARRY	EN1~, EXIT+1, EXIT+2
RACASE	EN1+8*, K!
RAD0	K!, ALL+14, AL, AL+1, AL+10, AL+11, AL+14, AL+16, AL+17, SHOW+1 , SHO, SHO+6, SHO+8
RADIC	EN1~, EN1+1, EN1+2, EN1+4*, EXIT+5!, ALL+14, AL, AL+1, AL+2, AL+14 , SHO, SHO+8, SETDIC+1
RADIC(	EN1+9*, SETDIC+2
RADIC("A"	EN1+10*
RADIC("B"	EN1+3!, 1, 1+1
RADIC("S"	AL+1
RADIC(0	EN1+1, EN1+2, EN1+5*, SHO+6
RADSEL	1+1*, 1+14, 1+15, 1+19, 1+20, K!, ALL+15, AL+10, AL+11, AL+16 , AL+17, SEL+6
RAEXTRN	SEL+1~, SEL+3, SEL+4, SEL+5
RAEXTRN(	SEL+3
RAFLD	EN1~, EN1+7, 1+13, 1+18, AL+9, AL+15, SHO, FLD~, FLD+5, FLD+6 , FLD+7, FLDSRT~, FLDSRT+4, FLDSRT+5
RAFLD01	EN1+6*, EN1+8, EN1+10, K!, HELP+1, HELP+2, HELP+3, HELP+5, HELP+6
RAFNAME	EN1+6*, EN1+10, K+1!, HELP+1
RAFNUM	EN1+6*, EN1+7, 1+8, 1+18, K+1!, AL+2, AL+4, AL+15, SHO+2, SEL+2 , SEL+3, SEL+4, FLD~, FLD+6, FLD+7, FLDSRT~, FLDSRT+4, FLDSRT+5
RAFSCR	EN1+6*, K+1!, AL
RAINPUT	EN1~, EN1+3, HELP+3
RALINE	K+1!, SHOW, SHO+9
RAMASK	1+7*, 1+12, K+1!
RANUM	EN1+11, 1, 1+1, 1+14, 1+15, 1+19, 1+20, K+1!, ALL+15, AL+10 , AL+11, AL+16, AL+17*
RAPASS	FLD+7~, FLD+11, FLD+12, FLD+13
RAPCE	FLDSRT+4~*, FLDSRT+5
RAPOINT	SEL+1~, SEL+2*, SEL+3, SEL+5
>> RAQUIT	EN1+1, EN1+2, EN1+4, EN1+7, 1+1, 1+3, EXIT+1, EXIT+5, SHOW+1, HLP* , PAUSE+1*
RAUTIL	EN1~, EN1+1, EN1+2, EN1+11, 1+14, 1+15, 1+19, 1+20, EXIT+2, EXIT+5! , AL+10, AL+11, AL+16, AL+17, HELP+8, SHOW+1, SEL+5
RAVALUE	1+18, 1+19, 1+20, K+1!, AL+15, AL+16, AL+17
RAX	ALL+3~*, ALL+4, ALL+7, ALL+8, AL+8
TEMP	ALL+5~, ALL+6, ALL+9, BLDPAT+1, BLDPAT+3*
U	CHFLD+2
X	EN1+9, 1+1, 1+3, 1+4, 1+9~, 1+10, K+1!, ALL+3~, AL+5~, AL+6 , HELP+1~, SETDIC+2, CHFLD~, CHFLD+2, SEL+1~, SEL+4, SEL+5*, SEL+6
Y	1+6, 1+7, 1+10, 1+12, 1+14, 1+15, 1+19, 1+20, K+1!, AL , AL+1, AL+2, AL+3, AL+6, AL+10, AL+11, AL+14~, SHO+3~, SHO+4, SHO+8* , WRAP+1*, PAUSE+1, SEL~, SEL+2, SEL+4
Y(0	1+10, 1+14, 1+15, AL+14, FLDSRT+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASELCT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 28

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: