Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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) ;

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
Info |  Source |  Entry Points |  Interaction Calls