source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLLOG.m@ 767

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1HLLOG ;OIFO-O/JLG - (LOG API) ;11/24/2003 16:48
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
3 Q
4 ;
5ENTERING(RTN,SUB,COOKIE) ;
6 ; RTN - the routine from which called
7 ; SUB - the subroutine from which called
8 ; COOKIE - current session id as $H; to be used subsequently
9 ; in EXITING^HLLOG
10 ;
11 N SITE,XTMP
12 Q:'$$ENABLED
13 Q:$G(RTN)="" Q:$G(SUB)="" Q:$G(COOKIE)=""
14 S SITE=+$P($$SITE^VASITE,U,3)
15 S XTMP="HL LOG "_DT
16 S:'$D(^XTMP(XTMP,0)) ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_U_"Log data created by call to HLLOG"
17 S COOKIE=$H
18 S ^XTMP(XTMP,SITE,RTN,SUB,$J,COOKIE,"ENTER")=$$STATS^%ZOSVKR
19 Q
20 ;
21EXITING(RTN,SUB,COOKIE) ;
22 ; RTN - the routine from which called
23 ; SUB - the subroutine from which called
24 ; COOKIE - current session id as $H; previously used in ENTERING^HLLOG
25 ;
26 Q:'$$ENABLED
27 Q:$G(RTN)="" Q:$G(SUB)="" Q:$G(COOKIE)=""
28 S SITE=+$P($$SITE^VASITE,U,3)
29 S XTMP="HL LOG "_DT
30 S:'$D(^XTMP(XTMP,0)) ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_"U"_"Log data created by call to HLLOG"
31 S ^XTMP(XTMP,SITE,RTN,SUB,$J,COOKIE,"EXIT")=$$STATS^%ZOSVKR_U_$$HDIFF^XLFDT($H,COOKIE,2)
32 Q
33 ;
34ENABLED() ;
35 ; check that this functionality is enabled
36 ;Q $P(^HLCS(869.3,1,0),U,6)
37 Q 1
38 ;
Note: See TracBrowser for help on using the repository browser.