BCHONIT2.m

BCHONIT2 ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;  [ 10/28/96  2:05 PM ]

 ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 ;

 ;

 K ^UTILITY("ORVROM",$J),DIC

 Q

DT W !

 I '$D(DTIME) S DTIME=999

 K %DT D NOW^%DTC S DT=X

 K DIK,DIC,%I,DICS Q

 ;

BCHONIT2  ; IHS/TUCSON/LAB - NO DESCRIPTION PROVIDED ;  [ 10/28/96  2:05 PM ]

 +1       ;;1.0;IHS RPMS CHR SYSTEM;;OCT 28, 1996

 +2       ;

 +3       ;

 +4        KILL ^UTILITY("ORVROM",$JOB),DIC

 +5        QUIT 

DT         WRITE !

 +1        IF '$DATA(DTIME)

               SET DTIME=999

 +2        KILL %DT

           DO NOW^%DTC

           SET DT=X

 +3        KILL DIK,DIC,%I,DICS

           QUIT 

 +4       ;