Global: ^PS(53.1

FileMan FileNo	FileMan Filename	Package
53.1	NON-VERIFIED ORDERS	Inpatient Medications

Package	Total	Routines
Inpatient Medications	43	PSGBRJ PSGGAO PSGNE3 PSGOE41 PSGOE42 PSGOE7 PSGOE81 PSGOE82 PSGOE91 PSGOE92 PSGOEC PSGOECS PSGOEE PSGOEF1 PSGOEI PSGOETO PSGOEV PSGSH PSIVEDT PSIVOPT1 PSIVORA PSIVORC PSIVOREN PSIVORFA PSIVSPDC PSJ005 PSJ257PO PSJ299PO PSJ311PO PSJBLDOC PSJCLNOC PSJCLOR2 PSJCLOZ PSJDGAL2 PSJDGCK PSJHL4 PSJHL9 PSJHLV PSJIMO1 PSJNEWOC PSJOEA1 PSJOEA2 PSJUTL1
Health Summary	2	GMTSPST1 GMTSPSTN
Outpatient Pharmacy	2	PSODDPR7 PSONEWOA
Order Entry Results Reporting	1	ORKPS1

Package	Total	FileMan Files
Order Entry Results Reporting	1	ORDER CHECK INSTANCES(#100.05)[#100.07(.01)]
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[20.14, 20.404]

Package	Total	FileMan Files
Pharmacy Data Management	5	APSP INTERVENTION(#9009032.4)[#53.13(.01)] PHARMACY ORDERABLE ITEM(#50.7)[108] IV ADDITIVES(#52.6)[#53.157(.01)] IV SOLUTIONS(#52.7)[#53.158(.01)] DRUG(#50)[24, #53.11(.01)]
Inpatient Medications	3	PRIMARY DRUG(#50.3)[101] ACTIVITY LOG REASON(#53.3)[#53.1119(2)] IV ROOM(#59.5)[62]
Registration	2	WARD LOCATION(#42)[50, 52] PATIENT(#2)[.5]
Kernel	1	NEW PERSON(#200)[1, 15, 16, 18, 20, 22, 31, 51, #53.1114(1), #53.1114(2), #53.1119(1)]
National Drug File	1	MEDICATION ROUTES(#51.2)[3]
Order Entry Results Reporting	1	ORDER(#100)[125]
Scheduling	1	HOSPITAL LOCATION(#44)[113]

Fields, Total: 109

Field #	Name	Loc	Type	Details
.01	ORDER NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 25, 2013` HELP-PROMPT: `Type a whole number between 1 and 1000000000.` DESCRIPTION: `This is a reference number for this order.` GROUP: `PSJU` CROSS-REFERENCE: `53.1^B` `1)= S ^PS(53.1,"B",$E(X,1,30),DA)=""` `2)= K ^PS(53.1,"B",$E(X,1,30),DA)`
.24	PRIORITY	.2;4	SET	'S' FOR STAT; 'A' FOR ASAP; 'R' FOR ROUTINE; 'P' FOR PREOP; 'T' FOR TIMING CRITICAL; 'D' FOR DONE; LAST EDITED: `MAY 22, 2001` HELP-PROMPT: `Enter a priority for processing the order, if desired.` DESCRIPTION: `This field contains the priority of the order that was received from OERR.`
.25	NUMBER	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 20, 1986` HELP-PROMPT: `Type a whole number between 1 and 1000000000.` DESCRIPTION: `(Not currently used.)` GROUP: `PSJU`
.5	PATIENT NAME	0;15	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `JUN 25, 2013` DESCRIPTION: `This is the patient for which the medication has been ordered.` GROUP: `PSJU` CROSS-REFERENCE: `53.1^AP^MUMPS` `1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENNPS^PSGAXR` `2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENNPK^PSGAXR` `3)= Used by Inpatient Meds to set several cross-references.` `This is used to set and kill the following cross-references:` `^PS(53.1,"AC",patient,DA)=""` `^PS(53.1,"AOD",patient,primary drug,DA)=""` `^PS(53.1,"AS",status,patient,DA)=""` `^PS(53.1,"AV",patient,DA)=""` `^PS(53.1,"C",patient,DA)=""` `The AC and AOD x-refs are only set if the order has not been verified or discontinued.` `The AV x-ref is only set if the order has a pending status and was acknowledged by a nurse.` RECORD INDEXES: `AD (#502), CIMO (#808)`
1	PROVIDER	0;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 02, 1993` DESCRIPTION: `This field should contain the prescribing physician's name.` SCREEN: `S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"` EXPLANATION: `Provider must be active and privileged to write medication orders.` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `53.1^APR^MUMPS` `1)= I $P($G(^PS(53.1,DA,0)),"^",15),$D(^PS(55,+$P(^(0),U,15),0)),$P($G(^(5.1)),"^",2)'=X S $P(^(5.1),"^",2)=X` `2)= Q` `Updates the UD PROVIDER field of the PHARMACY PATIENT file. This field is used as a default value for Unit Dose order entry. S $P(^PS(55,DFN,5.1),"^",2)=PROVIDER`
2	DISPENSE DRUG	1;0	POINTER Multiple #53.11	53.11 LAST EDITED: `JUL 17, 1991` DESCRIPTION: `This is the medication ordered for the patient.` GROUP: `PSJU`
3	MED ROUTE	0;3	POINTER TO MEDICATION ROUTES FILE (#51.2)	**********************REQUIRED FIELD********************** MEDICATION ROUTES(#51.2) INPUT TRANSFORM: `S DIC("S")="I $P(^PS(51.2,+Y,0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 09, 1987` HELP-PROMPT: `Enter how this medication will be administered to the patient.` DESCRIPTION: `This is the route of administration for this medication. (If a corresponding abbreviation is found for this route in the MEDICATION ROUTES file, this package will print that abbreviation on it's reports.)` SCREEN: `S DIC("S")="I $P(^PS(51.2,+Y,0),""^"",4)"` EXPLANATION: GROUP: `PSJU`
4	TYPE	0;4	SET	**********************REQUIRED FIELD********************** 'U' FOR UNIT DOSE; 'I' FOR INPATIENT; 'F' FOR FLUID; 'H' FOR HYPERAL; LAST EDITED: `JUN 03, 1991` DESCRIPTION: `This identifies the type of medication ordered.` GROUP: `PSJU`
5	SELF MED	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 16, 1986` HELP-PROMPT: `Enter a '1' (or 'YES') if this medication is to be self administered.` DESCRIPTION: This should contain a `1' (or `YES') if this medication is to be administered by the patient to himself. GROUP: `PSJU` CROSS-REFERENCE: `^^TRIGGER^53.1^6` `1)= I 'X S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),"^",6),1:"") I DIU]"" S $P(^(0),"^",6)="" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=6 D ^DICR K DIV` `2)= S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),"^",6),1:"") I DIU S $P(^(0),"^",6)="" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=6 D ^DICR K DIV` `3)= Used by Inpatient Meds.` `CREATE CONDITION)= I 'X` `CREATE VALUE)= @` `DELETE VALUE)= @` `FIELD)= HOSPITAL SUPPLIED SELF MED` `Used to update HOSPITAL SUPPLIED SELF MED field to a value of 'NO' when this field is changed from 'YES' to 'NO'.`
6	HOSPITAL SUPPLIED SELF MED	0;6	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 18, 1985` HELP-PROMPT: `Enter 'Yes' (or a '1') if this SELF MED is to be supplied by the medical center's pharmacy.` DESCRIPTION: This should contain a `1' (or `YES') if this medication is to be a `SELF MED' and this site's pharmacy is to supply the medication. This is only asked if the user enters `YES' (or `1') to the SELF MED prompt. If the SELF MED field is ever edited to show `NO' (or `0'), this is automatically deleted. GROUP: `PSJU` NOTES: `TRIGGERED by the SELF MED field of the NON-VERIFIED ORDERS File`
7	SCHEDULE TYPE	0;7	SET	**********************REQUIRED FIELD********************** 'O' FOR ONE-TIME; 'P' FOR PRN; 'C' FOR CONTINUOUS; 'R' FOR FILL on REQUEST; 'OC' FOR ON CALL; LAST EDITED: `FEB 02, 2011` HELP-PROMPT: `Enter the code (C, O, OC, P, or R) corresponding to the scheduling of this order.` DESCRIPTION: `This describes the type of schedule for the dispensing of the medication(s) that make up the order.` `PRE-OP orders are usually considered to be ON-CALL orders, and orders dispensed as MUTLI-DOSE CONTAINERS are usually considered to be FILL ON REQUEST orders.` TECHNICAL DESCR: `This is used to determine how the order will be dispensed by the pharmacy to the ward. This is used mainly when the Unit Dose package calculates the number of units or doses to be dispensed for a given date/time range.` EXECUTABLE HELP: `D SCHTP^PSJDDUT` GROUP: `PSJU` CROSS-REFERENCE: `^^TRIGGER^53.1^25` `1)= I X="O",$D(^PS(53.1,DA,2)),$P(^(2),"^",2),$P(^(2),"^",4),$P(^(2),"^",2)'=$P(^(2),"^",4) S DIU=$P(^(2),"^",4),$P(^(2),"^",4)=$P(^(2),"^",2) I $O(^DD(53.1,25,1,0)) K DIV S DIV=$P(^PS(53.1,DA,2),"^",2) X ^DD(53.1,7,1,2,1.` `4)` `1.4)= S (DIV(0),D0)=DA,DIH=53.1,DIG=25 D ^DICR K DIV W " ...This changes the STOP DATE/TIME..."` `2)= Q` `3)= Used by Inpatient Meds.` `CREATE CONDITION)= I X="O"` `CREATE VALUE)= START DATE/TIME` `DELETE VALUE)= NO EFFECT` `FIELD)= STOP DATE/TIME` `If the SCHEDULE TYPE is changed to "ONE-TIME", the STOP DATE/TIME is changed to be the same as the START DATE/TIME.`
8	SPECIAL INSTRUCTIONS	6;1	FREE TEXT	INPUT TRANSFORM: `D CHKSI^PSJDDUT` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Answer must be 1-180 characters in length.` DESCRIPTION: `This is any special instructions (using abbreviations whenever possible) needed for this order. This would include the physician's reason for ordering a PRN. The abbreviations and expansions from the MEDICATION` `INSTRUCTIONS file are utilized.` EXECUTABLE HELP: `D SPCIN^PSJDDUT` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	RENEWAL	4;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 24, 1986` DESCRIPTION: `(Not currently used.)` GROUP: `PSJU`
10	START DATE/TIME	2;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D:X="P" STRDT^PSJDDUT I $D(X) S %DT="ETX" D ^%DT S X=Y K:Y<1!('$P(X,".",2)) X` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Enter the date and time that the first dose is to be given.` DESCRIPTION: `This is the date and time the order is to begin. This package initially` `assigns the START DATE/TIME to the closest administration time or next` `admin. time or NOW depends on the value of the DEFAULT START DATE` `CALCULATION field in the INPATIENT WARD PARAMETERS file.` `START DATE/TIME may not be entered prior to 7 days from the order's` `LOGIN DATE.` EXECUTABLE HELP: `D EN^DDIOL(" TIME IS REQUIRED.","","!")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	DAY LIMIT	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1985` HELP-PROMPT: `Type a whole number between 1 and 99.` DESCRIPTION: `This is the number of days that this order will last.` `WRITE AUTHORITY: ^` GROUP: `PSJU`
12	DOSE LIMIT	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1985` HELP-PROMPT: `Type a whole number between 1 and 99.` DESCRIPTION: `This is the number of times the medication is to be administered.` `WRITE AUTHORITY: ^` GROUP: `PSJU`
13	*UNITS PER DOSE	0;12	NUMBER	INPUT TRANSFORM: `S X=$S(X="1/2":.5,X="1/4":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"."3.N) X` OUTPUT TRANSFORM: `S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)` LAST EDITED: `NOV 12, 1992` HELP-PROMPT: `Enter a number between 0 and 30 (will accept '1/2' or '1/4').` DESCRIPTION: `This is now for use only by the package. Units per Dose is now associated with each dispense drug.` TECHNICAL DESCR: `This is now for use only by the package for look-up purposes during order entry. Units per dose is now associated with each dispense drug. See Units per Dose (field #.02) within the Dispense Drug multiple (#53.11).` EXECUTABLE HELP: `D UNPD^PSJDDUT` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14	*PRE-EXCHANGE UNITS	5;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `NOV 12, 1992` HELP-PROMPT: `Type a Number between 0 and 99, 2 Decimal Digits.` DESCRIPTION: `This is the number of actual units needed for this order until the next cart exchange.` GROUP: `PSJU`
15	RENEWAL USER	4;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the user who renewed this order, or marked this order to be renewed.` GROUP: `PSJU`
16	VERIFYING NURSE	4;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 22, 1996` DESCRIPTION: `This is the nurse who verifies the order.` GROUP: `PSJU` CROSS-REFERENCE: `53.1^AV^MUMPS` `1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENNACK^PSGAXR` `2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENNACKK^PSGAXR` `If the order has a pending status and was acknowledged by a nurse, this x-ref is set:` `^PS(53.1,"AV",patient,DA)=""`
17	DATE VERIFIED BY NURSE	4;2	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1985` DESCRIPTION: `This is the date the order was verified by the nurse.` GROUP: `PSJU`
18	VERIFYING PHARMACIST	4;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the pharmacist who verified the order.` GROUP: `PSJU`
19	DATE VERIFIED BY PHARMACIST	4;4	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1985` DESCRIPTION: `This is the date the order was verified by the pharmacist.` GROUP: `PSJU`
20	PHYSICIAN	4;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(""PS""),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the physician who signed off on the order.` SCREEN: `S DIC("S")="I $D(^(""PS""),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"` EXPLANATION: `Provider must be active and privileged to write medciation orders.` GROUP: `PSJU`
21	DATE VERIFIED BY PHYSICIAN	4;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1985` DESCRIPTION: `This is the date the physician signed off on the order.` GROUP: `PSJU`
22	CLERK	4;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the user who entered the order.` GROUP: `PSJU`
23	DATE ENTERED BY CLERK	4;8	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 18, 1985` DESCRIPTION: `This is the date (to the second) that the order was entered.` GROUP: `PSJU`
24	SOLUTION	0;17	POINTER TO DRUG FILE (#50)	**********************REQUIRED FIELD********************** DRUG(#50) LAST EDITED: `APR 18, 1985` DESCRIPTION: `(Not currently used.)` GROUP: `PSJU`
25	STOP DATE/TIME	2;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `X:X=+X&X&$D(^PS(53.1,DA,2)) "S PSGDL=X D EN^PSJDDUT" S %DT="ERTX" D ^%DT S X=+Y K:Y'>0 X` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Enter the date and time that the last dose is to be given (and the order will expire).` DESCRIPTION: `This is the date and time the order will automatically expire. This package initially assigns a default STOP DATE/TIME, depending on the SITE PARAMETERS.` EXECUTABLE HELP: `D EN^PSJDDUT3("STPDTHLP")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the SCHEDULE TYPE field of the NON-VERIFIED ORDERS File`
26	SCHEDULE	2;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D:'$D(PSGOES) SCH^PSJDDUT` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Answer must be 1-70 characters in length and may contain only two spaces.` DESCRIPTION: `This is the frequency (ONLY) with which the doses are to be administered. Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD, and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the` `admin times). The schedule will show on the MAR, labels, etc. No more than TWO spaces (Q3H 4, TID PC PRN, or Q4H PRN) in the schedule are acceptable. If the letters PRN are found as part of the schedule, no admin times` `will print on the MAR or labels, and the PICK LIST will always show a count of zero (0).` `Avoid using notation such as W/F (with food) or WM (with meals)in the schedule as it may cause erroneous calculations. That information should be entered into the SPECIAL INSTRUCTIONS.` `When using the MO-WE-FR@AD schedule, please remember that this type of schedule will not work properly without the "@" character and at least one admin time, and that at least the first two letters of each weekday` `entered is needed.` EXECUTABLE HELP: `D SCH3^PSJDDUT` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^53.1^39` `1)= I '$D(DIU(0)),$D(PSGS0Y),PSGS0Y S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",5),1:"") I DIU'=PSGS0Y S $P(^(2),"^",5)=PSGS0Y I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0Y,DIH=53.1,DIG=39 D ^DICR K DIV` `2)= I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",5),1:"") I DIU]"" S $P(^(2),"^",5)="" I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=39 D ^DICR K DIV` `CREATE VALUE)= PSGS0Y` `DELETE VALUE)= @` `FIELD)= ADMIN TIMES` `Triggers data into Admin. Times field.` CROSS-REFERENCE: `^^TRIGGER^53.1^41` `1)= I $D(PSGS0XT),PSGS0XT S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",6),1:"") I DIU'=PSGS0XT S $P(^(2),"^",6)=PSGS0XT I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0XT,DIH=53.1,DIG=41 D ^DICR K DIV` `2)= I $D(PSGS0XT) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),"^",6),1:"") I DIU]"" S $P(^(2),"^",6)="" I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV="",DIH=53.1,DIG=41 D ^DICR K DIV` `CREATE VALUE)= PSGS0XT` `DELETE VALUE)= @` `FIELD)= FREQUENCY (in minutes)` `Triggers data into Frequency (min.) field.`
27	ORDER DATE	0;14	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1!($P(X,".",2)']"") X` LAST EDITED: `APR 30, 1985` HELP-PROMPT: `Enter Date/Time that order was written.` DESCRIPTION: `This is the date the medication was ordered.` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
27.1	LOG-IN DATE	0;16	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 24, 1986` DESCRIPTION: `This is the date (to the second) the ordered was entered.` `WRITE AUTHORITY: ^` GROUP: `PSJU` `UNEDITABLE`
28	STATUS	0;9	SET	**********************REQUIRED FIELD********************** 'A' FOR ACTIVE; 'D' FOR DISCONTINUED; 'I' FOR INCOMPLETE; 'N' FOR NON-VERIFIED; 'U' FOR UNRELEASED; 'P' FOR PENDING; 'DE' FOR DISCONTINUED (EDIT); LAST EDITED: `MAY 27, 1992` DESCRIPTION: `This is the status of the order.` GROUP: `PSJU` CROSS-REFERENCE: `53.1^AS^MUMPS` `1)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENSS^PSGAXR` `2)= S XX=X,X="PSGAXR" X ^%ZOSF("TEST") I S X=XX D ENSK^PSGAXR` `3)= NEEDED BY UNIT DOSE` `Sets the following x-refs: ^PS(53.1,"AS",status,patient,DA)` `If the status is not ACTIVE or a DISCONTINUED status, the following are also set: ^PS(53.1,"AC",patient,DA) ^PS(53.1,"AOD",patient,primary drug,DA)` `If the status is pending and order has been acknowledged by a nurse, the following is also set: ^PS(53.1,"AV",patient,DA)` `These are used for certain look-ups.`
29	DATE RENEWAL MARKED	4;11	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 1986` DESCRIPTION: `This is the date the order was marked to be renewed.` GROUP: `PSJU`
30	MARKED CANCELLED	4;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 24, 1986` DESCRIPTION: `This is an internal flag showing that the order has been marked to be cancelled.` GROUP: `PSJU`
31	MARKED CANCELLED USER	4;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the user who marked the order to be cancelled.` GROUP: `PSJU`
32	INACTIVE DATE/TIME	2;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 06, 1987` DESCRIPTION: `This is the original stop date of the order, and is updated when the order is cancelled.` GROUP: `PSJU`
33	DOSES CALLED FOR	5;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 11, 1985` HELP-PROMPT: `Type a whole number between 0 and 9999.` DESCRIPTION: `This is the total amount of the medication to be dispensed as calculated by the package.` GROUP: `PSJU`
34	DOSES ACTUALLY DISPENSED	5;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 11, 1985` HELP-PROMPT: `Type a whole number between 0 and 9999.` DESCRIPTION: `This is the amount of the medication actually dispensed as entered by the pharmacist.` GROUP: `PSJU`
35	RETURNS	5;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 11, 1985` HELP-PROMPT: `Enter a whole number between -100 and 100.` DESCRIPTION: `This is the number of doses returned of this medication from the patient's cassette upon the termination of this order.` EXECUTABLE HELP: `S Y1=$S('$D(^PS(53.1,DA,5)):0,1:$P(^(5),"^",4)) D EN^DDIOL($S(Y1:Y1_"TOTAL",1:"NO")_" DOSE"_$E("S",Y1'=1)_" RETURNED, SO FAR.","","!")` GROUP: `PSJU`
36	TOTAL RETURNS	5;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 11, 1985` HELP-PROMPT: `Type a whole number between 0 and 9999.` DESCRIPTION: `This is the total amount of returns for this order.` GROUP: `PSJU`
37	TOTAL UNITS DISPENSED		COMPUTED	MUMPS CODE: `S Y(53.1,37,2)=$S($D(^PS(53.1,D0,0)):^(0),1:""),Y(53.1,37,1)=$S($D(^(5)):^(5),1:"") S X=$P(Y(53.1,37,1),U,3)+$P(Y(53.1,37,2),U,13)-$P(Y(53.1,37,1),U,4)` ALGORITHM: `DOSES ACTUALLY DISPENSED+PRE-EXCHANGE NEEDS-TOTAL RETURNS` LAST EDITED: `NOV 11, 1985` DESCRIPTION: `This is the total amount dispensed for this order, including PRE-EXCHANGE NEEDS and EXTRA UNITS DISPENSED.` GROUP: `PSJU`
38	DATE MARKED CANCELLED	4;14	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 24, 1986` DESCRIPTION: `This is the date that the order was marked for cancellation.` GROUP: `PSJU`
39	ADMIN TIMES	2;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D ENCHK^PSGS0` LAST EDITED: `FEB 09, 2009` HELP-PROMPT: `Enter a set of administration times for this order.` DESCRIPTION: `This is the set of administration times for this order.` EXECUTABLE HELP: `D ADTM2^PSJDDUT` DELETE TEST: `5,0)= I $D(^PS(53.1,DA,2)),$P(^(2),"^")["@" D EN^DDIOL("YOU CANNOT DELETE THE ADMIN TIMES FOR THIS TYPE OF SCHEDULE. ","","!?2")` `41,0)= I $D(^PS(53.1,DA,2)),$P(^(2),"^",6)="D" D EN^DDIOL("This is a 'DAY OF THE WEEK' schedule, and must have admin times.","","!")` GROUP: `PSJU` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the SCHEDULE field of the NON-VERIFIED ORDERS File` CROSS-REFERENCE: `53.1^AAT^MUMPS` `1)= S PSGS0Y=X` `2)= Q` `Used to ensure the variable PSGS0Y contains the admin times for the order when the field is set using VA FileMan.` `S PSGS0Y=ADMIN TIMES` CROSS-REFERENCE: `53.1^ADM^MUMPS` `1)= I $D(^PS(53.1,DA,2)),$P(^(2),"^")["@" S $P(^(2),"^")=$P($P(^(2),"^"),"@")_"@"_X` `2)= Q` `3)= NEEDED BY UNIT DOSE` `Used to update a DAY OF THE WEEK type schedule whenever the admin times are changed. S $P(^PS(53.1,ORDER NUMBER,2),"^")=$P(SCHEDULE,"@",2)_@_ADMIN TIMES`
40	COMMENTS	3;0	WORD-PROCESSING #53.12	DESCRIPTION: `This is any remarks needed for this order.` GROUP: `PSJU` LAST EDITED: `AUG 21, 1985` HELP-PROMPT: `Enter any incidental information about the order here. This information only shows on an expanded view of an order.` DESCRIPTION: `This is a word processing field that is purely informational. This field only shows on the expanded view on a order.` GROUP: `PSJU`
41	FREQUENCY (in minutes)	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `JAN 09, 1990` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This is either a code or the number of minutes between the administration times for the order.` `WRITE AUTHORITY: ^` GROUP: `PSJU` NOTES: `TRIGGERED by the SCHEDULE field of the NON-VERIFIED ORDERS File`
42	TRANSFER	4;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 24, 1986` DESCRIPTION: `This is an internal flag set if the order was cancelled due to the patient being transferred.` GROUP: `PSJU`
43	PV FLAG	4;16	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 27, 1986` DESCRIPTION: `This is an internal flag set if the order was ever verified by a pharmacist.` GROUP: `PSJU`
44	LABEL DATE	7;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 07, 1986` HELP-PROMPT: `Enter the date the latest label was created for this order.` DESCRIPTION: `This is the date the last label record was created for this order.` GROUP: `PSJU`
45	LABEL REASON	7;2	SET	'D' FOR DISCONTINUED; 'E' FOR EDITED; 'N' FOR NEW; 'DE' FOR DISCONTINUED (EDIT); LAST EDITED: `AUG 31, 1992` HELP-PROMPT: `Enter the reason the latest label was created for this order.` DESCRIPTION: `This is the last activity to take place on the order that created a label record.` GROUP: `PSJU`
46	NEW ORDER NO.	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 22, 1986` HELP-PROMPT: `Enter a whole number between 0 and 999999999` DESCRIPTION: `When an order is first made active, the new order number (from ^PS(55)) is stored in this field.` `(Not currently used.)` GROUP: `PSJU`
47	SIG	6.5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>180!($L(X)<1) X` LAST EDITED: `OCT 22, 1987` HELP-PROMPT: `Answer must be 1-180 characters in length.` DESCRIPTION: `This is the provider's exact instructions for this order's medication and its administration.` GROUP: `PSJU`
48	PURGE FLAG	0;20	SET	'1' FOR ORDER TO BE PURGED; LAST EDITED: `JUN 17, 1987` DESCRIPTION: `This is an internal flag set when the order is due to be purged (deleted).` GROUP: `PSJU`
49	ORDERS FILE ENTRY	0;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 29, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the pointer value of the corresponding entry in the Orders file (100) when the order is entered through the OE/RR process.` GROUP: `PSJU`
50	LAST WARD	0;23	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `AUG 15, 1988` HELP-PROMPT: `SHOULD NOT BE ENTERED THROUGH VA FILEMAN.` DESCRIPTION: `This is the last ward the patient was located when the order expired or was discontinued. This is automatically updated by the Unit Dose package when the package finds that the patient is first admitted or when the` `patient is found to have been transferred. This allows any returns that are entered to be credited to the correct ward.` GROUP: `PSJU`
51	LABEL CREATOR	7;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUL 08, 1991` DESCRIPTION: `This is the user who took the action that created the label for this order.` GROUP: `PSJU`
52	WARD FOR AUTO-CANCEL LABEL	7;4	POINTER TO WARD LOCATION FILE (#42)	WARD LOCATION(#42) LAST EDITED: `NOV 01, 1988` DESCRIPTION: `This is the ward the patient was on before the transfer or discharge that created the label occurred.` GROUP: `PSJU`
53	IV TYPE	8;1	SET	'A' FOR ADMIXTURE; 'C' FOR CHEMOTHERAPY; 'H' FOR HYPERAL; 'P' FOR PIGGYBACK; 'S' FOR SYRINGE; LAST EDITED: `MAY 21, 1991` DESCRIPTION: `Type of IV - "A" for Admixture, "C" for Chemotherapy, "H" for Hyperal, "P" for Piggyback, and "S" for Syringe.`
54	CHEMOTHERAPY TYPE	8;2	SET	**********************REQUIRED FIELD********************** 'A' FOR ADMIXTURE; 'P' FOR PIGGYBACK; 'S' FOR SYRINGE; LAST EDITED: `MAY 21, 1991` DESCRIPTION: `A chemotherapy IV order may be one of three type: admixture, piggyback, or syringe. The type of chemotherapy IV must be identified as one of these types, so the system will know what kinds of questions to ask in order` `to properly complete this order.`
55	SYRINGE SIZE	8;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `MAY 11, 2005` HELP-PROMPT: `Answer must be 1-100 characters in length. Example: 25 cc's ..NOTE.. total volume of order should be less than syringe size.` DESCRIPTION: `Enter the size of the syringe which is to be used to administer this IV.` GROUP: `PSJI`
56	INTERMITTENT SYRINGE	8;4	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 21, 1991` DESCRIPTION: `A syringe IV order may be continuous or intermittent. If a syringe type is continuous (not intermittent), the same order entry procedure will be followed as if a hyperal or admixture is being entered. If a syringe` `order is to be intermittent, the same order entry method as the piggyback type will be followed.` GROUP: `PSJI`
57	ADDITIVE	AD;0	POINTER Multiple #53.157	53.157 DESCRIPTION: `The additive in the IV. This looks at the IV ADDITIVES file (52.6).` GROUP: `PSJI`
58	SOLUTION	SOL;0	POINTER Multiple #53.158	53.158 DESCRIPTION: `Solution in the IV. Points to the IV SOLUTIONS file (52.7).` GROUP: `PSJI`
59	INFUSION RATE	8;5	FREE TEXT	INPUT TRANSFORM: `D ENI^PSJDDUT3` LAST EDITED: `JUN 19, 1997` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `The rate at which the IV is to be administered. This value, together with the total volume of the hyperal or the admixture type, is used to determine the time covered by one bag; hence the system can predict the bags` `needed during a specified time of coverage. This field is free text for IVPB's. For LVP's you must enter a number representing the infusion rate. You may also specify the # of bags per day needed, which will become the` `default number of LABELS PER DAY.` `Example. 125 = 125 ml/hr (IV system will calculate bags needed per day)` `125@2 = 125 ml/hr with 2 labels per day` `TITRATE@1 = TITRATE with 1 label per day.` `The format of this field is either a number only or` `[FREE TEXT@NUMBER OF LABELS PER DAY].` `Note: If an administration time(s) is defined, the number of labels will reflect the administration time(s) for the IVPB type orders. For example: One administration time of 12:00 is specified. The infusion rate is` `entered as 125@3. Only 1 label will print.` TECHNICAL DESCR: `The # of bags per day needed, if entered, populates P("NUMLBL") and displays as the default for the LABELS PER DAY (#131) field.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
60	SCHEDULE INTERVAL	8;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 24, 1991` HELP-PROMPT: `Type a Number between 0 and 9999.` DESCRIPTION: `Interval (in minutes) between administrations of the IV order.` GROUP: `PSJI`
61	ATZERO	8;7	SET	'1' FOR PRINT PB'S ON DEMAND; LAST EDITED: `JUN 03, 1991` DESCRIPTION: `If an IV order is intermittent and a schedule was entered in the form SCHEDULE@0. Notice there are no spaces in the input. When a schedule is entered in this form, this field is set to 1. This causes the order to be` `printed on the Ward and Manufacturing lists with 0 doses due. Scheduled labels for the order will not be printed unless the Ward list is updated before printing scheduled labels. This is a "print on demand" function` `similar to entering INFUSION RATE@0 for continuous orders.` GROUP: `PSJI`
62	IV ROOM	8;8	POINTER TO IV ROOM FILE (#59.5)	**********************REQUIRED FIELD********************** IV ROOM(#59.5) LAST EDITED: `JUL 30, 1991` DESCRIPTION: `IV room where IV bag was prepared for administration.` GROUP: `PSJI`
63	REMARKS	9;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `JUN 03, 1991` HELP-PROMPT: `Answer must be 1-100 characters in length.` DESCRIPTION: `This is not displayed on IV labels, but is printed on some IV reports.` GROUP: `PSJI`
64	OTHER PRINT INFO	9;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X` LAST EDITED: `SEP 05, 1991` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `For use by Pharmacy to print additional information on IV labels and reports.` GROUP: `PSJI` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
66	PROVIDER COMMENTS	12;0	WORD-PROCESSING #53.1012	TECHNICAL DESCR: `This contains additional information entered for an order through OE/RR. Provider comments are displayed when the order is displayed using pharmacy or OE/RR options, but may only be entered/edited through OE/RR.` LAST EDITED: `JUL 15, 1991` DESCRIPTION: `This is used to store an additional information the provider needs to pass along to pharmacy or ward personnel when an order is entered/edited through OE/RR.` TECHNICAL DESCR: `This contains additional information entered for an order through OE/RR. Provider comments are displayed when the order is displayed using pharmacy or OE/RR options, but may only be entered/edited through OE/RR.`
68	PREVIOUS ORDER NUMBER	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 04, 1991` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `When an order is created from an active order, the old number (from ^PS(55)) is stored in this field.` TECHNICAL DESCR: `This is used to take an action on a previous order when the new order has been completed. For example, if an active order is renewed through OE/RR, the old order remains active until the new one is completed by Pharmacy.` `When the new order is completed, the stop date of the old order is changed to the start date of the new order.` GROUP: `PSJ`
101	*PRIMARY DRUG	.1;1	POINTER TO PRIMARY DRUG FILE (#50.3)	PRIMARY DRUG(#50.3) LAST EDITED: `FEB 01, 1996` DESCRIPTION: `This is the primary drug associated with the order. If the order is a unit dose order all dispensed drugs entered must be matched to the order's primary drug. If the order is an IV order at least one of the additives or` `solutions entered must match the primary drug.` CROSS-REFERENCE: `53.1^APD^MUMPS` `1)= D ENNDS^PSGAXR` `2)= D ENNDK^PSGAXR` `3)= Needed to set up several x-refs.` `The cross reference is used to quickly set (or kill) the following cross- references:` `^PS(53.1,"D",Primary Drug,DA)=""` `^PS(53.1,"AOD",Patient,Primary Drug,DA)="" only if the status is not 'A' and not 'D'.`
102	*DOSAGE ORDERED	.1;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `FEB 01, 1996` HELP-PROMPT: `Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters. This is an amount, such as '20MG', and NOT the number of tablets.` DESCRIPTION: `This is the amount of the medication the patient is to receive as one dose for this order. This should be an amount with a unit of measure, such '500MG' or '50CC'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC.` GROUP: `PSJ`
103	REASON ORDER CREATED	0;24	SET	'N' FOR NEW; 'R' FOR RENEWAL; 'E' FOR EDIT; LAST EDITED: `NOV 12, 1991` DESCRIPTION: `This is used to show the method used to create this order.` TECHNICAL DESCR: `This shows if the order was entered through new order entry, or was created as a result of an edit or renewal of an existing order.` GROUP: `PSJ`
104	PREVIOUS ORDER	0;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 12, 1991` DESCRIPTION: `If an action is taken on an order that causes a new order to be created, this will contain a code identifying the previous order.` TECHNICAL DESCR: `If the order was created as a result of an edit or renew, this field will contain the order number of the previous order concatenated with a letter that denotes the status of the order and the file in which it is located.` `The letter concatenated to the order number will be one of the following:` `U - Unreleased, in 53.1` `P - Pending, in 53.1` `N - Non-verified, in 53.1` `A - Active UD order, in 55` `V - Active IV order, in 55` GROUP: `PSJ`
105	FOLLOWING ORDER	0;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 12, 1991` DESCRIPTION: `If an action is taken on an order that causes a new order to be created, this will contain a code identifying the order created.` TECHNICAL DESCR: `If an order is created because of an edit or renew, this field will contain the order number of the following order, concatenated with a letter that denotes the status of the order and the file in which it is located.` `The letter concatenated to the order number will be one of the following:` `U - Unreleased, in 53.1` `P - Pending, in 53.1` `N - Non-Verified, in 53.1` `A - Active UD order, in 55` `V - Active IV order, in 55` GROUP: `PSJ`
106	*NATURE OF ORDER	.1;3	SET	**********************REQUIRED FIELD********************** 'W' FOR WRITTEN; 'P' FOR TELEPHONED; 'V' FOR VERBAL; 'E' FOR PROVIDER ENTERED; LAST EDITED: `FEB 01, 1996` HELP-PROMPT: `Enter the method the provider used to relate the order to the service.` DESCRIPTION: `This is the method the provider used to communicate to the user to enter (or take any other action) the order.` TECHNICAL DESCR: `This is the method the provider used to communicate the order to the user who entered the order. This is needed by the Order Entry/Results Reporting package, and is only prompted for if Inpatient Medications has been` `turned on for OE/RR by the site.` GROUP: `PSJ`
107	REASON FOR FOLLOWING ORDER	0;27	SET	'E' FOR EDIT; 'R' FOR RENEWAL; LAST EDITED: `JAN 26, 1992` DESCRIPTION: `If the order has been edited or renewed, this will contain the code corresponding to the action taken.` TECHNICAL DESCR: `This will contain a "E" if the order was created due to and edit, or a "R" if the order was created due to a renew.` GROUP: `PSJ`
108	ORDERABLE ITEM	.2;1	POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)	PHARMACY ORDERABLE ITEM(#50.7) LAST EDITED: `FEB 22, 1995` DESCRIPTION: `This identifies the Orderable Item associated with the order. If the order contains multiple dispense drugs, or a single dispense drug requiring multiple units/dose, the Orderable Item and Dosage Ordered fields will be` `displayed.`
109	DOSAGE ORDERED	.2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `APR 13, 2001` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This is the amount of the medication the patient is to receive as one dose for this order. This should be an amount with a unit of measure, such as '500mg' or '50CC'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC.`
110	NATURE OF ORDER	.2;3	SET	'W' FOR WRITTEN; 'P' FOR TELEPHONED; 'V' FOR VERBAL; 'E' FOR ELECTRONICALLY ENTERED; 'I' FOR POLICY; 'S' FOR SERVICE CORRECTION; 'D' FOR DUPLICATE; LAST EDITED: `APR 11, 2011` HELP-PROMPT: `Enter the method the provider used to communicate the order to the service.` DESCRIPTION: `This is the method the provider used to communicate the order to the user to enter (or take any other action on) the order.` TECHNICAL DESCR: `This is the method the provider used to communicate the order to the user who entered or took action on the order.`
111	INSTRUCTIONS	.3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `FEB 22, 1995` HELP-PROMPT: `Answer must be 1-200 characters in length.`
112	ORDER CHECKS	10;0	Multiple #53.1112	53.1112
113	CLINIC	DSS;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JUN 25, 2013` HELP-PROMPT: `Enter the name of the clinic where the patient was seen.` DESCRIPTION: `Entry must be a clinic. Depending on the condition, INACTIVATE and REACTIVATE dates may exist.` RECORD INDEXES: `AD (#502), CIMO (#808)`
114	LAST RENEW	14;0	DATE Multiple #53.1114	53.1114 LAST EDITED: `FEB 22, 2000` DESCRIPTION: `This multiple contains the data that relates to the renewal of an order.` TECHNICAL DESCR: `Renewing an order will no longer create a new order. This multiple will be used to track the last time the order was renewed, who renewed the order, the provider of the order prior to this renewal, and the stop date/time` `prior to this renewal.`
115	REQUESTED START DATE/TIME	2.5;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 29, 2000` HELP-PROMPT: `Enter the requested Start Date/Time for this order.` DESCRIPTION: `This is the Date/Time the provider is requesting that this order start.` TECHNICAL DESCR: `This is the Date/Time the provider is requesting that this order start.`
116	DURATION	2.5;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 19, 2000` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the length of time in days the provider requests that this order last.` TECHNICAL DESCR: `This is the length of time in days the provider requests that this order last.`
117	REQUESTED STOP DATE/TIME	2.5;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 24, 2000` HELP-PROMPT: `Enter the Date/Time that the provider requests this order stop.` DESCRIPTION: `This is the Date/Time the provider is requesting that this order stop.`
118	UD/IV PROMPT	0;13	SET	'1' FOR YES; LAST EDITED: `APR 24, 2000` HELP-PROMPT: `Enter a 1 if the user should be prompted to finish this order as IV or Unit Dose.` DESCRIPTION: `This field will be used during the finishing process to determine if the user should be prompted whether they wish to finish the order as an IV or Unit Dose order.`
119	ACTIVITY LOG	A;0	DATE Multiple #53.1119	53.1119 DESCRIPTION: `This is a record of the actions that have taken place on the order.Actions include EDIT, RENEWAL, CANCELLATION, and FINISH. Stored with the action is the date and time the action took place and the user who took the` `action. If the action is an edit, the data in the field edited prior to the edit is also stored.`
120	DOSE	.2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<.0001)!(X?.E1"."5N.N) X` LAST EDITED: `JUN 08, 2000` HELP-PROMPT: `Type a Number between .0001 and 9999999999, 4 Decimal Digits` DESCRIPTION: `This is the numeric dosage for the order. It will be combined with the UNIT field to show the dosage ordered. For a dosage of 325MG, 325 would be stored here.`
121	UNIT	.2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>75!($L(X)<1) X` LAST EDITED: `JUL 27, 2000` HELP-PROMPT: `Answer must be 1-75 characters in length.` DESCRIPTION: `This is the field which contains the unit for the numeric dosage. The combination of these two fields gives you the dosage ordered for this order. For a dosage of 325MG, MG would be stored here.`
122	SI FLAG	6;2	SET	'1' FOR YES; LAST EDITED: `APR 11, 2002` HELP-PROMPT: `Enter 1 for yes.` DESCRIPTION: `This flag controls whether the user administering this order in BCMA will have the Special Instructions displayed in a pop-up box.`
123	OPI FLAG	9;3	SET	'1' FOR YES; LAST EDITED: `APR 11, 2002` HELP-PROMPT: `Enter a 1 for yes.` DESCRIPTION: `This flag controls whether the user administering this order in BCMA will have the Other Print Info displayed in a pop-up box.`
124	FLAGGED	.2;7	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 02, 2002` HELP-PROMPT: `Enter YES if this order is being flagged for clarification` DESCRIPTION: `This indicates that this order has been flagged for clarification.`
125	ORDERS FILE PARENT ORDER	.2;8	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `DEC 13, 2004` HELP-PROMPT: `Enter the parent order, if this order is its child order.` DESCRIPTION: `This is the parent of a CPRS order that may have a parent/child relationship in CPRS` CROSS-REFERENCE: `53.1^ACX` `1)= S ^PS(53.1,"ACX",$E(X,1,30),DA)=""` `2)= K ^PS(53.1,"ACX",$E(X,1,30),DA)` `This cross reference is created each time a component of a complex order, or child order, is received from CPRS. This cross reference will not be created for orders with a schedule of NOW, effectively disassociating the` `NOW order from the other child orders in the complex order.`
126	APPOINTMENT DATE/TIME	DSS;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `JUL 29, 2003` HELP-PROMPT: `Date and time of the appointment for this clinic location.` DESCRIPTION: `This is the date and time of the appointment this order is being placed for.`
127	REQUESTED IV LIMITATION	2.5;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1)!'(X?1.2A1.5N) X` LAST EDITED: `NOV 15, 2004` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `This is the length of time to administer, or the total volume to administer, for IV fluid orders. The value may be in ML or CC for milliliters, L for liters, D for days, or H for hours.`
128	IV TYPE CATEGORY	2.5;5	SET	'I' FOR INTERMITTENT; 'C' FOR CONTINUOUS; LAST EDITED: `OCT 20, 2007` DESCRIPTION: `This field contains the category of the order's IV TYPE.` `The IV TYPE CATEGORY will be "C" (Continuous) for orders with an IV TYPE of Admixture, Hyperal, Non-Intermittent Syringe, or Chemotherapy with a CHEMOTHERAPY TYPE of Admixture, Hyperal, or Non-Intermittent Syringe.` `The IV TYPE CATEGORY will be "I" (Intermittent) for orders with an IV TYPE of Piggyback, Intermittent Syringe, or Chemotherapy with a CHEMOTHERAPY TYPE of Piggyback or Intermittent Syringe.`
129	MOST RECENT FLAG COMMENT	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUL 30, 2007` HELP-PROMPT: `Answer must be 1-80 characters in length`
130	INTERVENTION	11;0	POINTER Multiple #53.13	53.13 DESCRIPTION: `Interventions logged during Inpatient Order Entry in response to drug-drug or drug-allergy order checks. Only interventions associated with a specific Inpatient Order will be stored with that order.`
131	LABELS PER DAY	17;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 25, 2012` HELP-PROMPT: `Type a number between 0 and 99, 0 decimal digits.` DESCRIPTION: `The number of IV labels needed each day. If populated, this value will override the system-calculated number of labels.`
132	INDICATION FOR USE	18;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` `MAXIMUM LENGTH: 40` LAST EDITED: `JUL 09, 2020` HELP-PROMPT: `Enter the Indication For Use. Answer must be 3-40 characters in length.` DESCRIPTION: `This field contains the Indication For Use that is chosen when the medication is ordered.`
135	SPECIAL INSTRUCTIONS (LONG)	15;0	WORD-PROCESSING #53.1135	TECHNICAL DESCR: `This word processing field may contain an unlimited number of lines of text.` LAST EDITED: `SEP 12, 2011` HELP-PROMPT: `Enter clinical instructions related to the dispensing or administering of this order.` DESCRIPTION: `This is any special instructions (using abbreviations whenever possible) needed for this order. This would include the physician's reason for ordering a PRN. The abbreviations and expansions from the MEDICATION` `INSTRUCTIONS file are utilized.`
136	OTHER PRINT INFO (LONG)	16;0	WORD-PROCESSING #53.1136	TECHNICAL DESCR: `This field is a word processing field and may contain an unlimited number of lines of text.` LAST EDITED: `NOV 04, 2011` HELP-PROMPT: `Enter clinical instructions related to the dispensing or administering of this order.` DESCRIPTION: `For use by Pharmacy to print additional information on IV labels and reports. This field is very similar to the REMARKS field except that OTHER INFO is shown on the label and the IV REPORTS.`
137	DURATION OF ADMINISTRATION	2.1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `JUN 22, 2015` HELP-PROMPT: `Answer must be 1-6 characters in length. Expressed in Minutes. DO NOT EDIT!` DESCRIPTION: `This is the period of time that a Medication Requiring Removal must remain on the patient prior to removal.` TECHNICAL DESCR: `This is the period of time in minutes. The user enters the time in hours then they are converted to minutes to remain consistent with schedule Frequency. Only entered via Inpatient Meds` `SOURCE OF DATA: PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
138	REMOVE TIMES	2.1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `JUN 23, 2015` HELP-PROMPT: `Answer must be 1-60 characters in length. DO NOT EDIT!` DESCRIPTION: `This is the set of removal times for this order.` TECHNICAL DESCR: `Actual calculated Removal times based on user input. Admin Time + Duration of Admin = Removal` EXECUTABLE HELP: NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
139	REMOVE PERIOD (in minutes)	2.1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `AUG 18, 2015` HELP-PROMPT: `Answer must be 1-6 characters in length. DO NOT EDIT!` DESCRIPTION: `Period of time in minutes calculated using the Duration of Administration and the Administration times. Only entered via PSJ OE.` TECHNICAL DESCR: `Calculated field in PSJ OE. Frequency - Duration of Admin = Remove Period. Value of -1 indicates optional entry for Orderable Item was declined by user.` `SOURCE OF DATA: PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
140	BCMA PROMPT FOR REMOVAL FLAG	2.1;4	SET	'0' FOR No Removal Required; '1' FOR Removal at Next Administration; '2' FOR Removal Period Optional Prior to Next Administration; '3' FOR Removal Period Required Prior to Next Administration; LAST EDITED: `AUG 20, 2015` HELP-PROMPT: `Enter values 0 through 3 as flags. DO NOT EDIT!` DESCRIPTION: `Orderable Item Prompt for Removal flag captured at order time. DO NOT EDIT!` TECHNICAL DESCR: `Orderable Item Prompt for Removal Flag used by BCMA. Controls method of prompting for VDL users.` `SOURCE OF DATA: PSJ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #534	Health Summary COMPREHENSIVE CARE COORDINATION	PRIORITY (.24). Access: Read w/Fileman PROVIDER (1). Access: Read w/Fileman MED ROUTE (3). Access: Read w/Fileman SCHEDULE TYPE (7). Access: Read w/Fileman SPECIAL INSTRUCTIONS (8). Access: Read w/Fileman START DATE/TIME (10). Access: Read w/Fileman STOP DATE/TIME (25). Access: Read w/Fileman SCHEDULE (26). Access: Read w/Fileman STATUS (28). Access: Read w/Fileman FREQUENCY (in minutes) (41). Access: Read w/Fileman IV TYPE (53). Access: Read w/Fileman CHEMOTHERAPY TYPE (54). Access: Read w/Fileman INFUSION RATE (59). Access: Read w/Fileman REMARKS (63). Access: Read w/Fileman PROVIDER COMMENTS (66). Access: Read w/Fileman DOSAGE ORDERED (109). Access: Read w/Fileman INSTRUCTIONS (111). Access: Read w/Fileman CLINIC (113). Access: Read w/Fileman DURATION (116). Access: Read w/Fileman DOSE (120). Access: Read w/Fileman UNIT (121). Access: Read w/Fileman REQUESTED IV LIMITATION (127). Access: Read w/Fileman IV TYPE CATEGORY (128). Access: Read w/Fileman INDICATION FOR USE (132). Access: Read w/Fileman SPECIAL INSTRUCTIONS (135). Access: Read w/Fileman TYPE (4). Access: Read w/Fileman DISPENSE DRUG (.01). Access: Read w/Fileman INACTIVE DATE (.03). Access: Read w/Fileman ADDITIVE (.01). Access: Read w/Fileman STRENGTH (1). Access: Read w/Fileman BOTTLE (2). Access: Read w/Fileman SOLUTION (.01). Access: Read w/Fileman VOLUME (1). Access: Read w/Fileman
ICR #2140	Pharmacy Data Management	SCHEDULE TYPE (7). Access: Direct Global Read & w/Fileman RENEWAL (9). Access: Direct Global Read & w/Fileman STATUS (28). Access: Direct Global Read & w/Fileman ORDERS FILE ENTRY (49). Access: Direct Global Read & w/Fileman IV ROOM (62). Access: Direct Global Read & w/Fileman CLINIC (113). Access: Direct Global Read & w/Fileman
ICR #2907	Text Integration Utility Order Entry Results Reporting	ORDERABLE ITEM (108). Access: Direct Global Read & w/Fileman DISPENSE DRUG (.01). Access: Direct Global Read & w/Fileman
ICR #5793	Outpatient Pharmacy	ADDITIVE (57). Access: Direct Global Read & w/Fileman ORDERS FILE ENTRY (49). Access: Direct Global Read & w/Fileman	This also allows a check for data on the '0' node of thefile.

Customize PDF page

Package: Inpatient Medications

Global: ^PS(53.1

Information

Description

Accessed By FileMan Db Calls, Total: 48

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 14

Fields, Total: 109

ICR, Total: 4