Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^MAG(2006.95

Package: Imaging

Global: ^MAG(2006.95

Information

FileMan FileNo	FileMan Filename	Package
2006.95	IMAGE ACCESS LOG	Imaging

Description

+---------------------------------------------------------------+ | | | 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. | | | +---------------------------------------------------------------+ This file logs all users and the image activity that took place during their session (i.e., image accesses, reports displayed, exports, and image deletions).

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Imaging	6	MAGLOG ^MAG(2006.95 IMAGES PRINTED MAGQE6 MAGQE7 MAGQLOG

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[10] NEW PERSON(#200)[2]
Imaging	1	IMAGE(#2005)[3]
Registration	1	PATIENT(#2)[7]

Fields, Total: 12

Field #	Name	Loc	Type	Details
.01	IMAGE ACCESS IEN	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"."1.N) X S:$D(X)#10 DINUM=X` LAST EDITED: `AUG 11, 2003` HELP-PROMPT: `Type a number between 1 and 999999999999, 0 Decimal Digits` DESCRIPTION: `This field contains the internal entry number of the image access.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `2006.95^B` `1)= S ^MAG(2006.95,"B",$E(X,1,30),DA)=""` `2)= K ^MAG(2006.95,"B",$E(X,1,30),DA)`
1	ACCESS TYPE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 06, 2010` HELP-PROMPT: `Enter the type of access being logged; answer must be 1-30 characters in length.` DESCRIPTION: `This field describes the type of access made to the image or page of image abstracts.`
2	USER	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 18, 1995` DESCRIPTION: `This field indicates the user who accessed the image or page of abstracts.`
3	IMAGE	0;4	POINTER TO IMAGE FILE (#2005)	**********************REQUIRED FIELD********************** IMAGE(#2005) LAST EDITED: `JAN 18, 1995` DESCRIPTION: `This field contains a pointer to the image that was accessed.`
4	USER INTERFACE SOFTWARE	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JAN 18, 1995` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This field indicates the software package that was being used to access the image.`
5	WORKSTATION	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `AUG 11, 2003` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: `This field records the 3-letter abbreviation of the workstation on which the image access was made. Meaningful only for MSM systems.`
6	ACCESS DATE/TIME	0;7	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 11, 1997` DESCRIPTION: `This field holds the date and time of the image access.` CROSS-REFERENCE: `2006.95^AC` `1)= S ^MAG(2006.95,"AC",$E(X,1,30),DA)=""` `2)= K ^MAG(2006.95,"AC",$E(X,1,30),DA)`
7	PATIENT	0;8	POINTER TO PATIENT FILE (#2)	PATIENT(#2) LAST EDITED: `JAN 18, 1995` DESCRIPTION: `This field indicates the patient whose images were accessed (optional).`
8	IMAGE COUNT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 19, 1995` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: `Number of images accessed for abstract accesses`
9	SESSION	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 23, 2002` HELP-PROMPT: `This is the Imaging Session that initiated the action.` DESCRIPTION: `This is the IEN of the Imaging Windows Session file.` CROSS-REFERENCE: `2006.95^AS` `1)= S ^MAG(2006.95,"AS",$E(X,1,30),DA)=""` `2)= K ^MAG(2006.95,"AS",$E(X,1,30),DA)` `Cross reference to group actions together by session.`
10	DIVISION	0;11	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `APR 08, 2009` DESCRIPTION: `Records the institution where the Imaging event took place.` CROSS-REFERENCE: `2006.95^C^MUMPS` `1)= S ^MAG(2006.95,"C",$S($D(^MAG(2006.1,"B",+X)):$$PLACE^MAGBAPI(X),1:$$PLACE^MAGBAPI($$KSP^XUPARAM("INST"))),$E(+$P(^MAG(2006.95,DA,0),U,7),1,30),DA)=""` `2)= K ^MAG(2006.95,"C",$S($D(^MAG(2006.1,"B",+X)):$$PLACE^MAGBAPI(X),1:$$PLACE^MAGBAPI($$KSP^XUPARAM("INST"))),$E(+$P(^MAG(2006.95,DA,0),U,7),1,30),DA)` `This cross reference is used to sort by division in chronological order. Example: ^MAG(2006.95,"C",Imaging site division,access date/time,da)=""` `The division will default to the Kernel Site Institution if a division does not match an entry in the Imaging Site Parameter file (#2006.1).`
100	ADDITIONAL DATA	100;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<1) X` LAST EDITED: `APR 13, 2007` HELP-PROMPT: `Enter additional text for this log-entry.` DESCRIPTION: `This field contains audit-specific information that cannot be fully recorded in other fields in the IMAGE ACCESS LOG File. The specific information contained is based on the value of the USER INTERFACE SOFTWARE Field` `(#4).`

External References

Name	Field # of Occurrence
^%DT	6+1
Y^DIQ	ID2+1, ID7+1
$$PLACE^MAGBAPI	10(XREF 1S), 10(XREF 1K)
$$KSP^XUPARAM	10(XREF 1S), 10(XREF 1K)

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID7+1
^DD(200	ID2+1
^DPT - [#2]	ID7+1
^MAG(2006.1 - [#2006.1]	10(XREF 1S), 10(XREF 1K)
^MAG(2006.95 - [#2006.95]	.01(XREF 1S), .01(XREF 1K), 6(XREF 1S), 6(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K)
^VA(200 - [#200]	ID2+1

Naked Globals

Name	Field # of Occurrence
^(0	ID2+1, ID7+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	6+1*
%I	ID2+1!, ID7+1!
>> C	ID2+1, ID7+1
>> DA	.01(XREF 1S), .01(XREF 1K), 6(XREF 1S), 6(XREF 1K), 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K)
>> DIC	ID2+1, ID7+1
>> DINUM	.01+1*
U	ID2+1, ID7+1, 10(XREF 1S), 10(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 4+1!, 5+1!, 6+1*!, 6(XREF 1S), 6(XREF 1K), 8+1! , 9+1!, 9(XREF 1S), 9(XREF 1K), 10(XREF 1S), 10(XREF 1K), 100+1!
>> Y	ID2+1, ID7+1, 6+1

Info | Desc | Directly Accessed By Routines | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All