IBDF9A ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list) ;FEB 1,1993
Source file <IBDF9A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
LIST | ;Create, Edit, or Delete a selection list from the form
|
|
NOSUCH | ;
|
|
EDITLIST | ;allows editing of the structure of a list
|
|
COLUMNS | ;allows the user to place and size the columns of the list
|
|
SELECT | ;
|
|
AGAIN | ||
MSG1 | ;called by the input template
|
|
MSG2 | ;called by the input template
|
|
MSG3 | ;called by the input template
|
|
DATASIZE(RTN) | ;IBLEN() stores the lengths of the pieces of the record returned by the package interface
|
|
NEWNAME() | ;
|
|
SWITCH(IBLIST,IBARRY) | ;FOR loops thru selection list and changes all subcolumn numbers from old to new (called only once)
|
|
RTN() | ;does a lookup on the package interface file using the E cross-reference, which uses the name with the prefix=namespace removed
|
|
DLTLIST | ;expects IBBLK to be defined
|
|
LISTTYPE(RTN) | ;sets IBDYN=1 if the rtn is dynamic selection,IBINPUT to the input interface
|
|
OTHEROK(PI) | ;returns 1 if the selection interface=PI allows 'other', 0 otherwise
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(357.2 - [#357.2] | Classic Fileman Calls |
^IBE(357.3 - [#357.3] | Classic Fileman Calls |
^IBE(357.6 - [#357.6] | Classic Fileman Calls |