Global: ^QA(740.5

FileMan FileNo	FileMan Filename	Package
740.5	QA AUDIT	Quality Assurance Integration

Directly Accessed By Routines, Total: 11

Package	Total	Routines
Quality Assurance Integration	6	AUDIT TRAIL QAQ AUDIT LIST QAQADLAU QAQAUTL ^QA(740.5 QAQAUDIT
Incident Reporting	2	QANCNV00 QANEDIT
Clinical Monitoring System	1	QAMPINQ5
Occurrence Screen	1	QAOSPAUD

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Incident Reporting	2	QANCNV00 QANEDIT
Clinical Monitoring System	1	QAMPINQ5
Occurrence Screen	1	QAOSPAUD

Pointed To By FileMan Files, Total: 4

Package	Total	FileMan Files
Incident Reporting	2	QA PATIENT INCIDENT REVIEW(#742)[50] QA INCIDENT REPORT(#742.4)[50]
Clinical Monitoring System	1	FALL OUT(#743.1)[100]
Occurrence Screen	1	QA OCCURRENCE SCREEN(#741)[27]

Pointer To FileMan Files, Total: 2

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[#740.51(.02)]
VA FileMan	1	FILE(#1)[.01]

Fields, Total: 3

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO FILE FILE (#1)	**********************REQUIRED FIELD********************** FILE(#1) INPUT TRANSFORM: `K:'((X'<740)&(X<750)) X` LAST EDITED: `NOV 20, 1989` HELP-PROMPT: `Please enter the name of a QA file.` DESCRIPTION: `This is the QA FILE that is being audited.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `740.5^B` `1)= S ^QA(740.5,"B",$E(X,1,30),DA)=""` `2)= K ^QA(740.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `740.5^AA1^MUMPS` `1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) S:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA)="" K QA` `2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) K:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA) K QA`
.02	ENTRY	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `N %,C D EN2^QAQAUTL` LAST EDITED: `NOV 20, 1989` HELP-PROMPT: `Enter the Internal Entry Number between 1 and 999999999` DESCRIPTION: `This is the IEN of the file entry being audited.` `UNEDITABLE` CROSS-REFERENCE: `740.5^AA2^MUMPS` `1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") S:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA)="" K QA` `2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") K:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA) K QA`
1	AUDIT TRAIL	1;0	DATE Multiple #740.51	740.51 DESCRIPTION: `This is the trail of the activity associated with the IEN of the file.`

.01

NAME

0;1

POINTER TO FILE FILE (#1)

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

FILE(#1)

INPUT TRANSFORM: K:'((X'<740)&(X<750)) X
LAST EDITED: NOV 20, 1989
HELP-PROMPT: Please enter the name of a QA file.
DESCRIPTION:
This is the QA FILE that is being audited.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 740.5^B
1)= S ^QA(740.5,"B",$E(X,1,30),DA)=""
2)= K ^QA(740.5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 740.5^AA1^MUMPS
1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) S:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA)="" K QA
2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(2)=$P(QA,"^",2) K:QA(2)'="" ^QA(740.5,"AA",X,QA(2),DA) K QA

.02

ENTRY

0;2

NUMBER

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

INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
OUTPUT TRANSFORM: N %,C D EN2^QAQAUTL
LAST EDITED: NOV 20, 1989
HELP-PROMPT: Enter the Internal Entry Number between 1 and 999999999
DESCRIPTION:
This is the IEN of the file entry being audited.
UNEDITABLE
CROSS-REFERENCE: 740.5^AA2^MUMPS
1)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") S:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA)="" K QA
2)= S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""),QA(1)=$P(QA,"^") K:QA(1)'="" ^QA(740.5,"AA",QA(1),X,DA) K QA

1

AUDIT TRAIL

1;0

DATE Multiple #740.51

740.51

DESCRIPTION:
This is the trail of the activity associated with the IEN of the file.

External References

Name	Field # of Occurrence
EN2^QAQAUTL	.02OT+1

Global Variables Directly Accessed

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

Naked Globals

Name	Field # of Occurrence
^(0	ID.02+1, .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
%	.02OT+1~
C	.02OT+1~
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
QA	.01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K)
QA(1	.02(XREF 1S), .02(XREF 1K)
QA(2	.01(XREF 2S), .01(XREF 2K)
U	ID.02+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .02(XREF 1K)
>> Y	.02OT+1
>> Y(0	.02OT+1*

Customize PDF page

Package: Quality Assurance Integration