Global: ^PS(59.4

FileMan FileNo	FileMan Filename	Package
59.4	INPATIENT SITE	Auto Replenishment Ward Stock

Package	Total	Routines
Auto Replenishment Ward Stock	7	PSGWAR1 PSGWCAD2 PSGWRA PSGWSET PSGWUAS ^PS(59.4 PSGWRAC
Drug Accountability	7	PSADA PSADAI PSAENT PSALOC PSALOCO PSARWS PSAUTL1
Inpatient Medications	5	PSGRPNT PSJDDUT2 PSJPRE43 PSJPRE44 PSJPRE4P
Controlled Substances	3	PSDEN PSDSET PSDTRVR

Package	Total	Routines
Drug Accountability	3	PSADA PSAENT PSALOCO
Inpatient Medications	3	PSGSSP PSJPRE42 PSJPRE43
Controlled Substances	2	PSDNMU PSDSITE
Auto Replenishment Ward Stock	1	PSGWSET

Package	Total	FileMan Files
Auto Replenishment Ward Stock	1	AR/WS STATS FILE(#58.5)[#58.501(.01)]
Drug Accountability	1	DRUG ACCOUNTABILITY STATS(#58.8)[2]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[20.4]

Package	Total	FileMan Files
Kernel	1	INSTITUTION(#4)[1]

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `SEP 20, 1989` HELP-PROMPT: `Name must be 3-30 characters, not starting with punctuation.` DESCRIPTION: `This contains the name of the Inpatient Site. A VAMC may have more than one inpatient site name, i.e. for multi-divisional sites or nursing homes. A second site name would be used, for example, whenever different` parameters are required. DELETE TEST: `1,0)= D ^PSGRPNT` GROUP: `PS` CROSS-REFERENCE: `59.4^B` 1)= S ^PS(59.4,"B",$E(X,1,30),DA)="" 2)= K ^PS(59.4,"B",$E(X,1,30),DA) CROSS-REFERENCE: `59.4^AUPLK^MUMPS` 1)= I '$D(PSGINITF) S ^PS(59.4,"AUPLK")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"") 2)= Q Sets Inpatient Pharmacy System data cross-ref. CROSS-REFERENCE: `59.4^APLFC^MUMPS` 1)= S ^PS(59.4,"APLFC")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"") 2)= Q Sets Inpatient Pharmacy System data cross-ref.
1	*RELATED INSTITUTION	0;2	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) DESCRIPTION: (Not currently used.) GROUP: `PSJU`
2	*DAYS UNTIL STOP DATE/TIME	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1985` HELP-PROMPT: `Enter the number (1-100) of days that an order will last.` DESCRIPTION: `This is the number of days a standard order should last. The first order entered for a patient uses this number to calculate a default value for the order's STOP DATE/TIME. This number is also used if SAME STOP DATE` has no entry, or an entry of "NO". GROUP: `PSJU`
3	*SAME STOP DATE ON ALL ORDERS	0;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 18, 1985` HELP-PROMPT: `Answer 'YES' (or '1') if all of a patient's orders are to stop on the same date/time.` DESCRIPTION: This is a flag, if found to be YES, uses the STOP DATE/TIME from the patient's first order as a default value for the STOP DATE/TIME of all of the patient's following orders. GROUP: `PSJU`
7	*TIME OF DAY THAT ORDERS STOP	0;7	NUMBER	INPUT TRANSFORM: `K:X'?4N!(X>2400)!(X<1)!(X#100>59) X` LAST EDITED: `NOV 30, 1986` HELP-PROMPT: `Enter the time of day that orders stop at this site (military time).` DESCRIPTION: This is a time of day that, if found, will be used in calculating the default value for the STOP DATE/TIME of patients' orders. EXECUTABLE HELP: `W !!,"ENTER A NUMBER BETWEEN 0001 AND 2400. THE ZEROS ARE NEEDED."` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	*START TIME FOR 24 HOUR MAR	0;8	NUMBER	INPUT TRANSFORM: `K:X>2400!(X<1)!(X'?4N)!(X#100>59) X` LAST EDITED: `SEP 06, 1985` HELP-PROMPT: `Enter the time if day (0001-2400) that the 24 MAR is to start.` DESCRIPTION: `This is the start time for the 24 hour MAR. It is used whenever a user enters a start date without a time when running the 24 hour MAR. This time should be in military time format, with leading and trailing zeros.` (Entering '0001' would be seen as 1 minute after midnight.) EXECUTABLE HELP: `W !,"PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS."` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `59.4^AC^MUMPS` 1)= S Y=X-1 S:'Y Y=2400 S Y=$E("000",1,4-$L(Y))_Y S:$E(Y,3)=9 Y=$E(Y,1,2)_"59" S $P(^PS(59.4,DA,0),"^",9)=Y 2)= S $P(^PS(59.4,DA,0),"^",9)="" Sets Start Time for 24 hr MAR cross-ref.
9	*STOP TIME FOR MAR	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2400)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 06, 1985` HELP-PROMPT: `Type a whole number between 0001 and 2400.` DESCRIPTION: This is the stop time for the 24 hour MAR. It is automatically calculated when the START TIME FOR MAR is entered. EXECUTABLE HELP: `W !,"THIS FIELD IS NOT TO CHANGED!!"` WRITE AUTHORITY: ^ GROUP: `PSJU`
10	*LABELS	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 25, 1985` HELP-PROMPT: `Answer 'YES' (or '1') here to have labels printed at the various Unit Dose options.` DESCRIPTION: This is the flag for all label activity. If this is a `1' (or `YES'), the other site parameters pertaining to labels are asked and labels (containing order data) are created. If you answer `0' or `NO', the other label site parameters are reset to NULL. GROUP: `PSJU` CROSS-REFERENCE: `^^TRIGGER^59.4^11` 1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR 2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR CREATE CONDITION)= IF LABELS NOT `ON' CREATE VALUE)= @ DELETE VALUE)= @ FIELD)= DAYS UNTIL LABELS ARE PURGED Triggers data into field 11. CROSS-REFERENCE: `^^TRIGGER^59.4^12` 1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR 2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR CREATE CONDITION)= IF LABELS NOT `ON' CREATE VALUE)= @ DELETE VALUE)= @ FIELD)= FIRST LABEL Triggers data into field 12.
11	*DAYS NEW LABELS LAST	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 25, 1986` HELP-PROMPT: `Enter a whole number between 0 and 25.` DESCRIPTION: `The Unit Dose package will run a background job once a day that will delete all unprinted new labels older than the number of days specified here. If no days are specified here, any unprinted new labels for this site` will be purged at the end of the day. *PLEASE NOTE - A label can still be printed for an order even though its new label record has been purged. EXECUTABLE HELP: `W !,"ANY NEW LABELS OLDER THAN THE NUMBER OF DAYS SPECIFIED HERE WILL AUTOMATICALLY BE PURGED."` GROUP: `PSJU` NOTES: `TRIGGERED by the LABELS field of the INPATIENT SITE File`
12	*FIRST LABEL FOR NURSING	0;12	SET	'0' FOR NOT UNTIL NURSE VERIFICATION; '1' FOR BOTH INSTANCES; '2' FOR AT ORDER ENTRY; LAST EDITED: `APR 07, 1986` DESCRIPTION: This is a flag that will `tell' the UNIT DOSE package when to print the first label for an order input by nursing or ward staff personnel. If a `2' is found, a label will print upon the entry or edit of an order and not print when a nurse verifies the order. If a `0' (or no entry) is found, no label will be printed for an order until a nurse verifies the order. If a `1' is found, a label will print upon any action taken on an order. This flag is independent from the FIRST LABEL FOR PHARMACY. GROUP: `PSJU` NOTES: `TRIGGERED by the *LABELS field of the INPATIENT SITE File`
13	*CANCEL ON WARD TRANSFER	0;13	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 20, 1986` DESCRIPTION: This is a flag that is looked at on patient look-up. If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another ward. GROUP: `PSJU`
14	*CANCEL ON SERVICE TRANSFER	0;14	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 20, 1986` DESCRIPTION: This is a flag that is looked at on patient look-up. If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another service. GROUP: `PSJU`
15	*AUTO NURSE VERIFY	0;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 05, 1986` DESCRIPTION: `If a '1' (for YES) is found here when a nurse enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the nurse will then have an opportunity to delete or edit the order` immediately after it is entered. GROUP: `PSJU`
16	*AUTO PHARMACIST VERIFY	0;17	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 05, 1986` DESCRIPTION: `If a '1' (for YES) is found here when a pharmacist enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the pharmacist will then have an opportunity to delete or edit the order` immediately after it is entered. GROUP: `PSJU`
17	*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: `W !,"Enter a '1' to have the pick lists sort orders by BED-ROOM."` GROUP: `PSJU`
18	*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`
19	*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`
20	*FIRST LABEL FOR PHARMACY	0;16	SET	'0' FOR NOT UNTIL PHARMACY VERIFICATION; '2' FOR AT ORDER ENTRY ONLY; '1' FOR BOTH INSTANCES; LAST EDITED: `APR 21, 1987` DESCRIPTION: This is a flag that `tells' the Unit Dose package when to print the first label of orders that are input, or worked on, by pharmacists. If a 0 (or no entry) is found here, no label will be printed until the order is verified by a pharmacist. If a 2 is found, a label will print only upon the entry of the order (by a pharmacist). If a 1 is found, the label will print at order entry and verification. This flag is independent from the FIRST LABEL FOR NURSING. GROUP: `PSJU`
21	*ORDER ENTRY PROCESS	0;21	SET	'0' FOR REGULAR; '1' FOR ABBREVIATED; '2' FOR WARD; LAST EDITED: `MAR 11, 1991` HELP-PROMPT: `Enter the type of Unit Dose order entry to be used by this site.` DESCRIPTION: `This is the type of order entry process to be used by each user who signs onto the Inpatient Medications package under this site. The REGULAR order entry is the full set of prompts for the entry of an order, after which` the user is shown a full view of the order and allowed to take immediate action on the order. The ABBREVIATED order entry gives the user fewer prompts for the entry of an order, after which the user is shown a full view of the order and is allowed to take immediate action on the order. The WARD order entry gives the user the same prompts as the ABBREVIATED order entry, but then gives a brief view of the entered order and does not allow immediate action to be taken on the order. No entry here is the same as selecting REGULAR order entry. GROUP: `PSJU`
22	*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`
23	*DEFAULT LABEL PRINTER	0;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET` LAST EDITED: `AUG 14, 1987` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: If a device is entered here, all users who sign on under the corresponding site will be shown that device as the default at the LABEL PRINTER prompt. EXECUTABLE HELP: `K %IS S IOP="?" D ^%ZIS K IOP` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
24	*'SELF MED' IN ORDER ENTRY	0;24	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 21, 1987` HELP-PROMPT: `Answer 'YES' to have the prompts for patient self-medication included in the order entry process.` DESCRIPTION: If `YES' (or a 1) is entered here, the regular order entry process will prompt the user for SELF MED and HOSPITAL SUPPLIED SELF MED for each order entered. The abbreviated processes and ward order entry and order sets are not affected in any way by this site parameter. GROUP: `PSJU`
25	*PRE-EXCHANGE ENVELOPES	0;27	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 25, 1988` HELP-PROMPT: `Answer 'YES' to have the package print the Pre-Exchange information using the envelope format instead of the regular report format.` DESCRIPTION: `This is a flag that tells the package that the pharmacy is using special envelopes for their pre-exchange needs report, and will print the pre-exchange needs information accordingly. PLEASE NOTE that the package expects` the envelopes to be at least 4 inches long and at least 8 1/2 inches wide. GROUP: `PSJU`
26	*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`
27	*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`
28	*ALLOWABLE CLERK/TECH ACTIONS	0;28	SET	'0' FOR 'MARK' ACTIVE ORDERS ONLY; '1' FOR TAKE ACTION ON ACTIVE ORDERS; LAST EDITED: `MAY 05, 1989` HELP-PROMPT: `Select the extent of actions a ward clerk (or Pharmacy technician) may take on active orders.` DESCRIPTION: This is to allow ward clerks to actually take the actions necessary on Unit Dose Medication orders (all except verify), instead of just marking the order. GROUP: `PSJU`
29	*INPATIENT PROFILE ORDER SORT	0;29	SET	'0' FOR MEDICATION NAME; '1' FOR START DATE OF ORDER; LAST EDITED: `JUL 11, 1989` HELP-PROMPT: `Enter how the Inpatient profile is to sort and show orders.` DESCRIPTION: `This is the sort order in which the Inpatient Profile will show inpatient orders. Enter 'MEDICATION NAME' (or '0') to show the orders alphabetically by drug name. Enter 'START DATE OF ORDER' (or '1') to show the orders` chronologically by start date, with the most recent dates showing first. PLEASE NOTE - The profile will always first show orders by status (active, non-verified, and then non-active), and within status, schedule type (continuous, one-time, and then PRN). GROUP: `PSJ`
30	*PRINT PROFILE IN ORDER ENTRY	0;30	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 09, 1990` HELP-PROMPT: `ANSWER 'YES' TO GIVE USERS THE OPPORTUNITY TO PRINT A PROFILE AFTER ENTERING ORDERS FOR A PATIENT.` DESCRIPTION: This is a flag used to determine if the user should be prompted to print a patient's order profile after entering Inpatient orders for the patient. GROUP: `PSJ`
31	IS SITE SELECTABLE FOR CS?	0;31	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 23, 1992` HELP-PROMPT: `Enter 1 for "YES" or 0 for "NO"` DESCRIPTION: `Should this site name be shown for use by the Controlled Substances module of the Pharmacy software? If you answer "YES", the software will display or allow you to pick this site name for Controlled Substances. If you` answer "NO", the software will screen out the site name so that CS users will not see or be able to select the site name while in the CS package. TECHNICAL DESCR: Flag for use in the Controlled Substances package. GROUP: `PSD`

