|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
624 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | IBETIME ;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 | ;
|
|---|
| 6 | T0 ;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 | ;
|
|---|
| 13 | T1 ;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 | ;
|
|---|
| 21 | T0ZOSV ; start RT clock ; KERNEL 7 LOGIC for VAXDSM
|
|---|
| 22 | ;D T0^%ZOSV
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | T1ZOSV ; 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.
