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: LRUTIL1

Package: Lab Service

Routine: LRUTIL1


Information

LRUTIL1 ;DALOI/JDB -- Lab Utilities ;06/12/09 15:31

Source Information

Source file <LRUTIL1.m>

Entry Points

Name Comments DBIA/ICR reference
SELECT(DIC,OUT,FNAME,SELS,SORT,NOALL,MODE) ;
; Package replacement for FIRST^VAUTOMA
; Allows user to select multiple entries from a file.
; Inputs
; DIC :<byref> Standard DIC array
; OUT :<byref> See Outputs below
; FNAME :<opt> Filename to use for "Select " prompt
; : FNAME="" and DIC=# then uses File's Name
; SELS :<opt> How many selections user may make. dflt=20
; SORT :<opt> Numeric or Alpha sort? N or A -or- 0 or 1
; NOALL ;<opt> If 1 then user cannot select "ALL"
; MODE :<opt> Behave like FIRST^VAUTOMA or not (1 or 0)
; : dflt=0 (not) (see Outputs below for info)
; Outputs
; Returns the # of records selected
; OUT : Array that holds the records selected
; : MODE=0 OUT=total selected or OUT="*" (ALL)
; : SORT=0 -> OUT(select seq)=IEN
; : SORT=1 -> OUT(alpha seq)=IEN
; :
; : MODE=1 (VAUTOMA mode) OUT="" or OUT=1 (ALL)
; : SORT=0 -> OUT(IEN)=.01 field
; : SORT=1 -> OUT(.01 field)=IEN
HELP ;
; Displays "?" help info. For use with above.
; Expects SELS,NOALL,FNAME,CNT,TMPNM,LRDIC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"ENTER up to ",SELS,":"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !?5,"- <return> for all ",FNAME,"s, or"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !?5,"- a ",FNAME," or <return> after all selections made."
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !?5,"- An entry preceded by a minus [-] sign to remove entry from list."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !,"NOTE, you have already selected:"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !?8,LRX
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+13
Info |  Source |  Entry Points |  Interaction Calls