Field #

Name

Loc

Type

Details

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: SEP 20, 1989
HELP-PROMPT: Name must be 3-30 characters, not starting with punctuation.
DESCRIPTION: This contains the name of the Inpatient Site. A VAMC may have more than one inpatient site name, i.e. for multi-divisional sites or nursing homes. A second site name would be used, for example, whenever different
```
parameters are required.
```
DELETE TEST: 1,0)= D ^PSGRPNT
GROUP: PS

CROSS-REFERENCE: 59.4^B

1)= S ^PS(59.4,"B",$E(X,1,30),DA)=""

2)= K ^PS(59.4,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 59.4^AUPLK^MUMPS

1)= I '$D(PSGINITF) S ^PS(59.4,"AUPLK")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")

2)= Q

Sets Inpatient Pharmacy System data cross-ref.

CROSS-REFERENCE: 59.4^APLFC^MUMPS

1)= S ^PS(59.4,"APLFC")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")

2)= Q

Sets Inpatient Pharmacy System data cross-ref.

1

*RELATED INSTITUTION

0;2

POINTER TO INSTITUTION FILE (#4)

INSTITUTION(#4)

DESCRIPTION:
```
(Not currently used.)
```
GROUP: PSJU

2

*DAYS UNTIL STOP DATE/TIME

0;3

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 18, 1985
HELP-PROMPT: Enter the number (1-100) of days that an order will last.
DESCRIPTION: This is the number of days a standard order should last. The first order entered for a patient uses this number to calculate a default value for the order's STOP DATE/TIME. This number is also used if SAME STOP DATE
```
has no entry, or an entry of "NO".
```
GROUP: PSJU

3

*SAME STOP DATE ON ALL ORDERS

0;4

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUN 18, 1985
HELP-PROMPT: Answer 'YES' (or '1') if all of a patient's orders are to stop on the same date/time.

DESCRIPTION:

This is a flag, if found to be YES, uses the STOP DATE/TIME from the patient's first order as a default value for the STOP DATE/TIME of all of the patient's following orders.

GROUP: PSJU

7

*TIME OF DAY THAT ORDERS STOP

0;7

NUMBER

INPUT TRANSFORM: K:X'?4N!(X>2400)!(X<1)!(X#100>59) X
LAST EDITED: NOV 30, 1986
HELP-PROMPT: Enter the time of day that orders stop at this site (military time).

DESCRIPTION:

This is a time of day that, if found, will be used in calculating the default value for the STOP DATE/TIME of patients' orders.

EXECUTABLE HELP: W !!,"ENTER A NUMBER BETWEEN 0001 AND 2400. THE ZEROS ARE NEEDED."
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

8

*START TIME FOR 24 HOUR MAR

0;8

NUMBER

INPUT TRANSFORM: K:X>2400!(X<1)!(X'?4N)!(X#100>59) X
LAST EDITED: SEP 06, 1985
HELP-PROMPT: Enter the time if day (0001-2400) that the 24 MAR is to start.
DESCRIPTION: This is the start time for the 24 hour MAR. It is used whenever a user enters a start date without a time when running the 24 hour MAR. This time should be in military time format, with leading and trailing zeros.
```
(Entering '0001' would be seen as 1 minute after midnight.)
```
EXECUTABLE HELP: W !,"PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS."
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 59.4^AC^MUMPS

1)= S Y=X-1 S:'Y Y=2400 S Y=$E("000",1,4-$L(Y))_Y S:$E(Y,3)=9 Y=$E(Y,1,2)_"59" S $P(^PS(59.4,DA,0),"^",9)=Y

2)= S $P(^PS(59.4,DA,0),"^",9)=""

Sets Start Time for 24 hr MAR cross-ref.

9

*STOP TIME FOR MAR

0;9

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>2400)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 06, 1985
HELP-PROMPT: Type a whole number between 0001 and 2400.

