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 |  ICR |  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

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

Entry: 50.67    

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