VistA Analysis » VistA Reference » RPCs » TIU GET LIST OF OBJECTS

TIU GET LIST OF OBJECTS

This RPC returns the list of TIU OBJECTS that the current user may selectfrom.

Properties

Property	Value
Label	OBJLST
MUMPS Implementation	TIUSRVT
Return Type	GLOBAL ARRAY

MUMPS Method Description

Property Value

Method OBJLST^TIUSRVT

Method Comment Get the list of active objects

Code

Property	Value
Method	OBJLST^TIUSRVT
Method Comment	Get the list of active objects
Code	`N TIUDA,TIUD0,TIUI S (TIUDA,TIUI)=0,TIUY=$NA(^TMP("TIU OBJECTS",$J)) K @TIUY F S TIUDA=$O(^TIU(8925.1,"AT","O",TIUDA)) Q:+TIUDA'>0 D . S TIUD0=$G(^TIU(8925.1,TIUDA,0)) Q:'+$$CANPICK^TIULP(+TIUDA) . S TIUI=TIUI+1 . S @TIUY@(TIUI)=TIUDA_U_$P(TIUD0,U,1,3)`

 N TIUDA,TIUD0,TIUI
 S (TIUDA,TIUI)=0,TIUY=$NA(^TMP("TIU OBJECTS",$J)) K @TIUY
 F  S TIUDA=$O(^TIU(8925.1,"AT","O",TIUDA)) Q:+TIUDA'>0  D
 . S TIUD0=$G(^TIU(8925.1,TIUDA,0)) Q:'+$$CANPICK^TIULP(+TIUDA)
 . S TIUI=TIUI+1
 . S @TIUY@(TIUI)=TIUDA_U_$P(TIUD0,U,1,3)

CPRS

File Type	Description
Pascal File	Templates/rTemplates.pas

Document generated on August 31st 2022, 2:55:43 pm