IBDF18A1 ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;12-AUG-94
Source file <IBDF18A1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
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
; -- TSUBCOL passed by reference - used to return the subcolumn ; LIST is the selection list to search |
|
F2(ARY) | ; -- filter cpt code array to find only codes beginning with 992 and asssicated headers
; -- Copy filtered array to from ibdtmp( to @ary@( |
|
URH | ; -- UnReferenced Headers (removal)
; if a header doesn't have any data under it, then remove the header |
|
MODLIST | ; return all CPT Modifiers if defined
|