DESCRIPTION:

This is the stop time for the 24 hour MAR.  It is automatically calculated when the START TIME FOR MAR is entered.

EXECUTABLE HELP: W !,"THIS FIELD IS NOT TO CHANGED!!"
```
WRITE AUTHORITY:  ^
```
GROUP: PSJU

10

*LABELS

0;10

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: SEP 25, 1985
HELP-PROMPT: Answer 'YES' (or '1') here to have labels printed at the various Unit Dose options.
DESCRIPTION: This is the flag for all label activity. If this is a `1' (or `YES'), the other site parameters pertaining to labels are asked and labels (containing order data) are created. If you answer `0' or `NO', the other label
```
site parameters are reset to NULL.
```
GROUP: PSJU

CROSS-REFERENCE: ^^TRIGGER^59.4^11

1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR

2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",11),1:""),$P(^(0),"^",11)="" I $O(^DD(59.4,11,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=11 D ^DICR

CREATE CONDITION)= IF LABELS NOT `ON'

CREATE VALUE)= @

DELETE VALUE)= @

FIELD)= DAYS UNTIL LABELS ARE PURGED

Triggers data into field 11.

CROSS-REFERENCE: ^^TRIGGER^59.4^12

1)= I 'X S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR

2)= S DIU=$S($D(^PS(59.4,DA,0)):$P(^(0),"^",12),1:""),$P(^(0),"^",12)="" I $O(^DD(59.4,12,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=59.4,DIG=12 D ^DICR

CREATE CONDITION)= IF LABELS NOT `ON'

CREATE VALUE)= @

DELETE VALUE)= @

FIELD)= FIRST LABEL

Triggers data into field 12.

11

*DAYS NEW LABELS LAST

0;11

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 25, 1986
HELP-PROMPT: Enter a whole number between 0 and 25.
DESCRIPTION: The Unit Dose package will run a background job once a day that will delete all unprinted new labels older than the number of days specified here. If no days are specified here, any unprinted new labels for this site
```
will be purged at the end of the day.
```
```
**PLEASE NOTE - A label can still be printed for an order even though its new label record has been purged.
```
EXECUTABLE HELP: W !,"ANY NEW LABELS OLDER THAN THE NUMBER OF DAYS SPECIFIED HERE WILL AUTOMATICALLY BE PURGED."
GROUP: PSJU
NOTES: TRIGGERED by the *LABELS field of the INPATIENT SITE File

12

*FIRST LABEL FOR NURSING

0;12

SET

'0' FOR NOT UNTIL NURSE VERIFICATION;
'1' FOR BOTH INSTANCES;
'2' FOR AT ORDER ENTRY;

LAST EDITED: APR 07, 1986

DESCRIPTION: This is a flag that will `tell' the UNIT DOSE package when to print the first label for an order input by nursing or ward staff personnel. If a `2' is found, a label will print upon the entry or edit of an order and not

print when a nurse verifies the order.  If a `0' (or no entry) is found, no label will be printed for an order until a nurse verifies the order.  If a `1' is found, a label will print upon any action taken on an order.

This flag is independent from the FIRST LABEL FOR PHARMACY.

GROUP: PSJU
NOTES: TRIGGERED by the *LABELS field of the INPATIENT SITE File

13

*CANCEL ON WARD TRANSFER

0;13

SET

'0' FOR NO;
'1' FOR YES;

LAST EDITED: MAR 20, 1986

DESCRIPTION:

This is a flag that is looked at on patient look-up.  If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another ward.

GROUP: PSJU

14

*CANCEL ON SERVICE TRANSFER

0;14

SET

'0' FOR NO;
'1' FOR YES;

LAST EDITED: MAR 20, 1986

DESCRIPTION:

This is a flag that is looked at on patient look-up.  If a `1' is found, all of a patient orders will be cancelled if that patient has been transferred to another service.

GROUP: PSJU

15

*AUTO NURSE VERIFY

0;15

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUL 05, 1986
DESCRIPTION: If a '1' (for YES) is found here when a nurse enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the nurse will then have an opportunity to delete or edit the order
```
immediately after it is entered.
```
GROUP: PSJU

16

*AUTO PHARMACIST VERIFY

0;17

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: JUL 05, 1986
DESCRIPTION: If a '1' (for YES) is found here when a pharmacist enters an order, the order is automatically entered as ACTIVE. Unless ward order entry is used, the pharmacist will then have an opportunity to delete or edit the order
```
immediately after it is entered.
```
GROUP: PSJU

17

*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: W !,"Enter a '1' to have the pick lists sort orders by BED-ROOM."
GROUP: PSJU

18

*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

19

*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

20

*FIRST LABEL FOR PHARMACY

0;16

SET

'0' FOR NOT UNTIL PHARMACY VERIFICATION;
'2' FOR AT ORDER ENTRY ONLY;
'1' FOR BOTH INSTANCES;

LAST EDITED: APR 21, 1987

DESCRIPTION: This is a flag that `tells' the Unit Dose package when to print the first label of orders that are input, or worked on, by pharmacists. If a 0 (or no entry) is found here, no label will be printed until the order is

verified by a pharmacist.  If a 2 is found, a label will print only upon the entry of the order (by a pharmacist).  If a 1 is found, the label will print at order entry and verification.  This flag is independent from the

FIRST LABEL FOR NURSING.

GROUP: PSJU

21

*ORDER ENTRY PROCESS

0;21

SET

'0' FOR REGULAR;
'1' FOR ABBREVIATED;
'2' FOR WARD;

LAST EDITED: MAR 11, 1991
HELP-PROMPT: Enter the type of Unit Dose order entry to be used by this site.

DESCRIPTION: This is the type of order entry process to be used by each user who signs onto the Inpatient Medications package under this site. The REGULAR order entry is the full set of prompts for the entry of an order, after which

the user is shown a full view of the order and allowed to take immediate action on the order. The ABBREVIATED order entry gives the user fewer prompts for the entry of an order, after which the user is shown a full view of

the order and is allowed to take immediate action on the order.  The WARD order entry gives the user the same prompts as the ABBREVIATED order entry, but then gives a brief view of the entered order and does not allow

immediate action to be taken on the order.  No entry here is the same as selecting REGULAR order entry.

GROUP: PSJU

22

*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

23

*DEFAULT LABEL PRINTER

0;23

FREE TEXT

INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X I $D(X),X]"" D ENDLP^PSGSET
LAST EDITED: AUG 14, 1987
HELP-PROMPT: Answer must be 1-20 characters in length.

