VistA Analysis » VistA Reference » RPCs » TIU TEMPLATE LISTOWNR

TIU TEMPLATE LISTOWNR

Properties

Property Value
Label LISTOWNR
MUMPS Implementation TIUSRVT
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
FROM        
DIR        

MUMPS Method Description

Property Value
Method LISTOWNR^TIUSRVT
Method Comment Return subset of personal owners
Input Parameters TIUFROM, DIR
Code 
 N FILE,IENS,FIELDS,FLAGS,NUMBER,TIUPART,INDEX,SCREEN,ID,TIU,TIUERR
 S FILE=200,FIELDS="@;.01",FLAGS="PB",INDEX="B",NUMBER=44
 S (IENS,TIUPART,ID,TIU,TIUERR)=""
 I DIR=1 S FLAGS="P"
 S SCREEN="I $O(^TIU(8927,""AROOT"",Y,0))"
 D LIST^DIC(FILE,IENS,FIELDS,FLAGS,NUMBER,.TIUFROM,.TIUPART,INDEX,SCREEN,ID,"TIU","TIUERR")
 K TIU("DILIST",0)
 N DA,I
 S DA="",I=0
 F  S DA=$O(TIU("DILIST",DA),DIR) Q:'DA  D
 . S I=I+1
 . S TIUY(I)=$G(TIU("DILIST",DA,0))

CPRS

File Type Description
Pascal File Templates/rTemplates.pas


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