STANDARD DATA DICTIONARY #741 -- QA OCCURRENCE SCREEN FILE 9/29/25 PAGE 1
STORED IN ^QA(741, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Contains Occurrence Screening data for each occurrence screened, with patient name at the .01 level. This file is populated at the
site.
DD ACCESS: @
DEL ACCESS: @
APPLICATION GROUP(S): QAM
IDENTIFIED BY: DATE (#1)[R], SCREEN (#3)[R], STATUS (#11)
CROSS
REFERENCED BY: QA PATIENT(AA1), DATE(AA2), SCREEN(AA3), FINAL DISPOSITION DATE(AC), STATUS(AD), DATE(AED), QA PATIENT(AOCID),
DATE(AOCID2), RECORD CREATION DATE(ARCD), DATE(ATED), AUDIT(AUDIT), *DATE VALIDATED/CONFIRMED(AVAL),
QA PATIENT(B), DATE(C), SCREEN(D), OCCURRENCE IDENTIFIER(E)
741,.01 QA PATIENT 0;1 POINTER TO PATIENT FILE (#2) (Required)
LAST EDITED: JAN 03, 1990
HELP-PROMPT: Enter a patient who has met one of the screens.
DESCRIPTION: Select a patient who has met one of the screens. A patient may be selected by: Name, SSN, Last
four digits of SSN, or Last initial and last four digits of SSN.
DELETE TEST: 1,0)= S QADL=1 I 0
CROSS-REFERENCE: 741^B
1)= S ^QA(741,"B",$E(X,1,30),DA)=""
2)= K ^QA(741,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 741^AA1^MUMPS
1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(3)=$P(QA,"
^",3) S:(QA(3)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),QA(3),X,DA)="" K QA
2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(3)=$P(QA,"
^",3) K:(QA(3)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),QA(3),X,DA) K QA
CROSS-REFERENCE: 741^AOCID^MUMPS
1)= D ^QAOSOCID
2)= D KILL^QAOSOCID
CROSS-REFERENCE: ^^TRIGGER^741^11
1)= X ^DD(741,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X=DIV S X="0" X ^DD(741,.01,1,4,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
1.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N
(^DD(DIH,DIG,1,0))>0
2)= X ^DD(741,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X=DIV S X="0" X ^DD(741,.01,1,4,2.4)
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)=""
2.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N
(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= STATUS=""
CREATE VALUE)= "0"
DELETE CONDITION)= STATUS=""
DELETE VALUE)= "0"
FIELD)= STATUS
741,.02 ASSOCIATED ADMISSION 0;2 POINTER TO PATIENT MOVEMENT FILE (#405)
INPUT TRANSFORM: S DIC("S")="S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""^"",2)=1,$P(QA(1),""^"",3)=+QA(2),
$P(QA(2),""^"",3)\1'<(QA(1)\1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 25, 1992
HELP-PROMPT: Enter the MAS admission movement associated with this patient.
DESCRIPTION:
This field contains the MAS admission movement associated with this occurrence.
SCREEN: S DIC("S")="S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""^"",2)=1,$P(QA(1),""^"",3)=+QA(2),
$P(QA(2),""^"",3)\1'<(QA(1)\1)"
EXPLANATION: You may select this patient's admission movements whose dates are less than or equal to the occurre
nce date.
741,1 DATE 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: OCT 02, 1991
HELP-PROMPT: Enter the date/(time) of the occurrence
DESCRIPTION: This is the date the occurrence took place. For auto enrolled occurrences it is the date that this
occurrence was picked up by auto enroll.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 741^C
1)= S ^QA(741,"C",$E(X,1,30),DA)=""
2)= K ^QA(741,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 741^AA2^MUMPS
1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(1)=$P(QA,"
^") S:(QA(1)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),X,QA(1),DA)="" K QA
2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA("SCRN")=$S($D(^("SCRN")):+^("SCRN"),1:""),QA(1)=$P(QA,"
^") K:(QA(1)]"")&(QA("SCRN")]"") ^QA(741,"AA",QA("SCRN"),X,QA(1),DA) K QA
CROSS-REFERENCE: 741^AOCID2^MUMPS
1)= D ^QAOSOCID
2)= D KILL^QAOSOCID
CROSS-REFERENCE: 741^ATED^MUMPS
1)= S X1=$P(^QA(741,DA,0),"^",14),(QAQAX,X2)=X I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P
(^QA(741,DA,0),"^",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q
2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),"^",15),QAQADICT=741,QAQAFLD=15 D ENKI
LL^QAQAXREF S $P(^QA(741,DA,0),"^",15)="" S X=QAQAX Q
CROSS-REFERENCE: 741^AED^MUMPS
1)= D ENLAPSO^QAOSLAPS
2)= Q
741,2 OCCURRENCE IDENTIFIER 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7) X
LAST EDITED: AUG 10, 1993
HELP-PROMPT: Answer must be 7 characters in length.
DESCRIPTION: This identifier is computed from the patient's name, SSN, occurrence date and internal entry number
in the occurrence screen file.
UNEDITABLE
CROSS-REFERENCE: 741^E
1)= S ^QA(741,"E",$E(X,1,30),DA)=""
2)= K ^QA(741,"E",$E(X,1,30),DA)
741,3 SCREEN SCRN;1 POINTER TO QA OCCURRENCE SCREEN CRITERIA FILE (#741.1) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",4)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 28, 1991
HELP-PROMPT: Enter the screen that describes this occurrence.
DESCRIPTION:
This is the screen that best describes this patient's occurrence.
SCREEN: S DIC("S")="I $P(^(0),""^"",4)'=1"
EXPLANATION: Only National and Local screens may be selected.
CROSS-REFERENCE: 741^D
1)= S ^QA(741,"D",$E(X,1,30),DA)=""
2)= K ^QA(741,"D",$E(X,1,30),DA)
CROSS-REFERENCE: 741^AA3^MUMPS
1)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA(1)=$P(QA,"^"),QA(3)=$P(QA,"^",3) S:(QA(1)]"")&(QA(3)]""
) ^QA(741,"AA",X,QA(3),QA(1),DA)="" K QA
2)= S QA=$S($D(^QA(741,DA,0)):^(0),1:""),QA(1)=$P(QA,"^"),QA(3)=$P(QA,"^",3) K:(QA(1)]"")&(QA(3)]""
) ^QA(741,"AA",X,QA(3),QA(1),DA) K QA
741,4 WARD/CLINIC 0;5 POINTER TO HOSPITAL LOCATION FILE (#44)
INPUT TRANSFORM: S DIC("S")="S QA=$P(^(0),""^"",3) I QA=""W""!(QA=""C"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 23, 1990
HELP-PROMPT: Enter the ward/clinic the occurrence took place on.
DESCRIPTION:
This is the ward/clinic of the occurrence as defined by the Occurrence Screen circular.
SCREEN: S DIC("S")="S QA=$P(^(0),""^"",3) I QA=""W""!(QA=""C"")"
EXPLANATION: Select the ward/clinic on which the occurrence took place.
741,5 SERVICE 0;6 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: MAY 24, 1989
HELP-PROMPT: Enter the service associated with this occurrence.
DESCRIPTION:
This is the service associated with this occurrence.
741,6 TREATING SPECIALTY/BEDSECTION 0;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
LAST EDITED: MAY 24, 1989
HELP-PROMPT: Enter the treating specialty associated with this occurrence.
DESCRIPTION:
This is the treating specialty associated with this occurrence.
741,7 MEDICAL TEAM 0;8 POINTER TO QA OCCURRENCE MEDICAL TEAM FILE (#741.93)
LAST EDITED: MAY 24, 1989
HELP-PROMPT: Enter the medical team associated with this occurrence.
DESCRIPTION:
This is the medical team associated with this occurrence.
741,8 ATTENDING PHYSICIAN 0;9 POINTER TO NEW PERSON FILE (#200)
ATTENDING PHYSICIAN CODE
LAST EDITED: SEP 13, 1993
HELP-PROMPT: Enter the patient's attending physician.
DESCRIPTION:
This is the patient's attending physician.
741,9 RESIDENT/PROVIDER 0;10 POINTER TO NEW PERSON FILE (#200)
RESIDENT/PROVIDER CODE
LAST EDITED: SEP 13, 1993
HELP-PROMPT: Enter the patient's resident/provider.
DESCRIPTION:
This is the patient's resident/provider.
741,10 REVIEWER REVR;0 POINTER Multiple #741.01 (Add New Entry without Asking)
DESCRIPTION:
This is where the reviewer data for Clinical, Peer, and Management reviews is entered or changed.
IDENTIFIED BY: NAME(#.02)[R]
"WRITE.03": S %I=Y,Y=$S('$D(^(0)):"",$D(^DIC(49,+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(49,.01,0),U,2)
D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
741.01,.01 REVIEW LEVEL 0;1 POINTER TO QA OCCURRENCE REVIEW LEVEL FILE (#741.2) (Multiply asked)
INPUT TRANSFORM:S QA=$O(^QA(741.2,"C",1,0)),DIC("S")="I $P(^(0),""^"",2)'>3&(('$D(^QA(741,DA,""REVR"",""B"",QA))!(+
Y'=QA)))" D ^DIC K DIC S DIC=DIE,X=+Y K QA K:Y<0 X
LAST EDITED: OCT 13, 1989
HELP-PROMPT: Enter the level or type of review.
DESCRIPTION: This is the type of review being entered or edited. Multiple Peer and Management reviews are
allowed, but only one Clinical review may be entered.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)'>3"
EXPLANATION:
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:741.01^B
1)= S ^QA(741,DA(1),"REVR","B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"REVR","B",$E(X,1,30),DA)
741.01,.02 NAME 0;2 POINTER TO NEW PERSON FILE (#200) (Required)
REVIEWER NAME
INPUT TRANSFORM:S DIC("S")="S QA=$P(^QA(741,DA(1),""REVR"",DA,0),""^""),QA=$P(^QA(741.2,QA,0),""^"",2) I ((QA=1)&($
D(^XUSEC(""QAOSCLIN"",+Y))))!(QA>1)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 22, 1992
HELP-PROMPT: Enter the name of the reviewer.
DESCRIPTION:
This is the name of the person who has performed this review.
SCREEN: S DIC("S")="S QA=$P(^QA(741,DA(1),""REVR"",DA,0),""^""),QA=$P(^QA(741.2,QA,0),""^"",2) I ((QA=1)&($
D(^XUSEC(""QAOSCLIN"",+Y))))!(QA>1)"
EXPLANATION: Clinical reviewers must hold the Clinical reviewer key to be selectable.
741.01,.03 REVIEWING SERVICE 0;10 POINTER TO SERVICE/SECTION FILE (#49)
INPUT TRANSFORM:D EN4^QAOSDDUT
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Enter the service performing this Peer review.
DESCRIPTION: This field is used to enter the service/section that is conducting the Peer review of this
occurrence. Once the FINAL PEER REVIEW PER SERVICE field has been answered Y(es) this field may no
longer be edited. To change the service, change FINAL PEER REVIEW PER SERVICE to N(o); the service
may then be edited.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
741.01,1 DATE REVIEW COMPLETED 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="EXP" S:$D(QAOSD0)#2 %DT(0)=$P(^QA(741,QAOSD0,0),"^",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>
DT) X
LAST EDITED: JAN 06, 1993
HELP-PROMPT: Enter the date this reviewer finished the review.
DESCRIPTION:
This is the date the reviewer completed the review.
EXECUTABLE HELP:D EN2^QAOSDDUT
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:741.01^ALAPSE^MUMPS
1)= D ENLAPSE^QAOSLAPS
2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA(1),"REVR",DA,0),"^",8),QAQADICT=741.01,QA
QAFLD=8 D ENKILL^QAQAXREF S $P(^QA(741,DA(1),"REVR",DA,0),"^",8)="" S X=QAQAX K QAQAX
CROSS-REFERENCE:741.01^ADUES^MUMPS
1)= D ENDUES^QAOSLAPS
2)= S QA("DA")=DA,DA=DA(1),QAQAX=X F QA=12:1:13 N QAQAXREF,QAQADICT,QAQAFLD S X=$P(^QA(741,DA,0),"^
",QA),QAQADICT=741,QAQAFLD=QA D ENKILL^QAQAXREF S $P(^QA(741,DA,0),"^",QA)="" I QA=13 S DA=QA("DA")
,X=QAQAX K QAQAX
741.01,2 REASON FOR EXCEPTION 1;0 POINTER Multiple #741.12 (Add New Entry without Asking)
DESCRIPTION:
This is where the screen exception data is entered.
741.12,.01 REASON FOR EXCEPTION 0;1 POINTER TO QA OCCURRENCE EXCEPTION FILE (#741.5) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="D EN5^QAOSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 01, 1991
HELP-PROMPT: Enter the screen exception(s) if any apply.
DESCRIPTION: This is where an occurrence may be marked as an exception to the screens. Multiple exceptions
may be entered.
SCREEN: S DIC("S")="D EN5^QAOSDDUT"
EXPLANATION: Each Occurrence Screen has its own exceptions
CROSS-REFERENCE:741.12^B
1)= S ^QA(741,DA(2),"REVR",DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(2),"REVR",DA(1),1,"B",$E(X,1,30),DA)
741.01,3 PRIMARY REASON CLIN REFERRAL 0;4 POINTER TO QA OCCURRENCE CLINICAL REFERRAL FILE (#741.4)
INPUT TRANSFORM:S DIC("S")="D EN6^QAOSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM:S:+Y(0) Y=$P(^QA(741.4,+Y(0),0),"^")_" "_$S($D(^(2))#2:$P(^(2),"^"),1:"")
LAST EDITED: MAY 01, 1991
HELP-PROMPT: Enter the primary reason for Clinical referral.
DESCRIPTION: This is the field the Clinical reviewer enters to describe the primary reason the occurrence was
referred to the next level of review.
SCREEN: S DIC("S")="D EN6^QAOSDDUT"
EXPLANATION: Each Screen has its own reasons for referral
741.01,4 FINDINGS 0;5 POINTER TO QA OCCURRENCE FINDINGS FILE (#741.6)
INPUT TRANSFORM:S DIC("S")="D EN8^QAOSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM:S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: OCT 19, 1992
HELP-PROMPT: Enter the findings of this reviewer.
DESCRIPTION:
This is the finding of the reviewer at this review level.
SCREEN: S DIC("S")="D EN8^QAOSDDUT"
EXPLANATION: Appropriate Findings determined by Review Level
741.01,5 ACTION 2;0 POINTER Multiple #741.15 (Add New Entry without Asking)
DESCRIPTION:
This is where the action to be taken data is stored.
741.15,.01 ACTION 0;1 POINTER TO QA OCCURRENCE ACTION FILE (#741.7) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="D EN7^QAOSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM:S:+Y(0) Y=$P(^QA(741.7,+Y(0),0),"^")_" "_$P(^(0),"^",3)
LAST EDITED: MAY 01, 1991
HELP-PROMPT: Enter the recommended Action(s).
DESCRIPTION: This is the action this reviewer has determined should be taken. Multiple actions may be
entered.
SCREEN: S DIC("S")="D EN7^QAOSDDUT"
EXPLANATION: Authorized Actions determined by Review Level
CROSS-REFERENCE:741.15^B
1)= S ^QA(741,DA(2),"REVR",DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(2),"REVR",DA(1),2,"B",$E(X,1,30),DA)
741.01,6 *SEVERITY OF OUTCOME 0;6 POINTER TO QA OCCURRENCE SEVERITY OF OUTCOME FILE (#741.8)
OUTPUT TRANSFORM:S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Enter the severity of outcome for this occurrence.
DESCRIPTION: This is the severity of outcome of this occurrence, enter the one that best describes the
occurrence.
741.01,7 *COMMENTS 0;7 FREE TEXT
INPUT TRANSFORM:K X
LAST EDITED: AUG 31, 1992
HELP-PROMPT: This field is no longer in use, use the word processing comment field.
DESCRIPTION: This is where the reviewer may enter a short comment about the occurrence or the review of the
occurrence.
TECHNICAL DESCR:
The data in this field has been moved to field #10 (word processing).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
741.01,8 ELAPSED DAYS 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 06, 1989
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION: This is the elapsed days from the date of the occurrence to the date the reviewer finished the
review.
UNEDITABLE
741.01,9 FINAL PEER REVIEW PER SERVICE 0;9 SET
'1' FOR YES;
'0' FOR NO;
INPUT TRANSFORM:D EN3^QAOSDDUT
LAST EDITED: AUG 10, 1993
HELP-PROMPT: Enter 'YES' if this is the final review of this occurrence, otherwise 'NO'
DESCRIPTION: This question should be answered Y(es) if the Peer review for this service contains the final
findings. If this prompt is answered Y(es) the data from this peer review will be used on the
Summary of Occurrence Screen (Semi-Annual) report.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:741.01^AONLY1
1)= S ^QA(741,DA(1),"REVR","AONLY1",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"REVR","AONLY1",$E(X,1,30),DA)
741.01,10 COMMENTS 3;0 WORD-PROCESSING #741.02
DESCRIPTION: This is where the reviewer may enter a comment about the occurrence or the review of the
occurrence.
LAST EDITED: AUG 28, 1992
HELP-PROMPT: Enter a comment on the occurrence.
DESCRIPTION: This is where the reviewer may enter a comment about the occurrence or the review of the
occurrence.
741,11 STATUS 0;11 SET
'0' FOR OPEN;
'1' FOR CLOSED;
'2' FOR DELETED;
LAST EDITED: AUG 18, 1989
HELP-PROMPT: Enter the status of this occurrence.
DESCRIPTION: This is the status of this occurrence record. Occurrences are automatically marked as open when
they are first entered into the system. When a final disposition date is entered they are marked
as closed. An occurrence may be marked as deleted at any time by using the delete occurrence
screen record option in the manager menu.
NOTES: TRIGGERED by the QA PATIENT field of the QA OCCURRENCE SCREEN File
TRIGGERED by the FINAL DISPOSITION DATE field of the QA OCCURRENCE SCREEN File
CROSS-REFERENCE: 741^AD
1)= S ^QA(741,"AD",$E(X,1,30),DA)=""
2)= K ^QA(741,"AD",$E(X,1,30),DA)
741,12 PEER DUE DATE 0;12 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 06, 1989
HELP-PROMPT: Enter the date by which the peer review is due.
DESCRIPTION: This is the date all peer reviews should be completed by. It is computed by adding the peer review
days entry in the parameters file to the date the clinical review was completed.
UNEDITABLE
741,13 MANAGEMENT DUE DATE 0;13 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 06, 1989
HELP-PROMPT: Enter the date by which the management review is due.
DESCRIPTION: This is the date by which all management reviews should be completed. It is computed by adding the
management review days entry from the parameters file to the date the clinical review was
completed.
UNEDITABLE
741,14 FINAL DISPOSITION DATE 0;14 DATE
INPUT TRANSFORM: S %DT="EXP",%DT(0)=$P(^QA(741,D0,0),"^",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
LAST EDITED: JAN 06, 1993
HELP-PROMPT: Please enter the date of the final disposition.
DESCRIPTION: This is the date of the final disposition. Only the last final disposition is tracked. Some
options allow this date to be entered manually, while others automatically store the current date.
EXECUTABLE HELP: D EN2^QAOSDDUT
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 741^AC^MUMPS
1)= S (QAQAX,X1)=X,X2=$P(^QA(741,DA,0),"^",3) I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P(
^QA(741,DA,0),"^",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q
2)= N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),"^",15),QAQADICT=741,QAQAFLD=15 D ENKI
LL^QAQAXREF S $P(^QA(741,DA,0),"^",15)="" S X=QAQAX K QAQAX Q
CROSS-REFERENCE: ^^TRIGGER^741^11
1)= X ^DD(741,14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X=DIV S X="1" X ^DD(741,14,1,2,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)="OPEN"
1.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N
(^DD(DIH,DIG,1,0))>0
2)= X ^DD(741,14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X
S DIU=X K Y S X=DIV S X="0" X ^DD(741,14,1,2,2.4)
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""),
Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_":",2),$C(59),1)="CLOSED"
2.4)= S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N
(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= STATUS="OPEN"
CREATE VALUE)= "1"
DELETE CONDITION)= STATUS="CLOSED"
DELETE VALUE)= "0"
FIELD)= STATUS
741,15 TOTAL ELAPSED DAYS 0;15 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 25, 1989
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
This is the number of days between the occurrence date and the final disposition date.
741,16 FINAL DISPOSITION REACHED BY 0;16 POINTER TO QA OCCURRENCE REVIEW LEVEL FILE (#741.2)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",2)<5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Enter the review level that reached the final disposition.
DESCRIPTION: This field tracks which review level entered a final disposition. Some options allow data to be
entered manually while others automatically store the data.
SCREEN: S DIC("S")="I $P(^(0),""^"",2)<5"
EXPLANATION: Only Clinical, Peer, Management and Committee are selectable.
741,17 COMMITTEE CMTE;0 POINTER Multiple #741.017 (Add New Entry without Asking)
DESCRIPTION:
This is where all data on committee reviews is stored.
741.017,.01 COMMITTEE 0;1 POINTER TO QA OCCURRENCE COMMITTEE FILE (#741.97) (Multiply asked)
LAST EDITED: JUL 19, 1989
HELP-PROMPT: Enter the committee conducting this review.
DESCRIPTION:
This is the name of the committee that is conducting this review.
CROSS-REFERENCE: 741.017^B
1)= S ^QA(741,DA(1),"CMTE","B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"CMTE","B",$E(X,1,30),DA)
741.017,1 *FINDINGS 0;2 POINTER TO QA OCCURRENCE FINDINGS FILE (#741.6)
FINDINGS
INPUT TRANSFORM: S DIC("S")="I $P(^(0),""^"",3)[""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM: S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: MAY 09, 1991
HELP-PROMPT: Enter the findings of this committee review.
DESCRIPTION:
This is the findings of this committee review.
SCREEN: S DIC("S")="I $P(^(0),""^"",3)[""C"""
EXPLANATION: Only equipment and system problem findings are selectable.
741.017,2 *SEVERITY OF OUTCOME 0;3 POINTER TO QA OCCURRENCE SEVERITY OF OUTCOME FILE (#741.8)
SEVERITY OF OUTCOME
OUTPUT TRANSFORM: S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: MAY 09, 1991
HELP-PROMPT: Enter the severity of outcome.
DESCRIPTION:
This is the severity of outcome as determined by this committee.
741.017,3 *COMMENTS 0;4 FREE TEXT
INPUT TRANSFORM: K X
LAST EDITED: AUG 31, 1992
HELP-PROMPT: This field is no longer in use, use the word processing comment field.
DESCRIPTION: This field may be used to enter a comment on the occurrence or the committee's review of the
occurrence.
TECHNICAL DESCR:
The data in this field has been moved to field #10 (word processing).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
741.017,4 CONFIRMED ISSUE 0;5 SET
'1' FOR EQUIPMENT PROBLEMS;
'2' FOR SYSTEM PROBLEMS;
'3' FOR EQUIPMENT & SYSTEM PROBLEMS;
'4' FOR NONE;
LAST EDITED: JUN 14, 1991
HELP-PROMPT: Enter the confirmed issue type.
DESCRIPTION:
This is the confirmed issue type.
741.017,10 COMMENTS 1;0 WORD-PROCESSING #741.027
DESCRIPTION: This is where the committee may enter a comment about the occurrence or the review of the
occurrence.
LAST EDITED: AUG 28, 1992
HELP-PROMPT: Enter a comment on the occurrence.
DESCRIPTION: This is where the committee may enter a comment about the occurrence or the review of the
occurrence.
741,18 *DATE VALIDATED/CONFIRMED 0;17 DATE
DATE VALIDATED/CONFIRMED
INPUT TRANSFORM: S %DT="EXP",%DT(0)=$P(^QA(741,D0,0),"^",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
LAST EDITED: JAN 06, 1993
HELP-PROMPT: Enter the date this occurrence was validated/confirmed.
DESCRIPTION:
This is the date the occurrence was validated/confirmed.
EXECUTABLE HELP: D EN2^QAOSDDUT
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 741^AVAL
1)= S ^QA(741,"AVAL",$E(X,1,30),DA)=""
2)= K ^QA(741,"AVAL",$E(X,1,30),DA)
741,19 SEVERITY OF OUTCOME 0;18 POINTER TO QA OCCURRENCE SEVERITY OF OUTCOME FILE (#741.8)
OUTPUT TRANSFORM: S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: MAR 15, 1990
HELP-PROMPT: Enter the severity of outcome.
DESCRIPTION:
This is the severity of outcome for the occurrence.
741,20 *QUALITY OF CARE SCALE 0;19 POINTER TO QA OCCURRENCE FINDINGS FILE (#741.6)
QUALITY OF CARE SCALE
INPUT TRANSFORM: S DIC("S")="I $P(^QA(741.6,+Y,0),""^"",3)[""V""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
OUTPUT TRANSFORM: S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),"^")_" "_$P(^(0),"^",2)
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Enter the quality of care.
DESCRIPTION:
This is the validated/confirmed quality of care.
SCREEN: S DIC("S")="I $P(^QA(741.6,+Y,0),""^"",3)[""V"""
EXPLANATION: Select only those levels of care allowed for validation/confirmation.
741,21 *VALIDATED/CONFIRMED 0;20 SET
VALIDATED/CONFIRMED
'1' FOR EQUIPMENT PROBLEMS;
'2' FOR SYSTEM PROBLEMS;
'3' FOR EQUIPMENT & SYSTEM PROBLEMS;
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Enter the appropriate validation/confirmation code.
DESCRIPTION:
This is the type of problem that led to this occurrence.
741,22 *VALIDATION COMMENT 1;1 FREE TEXT
VALIDATION COMMENT
INPUT TRANSFORM: K:$L(X)>187!($L(X)<1) X
LAST EDITED: OCT 13, 1992
HELP-PROMPT: Answer must be 1-187 characters in length.
DESCRIPTION:
Enter any comment regarding the validation of this occurrence.
741,24 PEER ATTRIBUTION (INDIVIDUAL) ATRI;0 POINTER Multiple #741.024 (Add New Entry without Asking)
DESCRIPTION:
This is where the occurrence is attributed to the individuals involved in this patient's care.
741.024,.01 PEER ATTRIBUTION (INDIVIDUAL) 0;1 POINTER TO NEW PERSON FILE (#200) (Multiply asked)
LAST EDITED: AUG 18, 1989
HELP-PROMPT: Enter individual(s) involved with problem.
DESCRIPTION:
This is the individual(s) involved with this patient's care.
CROSS-REFERENCE: 741.024^B
1)= S ^QA(741,DA(1),"ATRI","B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"ATRI","B",$E(X,1,30),DA)
741.024,.02 SERVICE 0;2 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: FEB 02, 1993
HELP-PROMPT: Enter a service for this individual.
DESCRIPTION:
This is the service assigning responsibility to the individual.
741,25 PEER ATTRIBUTION (MED TEAM) ATRT;0 POINTER Multiple #741.025 (Add New Entry without Asking)
DESCRIPTION:
This is where the medical team attribution data is stored.
741.025,.01 PEER ATTRIBUTION (MED TEAM) 0;1 POINTER TO QA OCCURRENCE MEDICAL TEAM FILE (#741.93) (Multiply asked)
LAST EDITED: JUL 05, 1989
HELP-PROMPT: Enter Medical Team(s) involved with problem.
DESCRIPTION:
This is the medical team that was involved in the patient's care.
CROSS-REFERENCE: 741.025^B
1)= S ^QA(741,DA(1),"ATRT","B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"ATRT","B",$E(X,1,30),DA)
741.025,.02 SERVICE 0;2 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: FEB 03, 1993
HELP-PROMPT: Enter a service for this medical team.
DESCRIPTION:
This is the service assigning responsibility to the medical team.
741,26 PEER ATTRIBUTION (HOSP LOC) ATRL;0 POINTER Multiple #741.026 (Add New Entry without Asking)
DESCRIPTION:
This is where the data is stored for the attribution to hospital location.
741.026,.01 PEER ATTRIBUTION (HOSP LOC) 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
LAST EDITED: JUL 05, 1989
HELP-PROMPT: Enter Hospital Location(s) involved with problem.
DESCRIPTION:
This is the hospital location involved with this patient's care.
CROSS-REFERENCE: 741.026^B
1)= S ^QA(741,DA(1),"ATRL","B",$E(X,1,30),DA)=""
2)= K ^QA(741,DA(1),"ATRL","B",$E(X,1,30),DA)
741.026,.02 SERVICE 0;2 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: FEB 03, 1993
HELP-PROMPT: Enter a service for this hospital location.
DESCRIPTION:
This is the service assigning responsibility to the hospital location.
741,27 AUDIT AUDIT;1 POINTER TO QA AUDIT FILE (#740.5)
LAST EDITED: JUL 03, 1991
HELP-PROMPT: Enter the audit file pointer.
DESCRIPTION: This is a pointer to the audit file entry for this occurrence screen record. The audit file
contains data on what was done to this record and when it was done.
WRITE AUTHORITY: ^
CROSS-REFERENCE: 741^AUDIT^MUMPS
1)= Q
2)= N QAUDIT S QAUDIT("FILE")=741,QAUDIT("DA")=DA D:$D(QADL) ^QAQADLAU K QADL Q
741,28 RECORD CREATION DATE 0;21 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 entered into the Occurrence Screen file.
DESCRIPTION: This field is automatically set to TODAY whenever a new record is entered into this file. The
record creation date is used by auto enroll to count the occurrences that are entered manually.
CROSS-REFERENCE: 741^ARCD
1)= S ^QA(741,"ARCD",$E(X,1,30),DA)=""
2)= K ^QA(741,"ARCD",$E(X,1,30),DA)
FILES POINTED TO FIELDS
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY/BEDSECTION (#6)
HOSPITAL LOCATION (#44) WARD/CLINIC (#4)
PEER ATTRIBUTION (HOSP LOC):PEER ATTRIBUTION (HOSP LOC) (#.01)
NEW PERSON (#200) ATTENDING PHYSICIAN (#8)
RESIDENT/PROVIDER (#9)
REVIEWER:NAME (#.02)
PEER ATTRIBUTION (INDIVIDUAL):PEER ATTRIBUTION (INDIVIDUAL) (#.01)
PATIENT (#2) QA PATIENT (#.01)
PATIENT MOVEMENT (#405) ASSOCIATED ADMISSION (#.02)
QA AUDIT (#740.5) AUDIT (#27)
QA OCCURRENCE ACTION (#741.7) ACTION:ACTION (#.01)
QA OCCURRENCE CLINICAL REFERRA
(#741.4) REVIEWER:PRIMARY REASON CLIN REFERRAL (#3)
QA OCCURRENCE COMMITTEE (#741.97) COMMITTEE:COMMITTEE (#.01)
QA OCCURRENCE EXCEPTION (#741.5) REASON FOR EXCEPTION:REASON FOR EXCEPTION (#.01)
QA OCCURRENCE FINDINGS (#741.6) *QUALITY OF CARE SCALE (#20)
REVIEWER:FINDINGS (#4)
COMMITTEE:*FINDINGS (#1)
QA OCCURRENCE MEDICAL TEAM
(#741.93) MEDICAL TEAM (#7)
PEER ATTRIBUTION (MED TEAM):PEER ATTRIBUTION (MED TEAM) (#.01)
QA OCCURRENCE REVIEW LEVEL
(#741.2) FINAL DISPOSITION REACHED BY (#16)
REVIEWER:REVIEW LEVEL (#.01)
QA OCCURRENCE SCREEN CRITERIA
(#741.1) SCREEN (#3)
QA OCCURRENCE SEVERITY OF OUTC
(#741.8) SEVERITY OF OUTCOME (#19)
REVIEWER:*SEVERITY OF OUTCOME (#6)
COMMITTEE:*SEVERITY OF OUTCOME (#2)
SERVICE/SECTION (#49) SERVICE (#5)
REVIEWER:REVIEWING SERVICE (#.03)
PEER ATTRIBUTION (INDIVIDUAL):SERVICE (#.02)
PEER ATTRIBUTION (MED TEAM):SERVICE (#.02)
PEER ATTRIBUTION (HOSP LOC):SERVICE (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
QAO QAI POSSIBLE INCIDENTS DEC 04, 1989@10:22 USER #363 [QAO QAI POSSIBLE INCIDENTS HDR]
QAO QAI POSSIBLE INCIDENTS HDROCT 01, 1991@14:17 USER #363 @
SORT TEMPLATE(S):
QAO QAI POSSIBLE INCIDENTS AUG 14, 1991@11:49 USER #1866
SORT BY: @SCREEN// From '109' To '109^109'
WITHIN SCREEN, SORT BY: DATE// (User is asked range)
WITHIN DATE, SORT BY: QA PATIENT//
FORM(S)/BLOCK(S):