Routine: SDRRSLCT

Package	Total	Call Graph
VA Fileman	7	^%DT ^DIC DO^DIC1 $$GET1^DID ($$EXTERNAL,$$VFIELD)^DILFD EN^DIQ1 ^DIR
Kernel	3	HOME^%ZIS $$FMTE^XLFDT $$UP^XLFSTR
Scheduling	1	($$ALL,$$RANGE)^SDRRSLC1

Package	Total	Caller Graph
Scheduling	3	SDRRPXC SDRRSLC1 SDRRUTL1

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE()	;
SEL(SDRRD0,SDRRDFNUM,SDRRDDSEL,SDRRDFLD)	;
PLURAL(SDRRDFL01)	;
WRAP(X,LINE)	;
SETDATA(SDRRDVALU,SDRRD0,SDRRDUTIL,SDRRDDSEL,SDRRDNUM)	;
FLD(SDRRDFNUM,SDRRDFLD)	; 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. ; SDRRDFNUM = File # ; SDRRDFLD = Field # ; returns SDRRDPASS: 0 if valid, else 1
EN(SDRRDDIC,SDRRDUTIL,SDRRDROOT,SDRRDFLD)	;
SETDIC(SDRRDDIC,DIC,DO)	;
FILEATTR(DIC,DIC0,SDRRDFNUM,SDRRDFNAM,SDRRDFL01,SDRRDFSCR)	;
EXIT	;
FLDSRT(SDRRDFNUM,SDRRDFLD,SDRRDINTR)	; Converts internal to external value ; for sets of codes & pointers. ; SDRRDFNUM = File # ; SDRRDFLD = Field # ; SDRRDPIEC = piece position on 0 node
HELP(SDRRDDIC,SDRRDUTIL,SDRRDFLD)	;
CHFLD(X)	;

External References

Name	Field # of Occurrence
^%DT	EN+47, SEL+7
HOME^%ZIS	EN+21
^DIC	EN+43
DO^DIC1	SETDIC+3, FILEATTR+3
$$GET1^DID	EN+12, CHFLD+2, FLD+9, FLD+10, FLDSRT+6, FILEATTR+6
$$EXTERNAL^DILFD	FLDSRT+8
$$VFIELD^DILFD	FLD+8, FLD+11
EN^DIQ1	SEL+5
^DIR	PAUSE+3
$$ALL^SDRRSLC1	EN+35
$$RANGE^SDRRSLC1	EN+32
$$FMTE^XLFDT	HELP+30
$$UP^XLFSTR	EN+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(SDRRDNUM>1:"Another one (Select/De-Select): ",1:DIC("A")) Line Location: EN+24
Function Call: WRITE	Prompt: $S((SDRRDNUM=1)&(SDRRDDIC("B")]""):SDRRDDIC("B")_"// ",1:"") Line Location: EN+25
Function Call: READ	Timeout: DTIME Variable: SDRRDX Line Location: EN+26
Function Call: WRITE	Prompt: ! Line Location: HELP+6
Function Call: WRITE	Prompt: !?5,SDRRDLINE(SDRRD) Line Location: HELP+10
Function Call: WRITE	Prompt: !?5,"To deselect a ",SDRRDFL01," type a minus sign (-)" Line Location: HELP+11
Function Call: WRITE	Prompt: !?5,"in front of it, e.g., -",SDRRDFL01,"." Line Location: HELP+12
Function Call: WRITE	Prompt: !?5,"To get all ",SDRRDFL01,SDRRDCASE," type ALL." Line Location: HELP+13
Function Call: WRITE	Prompt: !?5,"Use an asterisk (*) to do a wildcard selection, e.g.," Line Location: HELP+14
Function Call: WRITE	Prompt: !?5,"enter ",SDRRDFL01,"* to select all entries that begin" Line Location: HELP+15
Function Call: WRITE	Prompt: !?5,"with the text '",SDRRDFL01,"'. Wildcard selection is" Line Location: HELP+16
Function Call: WRITE	Prompt: !?5,"case sensitive. A range may be selected by entering" Line Location: HELP+17
Function Call: WRITE	Prompt: !?5,"'AAA-CCC', i.e., select all records from 'AAA' to" Line Location: HELP+18
Function Call: WRITE	Prompt: !?5,"'CCC' inclusive." Line Location: HELP+19
Function Call: WRITE	Prompt: ! Line Location: HELP+20
Function Call: WRITE	Prompt: !,"You have already selected:" Line Location: HELP+24
Function Call: WRITE	Prompt: !?3,SDRRD0,?15,SDRRD(0) Line Location: HELP+31
Function Call: WRITE	Prompt: !?3,SDRRD(0) Line Location: HELP+32
Routine Call	%ZIS Line Location: EN+21
Routine Call	DIC Line Location: EN+43
Routine Call	DIR Line Location: PAUSE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EN+5

