Global: ^QA(740.5

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.`

NAME

0;1

POINTER TO FILE FILE (#1)

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

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

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

AUDIT TRAIL

1;0

DATE Multiple #740.51

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

Information