VistA Analysis » VistA Reference » RPCs » TIU GET REQUEST

TIU GET REQUEST

This Remote Procedure returns the variable pointer to the REQUESTINGPACKAGE REFERENCE (File #8925, Field #1405). This would be the record inthe Requesting Package (e.g., Consult/Request Tracking or Surgery) forwhich the resulting document has been entered in TIU.

Properties

Property Value
Label GET1405
MUMPS Implementation TIUSRVR
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
TIUDA LITERAL   true This is the record number (IEN) of the document in the TIU Document File(#8925).

MUMPS Method Description

Property Value
Method GET1405^TIUSRVR
Method Comment Get the Request (field #1405) for a document
Input Parameters TIUDA
Code
 N TIUDAD,TIUTYP,TIU1405
I '+TIUDA!('$D(^TIU(8925,+TIUDA,0))) S TIUY="-1^TIU Document does not exist" Q
S TIUTYP=$P($G(^TIU(8925,TIUDA,0)),U)
I $P(^TIU(8925,TIUDA,0),U,6)'="" D
. S TIUDAD=$P(^TIU(8925,TIUDA,0),U,6)
. S TIUTYP=$P($G(^TIU(8925,TIUDAD,0)),U)
I '+TIUTYP S TIUY="-1^TIU parent document does not exist" Q
S TIU1405=$P($G(^TIU(8925,$S(+$G(TIUDAD):TIUDAD,1:TIUDA),14)),U,5)
I '+TIU1405 S TIUY="-1^No Request found for this document" Q
S TIUY=TIU1405

CPRS

File Type Description
Pascal File rSurgery.pas
Pascal File rTIU.pas


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