MAGLOG ;WOIFO/RED,SRR,MLH - Log image access ; 13 Jul 2008 11:39 PM
;;3.0;IMAGING;**17,8,20,59,83,39,138**;Mar 19, 2002;Build 5380;Sep 03, 2013
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | Development Office of the Department of Veterans Affairs, |
;; | telephone (301) 734-0100. |
;; | The Food and Drug Administration classifies this software as |
;; | a medical device. As such, it may not be changed in any way. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
; CALL WITH:
; MAGIMT = TYPE OF ACCESS
; DUZ = USER NO.
; MAGO = IMAGE SUBSCRIPT NO.
; MAGPACK = USER INTERFACE PACKAGE
; MAGDFN = PATIENT NO.
; MAGCT = TOTAL IMAGE COUNT
; MAGAD = ADDITIONAL DATA
;
; New MAGIMT = NOIMAGE - Image Entry moved to Audit File. No Image Existed. ; p140
Q
ENTRY(MAGIMT,MAGDUZ,MAGO,MAGPACK,MAGDFN,MAGCT,MAGAD) ;
I '$D(MAGSYS) S MAGSYS=^%ZOSF("VOL")
N MAGC,MSYS,MAGSITE,SITE,NOW
S MSYS=$$UP^XLFSTR(MAGSYS)
I (MSYS["UNKNOWN"),($D(MAGJOB("WRKSIEN"))) S MSYS=$P(^MAG(2006.81,MAGJOB("WRKSIEN"),0),"^",1)
L +^MAG(2006.95,0):10 E Q ;entries were being overwritten.
S MAGC=$P(^MAG(2006.95,0),"^",3)+1
S $P(^MAG(2006.95,0),"^",3,4)=MAGC_"^"_MAGC
L -^MAG(2006.95,0)
S NOW=$$NOW^XLFDT
; FLD #'s .01 1 2 3 4 5 6 7 8 9
S ^MAG(2006.95,MAGC,0)=MAGC_"^"_$G(MAGIMT)_"^"_$G(MAGDUZ)_"^"_MAGO_"^"_MAGPACK_"^"_MSYS_"^"_NOW_"^"_MAGDFN_"^"_MAGCT_"^"_+$G(MAGJOB("SESSION"))
S SITE=$$SITE(""),MAGSITE=$P(SITE,"^",2)
S $P(^MAG(2006.95,MAGC,0),"^",11)=$P(SITE,"^")
S:$G(MAGAD)'="" ^MAG(2006.95,MAGC,100)=MAGAD
S ^MAG(2006.95,"B",MAGC,MAGC)=""
S ^MAG(2006.95,"AC",NOW,MAGC)=""
S ^MAG(2006.95,"C",MAGSITE,NOW,MAGC)=""
D ACCESS(MAGO) ; This should be here. Can now search 2006.95 from "Last Access Date" to "Capture Date" to
; get all Actions logged. We Don't have to search entire Image File.
I $G(MAGJOB("SESSION")) S ^MAG(2006.95,"AS",+$G(MAGJOB("SESSION")),MAGC)=""
Q
ACCESS(MAGO) ; Update Field "Last Access Date" in Image File.
Q:'$G(MAGO)
I '$D(^MAG(2005,MAGO,0)) D Q
. I $D(^MAG(2005.1,MAGO,0)) S $P(^MAG(2005.1,MAGO,0),"^",9)=$$NOW^XLFDT
. Q
S $P(^MAG(2005,MAGO,0),"^",9)=$$NOW^XLFDT
Q
SITE(RETURN) ;Set SITE to either image acquisition field or the user's division or default to Kernel parameter.
; SITE is the division value and MAGSITE is the value for it's corresponding value in file 2006.1
; either an Imaging site entry or an associated institution.
N INST,SITE,MAGSITE
S INST=$$KSP^XUPARAM("INST"),MAGSITE="",RETURN=""
I $G(MAGO) D
. I $D(^MAG(2005,MAGO,0)),$D(^MAG(2005,MAGO,100)) S SITE=$P(^(100),"^",3)
. E I $D(^MAG(2005.1,MAGO,0)),$D(^MAG(2005.1,MAGO,100)) S SITE=$P(^(100),"^",3)
. Q
I '+$G(SITE),$G(MAGDUZ) D
. I $G(DUZ(2)),$D(^MAG(2006.1,"B",DUZ(2))) S SITE=DUZ(2),MAGSITE=$$PLACE^MAGBAPI(SITE) Q
. S SITE=$$FINDSITE^MAGQE7(MAGDUZ)
. Q
I '+$G(SITE) S SITE=INST ; ;Last default use the Kernel parameters.
I 'MAGSITE S MAGSITE=$S($D(^MAG(2006.1,"B",+SITE)):SITE,1:INST) S MAGSITE=$$PLACE^MAGBAPI(MAGSITE)
S RETURN=SITE_"^"_MAGSITE
Q RETURN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGLOG 3835 printed Nov 22, 2024@17:17:14 Page 2
MAGLOG ;WOIFO/RED,SRR,MLH - Log image access ; 13 Jul 2008 11:39 PM
+1 ;;3.0;IMAGING;**17,8,20,59,83,39,138**;Mar 19, 2002;Build 5380;Sep 03, 2013
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ; CALL WITH:
+19 ; MAGIMT = TYPE OF ACCESS
+20 ; DUZ = USER NO.
+21 ; MAGO = IMAGE SUBSCRIPT NO.
+22 ; MAGPACK = USER INTERFACE PACKAGE
+23 ; MAGDFN = PATIENT NO.
+24 ; MAGCT = TOTAL IMAGE COUNT
+25 ; MAGAD = ADDITIONAL DATA
+26 ;
+27 ; New MAGIMT = NOIMAGE - Image Entry moved to Audit File. No Image Existed. ; p140
+28 QUIT
ENTRY(MAGIMT,MAGDUZ,MAGO,MAGPACK,MAGDFN,MAGCT,MAGAD) ;
+1 IF '$DATA(MAGSYS)
SET MAGSYS=^%ZOSF("VOL")
+2 NEW MAGC,MSYS,MAGSITE,SITE,NOW
+3 SET MSYS=$$UP^XLFSTR(MAGSYS)
+4 IF (MSYS["UNKNOWN")
IF ($DATA(MAGJOB("WRKSIEN")))
SET MSYS=$PIECE(^MAG(2006.81,MAGJOB("WRKSIEN"),0),"^",1)
+5 ;entries were being overwritten.
LOCK +^MAG(2006.95,0):10
IF '$TEST
QUIT
+6 SET MAGC=$PIECE(^MAG(2006.95,0),"^",3)+1
+7 SET $PIECE(^MAG(2006.95,0),"^",3,4)=MAGC_"^"_MAGC
+8 LOCK -^MAG(2006.95,0)
+9 SET NOW=$$NOW^XLFDT
+10 ; FLD #'s .01 1 2 3 4 5 6 7 8 9
+11 SET ^MAG(2006.95,MAGC,0)=MAGC_"^"_$GET(MAGIMT)_"^"_$GET(MAGDUZ)_"^"_MAGO_"^"_MAGPACK_"^"_MSYS_"^"_NOW_"^"_MAGDFN_"^"_MAGCT_"^"_+$GET(MAGJOB("SESSION"))
+12 SET SITE=$$SITE("")
SET MAGSITE=$PIECE(SITE,"^",2)
+13 SET $PIECE(^MAG(2006.95,MAGC,0),"^",11)=$PIECE(SITE,"^")
+14 if $GET(MAGAD)'=""
SET ^MAG(2006.95,MAGC,100)=MAGAD
+15 SET ^MAG(2006.95,"B",MAGC,MAGC)=""
+16 SET ^MAG(2006.95,"AC",NOW,MAGC)=""
+17 SET ^MAG(2006.95,"C",MAGSITE,NOW,MAGC)=""
+18 ; This should be here. Can now search 2006.95 from "Last Access Date" to "Capture Date" to
DO ACCESS(MAGO)
+19 ; get all Actions logged. We Don't have to search entire Image File.
+20 IF $GET(MAGJOB("SESSION"))
SET ^MAG(2006.95,"AS",+$GET(MAGJOB("SESSION")),MAGC)=""
+21 QUIT
ACCESS(MAGO) ; Update Field "Last Access Date" in Image File.
+1 if '$GET(MAGO)
QUIT
+2 IF '$DATA(^MAG(2005,MAGO,0))
Begin DoDot:1
+3 IF $DATA(^MAG(2005.1,MAGO,0))
SET $PIECE(^MAG(2005.1,MAGO,0),"^",9)=$$NOW^XLFDT
+4 QUIT
End DoDot:1
QUIT
+5 SET $PIECE(^MAG(2005,MAGO,0),"^",9)=$$NOW^XLFDT
+6 QUIT
SITE(RETURN) ;Set SITE to either image acquisition field or the user's division or default to Kernel parameter.
+1 ; SITE is the division value and MAGSITE is the value for it's corresponding value in file 2006.1
+2 ; either an Imaging site entry or an associated institution.
+3 NEW INST,SITE,MAGSITE
+4 SET INST=$$KSP^XUPARAM("INST")
SET MAGSITE=""
SET RETURN=""
+5 IF $GET(MAGO)
Begin DoDot:1
+6 IF $DATA(^MAG(2005,MAGO,0))
IF $DATA(^MAG(2005,MAGO,100))
SET SITE=$PIECE(^(100),"^",3)
+7 IF '$TEST
IF $DATA(^MAG(2005.1,MAGO,0))
IF $DATA(^MAG(2005.1,MAGO,100))
SET SITE=$PIECE(^(100),"^",3)
+8 QUIT
End DoDot:1
+9 IF '+$GET(SITE)
IF $GET(MAGDUZ)
Begin DoDot:1
+10 IF $GET(DUZ(2))
IF $DATA(^MAG(2006.1,"B",DUZ(2)))
SET SITE=DUZ(2)
SET MAGSITE=$$PLACE^MAGBAPI(SITE)
QUIT
+11 SET SITE=$$FINDSITE^MAGQE7(MAGDUZ)
+12 QUIT
End DoDot:1
+13 ; ;Last default use the Kernel parameters.
IF '+$GET(SITE)
SET SITE=INST
+14 IF 'MAGSITE
SET MAGSITE=$SELECT($DATA(^MAG(2006.1,"B",+SITE)):SITE,1:INST)
SET MAGSITE=$$PLACE^MAGBAPI(MAGSITE)
+15 SET RETURN=SITE_"^"_MAGSITE
+16 QUIT RETURN
