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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBETIME 651 printed Dec 13, 2024@02:22:20 Page 2
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
