Routine: TIUPUTCN

Information

TIUPUTCN ; SLC/JER - Uploading Consult Results ;4/18/03

Name	Comments	DBIA/ICR reference
LOOKUP	; Lookup Method for Consults document definition ; Required: TIUSSN, TIUVDT,TIUCNNBR
LOOKUPX
ILOC(LOCATION)	; Get pointer to file 44
CANEDIT(DA)	; Check if document is not released yet
MAKEADD()	; Create an addendum record
STUFREC(DA,PARENT)	; Stuff look-up header data, etc. ; Stuff look-up data, data derived from look-up data, and all other
DELTEXT(DA)	; Delete existing text in preparation for replacement
WHATYPE(X)	; Identify document type ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
WHATYPX
WHATITLE(X)	; Identify document title ; Receives: X=Document Definition Name ; Returns: Y=Document Definition IFN
WHATITX
FOLLOWUP(TIUDA)	; Post-filing code for CONSULTS

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$PNAME^TIULC1(+$G(^TIU(8925,+TIUDA,0)))," #: ",TIUDA Line Location: FOLLOWUP+13
Function Call: WRITE	Prompt: " now Linked to Consult Request #: ",TIUCDA,".",! Line Location: FOLLOWUP+14