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

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^PS(53.5

Package: Inpatient Medications

Global: ^PS(53.5

Information

FileMan FileNo	FileMan Filename	Package
53.5	PICK LIST	Inpatient Medications

Description

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.

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 4

Fields, Total: 14

Field #	Name	Loc	Type	Details
.01	PICK LIST #	0;1	NUMBER	**********************REQUIRED FIELD********************** 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.`
.02	WARD GROUP	0;2	POINTER TO WARD GROUP FILE (#57.5)	**********************REQUIRED FIELD********************** WARD GROUP(#57.5) 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.`
.03	START DATE/TIME	0;3	DATE	**********************REQUIRED FIELD********************** 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.`
.04	STOP DATE/TIME	0;4	DATE	**********************REQUIRED FIELD********************** 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`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
.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.`
1	PATIENT	1;0	POINTER Multiple #53.51	53.51 LAST EDITED: `DEC 16, 1993` DESCRIPTION: `This multiple contains the patient specific data for each patient on the pick list.` GROUP: `psj`

Info | Desc | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All