Global: ^PS(59.5

FileMan FileNo	FileMan Filename	Package
59.5	IV ROOM	Inpatient Medications

Package	Total	Routines
Inpatient Medications	38	DELIVERY TIME PSIVAMIS PSIVAOR1 PSIVARH PSIVARH1 PSIVCAL PSIVDCR1 PSIVDCR2 PSIVEDT1 PSIVHYPL PSIVHYPR PSIVLABL PSIVLABR PSIVLTR1 PSIVMAN1 PSIVORE1 PSIVORE2 PSIVORFA PSIVORFB PSIVORLB PSIVPCR1 PSIVRP PSIVRQ PSIVSET PSIVSTAT PSIVWCR PSIVWL1 PSIVWRP PSJ59P5 PSJCLOR4 PSJDDUT2 PSJGMRA PSJI SITE PARAMETERS PSJIDE PSJIEDT START OF COVERAGE ^PS(59.5 ^PS(59.6
DSS Extracts	1	ECXDIVIV
Drug Accountability	1	PSAENTO

Package	Total	Routines
Inpatient Medications	2	PSIVSET PSJ59P5
Drug Accountability	1	PSAENTO

Package	Total	FileMan Files
Inpatient Medications	2	IV STATS(#50.8)[.01] NON-VERIFIED ORDERS(#53.1)[62]
Drug Accountability	1	DRUG ACCOUNTABILITY STATS(#58.8)[#58.831(.01)]
Pharmacy Data Management	1	PHARMACY PATIENT(#55)[#55.01(.22)]

Package	Total	FileMan Files
Registration	1	MEDICAL CENTER DIVISION(#40.8)[.02]

Fields, Total: 33

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)<1)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `JUL 30, 1986` HELP-PROMPT: `Answer must be 1-30 characters in length, identifying an IV distribution area. Each satellite (area) must be named separately.` DESCRIPTION: `Each IV order belongs to the IV room that input the order. An IV room may process ONLY those orders that belong to that IV room.` DELETE TEST: `1,0)= I 1 D EN^DDIOL("IV ROOMS CANNOT BE DELETED!!","","$C(7),!")` GROUP: `PSJI` CROSS-REFERENCE: `59.5^B` `1)= S ^PS(59.5,"B",$E(X,1,30),DA)=""` `2)= K ^PS(59.5,"B",$E(X,1,30),DA)`
.02	DIVISION	0;4	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `MAR 19, 1996` HELP-PROMPT: `Enter the Medical Center Division where this IV Room is located.` DESCRIPTION: `This field contains the pointer to the MEDICAL CENTER DIVISION file (#40.8). The division should be the one where the IV Room is located.` TECHNICAL DESCR: `This field is populated by an option on the DSS menu. It is solely for use by the DSS software and has no impact on Pharmacy at this time.`
.101	LENGTH OF LABEL	1;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>66)!(X<12)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 02, 1986` HELP-PROMPT: `Type a whole number between 12 and 66.` DESCRIPTION: `The labels that you use may vary in height from 12 to 66 lines. Measure the height of your label and multiply that height by the number of lines per inch that your printer is configured for. NOTE: If all lines of print` `cannot fit within the length that` `is defined here, they will continue to the next label. EXAMPLE:` `The average piggyback label is 3 inches high. If you print` `6 lines per inch, you should enter an '18' as the answer to` `this parameter.` GROUP: `PSJI`
.102	USE SUSPENSE FUNCTIONS	1;2	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `FEB 12, 1986` DESCRIPTION: `If you want the 'SUSPEND LABELS' as a valid choice at the 'ACTION:' prompt after order entry, answer '1'. If you do not want any labels suspended after order entry, but rather have them printed, answer '0'.` GROUP: `PSJI`
.103	DOSE DUE LINE	1;3	SET	'0' FOR NO DOSE DUE LINE; '1' FOR IVPB'S ONLY; '2' FOR LVP'S ONLY; '3' FOR BOTH IVPB'S AND LVP'S; LAST EDITED: `FEB 12, 1986` DESCRIPTION: `This parameter affects the printing of the dose due line on the IV LABEL. If a '0' is entered, the time the dose is due will not be printed on the IV LABEL at all. The dose due line will be printed on: IVPB's only if you` `select '1', LVP's if you select '2', and both IVPB's and LVP's if you choose '3'. NOTE: LVP's include HYPERAL type orders.` GROUP: `PSJI`
.104	LVP'S GOOD FOR HOW MANY DAYS	1;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 2 Decimal Digits` DESCRIPTION: `This number is used when the stop date of a new order is computed. In other words, if Large Volume IV's are good for 14 days and a new order is input with a start date of today, the stop date will be 'T+14'.` GROUP: `PSJI`
.105	EXPIRE ALL ORDERS ON SAME DAY	1;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 13, 1984` DESCRIPTION: `Enter a '1' to stop all IV orders automatically on the same day. The day the orders are stopped will be the 'STOP DATE' of the FIRST ACTIVE IV order found in the file. The stop/date that is found will be shown as a` `default for the stop/date of the IV ORDER.` GROUP: `PSJI`
.106	*DC ORDERS ON WARD TRANSFER	1;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 28, 1984` DESCRIPTION: `This only affects orders of patients transferring BETWEEN WARDS, and NOT transferring BETWEEN SERVICES. Enter a '1' if you want this feature.` GROUP: `PSJI`
.107	HEADER LABEL	1;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 19, 1985` DESCRIPTION: `When set to "YES", an extra label is generated to record lot #'s and provide a record for new orders entered since the last printing of the active order list. This extra label, together with the active order list provides` `a paper backup system in the event that the computer system becomes "unavailable" to the user.` GROUP: `PSJI`
.108	ACTIVITY RULER	1;8	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 21, 1985` DESCRIPTION: `The 'ACTIVITY RULER' provides a visual representation of the relationship between coverage times, doses due and order start times. The intent is to provide the 'on-the-floor' user with a means of 'tracking' activity in` `the IV room and determining when to call for doses before the normal delivery.` GROUP: `PSJI`
.109	SHOW BED LOCATION ON LABEL	1;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAR 27, 1985` DESCRIPTION: `The patient's 'WARD LOCATION' is ALWAYS printed on the IV label. If the 'BED LOCATION' is available, and if it is desired to have this ADDITIONAL information on the IV label, respond with a 'Y' or a '1' at this 'IV ROOM'` `parameter prompt.` GROUP: `PSJI`
.11	*SHOW UNIT NEEDS	1;10	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 20, 1985` DESCRIPTION: `If this parameter is turned on, a visual 'time scale' will be shown. This time scale will show what the orders' unit needs will be for 14 24-hour periods. EXAMPLE:` `If an order was given with an infusion rate of 220 ml/hr and a total` `volume of 1000 ML, the unit needs would be: DAY : 1 2 3 4 5 6 7 8 9 10 11 12 13 14 UNIT : 5 5 5 6 5 5 6 5 5 5 6 5 5 6` GROUP: `PSJI`
.111	HYPERAL GOOD FOR HOW MANY DAYS	1;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 2 Decimal Digits` DESCRIPTION: `This number is used when the stop date of a new order is computed. In other words, if a hyperal order is good for 14 days and a new order is entered today, the default stop date will be 14 days from today.` GROUP: `PSJI`
.112	PB'S GOOD FOR HOW MANY DAYS	1;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 2 Decimal Digits` DESCRIPTION: `This number is used when the stop date of a new order is computed. In other words, if a piggyback order is good for 14 days and a new order is entered today, the default stop date will be 14 days from now.` GROUP: `PSJI`
2	START OF COVERAGE	2;0	Multiple #59.51	59.51 DESCRIPTION: `An 'IV ROOM' may have one or more 'MANUFACTURING QUEUES'. A queue will contain all IV orders of a SPECIFIED TYPE, that require distribution to the wards during a SPECIFIED TIME INTERVAL. EACH 'MANUFACTURING QUEUE' IS` `DEFINED FOR ONE TYPE AND ONE TYPE ONLY! Enter midnight as 2400.` GROUP: `PSJI` IDENTIFIED BY: `"WRITE": D EN^DDIOL(" "_$P(^(0),"^",2)_" covering from "_$P(^(0),"^",3))`
3	DELIVERY TIME	3;0	Multiple #59.52	59.52 DESCRIPTION: `These are the times which IV orders are to be prepared for delivery to the wards.` GROUP: `PSJI`
4	PIGGYBACK WARD LIST RUN FLAG	P;E1,250	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<10) X` LAST EDITED: `MAR 26, 1985` HELP-PROMPT: `Answer must be 10-250 characters in length.` DESCRIPTION: `This flag gets set when the ward list has been run.` GROUP: `PSJI`
5	ADMIXTURES WARD LIST RUN FLAG	A;E1,250	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<10) X` LAST EDITED: `MAR 26, 1985` HELP-PROMPT: `Answer must be 10-250 characters in length.` DESCRIPTION: `This flag gets set when the ward list has been run.` GROUP: `PSJI`
6	HYPERAL WARD LIST RUN FLAG	H;E1,250	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>250!($L(X)<10) X` LAST EDITED: `MAR 26, 1985` HELP-PROMPT: `Answer must be 10-250 characters in length.` DESCRIPTION: `This flag gets set when the ward list is run.` GROUP: `PSJI`
7	*FILLED/CHECKED BY LABEL LINE	1;11	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `MAY 19, 1986` DESCRIPTION: `To have the 'Filled by: ____ Checked by: ____" line printed on every label, answer 'YES' to this field.` GROUP: `PSJI`
8	TOTAL VOL. ON HYPERAL LABELS	1;12	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 21, 1985` DESCRIPTION: `To have the total volume of solutions and additives printed on all hyperal labels, answer 'YES' to this site parameter.` GROUP: `PSJI`
9	WIDTH OF LABEL	1;13	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 27, 1985` HELP-PROMPT: `Enter a number between 10 and 100 of maximum characters that may print on a single line of your labels.` DESCRIPTION: `Enter the maximum allowable width of your label in number of characters. If you do not enter data into this field, the system will use '30' as the default. If a line of print cannot fit within the width you define` `here, it will continue on the next line of the label.` GROUP: `PSJI`
10	STOP TIME FOR ORDER	1;14	NUMBER	INPUT TRANSFORM: `K:X>2400!($L(X)<4)!(X<1)!(X?.E1"."1N.N) X I $D(X) S PSIVX=X,PSIVY=$G(Y) S %DT="T",Y=DT_"."_X X ^DD("DD") S X=Y D ^%DT S X=PSIVX K:Y<0 X S Y=PSIVY K PSIVX,PSIVY` LAST EDITED: `JAN 28, 1986` HELP-PROMPT: `Type a whole number between 0001 and 2400.` DESCRIPTION: `Enter the TIME of the day that orders should end. For example if IV's are good for 14 days and an order's start date/time is MAY 01 1985@1200 and 2200 is entered at this prompt, then the default stop date/time will be` `MAY 14 1985@22:00.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	*DC ORDERS ON SERVICE TRANSFER	1;15	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `SEP 07, 1985` DESCRIPTION: `If you want all IV ORDERS to be dc'd automatically when a patient transfers between SERVICE, enter a '1' or 'YES'. If a '0' or 'NO' is entered in this site parameter, no orders will be automatically dc'd due to service` `transfer.` GROUP: `PSJI`
12	LINE FEEDS BETWEEN LABELS	1;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>6)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 1985` HELP-PROMPT: `Type a whole number between 0 and 6.` DESCRIPTION: `Type the number of line feeds between each IV label. Ex. If you type '1', there will be one line feed between each IV label. This parameter makes it possible to have a top and bottom margin on your IV LABELS.` GROUP: `PSJI`
13	LABEL DEVICE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X I $D(X),X]"" D ENDLP^PSJDDUT2 K:X="" X` LAST EDITED: `MAR 10, 2005` HELP-PROMPT: `Enter a device on which labels may be printed.` DESCRIPTION: `Enter the name of the device that will be used most frequently as the LABEL device for this IV ROOM. This field will be shown as the default for the 'Printer label device: ' prompt when signing into the IV PACKAGE.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14	REPORT DEVICE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X I $D(X),X]"" D ENDLP^PSJDDUT2 K:X="" X` LAST EDITED: `MAR 10, 2005` HELP-PROMPT: `Enter a device on which reports may be printed.` DESCRIPTION: `Enter the PROFILE device number or name that will be used most frequently by this IV ROOM. This field will be shown as the default for the 'Printer profile device: ' prompt when signing into the IV PACKAGE.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
15	END OF LABEL TEXT	4;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `MAY 19, 1986` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `Enter any END OF LABEL TEXT, separated by '^', that you wish to print at the bottom of every IV LABEL. For example:` `To have 'RETURN TO IV ROOM IN 24-HOURS'` `'FILLED BY: ____ CHECKED BY: ____' printed at the bottom of your IV LABELS, enter:` `'RETURN TO IV ROOM IN 24-HOURS^FILLED BY: ____ CHECKED BY: ____' in this field.` GROUP: `PSJI`
17	SYRN'S GOOD FOR HOW MANY DAYS	5;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 2 Decimal Digits` DESCRIPTION: `This field is used to determine the stop date for the Syringes order.` GROUP: `PSJI`
18	CHEMO'S GOOD FOR HOW MANY DAYS	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."3N.N) X` LAST EDITED: `MAR 12, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 2 Decimal Digits` DESCRIPTION: `This field is used to determined the stop date for the Chemo order.` GROUP: `PSJI`
19	INACTIVATION DATE	I;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 23, 1991` HELP-PROMPT: `Enter the date this IV Room will no longer be used.` DESCRIPTION: `This is used to place an IV Room out of service. An IV Room should NEVER be deleted as some IV orders may still be using it. Once the inactivation date entered is reached, the IV Room will no longer be selectable in IV` `order entry options.` TECHNICAL DESCR: `Used to place an IV Room out of service. Once the IV Room's inactivation date has been reached, it will no longer be selectable in the Inpatient Medications package.`
20	DAYS TO RETAIN IV STATS	1;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2000)!(X<100)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 28, 1992` HELP-PROMPT: `Type a Number between 100 and 2000, 0 Decimal Digits` DESCRIPTION: `This is used to allow the site to specify the number of days to keep data in the IV STATS file (50.8). Information may be retained in the IV STATS file for 100 to 2000 days.` TECHNICAL DESCR: `This is used to allow the site to specify the number of days to keep data in the IV STATS file (50.8). If no value is found for this field, the IV STATS data will be retained for 100 days.`
21	DC'D IV ORDERS HOURS FILTER	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1.N)!($$TURNOFF^PSIVARH(X)) X` LAST EDITED: `OCT 21, 2016` HELP-PROMPT: `Type a whole number between 0 and 9999. Entering a 0 will effectively turn off the report and remove any existing entries from the DC'D IV ORDERS tracking file` DESCRIPTION: `This field provides a filter for the D/C'd orders report. Discontinued IV orders older than the entered number of hours will not be included in the report.` `Entering a zero in this field will turn this feature off. DC'd or edited IV orders for this IV room will no longer be stored and previously stored orders will be removed.` TECHNICAL DESCR: `This parameter applies to the range for the records displayed in the PSJU VBW option.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1884	DSS - DECISION SUPPORT SYSTEM EXTRACTS Drug Accountability	NAME (.01). Access: Direct Global Read & w/Fileman DIVISION (.02). Access: Write w/Fileman INACTIVATION DATE (19). Access: Direct Global Read & w/Fileman
ICR #2499	Pharmacy Benefits Management	Division (.02). Access: Read w/Fileman LVP'S GOOD FOR HOW MANY DAYS (.104). Access: Read w/Fileman HYPERAL GOOD FOR HOW MANY DAYS (.111). Access: Read w/Fileman PB'S GOOD FOR HOW MANY DAYS (.112). Access: Read w/Fileman SYRN'S GOOD FOR HOW MANY DAYS (17). Access: Read w/Fileman CHEMO'S GOOD FOR HOW MANY DAYS (18). Access: Read w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	10+1
^PS(59.5 - [#59.5]	.01(XREF 1S), .01(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	10+1, 19+1
>> DA	.01(XREF 1S), .01(XREF 1K)
DT	10+1
PSIVX	10+1*!
PSIVY	10+1*!
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .101+1!, .104+1!, .111+1!, .112+1!, 4+1!, 5+1!, 6+1! , 9+1!, 10+1!, 12+1!, 13+1!, 14+1!, 15+1!, 17+1!, 18+1!, 19+1!, 20+1! , 21+1!
>> Y	10+1*, 19+1

Customize PDF page

Package: Inpatient Medications

Global: ^PS(59.5

Information

Description

Directly Accessed By Routines, Total: 40

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 4

Pointer To FileMan Files, Total: 1

Fields, Total: 33

ICR, Total: 2

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	10+1, 19+1
EN^DDIOL	.01DEL1+1
$$TURNOFF^PSIVARH	21+1
ENDLP^PSJDDUT2	13+1, 14+1