Sub-Field: 58.800115

Parent File	Name	Number	Package
58.8001	WARD (FOR DRUG)	58.800115	Drug Accountability

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	WARD (FOR DRUG)	0;1	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAR 21, 1992` HELP-PROMPT: `Enter the ward which uses this drug.` DESCRIPTION: `This field contains information from the WARD LOCATION file (#42). Names of the ward or wards using this drug will be entered. This is the link between the Controlled Substances package and the Unit Dose package for` `determining ward stocked drugs.` TECHNICAL DESCR: `DINUMed pointer to File 42 - WARD LOCATION file.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `58.8^D^MUMPS` `1)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) D INACT^PSDUTL I $D(PSDFLAG) S ^PSD(58.8,"D",+^(0),DA,DA(2))="" K PSDFLAG` `2)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) K ^PSD(58.8,"D",+^(0),DA,DA(2))` `3)= DO NOT DELETE` `This cross-reference is the link between the Controlled Substances package and the Unit Dose package for determining ward stocked drugs. The cross-reference is ^PSD(58.8,"D",DRUG,WARD,DA)=""`

WARD (FOR DRUG)

0;1

POINTER TO WARD LOCATION FILE (#42)

INPUT TRANSFORM: S:$D(X) DINUM=X
LAST EDITED: MAR 21, 1992
HELP-PROMPT: Enter the ward which uses this drug.
DESCRIPTION: This field contains information from the WARD LOCATION file (#42). Names of the ward or wards using this drug will be entered. This is the link between the Controlled Substances package and the Unit Dose package for
determining ward stocked drugs.
TECHNICAL DESCR:
DINUMed pointer to File 42 - WARD LOCATION file.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 58.8^D^MUMPS
1)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) D INACT^PSDUTL I $D(PSDFLAG) S ^PSD(58.8,"D",+^(0),DA,DA(2))="" K PSDFLAG
2)= I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) K ^PSD(58.8,"D",+^(0),DA,DA(2))
3)= DO NOT DELETE
This cross-reference is the link between the Controlled Substances package and the Unit Dose package for determining ward stocked drugs. The cross-reference is ^PSD(58.8,"D",DRUG,WARD,DA)=""