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 | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^DIA

Package: VA FileMan

Global: ^DIA

Information

FileMan FileNo	FileMan Filename	Package
1.1	AUDIT	VA FileMan

Description

This file stores an audit trail of changes made to data fields.

Directly Accessed By Routines, Total: 37

Package	Total	Routines
VA FileMan	16	^DIA DI222P25 DI222P27 DIAU DIAUTL DICA3 DICLIB DICN0 DIET DII DIK1 DIPOS104 DIPR129 DIQ DIU0 YEAR
DSS Extracts	3	ECX3P154 ECXPHAU ECXPROEL
Kernel	2	XUSEC TERMINATION REPORT XUSEC TERMINATION REPORT Q
Lab Service	2	LRJ SYS DISPLAY FILE 60 CHANGE RELATED NAME
PCE Patient Care Encounter	2	PXVRPC2 PXVRPC7A
Registration	2	DGAUDIT1 DGAUDIT3
National Drug File	1	PSNVCR2
Outpatient Pharmacy	1	PSOADDR
Scheduling	1	SD44AUDI
Toolkit	1	XURNPAUD

Accessed By FileMan Db Calls, Total: 2

Package	Total	Routines
Registration	2	DGAUDIT1 DGAUDIT3

Pointer To FileMan Files, Total: 4

