source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBETIME.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 624 bytes
Line 
1IBETIME ;ALB/CJM/AAS - Provides entry points to TO^%ZOSV and T1^%ZOSV for ease of turning off data collection ;Sep 16,1992
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;VAXDSM ONLY
5 ;
6T0 ;start clock
7 K IBXRTN Q
8 ;Q:'$D(IBXRTN)
9 ;S XRTN=IBXRTN_"-"_$S($D(ZTQUEUED):2,1:1)
10 ;D T0ZOSV ;T0^%ZOSV
11 Q
12 ;
13T1 ;stop clock
14 Q
15 ;N XRTL
16 ;I $D(XRT0),$D(XRTN) S XRTL=$ZU(0) D T1ZOSV ;T1^%ZOSV
17 ;K XRT0,XRTN
18 Q
19 ;
20 ;
21T0ZOSV ; start RT clock ; KERNEL 7 LOGIC for VAXDSM
22 ;D T0^%ZOSV
23 Q
24 ;
25T1ZOSV ; store RT datum w/ZHDIF ; KERNEL 7 LOGIC for VAXDSM
26 ;D T1^%ZOSV
27 Q
Note: See TracBrowser for help on using the repository browser.