HLLOG.m

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

 ;

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       ;