Label References

Name	Line Occurrences
$$CHFLD	EN+45, HELP+30, CHFLD+6, SEL+7
$$FLD	EN+17
$$FLDSRT	EN+54
$$PAUSE	HELP+38
$$PLURAL	HELP+5
EXIT	EN+9, EN+11, EN+17
FILEATTR	EN+16, HELP+4
HELP	EN+37
SETDATA	EN+51, EN+55
SETDIC	EN+23, HELP+33
WRAP	HELP+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN+1~, EN+46~, EN+47, SEL+1~, SEL+7
A	CHFLD+1~, CHFLD+2, CHFLD+3, CHFLD+4, CHFLD+5, CHFLD+6*, CHFLD+9
D0	HELP+2~, HELP+35*
DA	HELP+2~, HELP+35, SEL+1~, SEL+3
DIC	EN+2~, EN+10, EN+11, EN+12, EN+13, EN+16, EN+23, EN+43!, HELP+2~, HELP+33 , SEL+1~, SEL+4, SETDIC~, SETDIC+1!, SETDIC+2, FILEATTR~
DIC(	SETDIC+4*
DIC("A"	EN+24
DIC("S"	EN+38, EN+39, EN+40, EN+41*
DIC("W"	HELP+34, HELP+36
DIC(0	EN+15, EN+16, FILEATTR+2
DIC0	FILEATTR~, FILEATTR+2
DIQ	SEL+1~, SEL+4*
DIQ(0	SEL+4*
DIR	PAUSE+1~
DIR(0	PAUSE+2*
DIROUT	PAUSE+1~
DIRUT	PAUSE+1~
DO	EN+2~, EN+23, HELP+2~, HELP+33, SETDIC~, SETDIC+1!, FILEATTR+1~, FILEATTR+5
DO("SCR"	FILEATTR+7
DO(2	FILEATTR+4
DR	SEL+1~, SEL+4*
DTIME	EN+26
DTOUT	EN+2~, PAUSE+1~
DUOUT	EN+2~, PAUSE+1~
I	EN+2~, EN+18, WRAP+1~, WRAP+3, WRAP+5, WRAP+6, FLD+6~, FLD+14, SETDIC+1~, SETDIC+4*
IOM	WRAP+4
IOSL	HELP+38
LINE	WRAP~, WRAP+2!
LINE(	WRAP+6*
SDRRD	HELP+1~, HELP+7, HELP+8, HELP+9, HELP+10, HELP+23, HELP+25*, HELP+27, HELP+29, FLD+6~
SDRRD(0	HELP+28, HELP+29, HELP+30*, HELP+31, HELP+32
SDRRD(2	FLD+9*, FLD+11, FLD+14
SDRRD(4	FLD+10*, FLD+12
SDRRD0	SETDATA~, SETDATA+1, SETDATA+2, SETDATA+5, SETDATA+6, HELP+1~, HELP+26, HELP+27, HELP+28, HELP+31 , HELP+35, SEL~, SEL+3
SDRRDCASE	HELP+1~, HELP+5*, HELP+13
SDRRDDIC	EN~, EN+8, EN+10, EN+12*, EN+23, EN+32, EN+35, EN+37, HELP~, HELP+4 , HELP+28, HELP+33, HELP+34, SETDIC~, SETDIC+2
SDRRDDIC(	EN+18*, SETDIC+4
SDRRDDIC("A"	EN+19*
SDRRDDIC("B"	EN+25, EN+27
SDRRDDIC(0	EN+8, EN+15*, HELP+4, HELP+31
SDRRDDONE	EN+1~, EN+7, EN+22, EN+28
SDRRDDSEL	EN+1~, EN+29*, EN+30, EN+32, EN+35, EN+40, EN+51, EN+55, SETDATA~, SETDATA+1 , SETDATA+5, SEL~, SEL+9
SDRRDFL01	EN+1~, EN+16, EN+19, HELP+1~, HELP+4, HELP+5, HELP+7, HELP+11, HELP+12, HELP+13 , HELP+15, HELP+16, FILEATTR~, FILEATTR+6*, PLURAL~, PLURAL+1
SDRRDFLD	EN~, EN+3, EN+17, EN+32, EN+35, EN+37, EN+41, EN+50, EN+54, HELP~ , HELP+28, SEL~, SEL+2, SEL+4, SEL+6, FLD~, FLD+7, FLD+8, FLD+9, FLD+10 , FLDSRT~, FLDSRT+6, FLDSRT+8
SDRRDFNAM	EN+1~, EN+16, EN+19, HELP+1~, HELP+4, HELP+7, FILEATTR~, FILEATTR+5*
SDRRDFNUM	EN+1~, EN+16, EN+17, EN+40, EN+45, EN+54, HELP+1~, HELP+4, HELP+30, SEL~ , SEL+4, SEL+6, SEL+7, FLD~, FLD+8, FLD+9, FLD+10, FLDSRT~, FLDSRT+6, FLDSRT+8 , FILEATTR~, FILEATTR+4*, FILEATTR+6
SDRRDFSCR	EN+1~, EN+16, HELP+2~, HELP+4, FILEATTR~, FILEATTR+7*
SDRRDINTR	FLDSRT~, FLDSRT+8
SDRRDLINE	HELP+2~, HELP+8, HELP+22, HELP+38
SDRRDLINE(	HELP+10
SDRRDMASK	EN+1~, EN+44*, EN+49
SDRRDNUM	EN+2~, EN+20, EN+24, EN+25, EN+27, EN+32, EN+35, EN+51, EN+55, SETDATA~ , SETDATA+3, SETDATA+7*
SDRRDPASS	FLD+6~, FLD+13, FLD+14, FLD+15
SDRRDPIEC	FLDSRT+5~, FLDSRT+6, FLDSRT+7, FLDSRT+8
SDRRDPNTR	SEL+1~, SEL+3*, SEL+6, SEL+8
SDRRDQUIT	EN+2~, EN+7, EN+8, EN+9, EN+11, EN+13, EN+17, EN+22, EN+26, EN+31 , EN+32, EN+34, EN+35, EXIT+1, EXIT+2, EXIT+3, HELP+2~, HELP+3, HELP+25, HELP+27 , HELP+38
SDRRDROOT	EN~, EN+4, EN+5, EN+6, EXIT+1, EXIT+2, SETDATA+1, SETDATA+2, SETDATA+5, SETDATA+6 , HELP+21, HELP+25, HELP+27, SEL+8
SDRRDUTIL	EN~, EN+4, EN+5, EN+8, EN+32, EN+35, EN+37, EN+51, EN+55, SETDATA~ , HELP~
SDRRDVALU	EN+2~, EN+54*, EN+55, SETDATA~, SETDATA+1, SETDATA+2, SETDATA+5, SETDATA+6
SDRRDX	EN+2~, EN+26, EN+27, EN+28, EN+29, EN+30*, EN+31, EN+32, EN+34, EN+35 , EN+37, EN+43
SDRRDXTRN	SEL+1~, SEL+6, SEL+7, SEL+8
SDRRDXTRN(	SEL+6
U	EN+26, HELP+28, FLDSRT+8, FILEATTR+5
X	EN+2~, EN+43, EN+46~, EN+47, HELP+2~, WRAP~, WRAP+4, WRAP+6, WRAP+7, PAUSE+1~ , CHFLD~, CHFLD+2, SEL+1~, SEL+7, SEL+8*, SEL+9
Y	EN+2~, EN+43, EN+44, EN+47, EN+49, EN+51, EN+55, HELP+35, WRAP+1~, WRAP+4* , WRAP+6, WRAP+7, PAUSE+1~, PAUSE+4, SEL+1~, SEL+7
Y(0	EN+47*, EN+51, EN+54

Customize PDF page

Package: Scheduling

Routine: SDRRSLCT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: