VistA Analysis » VistA Reference » RPCs » TIU AUTHORIZATION

TIU AUTHORIZATION

This RPC allows the calling application to evaluate privilege to performany ASU-mediated action on a TIU document.

Properties

Property Value
Label CANDO
MUMPS Implementation TIUSRVA
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 file 8925.
TIUACT LITERAL   true This is the ASU ACTION (.01 field from file 8930.8) which is to beperformed by the calling application (e.g., EDIT RECORD, SIGNATURE, COPY,etc.). To function appropriately, only valid actions may be passed.

MUMPS Method Description

Property Value
Method CANDO^TIUSRVA
Method Comment Boolean function to evaluate privilege
Input Parameters TIUDA, TIUACT
Code 
 N TIUPOP,TIUDPRM S TIUPOP=0
 I $P($G(^TIU(8925,TIUDA,0)),U,5)>5,(TIUACT="EDIT RECORD") S TIUY="0^ You may not edit uncosigned or completed documents" Q
 I $S(TIUACT["SIGN":1,TIUACT="EDIT RECORD":1,TIUACT="DELETE RECORD":1,1:0) D  Q:+TIUPOP=1
 . L +^TIU(8925,+TIUDA):1
 . E  S TIUY="0^ Another session is editing this entry.",TIUPOP=1
 . L -^TIU(8925,+TIUDA)
  I TIUACT["SIGNAT",+$$NEEDCS(TIUDA) S TIUY="0^ You must name a cosigner before signing this document." Q
 S TIUY=$$CANDO^TIULP(TIUDA,TIUACT)

CPRS

File Type Description
Pascal File rDCSumm.pas
Pascal File rTIU.pas


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