Routine: TIUSRVE

Information

TIUSRVE ; SLC/JER - Get Upload Events for Display ;21-OCT-1999 10:54:57

Source file <TIUSRVE.m>

Name	Comments	DBIA/ICR reference
GET(TIUDA,HUSH)	; Build ^TMP("TIUEVENT",$J,
EVENT(TIUREC,HUSH)	; Load Source Information
FIELDS(TIUDA,TIUJ)	; Get missing fields
HEADER(TIUDA,TIUJ)	; Get body of document
HDRTEXT(TIUDA,TIUJ)	; Get Header Text for filing errors
SET(LINE,COL,TEXT,ON,OFF)	; -- set display info in array
BLANK(LINE)	; -- build blank line