STANDARD DATA DICTIONARY #740.5 -- QA AUDIT FILE 3/24/25 PAGE 1
STORED IN ^QA(740.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.7)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains an entry for each QM component, such as Occurrence Screening. Each package entry contains the user's name, date of entry,
and type of entry for every time the QA OCCURRENCE SCREEN file (#741) is accessed. This file is automatically populated every time
access is made to this file.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: ENTRY (#.02)[R]
POINTED TO BY: AUDIT field (#27) of the QA OCCURRENCE SCREEN File (#741)
AUDIT field (#100) of the FALL OUT File (#743.1)
CROSS
REFERENCED BY: NAME(AA1), ENTRY(AA2), NAME(B), DATE/TIME(C)
740.5,.01 NAME 0;1 POINTER TO FILE FILE (#1) (Required)
QA FILE NAME
INPUT TRANSFORM: K:'((X'<740)&(X<750)) X
LAST EDITED: NOV 20, 1989
HELP-PROMPT: Please enter the name of a QA file.
DESCRIPTION:
This is the QA FILE that is being audited.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 740.5^B
1)= S ^QA(740.5,"B",$E(X,1,30),DA)=""
2)= K ^QA(740.5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 740.5^AA1^MUMPS
1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) S:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA
)="" K QA
2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) K:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA
) K QA
740.5,.02 ENTRY 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: N %,C D EN2^QAQAUTL
LAST EDITED: NOV 20, 1989
HELP-PROMPT: Enter the Internal Entry Number between 1 and 999999999
DESCRIPTION:
This is the IEN of the file entry being audited.
UNEDITABLE
CROSS-REFERENCE: 740.5^AA2^MUMPS
1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") S:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA)=
"" K QA
2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") K:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA)
K QA
740.5,1 AUDIT TRAIL 1;0 DATE Multiple #740.51 (Add New Entry without Asking)
DESCRIPTION:
This is the trail of the activity associated with the IEN of the file.
740.51,.01 DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 23, 1989
HELP-PROMPT: Please enter 'NOW' or the appropriate Date/Time with Seconds.
DESCRIPTION:
This is the precise date and time that this activity was audited.
UNEDITABLE
CROSS-REFERENCE: 740.51^B
1)= S ^QA(740.5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^QA(740.5,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 740.5^C
1)= S ^QA(740.5,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^QA(740.5,"C",$E(X,1,30),DA(1),DA)
740.51,.02 USER 0;2 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: AUG 23, 1989
HELP-PROMPT: Please enter the DUZ of the entering person.
DESCRIPTION:
This is the DUZ of the entering person. (IEN of file 200)
UNEDITABLE
740.51,.03 ACTION 0;3 SET (Required)
'c' FOR CLOSE;
'd' FOR DELETE;
'e' FOR EDIT;
'o' FOR OPEN;
LAST EDITED: AUG 23, 1989
HELP-PROMPT: Please enter the action performed on the entry being audited.
DESCRIPTION:
This is the action that was performed on the entry being audited.
UNEDITABLE
740.51,.04 COMMENT 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>220!($L(X)<1) X
LAST EDITED: AUG 23, 1989
HELP-PROMPT: Answer must be 1-220 characters in length.
DESCRIPTION: This is any comment that will help identify the source or reason that precipitated this audit to
be created.
UNEDITABLE
FILES POINTED TO FIELDS
FILE (#1) NAME (#.01)
NEW PERSON (#200) AUDIT TRAIL:USER (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
QAQ AUDIT LIST DEC 08, 1989@10:13 USER #0 QA AUDIT LIST
SORT TEMPLATE(S):
QAQ AUDIT LIST DEC 08, 1989@13:09 USER #0
SORT BY: NAME;S3;C5;L45;"FILE: "//
FORM(S)/BLOCK(S):