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 |  Pointer To FileMan Files |  Fields |  ICR |  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: 23

Package Total Routines
VA Fileman 13 DIAU    DIAUTL    DICA3    DICLIB    DICN0    DICRW    DIET    DII
DIK1    DIPOS104    DIPR129    DIQ    DIU0    
Commitment Register 2 ACRFAUD    ACRFDIAC    
IHS Prenatal Care Module 2 BJPN20AU    BJPNFAUD    
GUI Objects 1 BGOPAUD    
Generic Retrieval Utility 1 CIAZGRU    
Outpatient Pharmacy 1 PSOADDR    
Pharmacy Point of Sale 1 ABSPOSRS    
Scheduling 1 SD44AUDI    
Third Party Billing 1 ABMAUDRP    

Pointer To FileMan Files, Total: 3

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

Fields, Total: 18

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
  • HELP-PROMPT:  ANSWER MUST BE 1-16 CHARACTERS IN LENGTH
  • 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;

  • 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:  S %=^DIC(DIA,0,"GL"),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_",0)")):$P(^(0),U,1),1:""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""),Y=X D:Y]"" Y^DIQ:C]"" S X=Y,C=","
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 ^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)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 OLD VALUE COMPUTED

  • MUMPS CODE:  S X=$S($D(^DIA(DIA,D0,2)):^(2),1:"")
2.1 OLD INTERNAL VALUE 2.1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30 X
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

  • 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'="" S X=$S($D(@(%_+A_","_$P(GL,";")_")")):$P(^(0),U,+$P(GL,";",2)),1:"") X:X[";" ^DD(1.1,2.9,9.4
    )
    9.4 = S X=$S(X[";DPT(":+X,X[";AUPNPAT(":+X,1:"")
  • ALGORITHM:  N A,% S %=$G(^DIC(DIA,0,"GL")),A=+$G(^DIA(DIA,D0,0)) X ^DD(1.1,2.9,9.2)
  • LAST EDITED:  FEB 17, 2011
3 NEW VALUE COMPUTED

  • MUMPS CODE:  S X=$S($D(^DIA(DIA,D0,3)):^(3),1:"")
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 who's value is obtain 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.

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
    		•  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 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 |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  ICR |  All