Sub-Field: 9009018.11

Parent File	Name	Number	Package
ACCESS RESTRICTIONS(#9009018.1)	RESTRICTED RECORD	9009018.11	IHS Changes To Scheduling

Details

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	POINTER TO PATIENT FILE (#9000001)	PATIENT(#9000001) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `AUG 31, 2007` HELP-PROMPT: `Enter the name or chart # of the patient whose record this user may not access.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009018.11^B` 1)= S ^BDGSPT(DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^BDGSPT(DA(1),1,"B",$E(X,1,30),DA)
.011	RESTRICTION STATUS		COMPUTED	MUMPS CODE: `S X=$$STATUS^BDGSPT2(D0,D1)` ALGORITHM: `S X=$$STATUS^BDGSPT2(D0,D1)` LAST EDITED: `AUG 22, 2007`
.02	DATE ADDED	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `AUG 22, 2007` HELP-PROMPT: `Date/time stamp automatcially added by software.`
.03	ADDED BY	0;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 22, 2007` HELP-PROMPT: `User who added this restricted patient to this user's list - automatic entry.`
1	DATE RESTRICTION LIFTED	1;0	DATE Multiple #9009018.111	9009018.111 LAST EDITED: `AUG 24, 2007`