IBDFU8 ;ALB/CJM - ENCOUNTER FORM - selection routines for form components;OCT 8,1993
Source file <IBDFU8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SLCTBLK(FORM,SCRNSIZE,EXCLUDE) | ;SCRNSIZE is the number of lines available for scrolling
|
|
AGAIN | ;
|
|
FINDALL() | ;finds all of the blocks on FORM (except the one named EXCLUDE) and puts them on @ARY,returns the cound
|
|
CHOOSE() | ;asks the user to select a blk - @ARY@("#", is the aray of blocks displayed so far(subscripted by the number on the list), @ARY@("NAME", the entire array (subscripted by name,ien)
|
|
HELP | ;choosing help restarts the display (by setting NAME="")
|
|
MSG | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|