Sub-Field: 131.704

Parent File	Name	Number	Package
131.703	SERVICE	131.704	Surgery

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SERVICE	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X` LAST EDITED: `APR 11, 1988` HELP-PROMPT: `THIS FIELD SHOULD BE MODIFIED BY A PROGRAMMER ONLY !!` DESCRIPTION: `This is the name of the service.` `WRITE AUTHORITY: ^` `UNEDITABLE` CROSS-REFERENCE: `131.704^B` `1)= S ^SRS(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^SRS(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `131.7^C^MUMPS` `1)= S ^SRS("C",X)=""` `2)= K ^SRS("C",X)` `The C cross reference on the SERVICE field is used for lookup purposes.`
1	START TIME	1;0	Multiple #131.705	131.705 DESCRIPTION: `This is information related to the start time of this blockout.`
2	SCHEDULED BY	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 05, 1991` HELP-PROMPT: `Enter the name of the scheduler.` DESCRIPTION: `This is the name of the person blocking out time on the display for this operating room.` `WRITE AUTHORITY: ^`

SERVICE

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X
LAST EDITED: APR 11, 1988
HELP-PROMPT: THIS FIELD SHOULD BE MODIFIED BY A PROGRAMMER ONLY !!
DESCRIPTION: This is the name of the service.
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 131.704^B
1)= S ^SRS(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^SRS(DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 131.7^C^MUMPS
1)= S ^SRS("C",X)=""
2)= K ^SRS("C",X)
The C cross reference on the SERVICE field is used for lookup purposes.

START TIME

1;0

Multiple #131.705

SCHEDULED BY

0;2

POINTER TO NEW PERSON FILE (#200)

LAST EDITED: DEC 05, 1991
HELP-PROMPT: Enter the name of the scheduler.
DESCRIPTION: This is the name of the person blocking out time on the display for this operating room.
WRITE AUTHORITY: ^