Global: ^QA(742.4

FileMan FileNo	FileMan Filename	Package
742.4	QA INCIDENT REPORT	Incident Reporting

Package	Total	Routines
Incident Reporting	38	INSTANCE OF DEATH MEDICAL CENTER ACTION QANAUX1 QANBENE0 QANBENE1 QANBRIF QANCDNT QANCNV0 QANCNV00 QANCNV1 QANCNV2 QANDBASE QANDBXX QANDELE QANEDIT QANEWS QANFULL QANMAIL QANOPEN QANPEDT QANPSD1 QANPSDO QANPST3 QANQIP1 QANQTOT QANQUCK QANRPT1 QANRPT2 QANUTL QANUTL0 QANUTL1 QANUTL2 QANUTL3 QANUTL4 QANUTL5 QANUTL6 QANVAL ^QA(742.4

Package	Total	Routines
Incident Reporting	17	QANAUX1 QANBRIF QANCDNT QANCNV0 QANCNV00 QANDELE QANEDIT QANFULL QANMAIL QANPST3 QANQUCK QANUTL QANUTL0 QANUTL2 QANUTL4 QANUTL6 QANVAL

Package	Total	FileMan Files
Incident Reporting	1	QA PATIENT INCIDENT REVIEW(#742)[.03]

Package	Total	FileMan Files
Incident Reporting	3	QA INCIDENTS(#742.1)[.02] QA COMPLICATIONS LEADING TO DEATH(#742.14)[.15] QA INCIDENT LOCATION(#742.5)[.04]
Kernel	3	TITLE(#3.1)[.07] INSTITUTION(#4)[52] NEW PERSON(#200)[.06]
Quality Assurance Integration	1	QA AUDIT(#740.5)[50]

Fields, Total: 25

Field #	Name	Loc	Type	Details
.01	CASE NUMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>13!($L(X)<7) X` LAST EDITED: `MAY 16, 1991` HELP-PROMPT: `Answer must be 7-13 characters in length.` DESCRIPTION: `Indicates the case number for this particular incident.` DELETE TEST: `1,0)= I 1 W !!?5,*7,"Incident entries CANNOT be deleted."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `742.4^B` `1)= S ^QA(742.4,"B",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"B",$E(X,1,30),DA)` `3)= Do not delete!` CROSS-REFERENCE: `742.4^AA1^MUMPS` `1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) S:QAN(2)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),QAN(2),X,DA)="" K QAN` `2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) K:QAN(2)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),QAN(2),X,DA) K QAN` `3)= Do not delete!` `Cross Reference files the Case Number, Incident, and the Date of the Incident for ease of data retrieval.`
.02	INCIDENT	0;2	POINTER TO QA INCIDENTS FILE (#742.1)	**********************REQUIRED FIELD********************** QA INCIDENTS(#742.1) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,6)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 01, 1992` HELP-PROMPT: `Enter the incident on which to base this report.` DESCRIPTION: `Indicates the type of incident for this record.` SCREEN: `S DIC("S")="I $P(^(0),U,6)'=1"` EXPLANATION: `Screens out inactives.` CROSS-REFERENCE: `742.4^AA2^MUMPS` `1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) S:QAN(1)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),X,QAN(1),DA)="" K QAN` `2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) K:QAN(1)]""&(QAN(3)]"") ^QA(742.4,"AA",QAN(3),X,QAN(1),DA) K QAN` `3)= Do not delete!` `Cross Reference links the Case Number, Incident, and the Date of the Incident for ease of data retrieval.` CROSS-REFERENCE: `742.4^BINC` `1)= S ^QA(742.4,"BINC",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"BINC",$E(X,1,30),DA)`
.03	DATE OF INCIDENT	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="PETX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 04, 1991` HELP-PROMPT: `Enter the date of the incident.` DESCRIPTION: `Indicates the date of the incident.` CROSS-REFERENCE: `742.4^AA3^MUMPS` `1)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) S:QAN(2)]""&(QAN(1)]"") ^QA(742.4,"AA",X,QAN(2),QAN(1),DA)="" K QAN` `2)= S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) K:QAN(1)]""&(QAN(2)]"") ^QA(742.4,"AA",X,QAN(2),QAN(1),DA) K QAN` `3)= Do not delete!` CROSS-REFERENCE: `742.4^BDT` `1)= S ^QA(742.4,"BDT",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"BDT",$E(X,1,30),DA)` `Regular cross reference for date of an incident.`
.04	INCIDENT LOCATION	0;4	POINTER TO QA INCIDENT LOCATION FILE (#742.5)	QA INCIDENT LOCATION(#742.5) INPUT TRANSFORM: `S DIC("S")="I +$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 28, 1992` HELP-PROMPT: `Enter the location of the incident.` DESCRIPTION: `Indicates the location of the incident.` SCREEN: `S DIC("S")="I +$P(^(0),U,2)"` EXPLANATION: `Enter only active incident locations.` CROSS-REFERENCE: `742.4^BLOC` `1)= S ^QA(742.4,"BLOC",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"BLOC",$E(X,1,30),DA)` `3)= Do not delete.` `X-ref on incident location field.`
.05	INCIDENT DESCRIPTION	1;0	WORD-PROCESSING #742.41	DESCRIPTION: `Contains the description of the incident.` LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the description of the incident.` DESCRIPTION: `Contains the description of the incident.`
.06	PERSON REPORTING THE INCIDENT	0;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the person reporting the incident.` DESCRIPTION: `Contains the person who reported the incident.`
.07	TITLE OF THE REPORTING PERSON	0;6	POINTER TO TITLE FILE (#3.1)	TITLE(#3.1) LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the title of the reporting person.` DESCRIPTION: `Enter the title of the reporting person.`
.08	WITNESSED	0;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 28, 1991` HELP-PROMPT: `Enter whether the incident had a witness.` DESCRIPTION: `Contains whether the incident had a witness.`
.09	LOCAL CASE STATUS	0;8	SET	'0' FOR CLOSED; '1' FOR OPEN; '2' FOR DELETED; '3' FOR QUICK; LAST EDITED: `JAN 08, 1992` HELP-PROMPT: `Enter the case status for the incident.` DESCRIPTION: `Contains the case status for the incident.` CROSS-REFERENCE: `742.4^ACS` `1)= S ^QA(742.4,"ACS",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"ACS",$E(X,1,30),DA)` `X-REF FOR THE LOCAL CASE STATUS.`
.1	VA 10-2633 DATE CREATED	0;9	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the date form VA 10-2633 was created.` DESCRIPTION: `Contains the date the form VA 10-2633 was created.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.11	VA 10-2633 DATE COMPLETED	0;10	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,9)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the date the form VA 10-2633 was completed.` DESCRIPTION: `Contains the date the form VA 10-2633 was completed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.12	LEVEL OF REVIEW	0;11	SET	'1' FOR NONE; '2' FOR ADMINISTRATIVE INVESTIGATION; '3' FOR OTHER; '4' FOR M&M/PEER REVIEW; LAST EDITED: `AUG 27, 1993` HELP-PROMPT: `Enter the level of review for the incident.` DESCRIPTION: `Contains the type of level of review.`
.13	LR DATE INITIATED	0;12	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the date the level of review was initiated.` DESCRIPTION: `Contains the date the level of review was initiated.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	LR DATE COMPLETED	0;13	DATE	INPUT TRANSFORM: `S %DT="ETX",%DT(0)=$P(^QA(742.4,D0,0),U,12)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X` LAST EDITED: `JUN 25, 1991` HELP-PROMPT: `Enter the date the level of review was completed.` DESCRIPTION: `Contains the date the level of review was completed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.15	QA TYPE OF DEATH	0;14	POINTER TO QA COMPLICATIONS LEADING TO DEATH FILE (#742.14)	QA COMPLICATIONS LEADING TO DEATH(#742.14) INPUT TRANSFORM: `S DIC("S")="I +$P(^(0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 02, 1992` HELP-PROMPT: `Enter the reason for death.` DESCRIPTION: `Contains the reason for the patient's death.` SCREEN: `S DIC("S")="I +$P(^(0),U,2)"` EXPLANATION: `Valid Types of Death are active Types of Death.` CROSS-REFERENCE: `742.4^ADTH` `1)= S ^QA(742.4,"ADTH",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"ADTH",$E(X,1,30),DA)` `X-REF FOR THE TYPE OF DEATH.`
.16	MEDICAL CENTER ACTION	2;0	SET Multiple #742.42	742.42 LAST EDITED: `JUN 28, 1991` DESCRIPTION: `Contains the action(s) taken by the medical center.`
.17	NATIONAL CASE STATUS	0;15	SET	'0' FOR CLOSED; '1' FOR OPEN; '2' FOR DELETED; '3' FOR QUICK; '4' FOR FULL; LAST EDITED: `AUG 30, 1991` HELP-PROMPT: `Enter the National Case Status for the incident.` DESCRIPTION: `Indicates the case status on the national level.` CROSS-REFERENCE: `742.4^ANCS` `1)= S ^QA(742.4,"ANCS",$E(X,1,30),DA)=""` `2)= K ^QA(742.4,"ANCS",$E(X,1,30),DA)` `X-REF FOR THE NATIONAL CASE STATUS.`
.18	PATIENT ABUSE ALLEGED/PROVEN	0;16	SET	'0' FOR ALLEGED; '1' FOR PROVEN; LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Enter whether the Patient Abuse was alleged or proven.` DESCRIPTION: `Indicates whether the incident of patient abuse was proven. '1' for a proven case, '0' for an alleged case.`
.19	BENEFICIARY QUARTERLY REPORT	0;17	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 01, 1991` HELP-PROMPT: `Enter whether the Beneficiary Quarterly Report can be generated from the incident.` DESCRIPTION: `Indicates whether the Beneficiary Quarterly Report can be generated based on the incident.`
.2	PERTINENT INFORMATION	3;0	WORD-PROCESSING #742.43	DESCRIPTION: `Contains any Pertinent Information as it applies to the incident.` LAST EDITED: `JUL 03, 1991` HELP-PROMPT: `Enter any Pertinent Information as it applies to the incident.` DESCRIPTION: `Contains any Pertinent Information as it applies to the incident.`
.21	INCIDENT TRANSMITTED TO DATABASE	0;18	SET	'1' FOR TRANSMITTED; '0' FOR NOT TRANSMITTED; LAST EDITED: `MAY 22, 1998` HELP-PROMPT: `Enter whether the Incident has been previously rolled up to the system.` DESCRIPTION: `This field flags whether an incident has been 'rolled' up to the regional NQABD system.`
.22	LEVEL OF REVIEW (OTHER)	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 09, 1992` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Contains the Level of Review type which is not contained in the Level of Review field.`
.23	INCIDENT SUMMARY DATA	0;21	SET	'1' FOR YES; LAST EDITED: `MAR 25, 1992` HELP-PROMPT: `Enter whether Incident Summary Data has been used for the Quarterly Summary.` DESCRIPTION: `Denotes whether Incident Data has been used for the Quarterly Summary.`
50	INCIDENT AUDIT TRAIL	0;20	POINTER TO QA AUDIT FILE (#740.5)	QA AUDIT(#740.5) LAST EDITED: `MAR 17, 1992` HELP-PROMPT: `Pointer to the QA Audit file.` DESCRIPTION: `Files any changes to the QA Incident file to the QA Audit file.`
52	DIVISION	0;22	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I $D(^QA(740,1,""QAN2"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 24, 1997` HELP-PROMPT: `Choice to be made from entries in site's QA Site Parameter file (#740).` SCREEN: `S DIC("S")="I $D(^QA(740,1,""QAN2"",""B"",Y))"` EXPLANATION: `Choice to be made from entries in site's QA Site parameter file (#740).`

Name	Field # of Occurrence
^%DT	.03+1, .1+1, .11+1, .13+1, .14+1
^DIC	.02+1, .04+1, .15+1, 52+1
Y^DIQ	ID.02+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(742.1	ID.02+1
^QA(742.1 - [#742.1]	ID.02+1
^QA(742.4 - [#742.4]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1+1, .11+1, .13+1, .14+1 , .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.03+1, .1+1, .11+1, .13+1, .14+1*
>> %DT(0	.03+1!, .1+1!, .11+1!, .13+1!, .14+1*!
%I	ID.02+1*!
>> C	ID.02+1*
>> D0	.1+1, .11+1, .13+1, .14+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03(XREF 1S), .03(XREF 1K) , .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K), .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K)
DIC	ID.02+1, .02+1!, .04+1!, .15+1!, 52+1!
DIC("S"	.02+1, .02SCR+1, .04+1, .04SCR+1, .15+1, .15SCR+1, 52+1, 52SCR+1
>> DIE	.02+1, .04+1, .15+1, 52+1
QAN	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
QAN(1	.02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
QAN(2	.01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K)
QAN(3	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
U	ID.02+1, ID.03+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .1+1, .11+1 , .13+1, .14+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K) , .03+1!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04+1!, .04(XREF 1S), .04(XREF 1K), .09(XREF 1S), .09(XREF 1K) , .1+1!, .11+1!, .13+1!, .14+1!, .15+1!, .15(XREF 1S), .15(XREF 1K), .17(XREF 1S), .17(XREF 1K), .22+1! , 52+1*!
>> Y	ID.02+1*, .02+1, .03+1, .04+1, .1+1, .11+1, .13+1, .14+1, .15+1, 52+1

Customize PDF page

Package: Incident Reporting

Global: ^QA(742.4

Information

Description

Directly Accessed By Routines, Total: 40

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 25

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: