ACKQSEL ;HIRMFO/BH-QUASAR Utility Routine ; 04/01/99
Source file <ACKQSEL.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("ACKQSEL" | SELECT+19!, SELECT+27!, SELECT2+48!, SELECT2+52*, SELECT2+59, SELECT3+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACK | SELHELP+10~, SELHELP2+3* |
| ACKADD | SELECT+15~, SELECT2+17*, SELECT2+18*, SELECT2+23, SELECT2+26, SELECT2+29, SELECT2+30, SELECT2+34, SELECT2+40, SELECT2+47 |
| ACKDEF | SELECT~, SELECT+17*, SELECT2+7, SELECT2+10 |
| ACKDONE | SELECT+16~, SELECT3+1*, SELECT3+2, SELECT3+3*, SELECT3+6* |
| ACKEOF | SELECT+15~, SELECT2+53*, SELECT2+56, SELECT3+3*, SELECT3+10*, SELECT3+11*, SELECT3+18 |
| ACKEXIT | SELECT+15~, SELECT+22*, SELECT+25, SELECT2+12*, SELECT2+13*, SELECT2+14*, SELECT2+23*, SELECT2+36*, SELECT2+62*, SELHELP+10~ , SELHELP+21*, SELHELP+22, SELHELP2+7*, SELHELP2+11* |
| ACKFILE | SELHELP+10~, SELHELP2+1*, SELHELP2+3, SELHELP2+7 |
| ACKFLD | SELECT~, SELECT2+1, SELECT2+3, SELHELP+15 |
| ACKHLP | SELECT~, SELECT2+4, SELECT2+6 |
| ACKIN | SELECT~, SELECT2+24, SELECT2+29, SELECT2+34, SELECT2+50, SELECT3+2, SELECT3+10, SELECT3+11, SELHELP2+1 |
| ACKITM | SELHELP+10~, SELHELP+11*, SELHELP+21*, SELHELP2+3*, SELHELP2+4, SELHELP2+7 |
| ACKLIST | SELECT+16~, SELHELP+13, SELHELP+17, SELHELP2+1 |
| ACKMTCH | SELECT+15~, SELECT2+17*, SELECT2+51*, SELECT2+52, SELECT3+4*, SELECT3+5, SELECT3+6, SELECT3+14 |
| ACKNUM | SELECT+15~, SELECT+22*, SELECT2+17*, SELECT2+54*, SELECT2+56, SELECT2+58, SELECT2+59, SELECT3+16*, SELECT3+17*, SELECT3+18 |
| ACKNXT | SELECT+15~, SELECT2+19*, SELECT2+24*, SELECT2+25, SELECT2+29*, SELECT2+30*, SELECT2+31, SELECT2+34, SELECT2+35, SELECT2+38 , SELECT2+39, SELECT2+40, SELECT2+41, SELECT2+43, SELECT2+44, SELECT2+56*, SELECT3+2*, SELECT3+3, SELECT3+4, SELECT3+5 , SELECT3+9, SELECT3+10, SELECT3+11 |
| ACKOUT | SELECT~, SELECT+18, SELECT2+3, SELECT2+12, SELECT2+13, SELECT2+14, SELECT2+25, SELECT2+26, SELECT2+30, SELECT2+35 , SELECT2+40, SELECT2+41, SELECT2+60, SELHELP+14, SELHELP2+1 |
| ACKSEL | SELECT+15~, SELECT2+17*, SELECT2+18*, SELECT2+19, SELECT2+22, SELECT2+29, SELECT2+30, SELECT2+31, SELECT2+34, SELECT2+38 , SELECT2+39*, SELECT2+40, SELECT2+43, SELECT2+44*, SELECT2+50, SELECT2+51, SELECT2+52, SELECT2+56, SELECT2+59*, SELECT2+60 , SELECT3+3, SELECT3+11 |
| ACKTYP | SELECT~, SELECT2+5, SELECT2+22, SELECT2+36, SELECT2+38, SELECT2+43, SELECT2+62 |
| DIR | SELECT+15~, SELECT2+1!, SELECT3+13!, SELHELP+10~, SELHELP2+9! |
| DIR("?" | SELECT2+4*, SELECT2+5* |
| DIR("??" | SELECT2+6* |
| DIR("A" | SELECT2+1*, SELECT3+14* |
| DIR("B" | SELECT2+7* |
| DIR(0 | SELECT2+1*, SELECT2+3*, SELECT3+14*, SELHELP2+9* |
| DIWF | SELECT+15~, SELECT+20*, SELHELP+10~, SELHELP+11* |
| DIWL | SELECT+15~, SELECT+20*, SELHELP+10~, SELHELP+11* |
| DIWR | SELECT+15~, SELECT+20*, SELHELP+10~, SELHELP+11* |
| >> DTOUT | SELECT2+12 |
| DUOUT | SELECT2+11!, SELECT2+13 |
| U | SELECT2+1, SELECT2+3, SELECT2+7, SELECT2+10, SELHELP+15 |
| X | SELECT+15~, SELECT2+9*, SELECT2+10*, SELECT2+11, SELECT2+13, SELECT2+14, SELECT2+17, SELECT2+49*, SELECT2+51*, SELECT3+4* , SELECT3+16, SELECT3+18*, SELHELP+10~, SELHELP+12*, SELHELP+14*, SELHELP+15*, SELHELP+18*, SELHELP2+2*, SELHELP2+4*, SELHELP2+11 , UP~, UP+1 |
