VistA Analysis » VistA Reference » RPCs » TIU LONG LIST BOILERPLATED

TIU LONG LIST BOILERPLATED

Used by the GUI to supply a long list of boilerplated titles.

Properties

Property Value
Label LONGLIST
MUMPS Implementation TIUSRVT1
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
FROM LITERAL     This is the reference title from which the longlist is scrolling.
DIR LITERAL     This is the direction in which the longlist is scrolling from thereference title.

MUMPS Method Description

Property Value
Method LONGLIST^TIUSRVT1
Method Comment Long list of titles with boilerplate
Input Parameters FROM, DIR
First Comment 
 .Y=returned list, FROM=text to $O from, DIR=$O direction,
Code 
 N I,DA,CNT,TIUD0
 S I=0,CNT=44,DIR=$G(DIR,1)
 F  Q:I' . S DA=0
 . F  Q:I'0  D
 . . S TIUD0=$G(^TIU(8925.1,DA,0))
 . . I +$P(TIUD0,U,7)'=11 Q  ; Only allow Active Entries
 . . I $P(TIUD0,U,4)'="DOC" Q  ; Only allow TITLES
 . . ; Quit if no Boilerplate Text is present
 . . I '+$O(^TIU(8925.1,DA,"DFLT",0)) Q
 . . I $S(+$$CANENTR^TIULP(DA)'>0:1,+$$CANPICK^TIULP(DA)'>0:1,1:0) Q
 . . S I=I+1,Y(I)=DA_"^"_FROM

CPRS

File Type Description
Pascal File Templates/rTemplates.pas


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