IBDF9A3 ;ALB/CJM - ENCOUNTER FORM - (create,edit,delete selection list - continued) ;NOV 5,1994
Source file <IBDF9A3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETSC(ARY,LIST) | ;makes a list of subcolumns having text
|
|
DELSC(LIST,SC) | ;delete subcolumn=SC for selections on LIST
|
|
ADDSC(LIST,SC) | ;ADD subcolumn=SC for selections on LIST if not already there, else set to blank
|
|
OTHER | ;
|
|
SCLOOP | ; -- Looping thru the subc setting up array(type of data)=subcolumn
|
|
SCDEL | ; -- Deletes the new subcolumn if there is already a column for that
; type of data. |
|
DIK | ; -- KILL SUBCOLUMN GLOBAL
|
|
MSG1 | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBE(357.3 - [#357.3] | Classic Fileman Calls |