IBONIT2.m

IBONIT2	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	;

	;

	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

	;

IBONIT2   ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +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       ;