Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBDF18A1

Package: Automated Information Collection System

Routine: IBDF18A1


Information

IBDF18A1 ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;12-AUG-94

Source Information

Source file <IBDF18A1.m>

Entry Points

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
Info |  Source |  Entry Points