VistA Analysis » VistA Reference » RPCs » TIU REQUIRES COSIGNATURE

TIU REQUIRES COSIGNATURE

This Boolean RPC simply evaluates whether the current user requirescosignature for TIU DOCUMENTS, and returns a 1 if true, or a 0 if false.

Properties

Property Value
Label REQCOS
MUMPS Implementation TIUSRVA
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
TIUTYP LITERAL   true Pointer to the TIU DOCUMENT DEFINITION FILE (#8925.1).
TIUDA LITERAL   true Pointer to the TIU DOCUMENT FILE (#8925). References the document to beedited/signed.
USER LITERAL   true Optional parameter. Pointer to the NEW PERSON FILE (#200). Pass this in if author is NOT the current user (e.g., User is a transcriptionist.

MUMPS Method Description

Property Value
Method REQCOS^TIUSRVA
Method Comment Evaluate cosignature requirement
Input Parameters TIUTYP, TIUDA, TIUSER, TIUDT
First Comment
 Initialize return value
Code
 N TIUDPRM
S TIUY=0
I +$G(TIUTYP)'>0,'+$G(TIUDA) Q
I +$G(TIUDA) S TIUTYP=+$G(^TIU(8925,+$G(TIUDA),0))
S:'+$G(TIUSER) TIUSER=+$G(DUZ)
S TIUY=+$$REQCOSIG^TIULP(TIUTYP,+$G(TIUDA),+$G(TIUSER),$P(+$G(TIUDT),"."))

CPRS

File Type Description
Pascal File rTIU.pas


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