Routine: TIUSRVR1

Information

TIUSRVR1 ; SLC/JER - RPC for record-wise GET ;8/16/06 11:48

Source file <TIUSRVR1.m>

Name	Comments	DBIA/ICR reference
TGET(TIUY,TIUDA,ACTION)	; Build ^TMP("TIUVIEW",$J,
SETGDATA(TIUDA)	; Set TIUGDATA
SETGX
LOADSUPP(METHOD,TIUDA,TIUL)	; Execute OnBrowse/Load Supplementary data
LOADTOP(TIUREC,TIUDA,TIUL,TIUGDATA,TIUCPF)	; Load top information
ISCOMP(DA)	; Evaluate whether a given record is a component
IDTOP(TIUDA,TIUL,SHORT,CURPRNT)	; Load entry-specific info:

RPC Name	Call Tags
TIU GET RECORD TEXT	TGET