Sub-Field: 57.51

Parent File	Name	Number	Package
WARD GROUP(#57.5)	WARD	57.51	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	WARD	0;1	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) INPUT TRANSFORM: `I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)'="M",$D(^PS(57.5,"AB",X)) D EN^DDIOL("THIS WARD ALREADY BELONGS TO THE '"_$P(^PS(57.5,$O(^(X,0)),0),"^")_"' WARD GROUP!") K X` LAST EDITED: `AUG 03, 1992` HELP-PROMPT: `Enter the MAS ward(s) that are included in this ward group.` DESCRIPTION: `This is a ward to be placed under this ward group.` EXECUTABLE HELP: `D EN^DDIOL("THE WARD(S) CHOSEN MUST ALREADY BE IN THE 'WARD LOCATION' FILE.")` GROUP: `PSJU` CROSS-REFERENCE: `57.5^AB^MUMPS` `1)= I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)="P" S ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)=""` `2)= K ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)` `3)= USED BY UNIT DOSE` `Allows Unit Dose to determine a ward's corresponding PHARMACY ward group. Set only for ward groups given the TYPE of PHARMACY. S ^PS(57.5,"AB",WARD,WARD GROUP NAME,WARD IEN)=""` CROSS-REFERENCE: `57.5^AC^MUMPS` `1)= S ^PS(57.5,"AC",DA(1),X)=""` `2)= K ^PS(57.5,"AC",DA(1),X)` `3)= USED BY UNIT DOSE` `Allows Unit Dose to easily access the wards that belong to a ward group. S ^PS(57.5,"AC",WARD,WARD GROUP)=""` CROSS-REFERENCE: `57.51^B` `1)= S ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)`

WARD

0;1

POINTER TO WARD LOCATION FILE (#42)

************************REQUIRED FIELD************************

INPUT TRANSFORM: I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)'="M",$D(^PS(57.5,"AB",X)) D EN^DDIOL("THIS WARD ALREADY BELONGS TO THE '"_$P(^PS(57.5,$O(^(X,0)),0),"^")_"' WARD GROUP!") K X
LAST EDITED: AUG 03, 1992
HELP-PROMPT: Enter the MAS ward(s) that are included in this ward group.
DESCRIPTION:
This is a ward to be placed under this ward group.
EXECUTABLE HELP: D EN^DDIOL("THE WARD(S) CHOSEN MUST ALREADY BE IN THE 'WARD LOCATION' FILE.")
GROUP: PSJU
CROSS-REFERENCE: 57.5^AB^MUMPS
1)= I $D(^PS(57.5,DA(1),0)),$P(^(0),"^",2)="P" S ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(57.5,"AB",$E(X,1,30),DA(1),DA)
3)= USED BY UNIT DOSE
Allows Unit Dose to determine a ward's corresponding PHARMACY ward group. Set only for ward groups given the TYPE of PHARMACY. S ^PS(57.5,"AB",WARD,WARD GROUP NAME,WARD IEN)=""
CROSS-REFERENCE: 57.5^AC^MUMPS
1)= S ^PS(57.5,"AC",DA(1),X)=""
2)= K ^PS(57.5,"AC",DA(1),X)
3)= USED BY UNIT DOSE
Allows Unit Dose to easily access the wards that belong to a ward group. S ^PS(57.5,"AC",WARD,WARD GROUP)=""
CROSS-REFERENCE: 57.51^B
1)= S ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(57.5,DA(1),1,"B",$E(X,1,30),DA)