Package	Total	FileMan Files
Kernel	3	OPTION(#19)[4.1, 4.2] PROTOCOL(#101)[4.2] NEW PERSON(#200)[.04]
Registration	1	PATIENT(#2)[2.9]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `A whole number greater than 1.`
.01	INTERNAL ENTRY NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<1)!'(X'?1P.E) X` CROSS-REFERENCE: `1.1^B` `1)= S ^DIA(DIA,"B",$E(X,1,30),DA)=""` `2)= K ^DIA(DIA,"B",$E(X,1,30),DA)`
.02	DATE/TIME RECORDED	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` CROSS-REFERENCE: `1.1^C` `1)= S ^DIA(DIA,"C",$E(X,1,30),DA)=""` `2)= K ^DIA(DIA,"C",$E(X,1,30),DA)`
.03	FIELD NUMBER	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!$L(X)<1) X` HELP-PROMPT: `The number of the field that was audited.`
.04	USER	0;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) CROSS-REFERENCE: `1.1^D` `1)= S ^DIA(DIA,"D",$E(X,1,30),DA)=""` `2)= K ^DIA(DIA,"D",$E(X,1,30),DA)`
.05	RECORD ADDED	0;5	SET	'A' FOR Added Record; DESCRIPTION: `When a new recorded is added to a file (sub-file) and the .01 field is being audited, then this field will be set to an 'A'.`
.06	ACCESSED	0;6	SET	'i' FOR INQUIRED TO ENTRY; HELP-PROMPT: `This field should only have a value if the audit event represents an inquiry that DID NOT CHANGE DATA` DESCRIPTION: `This flag (settable by ACCESSED^DIET) is designed to record that a user LOOKED UP the Entry, without necessarily changing it. Such an audit might be set by the POST-SELECTION ACTION of a File, e.g. for HIPAA.`
1	ENTRY NAME		COMPUTED	MUMPS CODE: `N C,Y S Y=^DIC(DIA,0,"GL"),X=^DIA(DIA,D0,0),Y=$P($G(@(Y_+X_",0)")),U),C=$P($G(^DD(DIA,.01,0)),U,2) D Y^DIQ:C]"" S X=Y` DESCRIPTION: `The value of the .01 field of the entry in which the audited change occurred is retrieved from the Audit Log and output.`
1.1	FIELD NAME		COMPUTED	MUMPS CODE: `S Y(1.1,1.1)=$S($D(^DIA(DIA,D0,0)):$P(^(0),U,3),1:""),X="" Q:$P($G(^(0)),U,6)="i" X ^DD(1.1,1.1,9.2) K Y(1.1) S X=$E(X,1,$L(X)-1)` `9.2 = X ^DD(1.1,1.1,9.3) S X="" F %=1:1:%-1 S X=X_Y(1.1,%)_","` `9.3 = S X1=DIA F %=1:1 S X=$P(Y(1.1,1.1),",",%) Q:X="" S Y(1.1,%)=$S($D(^DD(X1,X,0)):$P(^(0),U,1,2),1:"????"),X1=+$P(Y(1.1,%),U,2),Y(1.1,%)=$P(Y(1.1,%),U,1)` DESCRIPTION: `The Field NAME of the Field for which the audited change was made is output.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	OLD VALUE		COMPUTED	MUMPS CODE: `S X=$G(^DIA(DIA,D0,2)),X=$S(X]"":X,($P($G(^(0)),U,6)="i"!$D(^(2.14))):"",1:"")` DESCRIPTION: `The value that was changed by an audited edit is retrieved from the Audit Log and output. If no value existed is output.`
2.1	OLD INTERNAL VALUE	2.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30 X`
2.14	OLD W-P TEXT		COMPUTED MULTIPLE	MUMPS CODE: `X "N I,X F I=0:0 S I=$O(^DIA(DIA,D0,2.14,I)) Q:'I S X=$G(^(I,0)) X DICMX"` DESCRIPTION: `Tells what the entire multi-line text field looked like BEFORE it was changed by the audited event.`
2.2	DATATYPE OF OLD VALUE	2.1;2	SET	'S' FOR SET; 'P' FOR POINTER; 'V' FOR VARIABLE POINTER;
2.9	PATIENT		COMPUTED POINTER TO PATIENT FILE (#2)	MUMPS CODE: `N A,% S %=$G(^DIC(DIA,0,"GL")),A=+$G(^DIA(DIA,D0,0)) X ^DD(1.1,2.9,9.2)` `9.2 = S X="",X=$S(DIA=2:A,DIA=9000001:A,1:"") X ^DD(1.1,2.9,9.3):'X` `9.3 = N I,GL S I=$S($O(^DD(2,0,"PT",DIA,0)):+$O(^(0)),1:$O(^DD(9000001,0,"PT",DIA,0))) I I S GL=$P($G(^DD(DIA,I,0)),U,4) I GL'="" X ^DD(1.1,2.9,9.5)` `9.4 = S X=$S(X[";DPT(":+X,X[";AUPNPAT(":+X,1:"")` `9.5 = S X=$P(GL,";"),X=$S($D(@(%_+A_","""_X_""")")):$P(^(X),U,+$P(GL,";",2)),1:"") X:X[";" ^DD(1.1,2.9,9.4)` ALGORITHM: `N A,% S %=$G(^DIC(DIA,0,"GL")),A=+$G(^DIA(DIA,D0,0)) X ^DD(1.1,2.9,9.2)` DESCRIPTION: `If the audited File is #2 or #9000001, or if there is a pointer back to either of these Files from the audited File, then this field shows which particular Patient is involved in the audited data.`
3	NEW VALUE		COMPUTED	MUMPS CODE: `S X=$G(^DIA(DIA,D0,3)),X=$S(X]"":X,$G(^(2))]"":"",1:"")` DESCRIPTION: `The value that was entered by an audited edit is retrieved from the Audit Log and output. If the existing value was removed and not replaced, is output.`
3.1	NEW INTERNAL VALUE	3.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30 X`
3.2	DATATYPE OF NEW VALUE	3.1;2	SET	'S' FOR SET; 'P' FOR POINTER; 'V' FOR VARIABLE POINTER;
4.1	MENU OPTION USED	4.1;1	POINTER TO OPTION FILE (#19)	OPTION(#19) DESCRIPTION: `This is the Option that the Kernel menu system used to change the audited data.` TECHNICAL DESCR: `This field contains the value of +XQY and is a direct pointer to the OPTION FILE (#19).`
4.2	PROTOCOL or OPTION USED	4.1;2	VARIABLE POINTER	OPTION(#19) PROTOCOL(#101) HELP-PROMPT: `Answer must be 1-63 characters in length.` DESCRIPTION: `This is the Protocol or Option (type Protocol) that was used when the audit took place.` TECHNICAL DESCR: `This is a Variable Pointer field whose value is obtained from the local variable XQORNOD, which is in the form ien;global root. It can either point to the Option file or to the Protocol file.`

Found Entries, Total: 1

ICR, Total: 2

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #2602	National Drug File Clinical Information Resource Network Master Patient Index VistA Outpatient Pharmacy Registration Scheduling Lab Service Order Entry Results Reporting PCE Patient Care Encounter Imaging Kernel	DATE/TIME RECORDED (.02). Access: Direct Global Read & w/Fileman FIELD NUMBER (.03). Access: Direct Global Read & w/Fileman INTERNAL ENTRY NUMBER (.01). Access: Direct Global Read & w/Fileman OLD VALUE (2). Access: Direct Global Read & w/Fileman OLD INTERNAL VALUE (2.1). Access: Direct Global Read & w/Fileman NEW VALUE (3). Access: Direct Global Read & w/Fileman NEW INTERNAL VALUE (3.1). Access: Direct Global Read & w/Fileman NUMBER (.001). Access: Read w/Fileman USER (.04). Access: Direct Global Read & w/Fileman RECORD ADDED (.05). Access: Direct Global Read & w/Fileman ENTRY NAME (1). Access: Read w/Fileman FIELD NAME (1.1). Access: Read w/Fileman DATATYPE OF OLD VALUE (2.2). Access: Read w/Fileman DATATYPE OF NEW VALUE (3.2). Access: Read w/Fileman MENU OPTION USED (4.1). Access: Direct Global Read & w/Fileman PROTOCOL or OPTION USED (4.2). Access: Direct Global Read & w/Fileman	DIRECT READ ACCESS TO THE 'C' CROSS-REFERENCEDirect read access to the 'B' cross-reference
ICR #6196	DSS - DECISION SUPPORT SYSTEM EXTRACTS		Holds the audit log for the UNIT DOSE LOCAL EXTRACTfile.Holds the audit log for the PRESCRIPTION EXTRACT file.Holds the audit log for the IV DETAIL EXTRACT file.

External References

Name	Field # of Occurrence
^%DT	.02+1
EN^DDIOL	IDWRITE+1
Y^DIQ	1+1
$$NAKED^DIUTL	IDWRITE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	1+1, 1.1OF9.3+1, 2.9OF9.3+1
^DD(1.1	1.1+1, 1.1OF9.2+1, 2.9+1, 2.9OF9.2+1, 2.9OF9.3+1, 2.9OF9.5+1
^DD(2	2.9OF9.3+1
^DD(9000001	2.9OF9.3+1
^DIA - [#1.1]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), 1+1, 1.1+1, 2+1, 2.9+1 , 3+1
^DIC - [#1]	1+1, 2.9+1

Naked Globals

Name	Field # of Occurrence
^(	2.9OF9.5+1
^(0	IDWRITE+1, 1.1+1, 1.1OF9.3+1, 2+1, 2.9OF9.3+1
^(2	3+1
^(2.14	2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	IDWRITE+1~, 1.1OF9.2+1, 1.1OF9.3+1, 2.9+1~, 2.9OF9.5+1
>> %DT	.02+1*
A	2.9+1~*, 2.9OF9.2+1, 2.9OF9.5+1
C	1+1~*
>> D0	1+1, 1.1+1, 2+1, 2.9+1, 3+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)
>> DIA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), 1+1, 1.1+1, 1.1OF9.3+1, 2+1 , 2.9+1, 2.9OF9.2+1, 2.9OF9.3+1, 3+1
GL	2.9OF9.3+1~*, 2.9OF9.5+1
I	2.9OF9.3+1~*
U	IDWRITE+1, 1+1, 1.1+1, 1.1OF9.3+1, 2+1, 2.9OF9.3+1, 2.9OF9.5+1
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .04(XREF 1S), .04(XREF 1K) , 1+1, 1.1+1, 1.1OF9.2+1, 1.1OF9.3+1, 2+1, 2.1+1!, 2.9OF9.2+1, 2.9OF9.4+1, 2.9OF9.5+1, 3+1 , 3.1+1!
>> X1	1.1OF9.3+1*
Y	.02+1, 1+1~*
Y(	1.1+1!, 1.1OF9.2+1, 1.1OF9.3+1

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