Routine: TIUHL7U1

Information

TIUHL7U1 ; SLC/AJB - TIUHL7 Utilities; March 23, 2005

Name	Comments	DBIA/ICR reference
ACK(CODE,ERLOC,TIUDA)	;
SNDALRT(MSG)	;
AUDIT(TIUDA,TIUCKSM0,TIUCKSM1)	; Update audit trail
CANEDIT(DA)	; check whether or not document is released
CLASS(CLNAME)	;
CLEAN	; removes messages older than 7 days
COMPARE(NAME1,NAME2)	; compare first and last names only
DELDOC(TIUDA)	;
ERR(TIUSEG,TIUP,TIUNUM,TIUTXT)	;
GETADMIT(DFN,TIUDT)	;
GETDIV(USER)	;
GETVISIT(DFN,TIUDT)	;
LU(FILE,NAME,FLAGS,SCREEN,INDEXES)	;
MEMBEROF(TITLE,CLASS)	;
PNAME(NAME)	;
REMESC(TIUSTR)	; ; Remove Escape Characters from HL7 Message Text ; Escape Sequence codes: ; F = field separator (TIUFS) ; S = component separator (TIUCS) ; R = repitition separator (TIURS) ; E = escape character (TIUES) ; T = subcomponent separator (TIUSS)
SIGNDOC(TIUDA)	;