Global: ^DGSL(38.1

This field contains a pointer to the PATIENT file representing the patient who is listed as sensitive.

1)= S ^DGSL(38.1,"B",$E(X,1,30),DA)=""

2)= K ^DGSL(38.1,"B",$E(X,1,30),DA)

This field contains a 1 if the patient record is presently listed as sensitive or a 0 if the patient's record is not currently sensitive.

IHS/ANMC/LJF 8/31/2001: No mods made to DD but any xref added MUST also be added to code under SETLOG1^DGSEC which creates new entry if not already in file but from wihtin patient lookup so FM code not used.

1)= Q

2)= I +X,'+$P(^DGSL(38.1,DA,0),U,2) D BULTIN^DGSEC1

1)= I '+$P(^DGSL(38.1,DA,0),U,2) S ^DGSL(38.1,"ANS",DA)=""

2)= K ^DGSL(38.1,"ANS",DA)

This field contains a pointer to the NEW PERSON file denoting the name of the user who most recently changed this patient's security level.

This field contians the date/time that this patient's security level was most recently changed.

This field contains the remote source that assigned the patient's security level.

This multiple contains information on when and by whom a patient's record was accessed (if that patient's record was listed as sensitive at the time).