STANDARD DATA DICTIONARY #53.5 -- PICK LIST FILE 3/24/25 PAGE 1
STORED IN ^PS(53.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is used by the Pharmacy to dispense medications to the various inpatient areas of the medical center. The pick list
shows the Pharmacy which orders go to which areas (ward groups), and automatically calculates the amounts to dispense.
DD ACCESS: @
WR ACCESS: ^
DEL ACCESS: ^
LAYGO ACCESS: ^
POINTED TO BY: PICK LIST field (#.01) of the UNIT DOSE/ATC MEDS File (#53.55)
CROSS
REFERENCED BY: WARD GROUP(A1), PICK LIST #(A2), PICK LIST #(AB1), FILED AWAY FLAG(AB1), WARD GROUP(AB2), START DATE/TIME(AB3),
ORDERABLE ITEM(AC), PICK LIST #(AC1), PATIENT(AC2), ADMINISTERING TEAM(AC3), WARD(AC4), ROOM-BED(AC5),
SCHEDULE TYPE(AC6), *PRIMARY DRUG(AC7), DISPENSE DRUG(AC8), FILED AWAY FLAG(AF), PICK LIST #(AO1),
WARD GROUP(AO2), START DATE/TIME(AO3), ORDERABLE ITEM(AU), UPDATE(AU1), PATIENT(AU2), ADMINISTERING TEAM(AU3),
WARD(AU4), ROOM-BED(AU5), SCHEDULE TYPE(AU6), *PRIMARY DRUG(AU7), DISPENSE DRUG(AU8), PICK LIST #(B),
FILED AWAY FLAG(C)
53.5,.01 PICK LIST # 0;1 NUMBER (Required)
PICK LIST NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 30, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION: PICK LIST NUMBER This is the IEN of the pick list, and is printed on the pick list for
identification purposes.
TECHNICAL DESCR: NUMERIC PICK LIST IDENTIFIER This is the IEN of the pick list, and may be used to identify the it
for reprinting, entering units dispensed, etc.
GROUP: PSJ
CROSS-REFERENCE: 53.5^B
1)= S ^PS(53.5,"B",$E(X,1,30),DA)=""
2)= K ^PS(53.5,"B",$E(X,1,30),DA)
Regular 'B' index of file by Pick List #.
CROSS-REFERENCE: 53.5^AC1^MUMPS
1)= D EN535^PSGPLXR(DA,"S","AC")
2)= D EN535^PSGPLXR(DA,"K","AC")
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^AB1^MUMPS
1)= D ENABO^PSGPLXR(DA,"AB","S")
2)= D ENABO^PSGPLXR(DA,"AB","K")
Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #. This
cross-reference exists until a user files the Pick List away.
CROSS-REFERENCE: 53.5^AO1^MUMPS
1)= D ENABO^PSGPLXR(DA,"AO","S")
2)= D ENABO^PSGPLXR(DA,"AO","K")
Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #. This
cross-reference is created when the Pick List is completely filed away, and deleted when the Pick
List is purged.
CROSS-REFERENCE: 53.5^A2^MUMPS
1)= D ENA^PSGPLXR(DA,"S")
2)= D ENA^PSGPLXR(DA,"K")
Cross-reference on Ward Group, Pick List #. This cross-reference is created when the user
originally runs the Pick List, and exists until the Pick List is purged or deleted.
53.5,.02 WARD GROUP 0;2 POINTER TO WARD GROUP FILE (#57.5) (Required)
LAST EDITED: JUL 08, 1993
DESCRIPTION:
This is the pharmacy ward group for which the pick list was run.
CROSS-REFERENCE: 53.5^A1^MUMPS
1)= D ENA^PSGPLXR(DA,"S")
2)= D ENA^PSGPLXR(DA,"K")
Cross-reference on Ward Group, Pick List #. This cross-reference is created when the user
originally runs the Pick List, and exists until the Pick List is purged or deleted.
CROSS-REFERENCE: 53.5^AB2^MUMPS
1)= D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,"AB","S")
2)= D ENABO^PSGPLXR(DA,"AB","K")
Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #. This
cross-reference exists until a user files the Pick List away.
CROSS-REFERENCE: 53.5^AO2^MUMPS
1)= D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,"AO","S")
2)= D ENABO^PSGPLXR(DA,"AO","K")
Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #. This
cross-reference is created when the Pick List is completely filed away, and deleted when the Pick
List is purged.
53.5,.03 START DATE/TIME 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 08, 1993
DESCRIPTION:
This is the start date/time of the period of coverage for the pick list.
TECHNICAL DESCR: This is the start date/time of the period of coverage for the pick list. When a pick list is run,
the start date is calculated based on the stop dat date of the last pick list run for the selected
ward group.
GROUP: PSJ
CROSS-REFERENCE: 53.5^AB3^MUMPS
1)= D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,"AB","S")
2)= D ENABO^PSGPLXR(DA,"AB","K")
Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #. This
cross-reference exists until a user files the Pick List away.
CROSS-REFERENCE: 53.5^AO3^MUMPS
1)= D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,"AO","S")
2)= D ENABO^PSGPLXR(DA,"AO","K")
Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #. This
cross-reference is created when the Pick List is completely filed away, and deleted when the Pick
List is purged.
53.5,.04 STOP DATE/TIME 0;4 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 16, 1993
DESCRIPTION:
This is the stop date/time for the period of coverage for which the pick list was run.
GROUP: PSJ
53.5,.05 FILED AWAY FLAG 0;5 SET
'0' FOR NOT YET FLAGGED TO BE FILED AWAY;
'1' FOR FLAGGED TO BE FILED AWAY;
'2' FOR FILED AWAY;
LAST EDITED: JAN 22, 1998
DESCRIPTION:
This is an internal flag set when the pick list is filed away.
GROUP: PSJU
CROSS-REFERENCE: 53.5^AF^MUMPS
1)= S:X=1 ^PS(53.5,"AF",DA)=""
2)= K ^PS(53.5,"AF",DA)
This cross-reference on Pick List # is created when a user elects to file the Pick List away, and
is deleted when the entire Pick List is completely filed away.
CROSS-REFERENCE: 53.5^AB1^MUMPS
1)= N PSJ S PSJ=^PS(53.5,DA,0) K:X>0 ^PS(53.5,"AB",$P(PSJ,U,2),$P(PSJ,U,3),DA) S:'X ^PS(53.5,"AB",+
$P(PSJ,U,2),+$P(PSJ,U,3),DA)=""
2)= N PSJ S PSJ=^PS(53.5,DA,0) S:'X ^PS(53.5,"AB",+$P(PSJ,U,2),+$P(PSJ,U,3),DA)=""
Cross-reference by Ward Group, start date for the coverage of the Pick List, Pick List #. This
cross-reference exists until a user files the Pick List away.
CROSS-REFERENCE: 53.5^C^MUMPS
1)= Q:X<2 N X S X=^PS(53.5,DA,0),^PS(53.5,"AO",$P(X,U,2),$P(X,U,3),DA)=""
2)= Q
Cross-reference on Ward Group, start date for the coverage of the Pick List, and Pick List #.
This cross-reference is created when the Pick List is completely filed away, and deleted when the
Pick List is purged.
53.5,.06 ROOM-BED FLAG 0;6 SET
'0' FOR SORT BY ROOM-BED;
'1' FOR SORT BY BED-ROOM;
LAST EDITED: JUN 16, 1993
DESCRIPTION:
This is an internal flag set when the pick list is to sort by bed-room instead of room-bed.
53.5,.07 WARD SORT FLAG 0;7 SET
'0' FOR SORTED BY ROOM-BED;
'1' FOR NOT SORTED BY ROOM-BED;
LAST EDITED: JUN 16, 1993
DESCRIPTION:
This is an internal flag set when the pick list is NOT to sort by the patient's ward.
53.5,.08 ROOM-BED SORT FLAG 0;8 SET
'0' FOR SORT BY ROOM-BED;
'1' FOR NOT SORTED BY ROOM-BED;
LAST EDITED: JUN 22, 1993
DESCRIPTION:
This is an internal flag set when the pick list is NOT to sort by the patient's room-bed.
53.5,.09 RUN COMPLETION DATE/TIME 0;9 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 23, 1993
DESCRIPTION: This is a flag that is set when the original run of the pick list has completed. It is a date and
time to allow the package to know when the run completed.
53.5,.11 UPDATE COMPLETION DATE/TIME 0;10 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 23, 1993
DESCRIPTION: This is a flag that is set when an update for the pick list has started and reset when the update
is completed. This is set to 1 when the update is started and to a date and time when the update
has completed to allow the package to know when the update finished.
53.5,.12 RUN START DATE/TIME 0;11 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 23, 1993
DESCRIPTION: This is a flag that is set when the original run of the pick list is s to allow the package to know
the date and time the run was started.
53.5,.13 DATE/TIME LAST SENT TO THE ATC 0;12 DATE
INPUT TRANSFORM: S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 23, 1993
DESCRIPTION: This is the date/time the pick list was last sent to ATC. If the site is running KERNEL version 6.5
or greater, this is automatically entered each time the pick list is sent.
53.5,.14 PRINT NON-ACTIVE ORDERS FIRST 0;13 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 23, 1993
HELP-PROMPT: Answer 'YES' to have expired and dc'ed order print before active orders for each patient on the
pick list.
DESCRIPTION: For each patient, a pick list will print active orders and any orders that have expired or have
been discontinued within 24 hours of the start date of the pick list. Normally, for each patient,
the patient's active orders are printed first. This will allow pick lists run for this ward group
to print each patient's expired and dc'ed orders first. This does not affect pick lists that have
already been run.
TECHNICAL DESCR: This is used to determine the sort order of active vs. non-active orders for each patient within
the pick list. If this is 'NO' (or not set), each patient's active orders will print first, as they
always have. If this is set to 'YES', each patient's non-active orders (if any exist) will print
first.
53.5,1 PATIENT 1;0 POINTER Multiple #53.51 (Add New Entry without Asking)
LAST EDITED: DEC 16, 1993
DESCRIPTION:
This multiple contains the patient specific data for each patient on the pick list.
GROUP: psj
53.51,.01 PATIENT 0;1 POINTER TO PHARMACY PATIENT FILE (#2) (Required) (Multiply asked)
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.
53.51,.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.
53.51,.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.
53.51,.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.
53.51,.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.
53.51,1 ORDER 1;0 Multiple #53.52 (Add New Entry without Asking)
DESCRIPTION:
This contains the order-specific information for the patient.
53.52,.01 ORDER 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
This is the IEN of the order for the patient in the PHARMACY PATIENT file.
CROSS-REFERENCE: 53.52^B
1)= S ^PS(53.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(53.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
Regular 'B' cross-reference of the ORDER sub-field.
53.52,.02 SCHEDULE TYPE 0;2 SET
'C' FOR CONTINUOUS;
'O' FOR ONE TIME;
'P' FOR PRN;
'R' FOR FILL ON REQUEST;
'OC' FOR ON CALL;
'Z' FOR PRINT NON-ACTIVE ORDERS LAST;
'A' FOR PRINT NON/ACTIVE ORDERS FIRST;
LAST EDITED: MAY 24, 1994
HELP-PROMPT: Enter the code (C,O,OC,P,or R) corresponding to the scheduling of this order.
DESCRIPTION: If the order is active, this will be a code corresponding to the schedule type of the order. If
the order is non-active, this will be an 'A' or 'Z' depending on whether non-active orders are
to be printed first or last on the pick list.
TECHNICAL DESCR: CORRESPONDS TO SCHEDULE TYPE IN UNIT DOSE SUB-FILE If the order is active, this will be a code
corresponding to the schedule type of the order. If the order is non-active, this will be an
'A' or 'Z' depending on whether non-active orders are to be printed first or last on the pick
list.
CROSS-REFERENCE: 53.5^AC6^MUMPS
1)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"S","AC")
2)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"K","AC","ST",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^AU6^MUMPS
1)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"S","AU")
2)= D EN5352^PSGPLXR(DA(2),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.
53.52,.03 *PRIMARY DRUG 0;3 POINTER TO PRIMARY DRUG FILE (#50.3) (Required)
LAST EDITED: FEB 28, 1996
DESCRIPTION:
This is the primary drug assigned to the order.
TECHNICAL DESCR: This is a pointer to the PRIMARY DRUG file corresponding to the primary drug assigned to the
order.
CROSS-REFERENCE: 53.5^AC7^MUMPS
1)= Q
2)= Q
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.
********NOTE********** This xref will no longer be used after Inpatient Medications 4.5.
CROSS-REFERENCE: 53.5^AU7^MUMPS
1)= Q
2)= Q
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.
************NOTE************ This xref will no longer be used after Inpatient Medications 4.5.
53.52,.04 #TIMES TO BE ADMINISTERED 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JUN 25, 1993
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is the number of times the order is to be given during the duration of the pick list.
GROUP: PSJ
53.52,.05 UPDATE 0;5 SET
'1' FOR ORDER HAS BEEN UPDATED;
LAST EDITED: JUN 02, 1994
DESCRIPTION: This is an internal flag to identify orders that have been updated since the pick list was
originally run.
CROSS-REFERENCE: 53.5^AU1^MUMPS
1)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"S","AU")
2)= D EN5352^PSGPLXR(DA(2),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.
53.52,.06 ORDERABLE ITEM 0;6 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
LAST EDITED: FEB 28, 1996
DESCRIPTION:
This is the Orderable item assigned to the order.
TECHNICAL DESCR: This is the pointer the the Orderable Item file (#50.7) corresponding to the Orderable Item
assigned to the order.
CROSS-REFERENCE: 53.5^AC^MUMPS
1)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"S","AC")
2)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"K","AC","PD",X)
Xref by: PICK LIST #,ADMINISTERING TEAM,PATIENT WARD,PATIENT ROOM-BED, PATIENT
NAME^DFN,SCHEDULE TYPE,ORDERABLE ITEM^IEN,DISPENSE DRUG^IEN. Used for printing the Pick List
and sending it the the ATC dispensing machine by patient.
CROSS-REFERENCE: 53.5^AU^MUMPS
1)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"S","AU")
2)= D EN5352^PSGPLXR(DA(2),DA(1),DA,"K","AU")
Xref by: PICK LIST #,ADMINISTERING TEAM,PATIENT WARD,PATIENT ROOM-BED, PATIENT
NAME^DFN,SCHEDULE TYPE,ORDERABLE ITEM^IEN,DISPENSE DRUG^IEN. Used to identify items that were
updated since the pick list was run or last updated, for printing.
53.52,1 DISPENSE DRUG 1;0 Multiple #53.53 (Add New Entry without Asking)
DESCRIPTION:
This contains the dispense drug information associated with the order.
53.53,.01 DISPENSE DRUG 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 24, 1994
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
This is the dispense drug associated with the order at the time the pick list was run.
GROUP: PSJ
CROSS-REFERENCE: 53.53^B
1)= S ^PS(53.5,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(53.5,DA(3),1,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
Regular 'B' index of the DISPENSE DRUG sub-field.
CROSS-REFERENCE: 53.5^AC8^MUMPS
1)= D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,"S","AC")
2)= D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,"K","AC","PDD",X)
CROSS-REFERENCE: 53.5^AU8^MUMPS
1)= D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,"S","AU")
2)= D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,"K","AU")
53.53,.02 #DOSES NEEDED/ADMINISTRATION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JUL 09, 1993
HELP-PROMPT: Answer must be 1-10 characters in length.
DESCRIPTION:
This is the number of doses needed of the dispense drug for one administration.
53.53,.03 #DOSES ACTUALLY DISPENSED 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 27, 1993
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
DESCRIPTION: This is the number of doses actually dispensed to the cart. This is entered through the Enter
Units Dispensed option after the items on the pick list have been loaded on the cart.
53.53,.04 FILED AWAY FLAG 0;4 SET
'1' FOR DISPENSE DRUG DATA FILED AWAY;
LAST EDITED: DEC 16, 1993
DESCRIPTION:
This field is set when dispense drug data has been filed away.
FILES POINTED TO FIELDS
PHARMACY ORDERABLE ITEM (#50.7) ORDER:ORDERABLE ITEM (#.06)
PHARMACY PATIENT (#2) PATIENT:PATIENT (#.01)
PRIMARY DRUG (#50.3) ORDER:*PRIMARY DRUG (#.03)
WARD GROUP (#57.5) WARD GROUP (#.02)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):