Global: ^PS(59.4

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

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

Package	Total	FileMan Files
Auto Replenishment Ward Stock	2	PHARMACY AOU STOCK(#58.1)[4] 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	2	DEVICE(#3.5)[32] INSTITUTION(#4)[1]

Fields, Total: 35

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`
4	MERGE INV. SHEET AND PICK LIST	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 18, 1985` DESCRIPTION: `If 1 is entered, the Automatic Replenishment inventory sheet and pick list are merged - a separate pick list does not have to be printed. The inventory sheet contains the quantity dispensed column. The on hand values do` `not have to be input. The user only enters the actual quantity dispensed. If 0 is entered, the inventory sheet and pick list are not merged. The user prints the inventory sheet, enters on hand amounts, prints the pick` `list, and dispenses the items.` GROUP: `PSGW`
4.5	AR/WS AMIS FLAG	0;25	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 04, 1987` HELP-PROMPT: `Set this parameter ONLY after completing the "Prepare AMIS Data" options!` DESCRIPTION: `*WARNING* The setting of this parameter DIRECTLY AFFECTS THE ACCURACY of the AMIS report! This parameter should be set to "NO" until you have completed ALL of the "Prepare AMIS Data" options on` `the "Supervisor's Menu". Carefully examine the reports produced by the "Data for AMIS Stats - Print" option and the "Show AOU Status for AMIS" option. When you are sure that the data is accurate, then AND ONLY THEN, set` `this site parameter to "YES". Once the parameter is set to "YES", you should under NO CIRCUMSTANCES flip the setting back and forth. While this parameter is set to "NO", NO DATA is collected in the AR/WS Stats File -` `58.5 for AMIS statistics!` GROUP: `PSGW`
5	PRINT RETURN COLUMNS?	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 19, 1985` DESCRIPTION: `If 1, the return quantity column and the return reason column will appear on the inventory sheet in the Automatic Replenishment package. If 0, the return columns do not appear on the inventory sheet.` GROUP: `PSGW`
5.5	IS SITE SELECTABLE FOR AR/WS?	0;26	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 11, 1987` DESCRIPTION: `Should this inpatient site name be shown for use by AR/WS users? When users sign into the module to carry out AR/WS functions, should this site name be displayed? If you answer "yes", the software will display or allow` `you to pick this site name when you enter the module. If you answer "no", the software will "screen out" the site name so that AR/WS users will not see or be able to select the site name while in the AR/WS module.` GROUP: `PSGW`
5.6	PROMPT FOR BAR CODES?	0;27	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 12, 1990` HELP-PROMPT: `* NOTE * This field is not in use at this time. In a future version, if this field is answered 'Yes', users will be offered the opportunity to use bar code readers for On-Demands.` DESCRIPTION: `* NOTE * This field is not in use at this time, it is for a future version. This field will control whether or not users will be given the opportunity to use bar code readers to enter On-Demands.` GROUP: `PSGW`
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!!"` `DELETE AUTHORITY: ^` `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`
32	DEFAULT WS REQUESTS PRINTER	0;32	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `OCT 18, 2017` HELP-PROMPT: `Enter printer from DEVICE file (#3.5)` DESCRIPTION: `If a printer is entered into this field it will be the default pharmacy printer used to automatically print Ward Stock Requests. If the field is blank the Ward Stock Request will not automatically print.`

Customize PDF page

Package: Auto Replenishment Ward Stock

Global: ^PS(59.4

Information

Description

Accessed By FileMan Db Calls, Total: 7

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 2

Fields, Total: 35