Global: ^PS(59.6

FileMan FileNo	FileMan Filename	Package
59.6	INPATIENT WARD PARAMETERS	Inpatient Medications

Package	Total	Routines
Inpatient Medications	25	PSGBRJ PSGFILD0 PSGFILED PSGL0 PSGLW PSGMAR0 PSGMMAR5 PSGOE41 PSGOERI PSGP PSGPER1 PSIVCAL PSJ0095 PSJ010 PSJAC PSJADT0 PSJHL4 PSJHL4A PSJHL7 PSJMDIR PSJORP2 ^PS(59.6 PSJMPEND PSJORPOE PSJP
Pharmacy Data Management	1	PSSGSGUI

Package	Total	Routines
Inpatient Medications	3	PSGFILD0 PSGPEN PSJ0095
Pharmacy Data Management	1	PSSFIL

Package	Total	FileMan Files
Inpatient Medications	1	MAR LABELS(#53.41)[#53.4104(1)]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[20.6]

Package	Total	FileMan Files
Kernel	1	DEVICE(#3.5)[.19, .2, 4]
MailMan	1	MAIL GROUP(#3.8)[5]
Registration	1	WARD LOCATION(#42)[.01]

Fields, Total: 26

Field #	Name	Loc	Type	Details
.01	WARD	0;1	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) LAST EDITED: `APR 22, 1994` HELP-PROMPT: `Enter a ward for which you want to tailor the Inpatient Medication package.` DESCRIPTION: `This is a ward for which the site wants to tailor specific aspects of the Inpatient Medications package.` LAYGO TEST: `1,0)= S X(1)=$D(^PS(59.6,"B",$E(X,1,30))) S:X(1) X(2)=$P($G(^DIC(42,+X,0)),"^") S:$S(X(1):X(2)="",1:0) X(2)=X D:X(1) EN^DDIOL("But an entry for "_X(2)_" already exists!") I 'X(1)` GROUP: `PSJ` CROSS-REFERENCE: `59.6^B` `1)= S ^PS(59.6,"B",$E(X,1,30),DA)=""` `2)= K ^PS(59.6,"B",$E(X,1,30),DA)`
.03	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`
.04	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, that 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`
.05	DEFAULT START DATE CALCULATION	0;5	SET	'0' FOR USE CLOSEST ADMIN TIME AS DEFAULT; '1' FOR USE NEXT ADMIN TIME AS DEFAULT; '2' FOR USE NOW AS DEFAULT; LAST EDITED: `JAN 20, 1994` HELP-PROMPT: `Enter "0" to use the closest admin time, "1" to use the next admin time, or "2" to use "now" as the default start time for orders.` DESCRIPTION: `This field allows the ward to tell the package how the default start date for orders should be calculated. The default may use the next admin time, the closest admin time, or the current time (now) as the default start` `date for Unit Dose and IV orders.` GROUP: `PSJ`
.07	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 for this ward (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: `D EN^DDIOL("ENTER A NUMBER BETWEEN 0001 AND 2400. THE ZEROS ARE NEEDED.","","!!")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	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 of 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: `D EN^DDIOL("PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS.","","!")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `59.6^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.6,DA,0),"^",9)=Y` `2)= S $P(^PS(59.6,DA,0),"^",9)=""` `3)= Used by the Unit Dose Medications package.` `This is used to automatically update the STOP TIME FOR MAR field (.09).` `S $P(^PS(59.6,Internal Entry number,0),"^",9)=STOP TIME FOR MAR`
.09	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` 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: `D EN^DDIOL("THIS FIELD IS NOT TO BE CHANGED!!","","!")` `WRITE AUTHORITY: ^` GROUP: `PSJU`
.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 35.` 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: `D LBLS^PSJDDUT` GROUP: `PSJU`
.12	LABEL FOR WARD STAFF	0;12	SET	'0' FOR NO LABELS; '1' FOR FIRST LABEL ON ORDER ENTRY/EDIT; '2' FOR LABEL ON ENTRY/EDIT AND VERIFICATION; '3' FOR FIRST LABEL ON NURSE VERIFICATION; LAST EDITED: `JUL 27, 1991` DESCRIPTION: `Select from one of the following: NO LABELS - Labels will not be created when ward staff (nurses, clerks, physicians, etc.) take an action on an order. FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever` `ward staff enter an order or edit a non-verified order, but not when the nurse verifies the order. FIRST LABEL ON NURSE VERIFICATION - Labels will not be created for ward staff until a nurse has verified the order. LABEL` `ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the order is entered/edited and verified.` `Labels are always created for actions taken on orders after they are verified, unless NO LABELS is selected.` TECHNICAL DESCR: `This is used by the order entry, edit, and verify routines to determine if a label should be created for the order whenever these action take place on the order by ward staff personnel.` GROUP: `PSJU`
.13	*WARD LABEL PRINTER	0;13	FREE TEXT	INPUT TRANSFORM: `D ENDL^PSJUTL` LAST EDITED: `APR 08, 1998` HELP-PROMPT: `Enter the device to which labels created by ward staff will be printed.` DESCRIPTION: `If a device is entered here, labels created by ward staff due to actions taken on orders will print automatically to the device entered.` TECHNICAL DESCR: `This is used to automatically print labels on the ward whenever ward staff create labels due to their actions on orders. The input transform call to ENDLP^PSGSET makes a call to %ZIS to get ION (the device name).` EXECUTABLE HELP: `D ENDH^PSJUTL(DZ)` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	*PHARMACY LABEL PRINTER	0;14	FREE TEXT	INPUT TRANSFORM: `D ENDL^PSJUTL` LAST EDITED: `APR 08, 1998` HELP-PROMPT: `Enter the device to which labels created by pharmacy staff will be printed.` DESCRIPTION: `If a device is entered here, labels created by pharmacy staff due to actions taken on orders will print automatically to the device entered.` TECHNICAL DESCR: `This is used to automatically print labels in the pharmacy whenever pharmacy staff create labels due to their actions on orders. The input transform call to ENDL^PSJUTL makes a call to %ZIS to get ION (the device name).` EXECUTABLE HELP: `D ENDH^PSJUTL(DZ)` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.15	LABEL ON AUTO-DISCONTINUE	0;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 09, 1992` HELP-PROMPT: `Answer 'YES' to have labels created when this ward's patients' orders are auto-discontinued.` DESCRIPTION: `This is used to determine if labels should be created when orders for a patient from this ward are auto-d/c'd due a patient movement. Patient movements include discharges and transfers.` TECHNICAL DESCR: `Used by the auto-d/c routines (PSJADT*) to determine if labels should be created for orders that are auto-d/c'd due to patient movements from this ward.` GROUP: `PSJ`
.16	LABEL FOR PHARMACY	0;16	SET	'0' FOR NO LABELS; '1' FOR FIRST LABEL ON ORDER ENTRY/EDIT; '2' FOR LABEL ON ENTRY/EDIT AND VERIFICATION; '3' FOR FIRST LABEL ON PHARMACIST VERIFICATION; LAST EDITED: `JUL 27, 1991` DESCRIPTION: `Select from the following: NO LABELS - Labels will not be created when pharmacy staff (pharmacists and pharmacy technicians) take an action on an order. FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever` `pharmacy staff enter an order or edit a non-verified order, but not when the pharmacist verifies the order. FIRST LABEL ON VERIFICATION - Labels will not be created for pharmacy staff until a pharmacist has verified the` `order. LABEL ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the order is entered/edited and verified.` `Labels are always created for actions taken on orders after they are verified, unless NO LABELS is selected.` TECHNICAL DESCR: `This is used to determine if a label should be created whenever an action has taken place on an order by pharmacy personnel.` GROUP: `PSJU`
.18	MAR HEADER LABELS	0;18	SET	'1' FOR YES; LAST EDITED: `DEC 07, 1993` HELP-PROMPT: `Enter "YES" if MAR header labels should be generated for this ward.` DESCRIPTION: `This is used to determine if MAR header labels should be generated when MAR order labels are generated for patients on this ward.` GROUP: `PSJ`
.19	WARD LABEL PRINTER POINTER	0;19	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `APR 08, 1998` HELP-PROMPT: `Enter the device to which labels created by ward staff will be printed.` DESCRIPTION: `If a device is entered here, labels created by ward staff due to actions taken on orders will print automatically to the device entered.` TECHNICAL DESCR: `This is used to automatically print labels on the ward whenever ward staff create labels due to their actions on orders.`
.2	PHARMACY LABEL PRINTER POINTER	0;20	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `APR 08, 1998` HELP-PROMPT: `Enter the device to which labels created by pharmacy staff will be printed.` DESCRIPTION: `If a device is entered here, labels created by pharmacy staff due to actions taken on orders will print automatically to the device entered.` TECHNICAL DESCR: `This is used to automatically print labels in the pharmacy whenever pharmacy staff create labels due to their actions on orders.`
.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`
.27	*PRE-EXCHANGE ENVELOPES	0;27	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 19, 1992` 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`
1	MAR ORDER SELECTION DEFAULT	0;2	FREE TEXT	INPUT TRANSFORM: `K:'$$ENMARD^PSJDDUT2() X` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the default value for the type of orders to be included on the Medication Due Worksheet, MAR and Action Profiles. Multiple order types may be selected using "-" or "," (Example: 2-4 or 2,3,4).` TECHNICAL DESCR: `This field contains information used by reports in the Inpatient Medications package to determine what type of orders to include on the report, as specified by the Pharmacy Supervisor in the Inpatient Ward Parameters.` EXECUTABLE HELP: `D ENMARDH^PSJDDUT2` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	PRINT PENDING ORDERS ON MAR	0;6	SET	'1' FOR YES; LAST EDITED: `FEB 06, 1996` HELP-PROMPT: `Enter YES to include acknowledged pending orders on the MARs` DESCRIPTION: `Enter YES to include the pending orders that were acknowledged by a nurse on the MARs and the Medication Due Worksheet.`
3	DAYS UNTIL STOP FOR ONE-TIME	0;28	NUMBER	INPUT TRANSFORM: `D ENOSD^PSGFILD0` LAST EDITED: `SEP 07, 2001` HELP-PROMPT: `Enter the number of days a one-time order should last. The number can be from 1-100, however, it cannot exceed the number of days that standard orders last (DAYS UNTIL STOP DATE/TIME).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	PRE-EXCHANGE REPORT DEVICE	0;29	POINTER TO DEVICE FILE (#3.5)	DEVICE(#3.5) LAST EDITED: `JAN 24, 2003` HELP-PROMPT: `Enter a device on which the Pre-Exchange Report may be printed.` DESCRIPTION: `Enter the name of the device that will be used most frequently to print the Pre-Exchange Report for this WARD. This field will be shown as the default for the 'Select DEVICE for PRE-EXCHANGE UNITS REPORT:' prompt when` `printing the Pre-Exchange Report.`
5	STAT NOW MAIL GROUP	0;30	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `DEC 28, 2004` DESCRIPTION: `A notification will be sent to this mail group for each new STAT and NOW order that is received from CPRS.`
6	PRIORITIES FOR NOTIFICATION	0;32	SET	'S' FOR STAT; 'SA' FOR STAT/ASAP; 'SAN' FOR STAT/ASAP/NOW; 'A' FOR ASAP; 'AN' FOR ASAP/NOW; 'N' FOR NOW; 'SN' FOR STAT/NOW; LAST EDITED: `JUL 27, 2005` DESCRIPTION: `Enter the priorities of STAT, ASAP, or the schedule of NOW, or any combination the three to be used to send a notification of orders with these priorities to the mail group defined in the STAT NOW MAIL GROUP parameter.`
7	HOURS OF RECENTLY DC/EXPIRED	0;33	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `JAN 21, 2009` HELP-PROMPT: `Enter a number between 1 and 120. Any orders discontinued/expired within the hours specified here will be displayed on the patient profile.` DESCRIPTION: `The Inpatient Meds profiles will display the recently discontinued/expired orders that fall within the hours specified in this field. The value defined in this field will take precedence over the Inpatient System` `parameter.`
8	DEFAULT 0 ON PADE PRE-EXCHANGE	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 05, 2016` HELP-PROMPT: `Enter YES to default PADE Pre-Exchange doses to zero.` DESCRIPTION: `If set to YES, field defaults zero in the "Pre-Exchange DOSES:" prompt for orders that may be dispensed from Pharmacy Automation Dispensing Equipment (PADE).` `An order may be dispensed from PADE if the order's drug is stocked in at least one PADE dispensing cabinet that is associated with the patient's ward location.`

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #2110	Pharmacy Data Management
ICR #2126	Pharmacy Data Management	MAR ORDER SELECTION DEFAULT (1). Access: Both R/W w/Fileman PRINT PENDING ORDERS ON MAR (2). Access: Both R/W w/Fileman DAYS UNTIL STOP DATE/TIME (.03). Access: Both R/W w/Fileman SAME STOP DATE ON ALL ORDERS (.04). Access: Both R/W w/Fileman DEFAULT START DATE CALCULATION (.05). Access: Both R/W w/Fileman TIME OF DAY ORDERS STOP (.07). Access: Both R/W w/Fileman START TIME FOR 24 HOUR MAR (.08). Access: Both R/W w/Fileman STOP TIME FOR MAR (.09). Access: Both R/W w/Fileman DAYS NEW LABELS LAST (.11). Access: Both R/W w/Fileman LABEL FOR WARD STAFF (.12). Access: Both R/W w/Fileman WARD LABEL PRINTER (.13). Access: Both R/W w/Fileman PHARMACY LABEL PRINTER (.14). Access: Both R/W w/Fileman LABEL ON AUTO-DISCONTINUE (.15). Access: Both R/W w/Fileman LABEL FOR PHARMACY (.16). Access: Both R/W w/Fileman
ICR #2805	Pharmacy Benefits Management	DAYS UNTIL STOP DATE/TIME (.03). Access: Read w/Fileman

Name	Field # of Occurrence
EN^DDIOL	.01LAYGO1+1, .07(HELP ), .08(HELP ), .09(HELP )
ENOSD^PSGFILD0	3+1
LBLS^PSJDDUT	.11(HELP )
$$ENMARD^PSJDDUT2	1+1
ENMARDH^PSJDDUT2	1(HELP )
ENDH^PSJUTL	.13(HELP ), .14(HELP )
ENDL^PSJUTL	.13+1, .14+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	\|dd57.5
^%ZOSF("TEST"	\|dd53.1
^DD("DD"	\|dd59.5
^DD(3.5	\|dd57.5
^DD(53.1	\|dd53.1
^DD(53.21	\|dd53.21
^DD(53.22	\|dd53.22
^DIC(42 - [#42]	.01LAYGO1+1, \|dd50.804, \|dd50.808, \|dd59.6
^ORD(101 - [#101]	\|ptcl
^PS(50.3 - [#50.3]	\|dd50.3!, \|dd50.31!, \|dd50.311!, \|dd50.32!, \|dd53.11, \|dd53.2102
^PS(50.35 - [#50.35]	\|dd50.31, \|dd50.35*!
^PS(50.7 - [#50.7]	\|dd53.23
^PS(50.8 - [#50.8]	\|dd50.8, \|dd50.805!, \|dd50.809!, \|opt
^PS(51.15 - [#51.15]	\|dd51.15!, \|dd51.153!
^PS(51.2 - [#51.2]	\|dd53.1
^PS(52.6 - [#52.6]	\|inpt
^PS(52.7 - [#52.7]	\|inpt
^PS(53.1 - [#53.1]	\|dd53.1!, \|dd53.11!, \|dd53.1112!, \|dd53.1114!, \|dd53.13!, \|dd53.157!, \|dd53.158!, \|dd53.4502, \|inpt
^PS(53.2 - [#53.2]	\|dd53.2!, \|dd53.21!, \|dd53.2102!, \|dd53.22!, \|dd53.23*!
^PS(53.3 - [#53.3]	\|dd53.3*!
^PS(53.35	\|dd50.35
^PS(53.4 - [#53.4]	\|dd53.4!, \|dd53.401101!
^PS(53.44 - [#53.44]	\|dd53.4402*!
^PS(53.45 - [#53.45]	\|dd53.45, \|dd53.4502*!, \|inpt, \|list!, \|ptcl!
^PS(53.46 - [#53.46]	\|dd53.46*!
^PS(53.47 - [#53.47]	\|dd53.47*!
^PS(53.5 - [#53.5]	\|dd53.5!, \|dd53.51!, \|dd53.52!, \|dd53.53!, \|dd57.5
^PS(55 - [#55]	\|dd53.1, \|ptcl
^PS(57.1 - [#57.1]	\|dd57.1!, \|dd57.17!, \|dd57.18*!
^PS(57.5 - [#57.5]	\|dd57.5!, \|dd57.51!, \|inpt
^PS(57.7 - [#57.7]	\|dd57.7!, \|dd57.701!, \|dd57.702*!
^PS(57.8 - [#57.8]	\|dd57.8*!
^PS(58.7 - [#58.7]	\|inpt
^PS(59.5 - [#59.5]	\|dd59.5!, \|dd59.51!, \|dd59.52*!, \|inpt
^PS(59.6 - [#59.6]	.01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), \|dd59.6*!
^PS(59.7 - [#59.7]	\|dd50.8, \|dd57.5
^PSDRUG - [#50]	\|inpt
^TMP("PSIVLB"	\|list
^TMP("PSJAL"	\|list
^TMP("PSJALL"	\|list
^TMP("PSJALLRG"	\|list!
^TMP("PSJDA"	\|list
^TMP("PSJI"	\|list
^TMP("PSJINTER"	\|ptcl!
^TMP("PSJPRO"	\|list!, \|ptcl
^TMP("PSJUDE"	\|list
^TMP($J	\|ptcl!
^VA(200 - [#200]	\|dd53.45
^XUSEC("PSJ PADE ADV"	\|inpt
^XUSEC("PSJ PHARM TECH"	\|inpt
^XUSEC("PSJ RNURSE"	\|inpt
^XUSEC("PSJ RPHARM"	\|inpt

Name	Field # of Occurrence
^(	\|dd57.1, \|dd57.51
^("0"	\|dd53.47
^(0	\|dd50.3, \|dd50.35, \|dd50.804, \|dd50.808, \|dd51.15, \|dd53.1, \|dd53.11, \|dd53.4, \|dd53.5, \|dd57.5 , \|dd57.51, \|dd59.51, \|inpt
^(2	\|dd53.1*
^(20	\|dd50.8, \|dd57.5
^(3	\|dd57.5
^(5	\|dd53.1
^(5.1	\|dd53.1*
^(660	\|inpt

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	\|dd53.1*, \|opt!
%1	\|opt!
%DT	\|dd50.31, \|dd50.8, \|dd50.802, \|dd50.803, \|dd53.1, \|dd53.11, \|dd53.1114, \|dd53.1119, \|dd53.13, \|dd53.21 , \|dd53.22, \|dd53.4, \|dd53.4104, \|dd53.42, \|dd53.4402, \|dd53.4502, \|dd53.5, \|dd57.6, \|dd59.5, \|dd59.51 , \|opt!
%H	\|opt!
%I	\|dd57.5*!
%T	\|opt!
%X	\|opt!
%Y	\|opt!
A	\|opt!
AL	\|opt!
B	\|opt!
BY	\|ptcl*!
C	\|dd57.5*, \|opt!
CAO	\|opt!
CHK	\|opt!
D	\|dd51.15*, \|opt!
D0	\|dd50.311, \|dd53.1*, \|inpt, \|opt!
D1	\|dd50.311, \|inpt, \|opt!
>> DA	.01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K), \|dd50.3, \|dd50.31, \|dd50.311, \|dd50.32, \|dd50.35, \|dd50.805 , \|dd50.809, \|dd51.15, \|dd51.153, \|dd53.1, \|dd53.11, \|dd53.1112, \|dd53.1114, \|dd53.13, \|dd53.157, \|dd53.158 , \|dd53.2, \|dd53.21, \|dd53.2102, \|dd53.22, \|dd53.23, \|dd53.3, \|dd53.4, \|dd53.401101, \|dd53.4402, \|dd53.4502 , \|dd53.46, \|dd53.47, \|dd53.5, \|dd53.5, \|dd53.51, \|dd53.52, \|dd53.53, \|dd57.1, \|dd57.17, \|dd57.18 , \|dd57.5, \|dd57.51, \|dd57.7, \|dd57.701, \|dd57.702, \|dd57.8, \|dd59.5, \|dd59.51, \|dd59.52, \|dd59.6 , \|inpt, \|opt!, \|ptcl!
DA(1	\|dd50.31, \|dd50.311, \|dd50.32, \|dd50.805, \|dd50.809, \|dd51.153, \|dd53.11, \|dd53.1112, \|dd53.1114, \|dd53.13 , \|dd53.157, \|dd53.158, \|dd53.21, \|dd53.2102, \|dd53.22, \|dd53.23, \|dd53.401101, \|dd53.4402, \|dd53.4502, \|dd53.51 , \|dd53.52, \|dd53.53, \|dd57.17, \|dd57.18, \|dd57.51, \|dd57.701, \|dd57.702, \|dd57.8, \|dd59.51, \|dd59.52 , \|inpt
DA(2	\|dd50.311, \|dd50.805, \|dd50.809, \|dd53.2102!, \|dd53.23!, \|dd53.401101, \|dd53.4402, \|dd53.52, \|dd53.53, \|dd57.702
DA(3	\|dd50.809, \|dd53.401101, \|dd53.53
DA(4	\|dd50.809
DFN	\|list, \|opt!, \|ptcl
DGA1	\|opt!
DGT	\|opt!
DI	\|opt!
DIADD	\|ptcl*!
DIC	\|dd50.31!, \|dd50.311!, \|dd51.15~, \|dd51.153!, \|dd53.1!, \|dd53.11!, \|dd53.157!, \|dd53.158!, \|dd53.21!, \|dd53.2102! , \|dd53.22!, \|dd53.23!, \|dd53.4502!, \|dd57.1!, \|dd57.17!, \|dd57.18!, \|dd57.5, \|opt!, \|ptcl!
DIC("A"	\|ptcl*
DIC("S"	\|dd50.31, \|dd50.311, \|dd51.153, \|dd53.1, \|dd53.11, \|dd53.157, \|dd53.158, \|dd53.21, \|dd53.2102, \|dd53.22 , \|dd53.23, \|dd53.4502, \|dd57.1, \|dd57.17, \|dd57.18*
DIC(0	\|dd51.15, \|opt, \|ptcl*
DIE	\|dd50.31, \|dd50.311, \|dd51.153, \|dd53.1, \|dd53.11, \|dd53.157, \|dd53.158, \|dd53.21, \|dd53.2102, \|dd53.22 , \|dd53.23, \|dd53.4502, \|dd57.1, \|dd57.17, \|dd57.18, \|inpt, \|opt, \|ptcl!
DIE("NO^"	\|inpt*!
>> DIG	\|dd53.1*
>> DIH	\|dd53.1*
DIJ	\|opt!
>> DIK	\|inpt*
>> DINUM	\|dd50.8, \|dd50.802, \|dd50.803, \|dd50.804, \|dd50.806, \|dd50.807, \|dd50.808, \|dd51.153, \|dd53.401, \|dd53.4011 , \|dd53.4101, \|dd53.4102, \|dd53.4104, \|dd53.42, \|dd53.43011, \|dd53.44, \|dd53.4401, \|dd53.45, \|dd53.51, \|dd53.55 , \|dd57.6, \|dd57.61, \|dd57.62, \|dd57.63, \|dd57.7*
DIOV	\|opt!
DISYS	\|opt!
>> DIU	\|dd53.1*
>> DIU(0	\|dd53.1
DIV	\|dd53.1*!
DIV(0	\|dd53.1*
DLAYGO	\|opt!, \|ptcl
>> DONE	\|opt
DQ	\|opt!
DR	\|opt!, \|ptcl!
DRG	\|ptcl~
DRG(1	\|dd53.157
DRGN	\|opt!
DT	\|dd59.5
DTOUT	\|opt!
DUZ	\|inpt, \|ptcl
>> DZ	.13(HELP ), .14(HELP ), \|dd59.6
FIL	\|opt!
FLDS	\|ptcl*!
>> GECS("SITE"	\|inpt
>> GECS("TT"	\|inpt
GMRAL	\|list!
>> HLMTIEN	\|ptcl
>> HLMTIENS	\|ptcl
I	\|opt!, \|ptcl*!
I1	\|opt!, \|ptcl!
I10	\|opt!
ION	\|opt
IOP	\|opt*!
J	\|opt!, \|ptcl!
J2	\|opt!, \|ptcl!
K	\|opt!
L	\|ptcl*!
N	\|opt!, \|ptcl!
N2	\|opt!, \|ptcl!
ND	\|opt!
NF	\|opt!
OD	\|opt!
ON	\|dd53.4502, \|opt!, \|ptcl*
ON55	\|opt!, \|ptcl
ORETURN	\|opt!
ORIFN	\|opt!, \|ptcl!
ORLOG	\|opt!
>> ORPK	\|ptcl*
ORPV	\|opt!
ORSTOP	\|opt!
ORSTRT	\|opt!
ORSTS	\|opt!
>> ORVP	\|ptcl
P	\|opt!, \|ptcl~
P("APPT"	\|ptcl
P1	\|opt!
P17	\|opt!, \|ptcl!
PDRG	\|opt!
>> PQ	\|opt*
PS	\|opt!, \|ptcl!
>> PSGACT	\|ptcl*
PSGDT	\|opt!
PSGEFN	\|ptcl!
>> PSGINITF	\|dd57.5
PSGLMT	\|opt!
>> PSGMARDF	\|ptcl*
>> PSGMRN	\|ptcl
>> PSGOEE	\|dd53.4504
>> PSGOEEND	\|dd53.4502
>> PSGOES	\|dd53.1
>> PSGORD	\|dd53.4504, \|list, \|ptcl
PSGP	\|list, \|ptcl*!
>> PSGPDRG	\|dd53.4502
>> PSGPDRGN	\|dd53.4502
>> PSGS0XT	\|dd50.31, \|dd53.1, \|dd53.21
>> PSGS0Y	\|dd50.31, \|dd53.1*, \|dd53.21
PSGTOL	\|opt!
PSGTOO	\|opt!
PSGUOW	\|opt!
>> PSGWD	\|ptcl*
PSIV	\|dd53.157*, \|opt!
>> PSIV531	\|ptcl
PSIVAC	\|opt!, \|ptcl!
PSIVAMIS	\|opt*!
PSIVBEG	\|opt!
PSIVBR	\|opt!, \|ptcl!
PSIVC	\|list!, \|ptcl*
PSIVCT	\|opt!, \|ptcl!
>> PSIVDCR	\|opt*
PSIVDEL	\|opt!
PSIVEND	\|opt!
PSIVLAB	\|opt!, \|ptcl*!
>> PSIVLBTP	\|ptcl
PSIVLOG	\|opt!, \|ptcl*!
PSIVNOL	\|list!, \|opt!, \|ptcl!
PSIVNOW	\|opt!, \|ptcl!
>> PSIVPAT	\|opt*
>> PSIVPCR	\|opt*
PSIVPL	\|opt!
PSIVPR	\|opt!
PSIVPROV	\|opt!
PSIVRC	\|opt*!
PSIVRD	\|opt*!
PSIVREA	\|opt!
PSIVSCR	\|opt!
PSIVSITE	\|opt!
PSIVSN	\|opt!
>> PSIVSTR	\|inpt
PSIVT	\|opt!
>> PSIVTYPE	\|inpt*
PSIVUP	\|opt!
>> PSIVV	\|dd50.805
PSIVWARD	\|opt!
>> PSIVWCR	\|opt*
PSIVX	\|dd53.157, \|dd59.5!, \|opt!
PSIVY	\|dd59.5*!
PSIVZION	\|opt*!
PSJ	\|dd53.5~, \|inpt
>> PSJACEPT	\|ptcl*
>> PSJALL	\|ptcl
>> PSJASKDN	\|inpt*
PSJCMO	\|ptcl*!
>> PSJDIV	\|inpt*
PSJEXTP	\|opt!, \|ptcl!
PSJHIDFG	\|ptcl*!
PSJIDD	\|dd57.5!
PSJIDD("POINTER"	\|dd57.5
>> PSJIDLST	\|ptcl
PSJINFIN	\|ptcl*!
PSJIOPIV	\|ptcl*!~
>> PSJIRNF	\|ptcl
>> PSJITECH	\|ptcl
PSJIVORF	\|opt!
PSJLB	\|ptcl!
PSJLK	\|ptcl*!
PSJLM	\|ptcl~
>> PSJLMCON	\|ptcl*
>> PSJLMFIN	\|ptcl
PSJLMPRO	\|ptcl~
>> PSJLMQT	\|ptcl*
>> PSJMORE	\|ptcl
PSJNODIS	\|opt*!
PSJOL	\|opt!, \|ptcl
>> PSJORD	\|list, \|ptcl
PSJORIFN	\|opt!
PSJORL	\|opt!
PSJPDEV	\|inpt*~
PSJPFWD	\|opt!
>> PSJPNDRN	\|dd53.4502
>> PSJPROT	\|ptcl
>> PSJPWD	\|ptcl
PSJS	\|opt!
>> PSJSHLS	\|dd51.153
PSJSTARI	\|list, \|ptcl!
PSJSYSL	\|opt!
PSJSYSP	\|list, \|opt!, \|ptcl
PSJSYSP0	\|opt!
PSJSYSU	\|inpt, \|opt!, \|ptcl
>> PSJTASK	\|opt*
PSJUDPRF	\|list!
>> PSJVALQ	\|list*
>> PSOVWI("DIC"	\|ptcl*
SCHED	\|opt!
SCRNPRO	\|opt!
TC	\|opt!
TN	\|opt!, \|ptcl!
U	\|dd50.3, \|dd50.35, \|dd53.1, \|dd53.47, \|dd53.5, \|dd57.17, \|dd57.5, \|inpt, \|ptcl
UL80	\|opt!
VADM	\|ptcl~
VAIN	\|ptcl~
>> VALM("TITLE"	\|ptcl*
>> VALMBCK	\|list, \|ptcl, \|ptcl, \|ptcl
W	\|opt!
W42	\|opt!
WCA	\|opt!
WRDB	\|opt!
WRDE	\|opt!
X	.01LAYGO1+1, .01(XREF 1S), .01(XREF 1K), .03+1!, .07+1!, .08+1!, .08(XREF 1S), .09+1!, .11+1!, 1+1! , 7+1!, \|dd50.3!, \|dd50.31!, \|dd50.311!, \|dd50.32!, \|dd50.35!, \|dd50.8!, \|dd50.801!, \|dd50.802!, \|dd50.803! , \|dd50.804!, \|dd50.805!, \|dd50.806!, \|dd50.807!, \|dd50.808!, \|dd50.809!, \|dd51.15!, \|dd51.153!, \|dd53.1!, \|dd53.1! , \|dd53.1!, \|dd53.11!, \|dd53.1112!, \|dd53.1114!, \|dd53.1119!, \|dd53.13!, \|dd53.157!, \|dd53.158!, \|dd53.2!, \|dd53.21! , \|dd53.2102!, \|dd53.22!, \|dd53.23!, \|dd53.3!, \|dd53.4!, \|dd53.401, \|dd53.4011!, \|dd53.401101!, \|dd53.4101!, \|dd53.4102 , \|dd53.4104!, \|dd53.42!, \|dd53.4301!, \|dd53.43011!, \|dd53.44, \|dd53.4401, \|dd53.4402!, \|dd53.45!, \|dd53.4502!, \|dd53.46! , \|dd53.47!, \|dd53.5!~, \|dd53.51!, \|dd53.52!, \|dd53.53!, \|dd53.55!, \|dd53.56!, \|dd57.1!, \|dd57.17!, \|dd57.18! , \|dd57.5!, \|dd57.51!, \|dd57.6!, \|dd57.61, \|dd57.62, \|dd57.63!, \|dd57.7, \|dd57.701!, \|dd57.702, \|dd57.8! , \|dd59.5!, \|dd59.51!, \|dd59.52!, \|dd59.6!, \|inpt, \|inpt, \|opt!, \|ptcl!~
X(1	.01LAYGO1+1, \|dd50.31, \|dd50.35, \|dd53.1, \|dd53.11, \|dd53.2102, \|dd53.23, \|dd53.45, \|dd53.4502, \|dd59.6*
X(2	.01LAYGO1+1, \|dd50.35, \|dd53.1, \|dd53.45, \|dd53.4502, \|dd59.6*
X(3	\|dd53.4502*
>> XQORM("#"	\|ptcl*
>> XQORM("?"	\|ptcl*
>> XQORM("B"	\|list, \|ptcl
>> XQORMSG	\|ptcl
>> XQUIT	\|opt, \|ptcl
>> XREF	\|opt*
>> XX	\|dd53.1*
>> Y	.08(XREF 1S), \|dd50.31, \|dd50.311, \|dd50.8, \|dd50.802, \|dd50.803, \|dd50.804, \|dd50.808, \|dd51.15, \|dd51.153 , \|dd53.1, \|dd53.11, \|dd53.1114, \|dd53.1119, \|dd53.13, \|dd53.157, \|dd53.158, \|dd53.21, \|dd53.2102, \|dd53.22 , \|dd53.23, \|dd53.4, \|dd53.4104, \|dd53.42, \|dd53.4402, \|dd53.4502, \|dd53.5, \|dd57.1, \|dd57.17, \|dd57.18 , \|dd57.5, \|dd57.6, \|dd59.5, \|dd59.51, \|dd59.6, \|inpt, \|inpt*, \|opt!, \|ptcl!
Y(	\|dd53.1*
Y(0	\|dd50.31, \|dd50.804, \|dd50.808, \|dd53.1, \|dd53.11, \|dd53.2102, \|dd53.23, \|dd53.4502
Y(1	\|list, \|ptcl
>> Y1	\|dd53.1*
Z	\|dd53.21!, \|dd53.22!, \|opt!, \|ptcl!
ZISI	\|opt!, \|ptcl!
ZQ7	\|opt!, \|ptcl!
ZTSK	\|opt!
ZZAR	\|inpt*~

Customize PDF page

Package: Inpatient Medications

Global: ^PS(59.6

Information

Description

Directly Accessed By Routines, Total: 27

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 26

ICR, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Marked Items