Routine: TIUCCRHL7P2

Information

TIUCCRHL7P2 ; CCRA/PB - TIUHL7 Msg Processing; March 23, 2005

Name	Comments	DBIA/ICR reference
CONTINUE	; data verification ; DOCUMENT TEXT
MAKE(SUCCESS,DFN,TITLE,VDT,VLOC,VSIT,TIUX,VSTR,SUPPRESS,NOASF)	; New Document ; SUCCESS = (by ref) TIU DOCUMENT # (PTR to 8925) ; = 0^Explanatory message if no SUCCESS ; DFN = Patient (#2) ; TITLE = TIU Document Definition (#8925.1) ; [VDT] = Date(/Time) of Visit ; [VLOC] = Visit Location (HOSPITAL LOCATION) ; [VSIT] = Visit file ien (#9000010) ; [VSTR] = Visit string (i.e., VLOC;VDT;VTYPE) ; [NOASF] = if 1=Do Not Set ASAVE cross-reference ; TIUX = (by ref) array containing field data and document body
FILE(SUCCESS,TIUDA,TIUX,SUPPRESS,TIUCPF)	; Call FM Filer & commit
SETXT0(TIUDA)	; Set root node of "TEMP" WP-field
VSTRBLD(VSIT)	; Given Visit ien, build Visit-Descriptor String
GETREC(DFN,TIU,TITLE,TIUNEW)	; Get/create document record
SIGNDOC(TIUDA)	;
DELDOC(TIUDA)	;
ERR(TIUSEG,TIUP,TIUNUM,TIUTXT)	;
ES(DA,TIUES,TIUI,TIUESIG)	; ^DIE call for /es/
POST(TIUDA)	;Patch 354 - PB - link the note or addendum to the consult then update the status of the consult to the original status
POST1(TIUDA)	;Patch 354 - PB - link the note or addendum to the consult then update the status of the consult to the original status
GETLOC(CONSERV)	;