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
|