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

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:  ^
```