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

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.14.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.

    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