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