Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SDRRSLCT

Package: Scheduling

Routine: SDRRSLCT


Information

SDRRSLCT ;10N20/MAH;-RECALL REMINDER Generic file entry selector ;12/09/2007 14:26

Source Information

Source file <SDRRSLCT.m>

Call Graph

Call Graph

Call Graph Total: 11

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Scheduling 3 SDRRPXC  SDRRSLC1  SDRRUTL1  

Entry Points

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

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
  • Variable: SDRRDX
  • Timeout: DTIME
  • 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
  • DIC
  • Line Location:
    • EN+43
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+21

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All