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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSASCR 619 printed Oct 16, 2024@18:13:43 Page 2
YSASCR ;692/DCL-CLOSE ASI RECORD AFTER SIGNATURE ;3/16/98 09:17
+1 ;;5.01;MENTAL HEALTH;**24,30,32,38**;Dec 30, 1994
+2 QUIT
CR(YSASIEN,YSASDUZ,YSASPNI) ;Close Record - pass IEN and DUZ of e-signature
+1 if $GET(YSASIEN)'>0
QUIT
+2 if $GET(YSASDUZ)'>0
QUIT
+3 NEW DIC,DIE,DA,DR,X,Y
+4 SET DIE="^YSTX(604,"
SET DA=YSASIEN
+5 SET DR=".125///NOW;.81///@;.51///1;.52///`"_YSASDUZ_";5.5///1"
+6 if $GET(YSASPNI)>0
SET DR=DR_";.53///`"_YSASPNI
+7 DO ^DIE
+8 QUIT
+9 ;
CONV(YSASIEN,YSASDUZT) ;Convert person allowed to edit ASI field to_DUZ
+1 if $GET(YSASIEN)'>0
QUIT
+2 if $GET(YSASDUZT)'>0
QUIT
+3 NEW DIC,DIE,DA,DR,X,Y
+4 SET DIE="^YSTX(604,"
SET DA=YSASIEN
+5 SET DR=".81///`"_YSASDUZT
+6 DO ^DIE
+7 QUIT
