BGUDSTR.m

BGUDSTR ; IHS/OIT/MJL - DESTRUCTOR FOR MDAO ;

 ;;1.5;BGU;;MAY 26, 2005

EN(BGUARRAY,BGUID) ;PEP FROM REMOTE PROCEDURE BGU DESTRUCTOR

CTL ;

 K BGUARRAY

 S BGUARRAY(1)=1,BGUARRAY(2)="OK"

 K ^TMP("BGUSAVE",BGUID),^TMP("BGULVLST",BGUID)

 Q

BGUDSTR   ; IHS/OIT/MJL - DESTRUCTOR FOR MDAO ;

 +1       ;;1.5;BGU;;MAY 26, 2005

EN(BGUARRAY,BGUID) ;PEP FROM REMOTE PROCEDURE BGU DESTRUCTOR

CTL       ;

 +1        KILL BGUARRAY

 +2        SET BGUARRAY(1)=1

           SET BGUARRAY(2)="OK"

 +3        KILL ^TMP("BGUSAVE",BGUID),^TMP("BGULVLST",BGUID)

 +4        QUIT