| [613] | 1 | HLLOG ;OIFO-O/JLG - (LOG API) ;11/24/2003 16:48
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ENTERING(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 | ;
|
|---|
| 21 | EXITING(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 | ;
|
|---|
| 34 | ENABLED() ;
|
|---|
| 35 | ; check that this functionality is enabled
|
|---|
| 36 | ;Q $P(^HLCS(869.3,1,0),U,6)
|
|---|
| 37 | Q 1
|
|---|
| 38 | ;
|
|---|
