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