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 |  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 DI222P25    DI222P27    DIAU    DIAUTL    DICA3    DICLIB    DICN0    DIET
DII    DIK1    DIPOS104    DIPR129    DIQ    YEAR    ^DIA    DIU0
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

Entry: 50.68    

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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All