Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUADSIG

TIUADSIG.m

Go to the documentation of this file.
  1. TIUADSIG ;SLC/JMH - Additional signature/surrogate methods ;10/13/04 [10/15/04 9:55am]
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**157**;Jun 20, 1997
  1. ASURG(TIUDA) ; checks if current user is a surrogate for an additional signer
  1. ; if so then it returns the 8925.7 record IEN
  1. N TIUASDA,TIUY
  1. S TIUASDA="",TIUY=0
  1. F S TIUASDA=$O(^TIU(8925.7,"B",TIUDA,TIUASDA)) Q:'TIUASDA!(TIUY) D
  1. . N TIUAS
  1. . S TIUAS=$P($G(^TIU(8925.7,TIUASDA,0)),U,3)
  1. . Q:'$G(TIUAS)
  1. . I +$P($G(^TIU(8925.7,+TIUASDA,0)),U,4) Q
  1. . I $$ISSURFOR(DUZ,TIUAS) S TIUY=TIUASDA
  1. Q TIUY
  1. ISSURFOR(USER1,USER2) ; check with kernel to see if USER1 is a surrogate for
  1. ; USER2
  1. N ACTSUR ;actual surrogate
  1. S ACTSUR=$$CURRSURO^XQALSURO(USER2)
  1. I ACTSUR=USER1 Q 1
  1. Q 0