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 | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^QA(742.6

Package: Incident Reporting

Global: ^QA(742.6

Information

FileMan FileNo	FileMan Filename	Package
742.6	QA INCIDENT SUMMARY	Incident Reporting

Description

Contains the totals of incident types. Totals are broken down by medical center, quarterly date, and whether they're non investigated or investigated incidents.

Directly Accessed By Routines, Total: 6

Package	Total	Routines
Incident Reporting	5	^QA(742.6 INSTANCE OF DEATH QANQTOT QANQTTL QANSUMM

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Incident Reporting	4	QANQSDT QANQTOT QANQTTL QANSUMM

Pointer To FileMan Files, Total: 3

Package	Total	FileMan Files
Incident Reporting	2	QA INCIDENTS(#742.1)[.04] QA COMPLICATIONS LEADING TO DEATH(#742.14)[#742.61(.01)]
Kernel	1	INSTITUTION(#4)[.01]

Fields, Total: 18

Field #	Name	Loc	Type	Details
.01	MEDICAL CENTER	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Enter the Medical Center where the incident occurred.` DESCRIPTION: `This is the Medical Center where the incident occurred.` TECHNICAL DESCR: `Pointer to the Institution File.` CROSS-REFERENCE: `742.6^B` `1)= S ^QA(742.6,"B",$E(X,1,30),DA)=""` `2)= K ^QA(742.6,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `742.6^AA1^MUMPS` `1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",X,A4BV(2),A4BV(3),A4BV(4),DA)="" K A4BV` `2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",X,A4BV(2),A4BV(3),A4BV(4),DA) K A4BV` `3)= Do not delete.` `Mumps x-ref to link medical center, date, patient type, and incident type together.`
.02	DATE	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 26, 1992` HELP-PROMPT: `Enter the date of the incident.` DESCRIPTION: `Holds the Date of the Quarterly Report.` TECHNICAL DESCR: `Date the Quarterly Report was generated. Date/Time, time not required.` CROSS-REFERENCE: `742.6^AA2^MUMPS` `1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(1)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),X,A4BV(3),A4BV(4),DA)="" K A4BV` `2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(1)]""&(A4BV(3)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),X,A4BV(3),A4BV(4),DA) K A4BV` `3)= Do not delete.` `Mumps x-ref to link medical center, date, patient type, and incident type together.` CROSS-REFERENCE: `742.6^QDATE` `1)= S ^QA(742.6,"QDATE",$E(X,1,30),DA)=""` `2)= K ^QA(742.6,"QDATE",$E(X,1,30),DA)` `3)= Do not delete.` `Holds the beginning date of a quarter.`
.03	PATIENT TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'I' FOR INPATIENT; 'O' FOR OUTPATIENT; 'N' FOR NHCU; 'D' FOR DOMICILIARY; LAST EDITED: `MAR 26, 1992` HELP-PROMPT: `Enter the Patient Type, inpatient, outpatient, NHCU, or Domiciliary.` DESCRIPTION: `Indicates the Patient Type.` TECHNICAL DESCR: `Patient Type: Set of Codes.` CROSS-REFERENCE: `742.6^AA3^MUMPS` `1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""&(A4BV(1)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),X,A4BV(4),DA)="" K A4BV` `2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""&(A4BV(1)]"")&(A4BV(4)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),X,A4BV(4),DA) K A4BV` `3)= Do not delete.` `Mumps x-ref to link medical center, date, patient type, and incident type together.` CROSS-REFERENCE: `742.6^BTYPE` `1)= S ^QA(742.6,"BTYPE",$E(X,1,30),DA)=""` `2)= K ^QA(742.6,"BTYPE",$E(X,1,30),DA)` `3)= Do not delete.` `Holds the Patient Type.`
.04	INCIDENT TYPE	0;4	POINTER TO QA INCIDENTS FILE (#742.1)	**********************REQUIRED FIELD********************** QA INCIDENTS(#742.1) LAST EDITED: `MAR 26, 1992` HELP-PROMPT: `Enter the Type of Incident.` DESCRIPTION: `Indicates the Type of Incident.` TECHNICAL DESCR: `Pointer to QA Incidents File. LAYGO not allowed.` CROSS-REFERENCE: `742.6^AA4^MUMPS` `1)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) S:A4BV(2)]""&(A4BV(3)]"")&(A4BV(1)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),A4BV(3),X,DA)="" K A4BV` `2)= S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) K:A4BV(2)]""&(A4BV(3)]"")&(A4BV(1)]"") ^QA(742.6,"AA",A4BV(1),A4BV(2),A4BV(3),X,DA) K A4BV` `3)= Do not delete.` `Mumps x-ref to link medical center, date, patient type, and incident type together.` CROSS-REFERENCE: `742.6^BINC` `1)= S ^QA(742.6,"BINC",$E(X,1,30),DA)=""` `2)= K ^QA(742.6,"BINC",$E(X,1,30),DA)` `3)= Do not delete.` `Holds the incident.`
.05	TOTAL NON-INVESTIGATED	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of NON investigated incidents for a given quarter.`
.06	TOTAL INVESTIGATED	0;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total number of Investigated incidents over a given quarter.`
.07	TOTAL NON-INVESTIGATED 0	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total of Non-Investigated incidents with a Severity Level of 0.`
.08	TOTAL NON-INVESTIGATED 1	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 09, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total of Non-Investigated incidents with a Severity Level of 1.`
.09	TOTAL NON-INVESTIGATED 2	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Non-Investigated incidents with a Severity Level of 2.`
.1	TOTAL NON-INVESTIGATED 3	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Non-Investigated incidents with a Severity Level of 3.`
.11	TOTAL INVESTIGATED 0	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Investigated incidents with a Severity Level of 0.`
.12	TOTAL INVESTIGATED 1	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Investigated incidents with a Severity Level of 1.`
.13	TOTAL INVESTIGATED 2	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Investigated incidents with a Severity Level of 2.`
.14	TOTAL INVESTIGATED 3	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Type a Number between 0 and 9999999, 0 Decimal Digits` DESCRIPTION: `Holds the Total Number of Investigated incidents with a Severity Level of 3.`
.15	DATE ENTERED	0;15	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 10, 1992` HELP-PROMPT: `Enter the Date the data was rolled up into the database.` DESCRIPTION: `Holds the Date the data was rolled up into the database.` TECHNICAL DESCR: `Date/Time, Time optional.`
.16	ALLEGED/PROVEN	0;16	SET	'1' FOR PROVEN; '0' FOR ALLEGED; LAST EDITED: `MAR 24, 1992` HELP-PROMPT: `Enter whether the Incident was alleged or proven.` DESCRIPTION: `Defines whether the incident was alleged or proven.`
.17	TRANSMITTED TO REGION	0;17	SET	'1' FOR YES; LAST EDITED: `MAR 26, 1992` HELP-PROMPT: `Enter whether the data has been sent to the region.` DESCRIPTION: `Defines whether the data has been sent to the region.`
1	INSTANCE OF DEATH	1;0	POINTER Multiple #742.61	742.61 DESCRIPTION: `Contains the totals for investigated and non-investigated types of deaths.`

External References

Name	Field # of Occurrence
^%DT	.02+1, .15+1
Y^DIQ	ID.04+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(742.1	ID.04+1
^QA(742.1 - [#742.1]	ID.04+1
^QA(742.6 - [#742.6]	.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), .04(XREF 2S), .04(XREF 2K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, ID.04+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .15+1
%I	ID.04+1*!
A4BV	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(1	.02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(2	.01(XREF 2S), .01(XREF 2K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(3	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K)
A4BV(4	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
>> C	ID.04+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), .04(XREF 2S), .04(XREF 2K)
>> DIC	ID.03+1, ID.04+1
U	ID.02+1, ID.04+1, .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04(XREF 1S), .04(XREF 1K)
X	.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(XREF 1S) , .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1!, .06+1!, .07+1! , .08+1!, .09+1!, .1+1!, .11+1!, .12+1!, .13+1!, .14+1!, .15+1!
>> Y	ID.04+1*, .02+1, .15+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All