; Evaluates whether addendum's parent is among
; the selected types
SETLIST(TIUORDER,VALMCNT)
; Set items from ^TMP("TIUI",$J) into
INTYPES(TIUDA)
; Evaluates whether a record is among the selected types
PUTLIST(TIUPREF,TIUCLASS,STATUS,DIVIFNS)
; Expands list elements for LM Template
ININST(TIUDA,TIUDI)
; Evaluates whether a TIU DOCUMENT record
; is among the selected divisions
; Input -- TIUDA TIU DOCUMENT file (#8925) IEN
; -- TIUDI( i.e. TIUDI(file #40.8 IEN)=Institution file
; pointer for file #40.8 entry
; Output - TIUY 0= record not in selected division
; 1= record in selected division