22 lines
598 B
Mathematica
22 lines
598 B
Mathematica
YSASCR ;692/DCL-CLOSE ASI RECORD AFTER SIGNATURE ;3/16/98 09:17
|
|
;;5.01;MENTAL HEALTH;**24,30,32,38**;Dec 30, 1994
|
|
Q
|
|
CR(YSASIEN,YSASDUZ,YSASPNI) ;Close Record - pass IEN and DUZ of e-signature
|
|
Q:$G(YSASIEN)'>0
|
|
Q:$G(YSASDUZ)'>0
|
|
N DIC,DIE,DA,DR,X,Y
|
|
S DIE="^YSTX(604,",DA=YSASIEN
|
|
S DR=".125///NOW;.81///@;.51///1;.52///`"_YSASDUZ_";5.5///1"
|
|
S:$G(YSASPNI)>0 DR=DR_";.53///`"_YSASPNI
|
|
D ^DIE
|
|
Q
|
|
;
|
|
CONV(YSASIEN,YSASDUZT) ;Convert person allowed to edit ASI field to_DUZ
|
|
Q:$G(YSASIEN)'>0
|
|
Q:$G(YSASDUZT)'>0
|
|
N DIC,DIE,DA,DR,X,Y
|
|
S DIE="^YSTX(604,",DA=YSASIEN
|
|
S DR=".81///`"_YSASDUZT
|
|
D ^DIE
|
|
Q
|