YSASCR.m

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 ---YSASCR   619     printed  Feb 18, 2025@23:39:17                                                                                                                                                                                                       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