Global: ^QA(742.13

FileMan FileNo	FileMan Filename	Package
742.13	QA MEDICATION ERRORS	Incident Reporting

Directly Accessed By Routines, Total: 3

Package	Total	Routines
Incident Reporting	3	INSTANCE OF DEATH QANUTL2 ^QA(742.13

Pointed To By FileMan Files, Total: 1

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

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `APR 07, 1992` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `Holds the IEN of the Medication Error entry.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.01	MEDICATION ERRORS	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAY 02, 1991` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `Indicates medication errors as they pertain to the patient.` DELETE TEST: `1,0)= I 1 W !,*7,"ENTRIES CANNOT BE DELETED!"` CROSS-REFERENCE: `742.13^B` `1)= S ^QA(742.13,"B",$E(X,1,30),DA)=""` `2)= K ^QA(742.13,"B",$E(X,1,30),DA)` `3)= Do not delete!` CROSS-REFERENCE: `742.13^BUPPER^MUMPS` `1)= S ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""` `2)= K ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)` `3)= Do not delete!` `Cross Reference files the uppercase text of the Medication Error.`
.02	STATUS	0;2	SET	**********************REQUIRED FIELD********************** '1' FOR ACTIVE; LAST EDITED: `OCT 02, 1992` HELP-PROMPT: `Enter the status of the Medication Error. '1' is active.` DESCRIPTION: `This field indicates whether the Medication Error is active.` CROSS-REFERENCE: `742.13^BSTAT` `1)= S ^QA(742.13,"BSTAT",$E(X,1,30),DA)=""` `2)= K ^QA(742.13,"BSTAT",$E(X,1,30),DA)` `3)= Do not delete.` `Indicates the status of the Medication Error.`

.001

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: APR 07, 1992
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
Holds the IEN of the Medication Error entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

.01

MEDICATION ERRORS

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAY 02, 1991
HELP-PROMPT: Answer must be 3-60 characters in length.
DESCRIPTION:
Indicates medication errors as they pertain to the patient.
DELETE TEST: 1,0)= I 1 W !,*7,"ENTRIES CANNOT BE DELETED!"
CROSS-REFERENCE: 742.13^B
1)= S ^QA(742.13,"B",$E(X,1,30),DA)=""
2)= K ^QA(742.13,"B",$E(X,1,30),DA)
3)= Do not delete!
CROSS-REFERENCE: 742.13^BUPPER^MUMPS
1)= S ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)=""
2)= K ^QA(742.13,"BUPPER",$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ"),DA)
3)= Do not delete!
Cross Reference files the uppercase text of the Medication Error.

.02

STATUS

0;2

SET

************************REQUIRED FIELD************************

'1' FOR ACTIVE;

LAST EDITED: OCT 02, 1992
HELP-PROMPT: Enter the status of the Medication Error. '1' is active.
DESCRIPTION:
This field indicates whether the Medication Error is active.
CROSS-REFERENCE: 742.13^BSTAT
1)= S ^QA(742.13,"BSTAT",$E(X,1,30),DA)=""
2)= K ^QA(742.13,"BSTAT",$E(X,1,30),DA)
3)= Do not delete.
Indicates the status of the Medication Error.

Found Entries, Total: 12

MEDICATION ERRORS: WRONG TIME	MEDICATION ERRORS: WRONG DOSE OR DOSAGE FORM	MEDICATION ERRORS: WRONG LABELING	MEDICATION ERRORS: WRONG MEDICATION	MEDICATION ERRORS: WRONG PATIENT	MEDICATION ERRORS: OMISSION OF MEDICATION	MEDICATION ERRORS: WRONG RATE	MEDICATION ERRORS: WRONG ROUTE ADMINISTRATION
MEDICATION ERRORS: UNAUTHORIZED DRUG USE	MEDICATION ERRORS: OTHER	MEDICATION ERRORS: WRONG PREPARATION OF DOSE	MEDICATION ERRORS: PRESCRIBING ERROR

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^QA(742.13 - [#742.13]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
>> DINUM	.001+1*
X	.001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)

Customize PDF page

Package: Incident Reporting