Sub-Field: 38.11

Parent File	Name	Number	Package
DG SECURITY LOG(#38.1)	DATE/TIME RECORD ACCESSED	38.11	Registration

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME RECORD ACCESSED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999.9999-X` LAST EDITED: `AUG 20, 1987` DESCRIPTION: `This field contains the date/time the patient's sensitive record was accessed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `38.1^AD^MUMPS` `1)= S ^DGSL(38.1,"AD",DA,DA(1))=""` `2)= K ^DGSL(38.1,"AD",DA,DA(1))`
2	ACCESSED BY	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 28, 1990` DESCRIPTION: `This field contains the name of the user that accessed this sensitive patient's record.` CROSS-REFERENCE: `38.1^AU^MUMPS` `1)= S ^DGSL(38.1,"AU",DA(1),$E(X,1,30),DA)=""` `2)= K ^DGSL(38.1,"AU",DA(1),$E(X,1,30),DA)`
3	OPTION/PROTOCOL USED	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>65!($L(X)<1) X` LAST EDITED: `JUN 07, 1993` HELP-PROMPT: `Answer must be 1-65 characters in length.` DESCRIPTION: `This field contains the option or protocol the user was utilizing when this sensitive patient's record was accessed.`
4	INPATIENT WHEN ACCESSED?	0;4	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `APR 13, 1987` DESCRIPTION: `If, at the time this patient's sensitive record was accessed, this patient was an inpatient, a YES will appear here.`