VistA Analysis » VistA Reference » RPCs » ORWTPN GETTC

ORWTPN GETTC

Properties

Property Value
Label GETTC
MUMPS Implementation ORWTPN
Return Type ARRAY

MUMPS Method Description

Property Value
Method GETTC^ORWTPN
Method Comment RPC
Input Parameters CLASS, FROM, DIR
First Comment 
 get titles for a class
Code 
 N CNT,IEN,NODE,NUM K VALUES
 S CNT=44,NUM=0
 F  Q:NUM>CNT  S FROM=$O(^TIU(8925.1,"B",FROM),DIR) Q:FROM=""  D
 .S IEN=0 F  S IEN=$O(^TIU(8925.1,"B",FROM,IEN)) Q:IEN<1  D
 ..I '$D(^TIU(8925.1,"AT","DOC",IEN)) Q
 ..I '$$ISA^TIULX(IEN,CLASS) Q
 ..I '$$CANPICK^TIULP(IEN) Q
 ..I '$$CANENTR^TIULP(IEN) Q
 ..S NODE=$G(^TIU(8925.1,IEN,0))
 ..I '$L(NODE) Q
 ..S NUM=NUM+1
 ..S VALUES(NUM)=IEN_U_NODE

CPRS

File Type Description
Pascal File Options/rOptions.pas


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