Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 740.51

Package: Quality Assurance Integration

QA AUDIT(#740.5)-->740.51

Sub-Field: 740.51

Information

Parent File	Name	Number	Package
QA AUDIT(#740.5)	AUDIT TRAIL	740.51	Quality Assurance Integration

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 23, 1989` HELP-PROMPT: `Please enter 'NOW' or the appropriate Date/Time with Seconds.` DESCRIPTION: `This is the precise date and time that this activity was audited.` `UNEDITABLE` CROSS-REFERENCE: `740.51^B` `1)= S ^QA(740.5,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^QA(740.5,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `740.5^C` `1)= S ^QA(740.5,"C",$E(X,1,30),DA(1),DA)=""` `2)= K ^QA(740.5,"C",$E(X,1,30),DA(1),DA)`
.02	USER	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `AUG 23, 1989` HELP-PROMPT: `Please enter the DUZ of the entering person.` DESCRIPTION: `This is the DUZ of the entering person. (IEN of file 200)` `UNEDITABLE`
.03	ACTION	0;3	SET	**********************REQUIRED FIELD********************** 'c' FOR CLOSE; 'd' FOR DELETE; 'e' FOR EDIT; 'o' FOR OPEN; LAST EDITED: `AUG 23, 1989` HELP-PROMPT: `Please enter the action performed on the entry being audited.` DESCRIPTION: `This is the action that was performed on the entry being audited.` `UNEDITABLE`
.04	COMMENT	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>220!($L(X)<1) X` LAST EDITED: `AUG 23, 1989` HELP-PROMPT: `Answer must be 1-220 characters in length.` DESCRIPTION: `This is any comment that will help identify the source or reason that precipitated this audit to be created.` `UNEDITABLE`