MAGGTSY1 ;WOIFO/GEK - Imaging Session Utilities ; [ 06/20/2001 08:57 ]
;;3.0;IMAGING;**7**;Jul 12, 2002
;; +---------------------------------------------------------------+
;; | 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
SESSION(MAGRY,DATA) ;RPC Call for MAGSYS utility.
; List of Sessions for a Workstation.
; DATA is '^' delimited string
; IEN Workstatin File ^ From Date ^ To Date
;
N I,J,I1,CT,X,Y,Z,MAGX,MAGWIEN,MAGTIEN
N DTFR,DTTO
S ^TMP("MAGGTSY1","DATA")=DATA
S MAGWIEN=$P(DATA,U,1)
S MAGRY=$NA(^TMP($J,"MAGWSESS"))
K ^TMP($J,"MAGWSESS")
S CT=1
S DTFR=$P(DATA,U,2),DTTO=$P(DATA,U,3)
I DTFR>DTTO S X=DTFR,DTFR=DTTO,DTTO=X
I DTTO=0 S DTTO=9999999
S DTTO=DTTO_".9999"
S ACI="L"_DTTO
F S ACI=$O(^MAG(2006.82,"ACWRK",MAGWIEN,ACI),-1) S I1=$E(ACI,2,99) Q:I1<DTFR D
. S I="" F S I=$O(^MAG(2006.82,"ACWRK",MAGWIEN,ACI,I),-1) Q:'I D
. . ;S I=$O(^MAG(2006.82,"ACWRK",MAGWIEN,ACI,""))
. . D INFO(I,.Y) S CT=CT+1,@MAGRY@(CT)=Y
I CT=1 S @MAGRY@(0)="0^No Sessions in Date Range." Q
S @MAGRY@(0)=(CT-1)_"^"_$P(^MAG(2006.81,MAGWIEN,0),U,1)_" Workstation sessions "
S @MAGRY@(1)="User^Service/Section^Last Logon^Logoff^Pat ct^Image ct^Cap ct^Actions^Error^TrkID"
;S @MAGRY@(1)="User^Workstation^Service/Section^Last Logon^Logoff^Pat ct^Image ct^Cap ct^Actions^Error"
Q
INFO(I,Y) ;
N N1,N0,MDUZ,Z
S N0=^MAG(2006.82,I,0) ; Imaging Windows Session file
; THIS WON'T BE NEEDED,I '$P(M,U,8) D SERV(I)
S Y=$P(N0,U,1) ; User Name
;S Y=Y_$P(^MAG(2006.81,$P(M,U,5),0),U,1) ; Workstation Name
S X=""
I $P(N0,U,8) D
. D GETS^DIQ(49,$P(N0,U,8)_",",".01","E","Z","")
. S X=Z(49,$P(N0,U,8)_",",".01","E")
S Y=Y_U_X
S Y=Y_U_$$OUTDT^MAGGTSY($P(N0,U,3)) ;Date of Last Logon, by a user.
S Y=Y_U_$$OUTDT^MAGGTSY($P(N0,U,4)) ;Date/Time of Last Logoff.
;
S N1=$G(^MAG(2006.82,I,1))
;
S Y=Y_U_$P(N1,U,1) ; patients viewed this session
S Y=Y_U_$P(N1,U,2) ; images viewed this session.
S Y=Y_U_$P(N1,U,3) ; Images captured this session
S Y=Y_U_$P($G(^MAG(2006.82,I,"ACT",0)),U,3) ; action count
S Y=Y_U_$P($G(^MAG(2006.82,I,"ERR",0)),U,3) ; error count
S Y=Y_U_$P(N0,U,9)
S Y=Y_U_I ; session ien
Q
DISPLAY(MAGRY,MAGSIEN) ; RPC Call for MAGSYS utility.
; Returns a display of this sessions info.
;
N CT,I,ECT,ACT
S MAGRY=$NA(^TMP($J,"MAGSDISP"))
K ^TMP($J,"MAGSDISP")
S CT=0,I=0,ACT=0
F S I=$O(^MAG(2006.82,MAGSIEN,"ACT",I)) Q:'I D
. S CT=CT+1,ACT=ACT+1
. S @MAGRY@(CT)=^MAG(2006.82,MAGSIEN,"ACT",I,0)
S I=0,ECT=0
I $D(^MAG(2006.82,MAGSIEN,"ERR")) D
. S CT=CT+1
. S @MAGRY@(CT)="[ERRORS]"
. F S I=$O(^MAG(2006.82,MAGSIEN,"ERR",I)) Q:'I D
. . S CT=CT+1,ECT=ECT+1
. . S @MAGRY@(CT)=^MAG(2006.82,MAGSIEN,"ERR",I,0)
S @MAGRY@(0)=(CT)_"^"_ACT_" Actions. "_ECT_" Errors."
Q
SERV(I) ;
; FILE THE SERVICE/SECTION INTO THE SESSION FILE
N N,MAGGFDA,MDUZ
S N=^MAG(2006.82,I,0)
S MDUZ=$P(N,U,2)_","
D GETS^DIQ(200,MDUZ,"29","I","Z","") ; service/section
S MAGGFDA(2006.82,I_",",7)=Z(200,MDUZ,29,"I")
D UPDATE^DIE("","MAGGFDA","","")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGGTSY1 3942 printed Oct 16, 2024@18:04:01 Page 2
MAGGTSY1 ;WOIFO/GEK - Imaging Session Utilities ; [ 06/20/2001 08:57 ]
+1 ;;3.0;IMAGING;**7**;Jul 12, 2002
+2 ;; +---------------------------------------------------------------+
+3 ;; | Property of the US Government. |
+4 ;; | No permission to copy or redistribute this software is given. |
+5 ;; | Use of unreleased versions of this software requires the user |
+6 ;; | to execute a written test agreement with the VistA Imaging |
+7 ;; | Development Office of the Department of Veterans Affairs, |
+8 ;; | telephone (301) 734-0100. |
+9 ;; | |
+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
SESSION(MAGRY,DATA) ;RPC Call for MAGSYS utility.
+1 ; List of Sessions for a Workstation.
+2 ; DATA is '^' delimited string
+3 ; IEN Workstatin File ^ From Date ^ To Date
+4 ;
+5 NEW I,J,I1,CT,X,Y,Z,MAGX,MAGWIEN,MAGTIEN
+6 NEW DTFR,DTTO
+7 SET ^TMP("MAGGTSY1","DATA")=DATA
+8 SET MAGWIEN=$PIECE(DATA,U,1)
+9 SET MAGRY=$NAME(^TMP($JOB,"MAGWSESS"))
+10 KILL ^TMP($JOB,"MAGWSESS")
+11 SET CT=1
+12 SET DTFR=$PIECE(DATA,U,2)
SET DTTO=$PIECE(DATA,U,3)
+13 IF DTFR>DTTO
SET X=DTFR
SET DTFR=DTTO
SET DTTO=X
+14 IF DTTO=0
SET DTTO=9999999
+15 SET DTTO=DTTO_".9999"
+16 SET ACI="L"_DTTO
+17 FOR
SET ACI=$ORDER(^MAG(2006.82,"ACWRK",MAGWIEN,ACI),-1)
SET I1=$EXTRACT(ACI,2,99)
if I1<DTFR
QUIT
Begin DoDot:1
+18 SET I=""
FOR
SET I=$ORDER(^MAG(2006.82,"ACWRK",MAGWIEN,ACI,I),-1)
if 'I
QUIT
Begin DoDot:2
+19 ;S I=$O(^MAG(2006.82,"ACWRK",MAGWIEN,ACI,""))
+20 DO INFO(I,.Y)
SET CT=CT+1
SET @MAGRY@(CT)=Y
End DoDot:2
End DoDot:1
+21 IF CT=1
SET @MAGRY@(0)="0^No Sessions in Date Range."
QUIT
+22 SET @MAGRY@(0)=(CT-1)_"^"_$PIECE(^MAG(2006.81,MAGWIEN,0),U,1)_" Workstation sessions "
+23 SET @MAGRY@(1)="User^Service/Section^Last Logon^Logoff^Pat ct^Image ct^Cap ct^Actions^Error^TrkID"
+24 ;S @MAGRY@(1)="User^Workstation^Service/Section^Last Logon^Logoff^Pat ct^Image ct^Cap ct^Actions^Error"
+25 QUIT
INFO(I,Y) ;
+1 NEW N1,N0,MDUZ,Z
+2 ; Imaging Windows Session file
SET N0=^MAG(2006.82,I,0)
+3 ; THIS WON'T BE NEEDED,I '$P(M,U,8) D SERV(I)
+4 ; User Name
SET Y=$PIECE(N0,U,1)
+5 ;S Y=Y_$P(^MAG(2006.81,$P(M,U,5),0),U,1) ; Workstation Name
+6 SET X=""
+7 IF $PIECE(N0,U,8)
Begin DoDot:1
+8 DO GETS^DIQ(49,$PIECE(N0,U,8)_",",".01","E","Z","")
+9 SET X=Z(49,$PIECE(N0,U,8)_",",".01","E")
End DoDot:1
+10 SET Y=Y_U_X
+11 ;Date of Last Logon, by a user.
SET Y=Y_U_$$OUTDT^MAGGTSY($PIECE(N0,U,3))
+12 ;Date/Time of Last Logoff.
SET Y=Y_U_$$OUTDT^MAGGTSY($PIECE(N0,U,4))
+13 ;
+14 SET N1=$GET(^MAG(2006.82,I,1))
+15 ;
+16 ; patients viewed this session
SET Y=Y_U_$PIECE(N1,U,1)
+17 ; images viewed this session.
SET Y=Y_U_$PIECE(N1,U,2)
+18 ; Images captured this session
SET Y=Y_U_$PIECE(N1,U,3)
+19 ; action count
SET Y=Y_U_$PIECE($GET(^MAG(2006.82,I,"ACT",0)),U,3)
+20 ; error count
SET Y=Y_U_$PIECE($GET(^MAG(2006.82,I,"ERR",0)),U,3)
+21 SET Y=Y_U_$PIECE(N0,U,9)
+22 ; session ien
SET Y=Y_U_I
+23 QUIT
DISPLAY(MAGRY,MAGSIEN) ; RPC Call for MAGSYS utility.
+1 ; Returns a display of this sessions info.
+2 ;
+3 NEW CT,I,ECT,ACT
+4 SET MAGRY=$NAME(^TMP($JOB,"MAGSDISP"))
+5 KILL ^TMP($JOB,"MAGSDISP")
+6 SET CT=0
SET I=0
SET ACT=0
+7 FOR
SET I=$ORDER(^MAG(2006.82,MAGSIEN,"ACT",I))
if 'I
QUIT
Begin DoDot:1
+8 SET CT=CT+1
SET ACT=ACT+1
+9 SET @MAGRY@(CT)=^MAG(2006.82,MAGSIEN,"ACT",I,0)
End DoDot:1
+10 SET I=0
SET ECT=0
+11 IF $DATA(^MAG(2006.82,MAGSIEN,"ERR"))
Begin DoDot:1
+12 SET CT=CT+1
+13 SET @MAGRY@(CT)="[ERRORS]"
+14 FOR
SET I=$ORDER(^MAG(2006.82,MAGSIEN,"ERR",I))
if 'I
QUIT
Begin DoDot:2
+15 SET CT=CT+1
SET ECT=ECT+1
+16 SET @MAGRY@(CT)=^MAG(2006.82,MAGSIEN,"ERR",I,0)
End DoDot:2
End DoDot:1
+17 SET @MAGRY@(0)=(CT)_"^"_ACT_" Actions. "_ECT_" Errors."
+18 QUIT
SERV(I) ;
+1 ; FILE THE SERVICE/SECTION INTO THE SESSION FILE
+2 NEW N,MAGGFDA,MDUZ
+3 SET N=^MAG(2006.82,I,0)
+4 SET MDUZ=$PIECE(N,U,2)_","
+5 ; service/section
DO GETS^DIQ(200,MDUZ,"29","I","Z","")
+6 SET MAGGFDA(2006.82,I_",",7)=Z(200,MDUZ,29,"I")
+7 DO UPDATE^DIE("","MAGGFDA","","")
+8 QUIT
