Sub-Field: 58.26

Parent File	Name	Number	Package
58.11	WARD (FOR ITEM)	58.26	Auto Replenishment Ward Stock

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	WARD (FOR ITEM)	0;1	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `FEB 13, 1990` HELP-PROMPT: `Enter the ward which uses this item.` DESCRIPTION: `This contains the pointer to File 42 - Ward Location File. Names of the ward or wards using this item will be entered. This is the link between the AR/WS package and the Unit Dose package for determining ward stocked` `items.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.1^D^MUMPS` `1)= I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) D INACT^PSGWUTL I $D(PSGWFLG) S ^PSI(58.1,"D",+^(0),DA,DA(2))="" K PSGWFLG` `2)= I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) K ^PSI(58.1,"D",+^(0),DA,DA(2))` `This cross-reference is used by the UNIT DOSE package to identify items on the UD pick list that are Ward Stock items. It is also used by the option "Ward (For Item) Conversion".`

WARD (FOR ITEM)

0;1

POINTER TO WARD LOCATION FILE (#42)

INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: FEB 13, 1990
HELP-PROMPT: Enter the ward which uses this item.
DESCRIPTION: This contains the pointer to File 42 - Ward Location File. Names of the ward or wards using this item will be entered. This is the link between the AR/WS package and the Unit Dose package for determining ward stocked
items.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.1^D^MUMPS
1)= I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) D INACT^PSGWUTL I $D(PSGWFLG) S ^PSI(58.1,"D",+^(0),DA,DA(2))="" K PSGWFLG
2)= I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) K ^PSI(58.1,"D",+^(0),DA,DA(2))
This cross-reference is used by the UNIT DOSE package to identify items on the UD pick list that are Ward Stock items. It is also used by the option "Ward (For Item) Conversion".