- 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