HLLOG ;OIFO-O/JLG - (LOG API) ;11/24/2003  16:48
 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
 Q
 ;
ENTERING(RTN,SUB,COOKIE) ;
 ; RTN -    the routine from which called 
 ; SUB -    the subroutine from which called 
 ; COOKIE - current session id as $H; to be used subsequently 
 ;          in EXITING^HLLOG
 ;
 N SITE,XTMP
 Q:'$$ENABLED
 Q:$G(RTN)=""  Q:$G(SUB)=""  Q:$G(COOKIE)=""
 S SITE=+$P($$SITE^VASITE,U,3)
 S XTMP="HL LOG "_DT
 S:'$D(^XTMP(XTMP,0)) ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_U_"Log data created by call to HLLOG"
 S COOKIE=$H
 S ^XTMP(XTMP,SITE,RTN,SUB,$J,COOKIE,"ENTER")=$$STATS^%ZOSVKR
 Q
 ;
EXITING(RTN,SUB,COOKIE) ;
 ; RTN -    the routine from which called 
 ; SUB -    the subroutine from which called 
 ; COOKIE - current session id as $H; previously used in ENTERING^HLLOG 
 ;
 Q:'$$ENABLED
 Q:$G(RTN)=""  Q:$G(SUB)=""  Q:$G(COOKIE)=""
 S SITE=+$P($$SITE^VASITE,U,3)
 S XTMP="HL LOG "_DT
 S:'$D(^XTMP(XTMP,0)) ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_"U"_"Log data created by call to HLLOG"
 S ^XTMP(XTMP,SITE,RTN,SUB,$J,COOKIE,"EXIT")=$$STATS^%ZOSVKR_U_$$HDIFF^XLFDT($H,COOKIE,2)
 Q
 ;
ENABLED() ;
 ; check that this functionality is enabled
 ;Q $P(^HLCS(869.3,1,0),U,6)
 Q 1
 ;