Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 53.51

Package: Inpatient Medications

PICK LIST(#53.5)-->53.51

Sub-Field: 53.51

Information

Parent File	Name	Number	Package
PICK LIST(#53.5)	PATIENT	53.51	Inpatient Medications

Details

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO PHARMACY PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `MAY 24, 1994` DESCRIPTION: `This is the patient for which the medications are to be dispensed for.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `53.51^B` `1)= S ^PS(53.5,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(53.5,DA(1),1,"B",$E(X,1,30),DA)` `Regular 'B' index of PATIENT sub-field.` CROSS-REFERENCE: `53.5^AC2^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AC")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AC","PT",X)` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used for printing the Pick List and sending to the ATC` `dispensing machine by patient.` CROSS-REFERENCE: `53.5^AU2^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AU")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AU")` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used to identify items that were updated since the Pick` `List was run or last updated, for printing.`
.02	ADMINISTERING TEAM	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAY 24, 1994` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the administering team for the room-bed the patient is assigned.` CROSS-REFERENCE: `53.5^AC3^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AC")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AC","AT",X)` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used for printing the Pick List and sending to the ATC` `dispensing machine by patient.` CROSS-REFERENCE: `53.5^AU3^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AU")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AU")` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used to identify items that were updated since the Pick` `List was run or last updated, for printing.`
.03	WARD	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 24, 1994` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the patient's ward location at the time the pick list is run.` GROUP: `PSJ` CROSS-REFERENCE: `53.5^AC4^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AC")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AC","WD",X)` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used for printing the Pick List and sending to the ATC` `dispensing machine by patient.` CROSS-REFERENCE: `53.5^AU4^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AU")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AU")` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used to identify items that were updated since the Pick` `List was run or last updated, for printing.`
.04	ROOM-BED	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `MAY 24, 1994` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `This is the room-bed where the patient is currently assigned.` GROUP: `PSJ` CROSS-REFERENCE: `53.5^AC5^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AC")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AC","RB",X)` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used for printing the Pick List and sending to the ATC` `dispensing machine by patient.` CROSS-REFERENCE: `53.5^AU5^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AU")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AU")` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used to identify items that were updated since the Pick` `List was run or last updated, for printing.`
.05	UPDATE	0;5	SET	'1' FOR PATIENT HAS BEEN UPDATED; LAST EDITED: `DEC 14, 1993` HELP-PROMPT: `"1" if patient is on an updated Pick List.` DESCRIPTION: `This is an internal flag to identify patients who appeared on the most recent update of the Pick List.` CROSS-REFERENCE: `53.51^AU^MUMPS` `1)= D EN5351^PSGPLXR(DA(1),DA,"S","AU")` `2)= D EN5351^PSGPLXR(DA(1),DA,"K","AU")` `Cross-reference by: Pick List Number, Administering Team, Patient Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary Drug^IEN, Dispense Drug^IEN. Used to identify items that were updated since the Pick` `List was run or last updated, for printing.`
1	ORDER	1;0	Multiple #53.52	53.52 DESCRIPTION: `This contains the order-specific information for the patient.`