Routine: IBDF18

Information

IBDF18 ;A;B/CJM - ENCOUNTER FORM - utilities for Problem List ;15OCT93

Source file <IBDF18.m>

Package	Total	Call Graph
Automated Information Collection System	1	$$SLCTFORM^IBDFU4

Package	Total	Caller Graph
Problem List	1	GMPLBLDF

Name	Comments	DBIA/ICR reference
FIND(FORM,BLK,LIST,INTRFACE)	;finds the block & list containing the Clinic Common Problem List
SUBCOL(LIST,TSUBCOL)	;finds the subcolumn containing the text
COPYFORM(FORM,ARY)	;creates a list of problem groups and problems found in FORM on the list of clinic common problems
GETFORM()	;allows the user to select an encounter form with a Clinic Common Problem List
COPYLIST(LIST,ARY,COUNT)	;copies the entries from LIST to @ARY, starting subscript at COUNT+1

Name	Field # of Occurrence
$$SLCTFORM^IBDFU4	GETFORM+4

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357 - [#357]	GETFORM+11
^IBE(357.1 - [#357.1]	FIND+12
^IBE(357.2 - [#357.2]	SUBCOL+8, FIND+9, FIND+13
^IBE(357.3 - [#357.3]	COPYLIST+8, COPYLIST+11, COPYLIST+12, COPYLIST+14
^IBE(357.4 - [#357.4]	COPYLIST+9
^IBE(357.6 - [#357.6]	FIND+5

Name	Field # of Occurrence
ANS	GETFORM+2~, GETFORM+9*, GETFORM+10
ARY	COPYFORM~, COPYFORM+19, COPYFORM+22, COPYLIST~, COPYLIST+10, COPYLIST+14
BLK	FIND~, FIND+2, FIND+6, FIND+8, FIND+9, FIND+10, FIND+12, FIND+13, FIND+14
BLOCK	COPYFORM+20~, COPYFORM+21*, COPYFORM+22
COUNT	COPYFORM+20~, COPYFORM+21, COPYFORM+22, COPYFORM+23, COPYLIST~, COPYLIST+10, COPYLIST+14*
DTIME	GETFORM+9
FORM	GETFORM+2~, GETFORM+4, GETFORM+5, GETFORM+6, GETFORM+10, GETFORM+11, COPYFORM~, COPYFORM+18, COPYFORM+22, FIND~ , FIND+12
GROUP	COPYLIST+2~, COPYLIST+8*, COPYLIST+9, COPYLIST+11
HDR	COPYLIST+2~, COPYLIST+9*, COPYLIST+10
IEN	COPYLIST+2~, COPYLIST+12*, COPYLIST+13, COPYLIST+14
INTRFACE	COPYFORM+20~, COPYFORM+21, COPYFORM+22, FIND~, FIND+1~, FIND+2, FIND+5*, FIND+6, FIND+9, FIND+13
LIST	GETFORM+2~, GETFORM+3, GETFORM+6, GETFORM+7, COPYFORM+20~, COPYFORM+21, COPYFORM+22, COPYLIST~, COPYLIST+4, COPYLIST+8 , COPYLIST+11, SUBCOL~, SUBCOL+8, FIND~, FIND+2, FIND+6, FIND+9, FIND+10, FIND+13, FIND+14*
NODE	COPYLIST+2~, COPYLIST+12, COPYLIST+14, SUBCOL+5~, SUBCOL+8*
NOTREAL	COPYLIST+2~, COPYLIST+12*, COPYLIST+13
ORDER	COPYLIST+2~, COPYLIST+11*
PIECE	SUBCOL+5~, SUBCOL+8*
QUIT	GETFORM+2~, GETFORM+3, GETFORM+5, GETFORM+7, GETFORM+10, FIND+1~, FIND+11, FIND+12, FIND+13
SC	SUBCOL+5~, SUBCOL+8
SLCTN	COPYLIST+2~, COPYLIST+11*, COPYLIST+12, COPYLIST+14
SUBCOL	COPYLIST+2~, COPYLIST+14*
TEXT	COPYLIST+2~, COPYLIST+14*
TSUBCOL	COPYLIST+2~, COPYLIST+4, COPYLIST+6, COPYLIST+14, SUBCOL~, SUBCOL+3, SUBCOL+8