STANDARD DATA DICTIONARY #8925.7 -- TIU MULTIPLE SIGNATURE FILE 3/24/25 PAGE 1
STORED IN ^TIU(8925.7, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is intended to accommodate the case where multiple cosignatures are applied to a document (e.g., team or
multi-disciplinary notes, discharge planning check-lists, etc.). Rather than adding a multiple to the TIU Document file, this file
supports a 3NF decomposition, allowing multiple cosignatures to be applied to the same document.
DD ACCESS: @
WR ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: EXPECTED SIGNER (#.03)
CROSS
REFERENCED BY: TIU DOCUMENT NUMBER(AE), EXPECTED SIGNER(AE1), TIU DOCUMENT NUMBER(B)
INDEXED BY: TIU DOCUMENT NUMBER & COSIGNATURE DATE/TIME (AC), EXPECTED SIGNER & TIU DOCUMENT NUMBER (AES), COSIGNATURE DATE/TIME
(AVPR)
8925.7,.01 TIU DOCUMENT NUMBER 0;1 POINTER TO TIU DOCUMENT FILE (#8925) (Required)
LAST EDITED: MAY 21, 2014
HELP-PROMPT: Please select the document for which this cosignature is expected.
DESCRIPTION:
This is the record number in the TIU DOCUMENT FILE (#8925).
CROSS-REFERENCE: 8925.7^B
1)= S ^TIU(8925.7,"B",$E(X,1,30),DA)=""
2)= K ^TIU(8925.7,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 8925.7^AE^MUMPS
1)= I $L($P(^TIU(8925.7,+DA,0),U,3)) S ^TIU(8925.7,"AE",+X,+$P(^TIU(8925.7,+DA,0),U,3),DA)=""
2)= I $L($P(^TIU(8925.7,+DA,0),U,3)) K ^TIU(8925.7,"AE",+X,+$P(^TIU(8925.7,+DA,0),U,3),DA)
This multi-field, MUMPS-type cross-reference by document and expected cosigner facilitates the
identification of privilege to sign the document.
RECORD INDEXES: AC (#569), AES (#2)
8925.7,.02 COSIGNATURE NEEDED 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 18, 1994
HELP-PROMPT: Please indicate whether the cosignature is required.
8925.7,.03 EXPECTED SIGNER 0;3 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I +$$SCREEN^TIURA1(+$G(^TIU(8925.7,DA,0)),+Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 15, 2004
HELP-PROMPT: Enter the person whom you expect to sign.
DESCRIPTION:
This is the person who the author expects to sign the document.
SCREEN: S DIC("S")="I +$$SCREEN^TIURA1(+$G(^TIU(8925.7,DA,0)),+Y)"
EXPLANATION: Certain persons shouldn't be selected.
CROSS-REFERENCE: 8925.7^AE1^MUMPS
1)= I $L($P(^TIU(8925.7,+DA,0),U)) S ^TIU(8925.7,"AE",+$P(^TIU(8925.7,+DA,0),U),+X,DA)=""
2)= I $L($P(^TIU(8925.7,+DA,0),U)) K ^TIU(8925.7,"AE",+$P(^TIU(8925.7,+DA,0),U),+X,DA)
This multi-field, MUMPS-type cross-reference by document and expected cosigner facilitates the
identification of privilege to sign the document.
RECORD INDEXES: AES (#2)
8925.7,.04 COSIGNATURE DATE/TIME 0;4 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 21, 2014
HELP-PROMPT: Please enter the date/time of cosignature
DESCRIPTION:
This is the date/time at which the cosignature was obtained.
FIELD INDEX: AVPR (#1021) MUMPS ACTION
Short Descr: Trigger updates to VPR
Description: This is an action index that updates the Virtual Patient Record (VPR) when this record is updated.
No actual cross-reference nodes are set or killed.
Set Logic: D:$L($T(TIUS^VPREVNT)) TIUS^VPREVNT(DA)
Kill Logic: Q
Whole Kill: Q
X(1): COSIGNATURE DATE/TIME (8925.7,.04)
RECORD INDEXES: AC (#569)
8925.7,.05 ACTUAL COSIGNER 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 06, 2005
HELP-PROMPT: Please indicate the user who actually cosigned the document.
DESCRIPTION: This field contains the person who actually signed for this Additional Signer. This field will
trigger field .09 (Signed by Surrogate). That trigger will check if the Actual Co-signer is a
surrogate for the Expected Signer. If so the .09 field will be set to 1. If not it will be set to
0.
CROSS-REFERENCE: ^^TRIGGER^8925.7^.09
1)= D TRIGGER^TIU199
2)= Q
CREATE VALUE)= NO EFFECT
DELETE VALUE)= NO EFFECT
FIELD)= SIGNED BY SURROGATE
8925.7,.06 COSIGNER'S SIGNATURE BLOCK 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<3) X
LAST EDITED: JAN 26, 2000
HELP-PROMPT: Answer must be 3-60 characters in length
8925.7,.07 COSIGNER'S TITLE 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>60!($L(X)<2) X
LAST EDITED: JAN 26, 2000
HELP-PROMPT: Answer must be 2-60 characters in length
8925.7,.08 COSIGNATURE MODE 0;8 SET
'E' FOR electronic;
'C' FOR chart;
LAST EDITED: MAR 22, 1994
HELP-PROMPT: Please indicate the method by which cosignature was obtained.
8925.7,.09 SIGNED BY SURROGATE 0;9 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 06, 2005
DESCRIPTION: This field is set by a trigger on the .05 field (ACTUAL COSIGNER). The trigger will check if the
actual cosigner is a surrogate for the expected signer at the time of signing. If so this field
will be set to 1. If not it will be set to 0. This will enable other processes to know if the
Additional Signer was signed by a surrogate as the assignment of the surrogate is temporary and
cannot be checked at a later date.
NOTES: TRIGGERED by the ACTUAL COSIGNER field of the TIU MULTIPLE SIGNATURE File
FILES POINTED TO FIELDS
NEW PERSON (#200) EXPECTED SIGNER (#.03)
ACTUAL COSIGNER (#.05)
TIU DOCUMENT (#8925) TIU DOCUMENT NUMBER (#.01)
File #8925.7
Record Indexes:
AC (#569) RECORD MUMPS IR ACTION
Short Descr: Index by note entry date and note ien
Description: This index is to facilitate the lookup of documents that require additional signatures. This index will sort
the documents by the document entry date/time. The mumps set and kill logic for this index will control the
existence of nodes in the "AC" index. Nodes will only exist for documents that have unsigned additional
signatures.
Set Logic: I $D(^TIU(8925,X2(1),0)) S ^TIU(8925.7,"AC",$P($G(^TIU(8925,X2(1),12)),U),X2(1),DA)=""
Set Cond: S X=(X2(1)'=""&(X2(2)=""))
Kill Logic: I $D(^TIU(8925,X2(1),0)) K ^TIU(8925.7,"AC",$P($G(^TIU(8925,X2(1),12)),U),X2(1),DA)
Kill Cond: S X=X2(2)'=""
Whole Kill: K ^TIU(8925.7,"AC")
X(1): TIU DOCUMENT NUMBER (8925.7,.01) (forwards)
X(2): COSIGNATURE DATE/TIME (8925.7,.04) (forwards)
AES (#2) RECORD REGULAR IR SORTING ONLY
Short Descr: Find records requiring selected user's attention/signature
Description: This multi-field cross-reference by EXPECTED SIGNER, TIU DOCUMENT NUMBER, IEN will facilitate finding records
for which a user has been listed as an additional signer.
Set Logic: S ^TIU(8925.7,"AES",X(1),X(2),DA)=""
Set Cond: S X=$S(+$P($G(^TIU(8925.7,DA,0)),U,4):0,1:1)
Kill Logic: K ^TIU(8925.7,"AES",X(1),X(2),DA)
Whole Kill: K ^TIU(8925.7,"AES")
X(1): EXPECTED SIGNER (8925.7,.03) (Subscr 1) (forwards)
X(2): TIU DOCUMENT NUMBER (8925.7,.01) (Subscr 2) (forwards)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):