STANDARD DATA DICTIONARY #743.1 -- FALL OUT FILE 6/27/25 PAGE 1
STORED IN ^QA(743.1, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the patients who were found to fall out for given monitors. Fall outs are created by the auto enroll batch run
or by manual entry. Any fall out record may be manually edited and its data or data elements changed.
DD ACCESS: @
DEL ACCESS: @
IDENTIFIED BY: MONITOR (#.02), EVENT DATE (#.03)
CROSS
REFERENCED BY: PATIENT(AA1), MONITOR(AA2), EVENT DATE(AA3), PATIENT(AB1), MONITOR(AB2), EVENT DATE(AB3),
DATE RECORD CREATED(ADRC), AUDIT(AUDIT), PATIENT(B), MONITOR(C)
743.1,.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
LAST EDITED: JAN 18, 1991
HELP-PROMPT: Choose a entry from the patient file.
DESCRIPTION: This field is a pointer to the patient file. This field holds an actual patient from the patient
file.
TECHNICAL DESCR: This field is a pointer to the patient file. No LAYGO is allowed from the '.01' field to the
patient file (^DPT global).
DELETE TEST: 1,0)= S QADL=1 I 0
CROSS-REFERENCE: 743.1^B
1)= S ^QA(743.1,"B",$E(X,1,30),DA)=""
2)= K ^QA(743.1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 743.1^AA1^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) S:QAM(2)]""&(QA
M(3)]"") ^QA(743.1,"AA",QAM(2),QAM(3),X,DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) K:QAM(2)]""&(QA
M(3)]"") ^QA(743.1,"AA",QAM(2),QAM(3),X,DA) K QAM
3)= CANNOT DELETE CROSS-REFERENCE!!
Cross-reference of MONITOR, EVENT DATE, and PATIENT.
CROSS-REFERENCE: 743.1^AB1^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,"^",2),QAM(3)=$P(QAM,"^",3) S:QAM(2)]""
&(QAM(3)]"") ^QA(743.1,"AB",QAM(2),X,QAM(3),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(2)=$P(QAM,"^",2),QAM(3)=$P(QAM,"^",3) K:QAM(2)]""
&(QAM(3)]"") ^QA(743.1,"AB",QAM(2),X,QAM(3),DA) K QAM
Cross-reference of MONITOR, PATIENT, and EVENT DATE.
743.1,.02 MONITOR 0;2 POINTER TO QA MONITOR FILE (#743)
LAST EDITED: FEB 15, 1991
HELP-PROMPT: Enter the name of a valid QA MONITOR.
DESCRIPTION:
This field contains the name of the monitor that the patient fell out under.
CROSS-REFERENCE: 743.1^AA2^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) S:QAM(1)]""&(QA
M(3)]"") ^QA(743.1,"AA",X,QAM(3),QAM(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) K:QAM(1)]""&(QA
M(3)]"") ^QA(743.1,"AA",X,QAM(3),QAM(1),DA) K QAM
3)= CROSS-REFRENCE MUST NOT BE DELETED!!
Links the three fields together to allow only one $D check for the entries in the fields
Cross-reference of MONITOR, EVENT DATE, and PATIENT.
CROSS-REFERENCE: 743.1^AB2^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(3)=$P(QAM,"^",3) S:QAM(1)]""&(
QAM(3)]"") ^QA(743.1,"AB",X,QAM(1),QAM(3),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(3)=$P(QAM,"^",3) K:QAM(1)]""&(
QAM(3)]"") ^QA(743.1,"AB",X,QAM(1),QAM(3),DA) K QAM
Cross-reference of MONITOR, PATIENT, and EVENT DATE.
CROSS-REFERENCE: 743.1^C
1)= S ^QA(743.1,"C",$E(X,1,30),DA)=""
2)= K ^QA(743.1,"C",$E(X,1,30),DA)
743.1,.03 EVENT DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 18, 1991
HELP-PROMPT: Enter the date of the event.
DESCRIPTION:
This field contains the event date for this patient and this monitor.
TECHNICAL DESCR:
Date the patient from PATIENT file (#2) becomes auto enrolled.
CROSS-REFERENCE: 743.1^AA3^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) S:QAM(1)]""&(QA
M(2)]"") ^QA(743.1,"AA",QAM(2),X,QAM(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) K:QAM(1)]""&(QA
M(2)]"") ^QA(743.1,"AA",QAM(2),X,QAM(1),DA) K QAM
3)= CANNOT DELETE CROSS-REFRENCE!!
Cross-reference of MONITOR, EVENT DATE, and PATIENT.
CROSS-REFERENCE: 743.1^AB3^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(2)=$P(QAM,"^",2) S:QAM(1)]""&(
QAM(2)]"") ^QA(743.1,"AB",QAM(2),QAM(1),X,DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^"),QAM(2)=$P(QAM,"^",2) K:QAM(1)]""&(
QAM(2)]"") ^QA(743.1,"AB",QAM(2),QAM(1),X,DA) K QAM
Cross-reference of MONITOR, PATIENT, and EVENT DATE.
743.1,.04 DATE RECORD CREATED 0;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 18, 1992
HELP-PROMPT: Enter the date this record was added to the file.
DESCRIPTION: For auto enrolled fall outs this is the date auto enroll ran for. For manually entered fall outs
this is the date the fall out was entered.
CROSS-REFERENCE: 743.1^ADRC
1)= S ^QA(743.1,"ADRC",$E(X,1,30),DA)=""
2)= K ^QA(743.1,"ADRC",$E(X,1,30),DA)
743.1,1 DATA 1;0 POINTER Multiple #743.11 (Add New Entry without Asking)
DESCRIPTION:
This is a pointer to the DATA ELEMENT file. Enter a valid data element.
743.11,.01 DATA ELEMENT 0;1 POINTER TO DATA ELEMENT FILE (#743.4)
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Enter a valid data element from the DATA ELEMENT file.
DESCRIPTION:
This is a pointer to the DATA ELEMENT file. Enter a valid data element.
TECHNICAL DESCR:
Pointer to the DATA ELEMENT file { ^QA(743.4 }. No LAYGO allowed.
CROSS-REFERENCE: 743.11^B
1)= S ^QA(743.1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^QA(743.1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 743.11^AD1^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,"E"))#2:^("E"),1:""),QAM(2)=$P(QAM,"^") S:QAM(2)]"" ^QA(743.1,
"AD",X,$E(QAM(2),1,63),DA(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,"E"))#2:^("E"),1:""),QAM(2)=$P(QAM,"^") K:QAM(2)]"" ^QA(743.1,
"AD",X,$E(QAM(2),1,63),DA(1),DA) K QAM
Cross-reference of DATA ELEMENT and ACTUAL DATA.
743.11,.02 ACTUAL DATA E;E1,245 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X
LAST EDITED: MAR 14, 1991
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION:
This field contains the free text data of the type specified by the data element field.
CROSS-REFERENCE:743.11^AD2^MUMPS
1)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^") S:QAM(1)]"" ^QA(743.1,"AD"
,QAM(1),$E(X,1,63),DA(1),DA)="" K QAM
2)= S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""),QAM(1)=$P(QAM,"^") K:QAM(1)]"" ^QA(743.1,"AD"
,QAM(1),$E(X,1,63),DA(1),DA) K QAM
Cross-reference of DATA ELEMENT and ACTUAL DATA.
743.1,100 AUDIT AUDIT;1 POINTER TO QA AUDIT FILE (#740.5)
LAST EDITED: APR 22, 1991
HELP-PROMPT: Enter the audit file pointer.
DESCRIPTION: This is a pointer to the audit file entry for this fall out record. The audit file contains data
on what was done to this record and when it was done.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 743.1^AUDIT^MUMPS
1)= Q
2)= N QAUDIT S QAUDIT("FILE")=743.1,QAUDIT("DA")=DA D:$D(QADL) ^QAQADLAU K QADL Q
The kill logic of this cross reference deletes the audit file entry for this record when this
record is deleted.
FILES POINTED TO FIELDS
DATA ELEMENT (#743.4) DATA:DATA ELEMENT (#.01)
PATIENT (#2) PATIENT (#.01)
QA AUDIT (#740.5) AUDIT (#100)
QA MONITOR (#743) MONITOR (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):