IBDF18 ;A;B/CJM - ENCOUNTER FORM - utilities for Problem List ;15OCT93
Source file <IBDF18.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETFORM() | ;allows the user to select an encounter form with a Clinic Common Problem List
|
|
| COPYFORM(FORM,ARY) | ;creates a list of problem groups and problems found in FORM on the list of clinic common problems
|
|
| COPYLIST(LIST,ARY,COUNT) | ;copies the entries from LIST to @ARY, starting subscript at COUNT+1
|
|
| SUBCOL(LIST,TSUBCOL) | ;finds the subcolumn containing the text
|
|
| FIND(FORM,BLK,LIST,INTRFACE) | ;finds the block & list containing the Clinic Common Problem List
|
