VistA Analysis » VistA Reference » RPCs » TIU UPDATE ADDITIONAL SIGNERS

TIU UPDATE ADDITIONAL SIGNERS

This RPC accepts a list of persons, and adds them as additional signersfor the document identified by the first parameter.

Properties

Property Value
Label IDSIGNRS
MUMPS Implementation TIULX
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
TIUDA LITERAL   true This is the record # (ien) of the document in file 8925.
TIULIST LIST   true This is the list of users, passed by reference, as shown below: TIULIST(1)=213[^CASEY,BEN] TIULIST(2)=73425[^HOWSER,DOOGEY] TIULIST(3)=172[^WELBY,MARCUS] NOTE that names passed as second '^'-pieces are optional.

MUMPS Method Description

Property Value
Method IDSIGNRS^TIULX
Method Comment Add list of Add'l Signers for a TIU Document
Input Parameters TIUDA, TIULIST
First Comment 
 TIULIST(TIUI) [By Ref] = array of users to add/remove as signers
 TIUDA                  = IEN in ^TIU(8925,
Code 
 N TIUI S TIUI=0
 F  S TIUI=$O(TIULIST(TIUI)) Q:+TIUI'>0  D
 . N DA,DIC,DLAYGO,DIE,DR,X,Y
 . N TIUSIG,TIUSN ;TIU*1.0*255
 . ; if current user is already an additional signer, and current user
 . ; is NOT being removed as an additional signer, then QUIT
 . I +$O(^TIU(8925.7,"AE",TIUDA,+TIULIST(TIUI),0)),($P(TIULIST(TIUI),U,3)'="REMOVE") Q
 . ; if current user is being removed as a cosigner, then remove him
 . ; TIU*255 Quit if attempting to remove someone who already signed
 . ;I $P(TIULIST(TIUI),U,3)="REMOVE" D REMSIGNR(TIUDA,+TIULIST(TIUI)) Q
 . S TIUSIG=$O(^TIU(8925.7,"AE",TIUDA,+TIULIST(TIUI),0)) S:$G(TIUSIG) TIUSN=$P($G(^TIU(8925.7,TIUSIG,0)),"^",4)
 . Q:$G(TIUSN)  I $P(TIULIST(TIUI),U,3)="REMOVE" D REMSIGNR(TIUDA,+TIULIST(TIUI)) Q
 . ; otherwise, add the current user as an additional signer
 . S X=""""_"`"_TIUDA_"""",(DIC,DLAYGO)=8925.7,DIC(0)="LX" D ^DIC Q:+Y'>0
 . S DIE=DIC,TIUY=$G(TIUY)_$S($G(TIUY)]"":U,1:"")_+TIULIST(TIUI)
 . S DR=".02////"_0_";.03////"_+$G(TIULIST(TIUI))
 . D ^DIE
 . D SEND^TIUALRT(TIUDA)

CPRS

File Type Description
Pascal File rTIU.pas


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