ACKQSEL ;HIRMFO/BH-QUASAR Utility Routine ; 04/01/99
Source file <ACKQSEL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SELECT(ACKTYP,ACKIN,ACKOUT,ACKFLD,ACKHLP,ACKDEF) | ; generic prompt to select from a list
; input: ACKTYP 1=one only, 2=many, 3=many or 'ALL'. ; ACKIN array/global containing valid items ; where @ACKIN@(name) exists ; ACKOUT array/global specifying where to put selected items ; where @ACKOUT@(name)="" and @ACKOUT=null or '^' ; ACKFLD field name^max len ; (used in prompt and list of items) ; ACKHLP mumps execute for help (displayed for both ? and ??) ; ACKDEF Default type^value ; if type is 1,default displayed with prompt and // ; if type is 2, default appears on spacebar return ; ^TMP("ACKQSEL",$J,1) used during this program |
|
| SELECTX | ; exit point
|
|
| SELECT2 | ; prompt the user
|
|
| SELECT3 | ; choose from multiple matching entries
|
|
| SELHELP | ; display help for the select prompt
; called by Fileman as the Help routine for the item ; being prompted in the SELECT function above. ; not intended for use by other functions/routines. ; requires the following ; @ACKIN@(itm) list of available items ; @ACKOUT@(itm) currently selected items ; ACKLIST which list to display 1=IN 2=OUT ; ACKFLD the name of the field |
|
| SELHELP2 | ; list the next 10
|
|
| UP(X) | ; convert X to uppercase
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
