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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLLOG 1266 printed Nov 22, 2024@17:08:22 Page 2
HLLOG ;OIFO-O/JLG - (LOG API) ;11/24/2003 16:48
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
+2 QUIT
+3 ;
ENTERING(RTN,SUB,COOKIE) ;
+1 ; RTN - the routine from which called
+2 ; SUB - the subroutine from which called
+3 ; COOKIE - current session id as $H; to be used subsequently
+4 ; in EXITING^HLLOG
+5 ;
+6 NEW SITE,XTMP
+7 if '$$ENABLED
QUIT
+8 if $GET(RTN)=""
QUIT
if $GET(SUB)=""
QUIT
if $GET(COOKIE)=""
QUIT
+9 SET SITE=+$PIECE($$SITE^VASITE,U,3)
+10 SET XTMP="HL LOG "_DT
+11 if '$DATA(^XTMP(XTMP,0))
SET ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_U_"Log data created by call to HLLOG"
+12 SET COOKIE=$HOROLOG
+13 SET ^XTMP(XTMP,SITE,RTN,SUB,$JOB,COOKIE,"ENTER")=$$STATS^%ZOSVKR
+14 QUIT
+15 ;
EXITING(RTN,SUB,COOKIE) ;
+1 ; RTN - the routine from which called
+2 ; SUB - the subroutine from which called
+3 ; COOKIE - current session id as $H; previously used in ENTERING^HLLOG
+4 ;
+5 if '$$ENABLED
QUIT
+6 if $GET(RTN)=""
QUIT
if $GET(SUB)=""
QUIT
if $GET(COOKIE)=""
QUIT
+7 SET SITE=+$PIECE($$SITE^VASITE,U,3)
+8 SET XTMP="HL LOG "_DT
+9 if '$DATA(^XTMP(XTMP,0))
SET ^XTMP(XTMP,0)=$$FMADD^XLFDT(DT,30)_U_$$NOW^XLFDT_"U"_"Log data created by call to HLLOG"
+10 SET ^XTMP(XTMP,SITE,RTN,SUB,$JOB,COOKIE,"EXIT")=$$STATS^%ZOSVKR_U_$$HDIFF^XLFDT($HOROLOG,COOKIE,2)
+11 QUIT
+12 ;
ENABLED() ;
+1 ; check that this functionality is enabled
+2 ;Q $P(^HLCS(869.3,1,0),U,6)
+3 QUIT 1
+4 ;
