IBETIME.m

IBETIME	;ALB/CJM/AAS - Provides entry points to TO^%ZOSV and T1^%ZOSV for ease of turning off data collection ;Sep 16,1992

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

	;;Per VHA Directive 10-93-142, this routine should not be modified.

	;VAXDSM ONLY

	;

T0	;start clock

	K IBXRTN Q

	;Q:'$D(IBXRTN)

	;S XRTN=IBXRTN_"-"_$S($D(ZTQUEUED):2,1:1)

	;D T0ZOSV ;T0^%ZOSV

	Q

	;

T1	;stop clock

	Q

	;N XRTL

	;I $D(XRT0),$D(XRTN) S XRTL=$ZU(0) D T1ZOSV ;T1^%ZOSV

	;K XRT0,XRTN

	Q

	;

	;

T0ZOSV	; start RT clock ; KERNEL 7 LOGIC for VAXDSM

	;D T0^%ZOSV

	Q

T1ZOSV	; store RT datum w/ZHDIF ; KERNEL 7 LOGIC for VAXDSM

	;D T1^%ZOSV

	Q

IBETIME   ;ALB/CJM/AAS - Provides entry points to TO^%ZOSV and T1^%ZOSV for ease of turning off data collection ;Sep 16,1992

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

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;VAXDSM ONLY

 +4       ;

T0        ;start clock

 +1        KILL IBXRTN

           QUIT 

 +2       ;Q:'$D(IBXRTN)

 +3       ;S XRTN=IBXRTN_"-"_$S($D(ZTQUEUED):2,1:1)

 +4       ;D T0ZOSV ;T0^%ZOSV

 +5        QUIT 

 +6       ;

T1        ;stop clock

 +1        QUIT 

 +2       ;N XRTL

 +3       ;I $D(XRT0),$D(XRTN) S XRTL=$ZU(0) D T1ZOSV ;T1^%ZOSV

 +4       ;K XRT0,XRTN

 +5        QUIT 

 +6       ;

 +7       ;

T0ZOSV    ; start RT clock ; KERNEL 7 LOGIC for VAXDSM

 +1       ;D T0^%ZOSV

 +2        QUIT 

 +3 T1ZOSV ; store RT datum w/ZHDIF ; KERNEL 7 LOGIC for VAXDSM

 +1       ;D T1^%ZOSV

 +2        QUIT