Sub-Field: 57.701

Parent File	Name	Number	Package
MEDICATION ADMINISTERING TEAM(#57.7)	TEAM	57.701	Inpatient Medications

Parent File

Name

Number

Package

TEAM

57.701

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEAM	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!(X["~")!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X` LAST EDITED: `JAN 06, 1987` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: This is an arbitrary name for a team. EXECUTABLE HELP: `D EN^DDIOL("ENTER THE NAME OF A TEAM THAT ADMINISTERS MEDICATION ON THIS WARD.")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `57.701^B` 1)= S ^PS(57.7,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^PS(57.7,DA(1),1,"B",$E(X,1,30),DA)
1	ROOM-BED	1;0	Multiple #57.702	57.702 DESCRIPTION: This is the room-beds which belong to the team. GROUP: `PSJU`

TEAM

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!(X["~")!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X
LAST EDITED: JAN 06, 1987
HELP-PROMPT: Answer must be 3-15 characters in length.
DESCRIPTION:
```
This is an arbitrary name for a team.
```
EXECUTABLE HELP: D EN^DDIOL("ENTER THE NAME OF A TEAM THAT ADMINISTERS MEDICATION ON THIS WARD.")
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 57.701^B

1)= S ^PS(57.7,DA(1),1,"B",$E(X,1,30),DA)=""

2)= K ^PS(57.7,DA(1),1,"B",$E(X,1,30),DA)

ROOM-BED

1;0

Multiple #57.702

DESCRIPTION:

This is the room-beds which belong to the team.