Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Global: ^TIU(8925.7

Package: Text Integration Utility

Global: ^TIU(8925.7


Information

FileMan FileNo FileMan Filename Package
8925.7 TIU MULTIPLE SIGNATURE Text Integration Utility

Description

Directly Accessed By Routines, Total: 33

Package Total Routines
Text Integration Utility 31 TIU157PS    TIU199    TIU285PS    TIU358P    TIUADSIG    TIUAL1    TIUALRT    TIUALSET
TIUASCU    TIUASRPT    TIUBR1    TIULG    TIULP    TIULQ    TIULS1    TIULX
TIUPS79    TIUPS93    TIURA1    TIURB1    TIURD    TIURD2    TIURD4    TIURS
TIURS1    TIUSRV    TIUSRVA    TIUSRVP2    TIUTSK    ^TIU(8925.7    TIUSRVR3    
Virtual Patient Record 2 VPREVNT    VPRSDAT    

Accessed By FileMan Db Calls, Total: 13

Package Total Routines
Text Integration Utility 13 TIUAL1    TIUALSET    TIUASCU    TIUBR1    TIULQ    TIULS1    TIULX    TIUPS79
TIUPS93    TIURB1    TIURD4    TIUSRV    TIUSRVR3    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.03, .05]    
Text Integration Utility 1 TIU DOCUMENT(#8925)[.01]    

Fields, Total: 9

Field # Name Loc Type Details
.01 TIU DOCUMENT NUMBER 0;1 POINTER TO TIU DOCUMENT FILE (#8925)
************************REQUIRED FIELD************************
TIU DOCUMENT(#8925)

  • 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)
.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.
.03 EXPECTED SIGNER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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)
.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 (#1701) 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)
.05 ACTUAL COSIGNER 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
.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
.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
.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.
.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

External References

Name Field # of Occurrence
^%DT .04+1
^DIC .03+1
Y^DIQ ID.03+1
TRIGGER^TIU199 .05(XREF 1S)
TIUS^VPREVNT IXAVPRSL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(200 ID.03+1
^TIU(8925 - [#8925] IXACSL+1, IXACKL+1
^TIU(8925.7 - [#8925.7] IXACSL+1*, IXACKL+1!, IXACKEIC+1!, IXAESSL+1*, IXAESSCC+1, IXAESKL+1!, IXAESKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S)
, .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
^VA(200 - [#200] ID.03+1

Naked Globals

Name Field # of Occurrence
^(0 ID.03+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .04+1*
%I ID.03+1*!
>> C ID.03+1*
>> DA IXACSL+1, IXACKL+1, IXAESSL+1, IXAESSCC+1, IXAESKL+1, IXAVPRSL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)
, .03(XREF 1S), .03(XREF 1K)
DIC ID.03+1, .03+1!*
DIC("S" .03+1*, .03SCR+1*
>> DIE .03+1
U ID.03+1, IXACSL+1, IXACKL+1, IXAESSCC+1, .01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
X IXACSCC+1*, IXACKCC+1*, IXAESSCC+1*, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .03+1*!, .03(XREF 1S), .03(XREF 1K)
, .04+1*!, .06+1!, .07+1!
X(1 IXAESSL+1, IXAESKL+1
X(2 IXAESSL+1, IXAESKL+1
>> X2(1 IXACSL+1, IXACSCC+1, IXACKL+1
>> X2(2 IXACSCC+1, IXACKCC+1
>> Y ID.03+1*, .03+1, .04+1

Marked Items

Name Field # of Occurrence
$T(TIUS^VPREVNT IXAVPRSL+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  Marked Items  | All