DESCRIPTION:

If a device is entered here, all users who sign on under the corresponding site will be shown that device as the default at the LABEL PRINTER prompt.

EXECUTABLE HELP: K %IS S IOP="?" D ^%ZIS K IOP
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

24

*'SELF MED' IN ORDER ENTRY

0;24

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: AUG 21, 1987
HELP-PROMPT: Answer 'YES' to have the prompts for patient self-medication included in the order entry process.
DESCRIPTION: If `YES' (or a 1) is entered here, the regular order entry process will prompt the user for SELF MED and HOSPITAL SUPPLIED SELF MED for each order entered. The abbreviated processes and ward order entry and order sets
```
are not affected in any way by this site parameter.
```
GROUP: PSJU

25

*PRE-EXCHANGE ENVELOPES

0;27

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: MAY 25, 1988
HELP-PROMPT: Answer 'YES' to have the package print the Pre-Exchange information using the envelope format instead of the regular report format.
DESCRIPTION: This is a flag that tells the package that the pharmacy is using special envelopes for their pre-exchange needs report, and will print the pre-exchange needs information accordingly. PLEASE NOTE that the package expects
```
the envelopes to be at least 4 inches long and at least 8 1/2 inches wide.
```
GROUP: PSJU

26

*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

27

*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

28

*ALLOWABLE CLERK/TECH ACTIONS

0;28

SET

'0' FOR 'MARK' ACTIVE ORDERS ONLY;
'1' FOR TAKE ACTION ON ACTIVE ORDERS;

LAST EDITED: MAY 05, 1989
HELP-PROMPT: Select the extent of actions a ward clerk (or Pharmacy technician) may take on active orders.

DESCRIPTION:

This is to allow ward clerks to actually take the actions necessary on Unit Dose Medication orders (all except verify), instead of just marking the order.

GROUP: PSJU

29

*INPATIENT PROFILE ORDER SORT

0;29

SET

'0' FOR MEDICATION NAME;
'1' FOR START DATE OF ORDER;

LAST EDITED: JUL 11, 1989
HELP-PROMPT: Enter how the Inpatient profile is to sort and show orders.

DESCRIPTION: This is the sort order in which the Inpatient Profile will show inpatient orders. Enter 'MEDICATION NAME' (or '0') to show the orders alphabetically by drug name. Enter 'START DATE OF ORDER' (or '1') to show the orders

chronologically by start date, with the most recent dates showing first.

PLEASE NOTE - The profile will always first show orders by status (active, non-verified, and then non-active), and within status, schedule type (continuous, one-time, and then PRN).

GROUP: PSJ

30

*PRINT PROFILE IN ORDER ENTRY

0;30

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: SEP 09, 1990
HELP-PROMPT: ANSWER 'YES' TO GIVE USERS THE OPPORTUNITY TO PRINT A PROFILE AFTER ENTERING ORDERS FOR A PATIENT.

DESCRIPTION:

This is a flag used to determine if the user should be prompted to print a patient's order profile after entering Inpatient orders for the patient.

GROUP: PSJ

31

IS SITE SELECTABLE FOR CS?

0;31

SET

'1' FOR YES;
'0' FOR NO;

LAST EDITED: MAR 23, 1992
HELP-PROMPT: Enter 1 for "YES" or 0 for "NO"
DESCRIPTION: Should this site name be shown for use by the Controlled Substances module of the Pharmacy software? If you answer "YES", the software will display or allow you to pick this site name for Controlled Substances. If you
```
answer "NO", the software will screen out the site name so that CS users will not see or be able to select the site name while in the CS package.
```

TECHNICAL DESCR:

Flag for use in the Controlled Substances package.

GROUP: PSD

Name	Line Occurrences (* Changed, ! Killed)
^DD(59.4	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^PS(59.4 - [#59.4]	.01(XREF 1S), .01(XREF 1K), .01(XREF 6S), .01(XREF 7S), 8(XREF 1S), 8(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^PS(59.7 - [#59.7]	.01(XREF 6S), .01(XREF 7S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	23(HELP )
>> D0	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> DA	.01(XREF 1S), .01(XREF 1K), 8(XREF 1S), 8(XREF 1K), 10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> DIG	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> DIH	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
>> DIU	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
DIV	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
DIV(0	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
IOP	23(HELP )
>> PSGINITF	.01(XREF 6S)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 7+1!, 8+1!, 8(XREF 1S), 9+1!, 10(XREF 1S), 10(XREF 2S) , 11+1!, 23+1!
>> Y	8(XREF 1S)

Customize PDF page

Package: Auto Replenishment Ward Stock

Global: ^PS(59.4

Information

Description

Directly Accessed By Routines, Total: 22

Accessed By FileMan Db Calls, Total: 9

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 1

Fields, Total: 29

Found Entries, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%ZIS	23(HELP )
^DICR	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^PSGRPNT	.01DEL1+1
ENDLP^PSGSET	23+1

Name	Field # of Occurrence
^(0	10(XREF 1S), 10(XREF 1K), 10(XREF 2S), 10(XREF 2K)
^(20	.01(XREF 6S), .01(XREF 7S)