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 | ICR | All

Print Page as PDF

Global: ^PS(57.5

Package: Inpatient Medications

Global: ^PS(57.5

Information

FileMan FileNo	FileMan Filename	Package
57.5	WARD GROUP	Inpatient Medications

Description

Allows the user to group the wards from the WARD LOCATION file (42) to facilitate the printing of reports and for other Unit Dose processes. Ward groups are required for the running of pick lists.

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 6

Pointer To FileMan Files, Total: 2

Fields, Total: 15

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45)!(X=+X) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `NOV 15, 1990` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is a generic name for a grouping of wards.` DELETE TEST: `.01,0)= I $D(^PS(53.5,"A",DA)) D WRDGP^PSJDDUT` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `57.5^B` `1)= S ^PS(57.5,"B",$E(X,1,30),DA)=""` `2)= K ^PS(57.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `57.5^ATNC^MUMPS` `1)= I '$D(PSGINITF) S ^PS(57.5,"ATNC")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")` `2)= Q` `3)= Needed by the Inpatient Medications init process.` `This is used by the Inpatient Medications init process. If the post-init process does not find this cross reference, it converts this file for use with the new pick list. (Routine used is PSGPOST.) S` `^PS(57.5,"ATNC")=VERSION NUMBER LAST INITS RUN`
1	WARD	1;0	POINTER Multiple #57.51	57.51 DESCRIPTION: `This is the wards that make up this ward group.` TECHNICAL DESCR: `This is the wards that make up this ward group. Wards are obtained from the WARD LOCATION file (#42).` GROUP: `PSJU`
2	PICK LIST DATA	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `NOV 23, 1990` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `This is sets of data pertaining to pick lists run for this ward group.` `The corresponding fields are:` `PIECES DATA TYPE` `---------- ---------------------------------------------` `1,6,11,16 - PICK LIST INTERNAL NUMBER (DA)` `2,7,12,17 - DATE PICK LIST WAS RUN` `3,8,13,18 - COVERAGE START DATE/TIME` `4,9,14,19 - COVERAGE STOP DATE/TIME` `5,10,15,20 - INTERNAL NUMBER OF USER WHO RAN THE PICK LIST` `Data from the last four (4) pick lists run are kept. When a new pick list is run, its data comes in from the left (first 5 pieces), and the oldest pick list's data (last 5 pieces) drop off the right.` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` GROUP: `PSJU` `UNEDITABLE`
3	TYPE	0;2	SET	**********************REQUIRED FIELD********************** 'M' FOR MAS; 'P' FOR PHARMACY; LAST EDITED: `MAY 06, 1987` DESCRIPTION: `Differentiates between MAS ward groups and PHARMACY ward groups. Only PHARMACY ward groups are selectable in the PICK LIST options and no two PHARMACY ward groups may contain the same ward (for dose counting and` `tracking purposes). MAS ward groups may be set up as desired, and are selectable (along with PHARMACY ward groups) in all other print options.` TECHNICAL DESCR: `This should never be made editable. It is only asked when the user first creates the ward group. MAS ward groups can be set up any way the users desire, but no two PHARMACY ward groups may contain the same ward.` `Making this editable could defeat that scheme, which would cause the cost reports to be useless.` `DELETE AUTHORITY: ^` GROUP: `PSJU` `UNEDITABLE` CROSS-REFERENCE: `57.5^AP^MUMPS` `1)= I $E(X)="P",$D(^PS(57.5,DA,0)) S ^PS(57.5,"AP",$P(^(0),"^"),DA)=""` `2)= I $D(^PS(57.5,DA,0)) K ^PS(57.5,"AP",$P(^(0),"^"),DA)` `3)= USED FOR LOOK-UP` `Used to facilitate the look-up of only those ward groups marked as PHARMACY types.`
4	LENGTH OF PICK LIST (in hours)	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 09, 1987` HELP-PROMPT: `Enter the number of hours a pick list for this ward group usually lasts.` DESCRIPTION: `If an entry is found here when a pick list is run for this ward group, the Unit Dose package will add the number of hours found to the start date to produce a DEFAULT stop date.` GROUP: `PSJU`
5.01	PICK LIST - ROOM/BED SORT	5;1	SET	'0' FOR ROOM-BED; '1' FOR BED-ROOM; LAST EDITED: `FEB 04, 1987` HELP-PROMPT: `Enter how you want the pick list to sort the room-bed.` DESCRIPTION: `The Pick List normally sorts patients' orders by ROOM-BED. To have the Pick List sort orders by BED-ROOM, enter a '1' here. Any change in this field will NOT affect Pick Lists already run. PLEASE NOTE that if the pick` `list is flagged to NOT sort by ROOM-BED, this flag will be ignored.` EXECUTABLE HELP: `D EN^DDIOL("Enter a '1' to have the pick lists sort orders by BED-ROOM.","","!")` GROUP: `PSJU`
5.02	PICK LIST - OMIT WARD SORT	5;2	SET	'0' FOR NO (SORT BY WARD); '1' FOR YES (DO NOT SORT BY WARD); LAST EDITED: `APR 10, 1990` HELP-PROMPT: `Answer 'YES' (or '1') to have the pick list NOT sort by ward.` DESCRIPTION: `The Pick List normally sorts orders by TEAM, WARD, ROOM-BED... To have the Pick List omit the WARD sort, answer 'YES' here, and the Pick List will sort by TEAM, ROOM-BED (and NOT by WARD). Any change here will NOT` `affect any Pick Lists that have already been run.` GROUP: `PSJU`
5.03	PICK LIST - OMIT ROOM-BED SORT	5;3	SET	'1' FOR YES (DO NOT SORT BY ROOM-BED); '0' FOR NO (SORT BY ROOM-BED); LAST EDITED: `APR 10, 1990` HELP-PROMPT: `Answer 'YES' to have the pick list NOT sort by room-bed.` DESCRIPTION: `The PICK LIST normally sorts orders by ...TEAM, WARD, ROOM-BED, PATIENT NAME... To have the pick list NOT sort by ROOM-BED at all, answer 'YES' here. Any change here will NOT affect pick lists that have already been` `run.` GROUP: `PSJU`
5.04	PICK LIST - FORM FEED/PATIENT	5;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 21, 1987` HELP-PROMPT: `Answer 'YES' to have the pick lists printed start a new page for each patient.` DESCRIPTION: `This is a flag that tells the package to start a new page for each patient found when printing the pick list.` GROUP: `PSJU`
5.05	PICK LIST - FORM FEED/WARD	5;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 26, 1988` HELP-PROMPT: `Answer 'YES' to have the pick list start a new page for each ward.` DESCRIPTION: `This is a flag that tells the pick list to start a new page for each ward found when printing. This flag is ignored if the "NEW PAGE PER PATIENT" flag is turned on.` GROUP: `PSJU`
5.06	PICK LIST - LINES ON FORM FEED	5;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 26, 1988` HELP-PROMPT: `Answer 'YES' to have the "FILLED BY" lines print after each ward or patient on the pick list.` DESCRIPTION: `This is a flag that tells the pick list to print the "FILLED BY" and the "CHECKED BY" lines after each ward or patient. This is used only if either of the "PICK LIST FORM FEED/PATIENT" or "PICK LIST FORM FEED/WARD" site` `parameters is turned on.` GROUP: `PSJU`
5.07	PRINT NON-ACTIVE ORDERS FIRST	5;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 28, 1992` HELP-PROMPT: `Answer 'YES' to have expired and dc'd orders 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'd 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.` GROUP: `PSJU`
30	*BAXTER ATC DEVICE	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X I $D(X) D ENDLP^PSJDDUT2` LAST EDITED: `APR 13, 1998` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the device corresponding to the Baxter ATC dispensing machine for which all pick lists run for this ward group will be sent.` GROUP: `PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
31	USE OLD ATC INTERFACE	3;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 06, 1991` HELP-PROMPT: `Enter 'YES' to have the ATC interface use the old method.` DESCRIPTION: `Beginning in version 3.2 of the Inpatient Medications package, an attempt has been made to increase the speed of the ATC/Unit Dose interface. This new interface may not work for all sites. If your site is one of those,` `answer 'YES' to have the interface use the old method.` GROUP: `PSJU`
32	ATC DEVICE POINTER	3;3	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `JUN 01, 2000` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the device corresponding to the ATC dispensing machine for which all pick lists run for this ward group will be sent.`

ICR, Total: 2

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