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

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | 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.

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

Info | Desc | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All