Global: ^PS(53.1

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

Package	Total	Routines
Inpatient Medications	162	ADDITIVE DISPENSE DRUG LAST RENEW ORDER CHECKS PSGAL5 PSGAPP PSGAXR PSGBRJ PSGCAP0 PSGCAPP PSGMAR2 PSGMUTL PSGOECS PSGOESF PSGOETO PSGOEVS PSGORS0 PSGOT PSGOU PSGSICHK PSGVW PSGXR310 PSGXR311 PSGXR312 PSIVEDT1 PSIVORA1 PSIVORFA PSIVORFB PSIVORFE PSIVORV1 PSIVSPDC PSJ0050 PSJ53P1 PSJBCBU PSJBCMA PSJCOM PSJDDUT PSJHL4A PSJHLU PSJHLV PSJLIVMD PSJLMUDE ^PS(53.1 PSGDL PSGDSP0 PSGGAO PSGL PSGL0 PSGLW PSGMMAR0 PSGMMAR2 PSGMMAR5 PSGMMIVC PSGNE3 PSGO PSGOE1 PSGOE2 PSGOE6 PSGOE82 PSGOE9 PSGOE91 PSGOE92 PSGOEC PSGOEE PSGOEEW PSGOEF PSGOEF1 PSGOEI PSGOERS PSGOES PSGOEV PSGOTR PSGPR PSGS0 PSGSH PSGVBW PSGVBW0 PSGVBW1 PSGVBWP PSGVBWU PSGVW0 PSGXR31 PSGXR32 PSGXR33 PSGXR34 PSGXR35 PSGXR36 PSGXR37 PSGXR38 PSGXR39 PSIVACT PSIVCAL PSIVEDT PSIVHIS PSIVOPT PSIVOPT2 PSIVORA PSIVORC PSIVORC1 PSIVORC2 PSIVORE PSIVOREN PSIVPRO PSIVUDL PSIVUTL PSIVUTL1 PSIVVW1 PSJ005 PSJ007 PSJADT0 PSJBCMA1 PSJBCMA3 PSJCOM1 PSJCOMV PSJDCU PSJEEU0 PSJH1 PSJHIS PSJHL2 PSJHL4 PSJHL5 PSJHL7 PSJHL9 PSJLIACT PSJLIFN PSJLIFNI PSJLIUTL PSJLIVFD PSJLMGUD PSJLMHED PSJLMPRI PSJLMUT1 PSJLMUTL PSJLOI PSJMPEND PSJO1 PSJO2 PSJOE PSJOE0 PSJOEA PSJOEA1 PSJOEA2 PSJOEEW PSJOREN PSJORMA2 PSJORMAR PSJORRE PSJORRE1 PSJORREN PSJORRN PSJORRN1 PSJORRO PSJORUT2 PSJPATMR PSJPR PSJPR0 PSJPXRM1 PSJRXI PSJUTL PSJUTL1 PSJUTL2 SOLUTION
IHS Mods To Text Integration Utilities	6	BTIULMED BTIUMED2 BTIUMED3 BTIUMED4 BTIUMED6 BTIUMED9
Pharmacy Data Management	4	PSSGS0 PSSGSGUI PSSGSH PSSORUTE
Local Area Programs	1	AZAXDPM2
Text Integration Utility	1	TIULMED

Package	Total	Routines
Inpatient Medications	24	PSGBRJ PSGGAO PSGOEC PSGOECS PSGOEE PSGOEF1 PSGOEI PSGOETO PSGOEV PSGSH PSIVEDT PSIVOPT1 PSIVORA PSIVORC PSIVOREN PSIVORFA PSIVSPDC PSJ005 PSJHL4 PSJHL9 PSJHLV PSJOEA1 PSJOEA2 PSJUTL1

Package	Total	FileMan Files
Pharmacy Data Management	1	PHARMACY SYSTEM(#59.7)[20.14, 20.404]

Package	Total	FileMan Files
Pharmacy Data Management	4	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] VA 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]

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: `AUG 16, 1985` 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 VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) LAST EDITED: `MAY 01, 2004` 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 (#455)`
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: `MAY 30, 1986` 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^26` 1)= I X="OC" S DIU=$P($G(^PS(53.1,DA,2)),"^") I DIU'="ON CALL" S $P(^(2),"^")="ON CALL" I $O(^DD(53.1,26,1,0)) K DIV S (DIV(0),D0)=DA,DIV="ON CALL",DIH=53.1,DIG=26,(PSGS0XT,PSGS0Y)="" D ^DICR K DIV 2)= Q 3)= Used by Inpatient Meds. CREATE CONDITION)= I X="OC" CREATE VALUE)= @ DELETE VALUE)= NO EFFECT FIELD)= SCHEDULE If the SCHEDULE TYPE is entered as, or changed to, "ON CALL", the SCHEDULE is changed to "ON CALL" (which will also delete the ADMIN TIMES and FREQUENCY fields). 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` TRIGGERED by the SCHEDULE TYPE field of the NON-VERIFIED ORDERS File 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: `MAY 28, 1988` 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 EN^DDIOL("EACH TIME MUST BE TWO DIGITS BETWEEN 01 AND 24. THE TIMES MUST BE SEPARATED WITH ""-""'S AND BE IN ASCENDING ORDER.","","!")` 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`
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, in conjunction 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 that will represent the infusion rate. You may also specify the # of bags per day that will be needed. 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. 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	DESCRIPTION: This is used to store any additional information the provider needs to pass along to pharmacy or ward personnel when an order is entered 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: `FEB 24, 2000` 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: `MAY 01, 2004` 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 (#455)`
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`
9999999.01	BEYOND USE DAYS	9999999;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 22, 2013` HELP-PROMPT: `Type a Number between 0 and 30, 0 Decimal Digits` DESCRIPTION: `This field contains the number of days to add to the date the label is printed to determine the expiration date for the IV.`

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: AUG 16, 1985
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 VA PATIENT FILE (#2)

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

VA PATIENT(#2)

LAST EDITED: MAY 01, 2004

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 (#455)

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: MAY 30, 1986
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^26

1)= I X="OC" S DIU=$P($G(^PS(53.1,DA,2)),"^") I DIU'="ON CALL" S $P(^(2),"^")="ON CALL" I $O(^DD(53.1,26,1,0)) K DIV S (DIV(0),D0)=DA,DIV="ON CALL",DIH=53.1,DIG=26,(PSGS0XT,PSGS0Y)="" D ^DICR K DIV

2)= Q

3)= Used by Inpatient Meds.

CREATE CONDITION)= I X="OC"

CREATE VALUE)= @

DELETE VALUE)= NO EFFECT

FIELD)= SCHEDULE

If the SCHEDULE TYPE is entered as, or changed to, "ON CALL", the SCHEDULE is changed to "ON CALL" (which will also delete the ADMIN TIMES and FREQUENCY fields).

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

TRIGGERED by the SCHEDULE TYPE field of the NON-VERIFIED ORDERS File

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: MAY 28, 1988
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 EN^DDIOL("EACH TIME MUST BE TWO DIGITS BETWEEN 01 AND 24. THE TIMES MUST BE SEPARATED WITH ""-""'S AND BE IN ASCENDING ORDER.","","!")
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

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, in conjunction 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 that will represent the infusion rate.  You may also specify the # of bags per day that will be

needed.

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.

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

DESCRIPTION:

This is used to store any additional information the provider needs to pass along to pharmacy or ward personnel when an order is entered 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: FEB 24, 2000
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: MAY 01, 2004
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 (#455)

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

9999999.01

BEYOND USE DAYS

9999999;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>30)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 22, 2013
HELP-PROMPT: Type a Number between 0 and 30, 0 Decimal Digits
DESCRIPTION: This field contains the number of days to add to the date the label is printed to determine the expiration date for the IV.

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #534	HEALTH SUMMARY
ICR #2140	PHARMACY DATA MANAGEMENT	SCHEDULE TYPE (7). Access: Direct Global Read & w/Fileman ORDERS FILE ENTRY (49). Access: Direct Global Read & w/Fileman RENEWAL (9). Access: Direct Global Read & w/Fileman STATUS (28). Access: Direct Global Read & w/Fileman
ICR #2907	Text Integration Utility	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.

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	.5(XREF 1S), .5(XREF 1K), 16(XREF 1S), 16(XREF 1K), 28(XREF 1S), 28(XREF 1K)
^DD(53.1	ID7+1, 5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
^PS(51.2 - [#51.2]	ID3+1
^PS(53.1 - [#53.1]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2S), 25+1, 26(XREF 1S), 26(XREF 1K) , 26(XREF 2S), 26(XREF 2K), 35(HELP ), 37+1, 39DEL5+1, 39DEL41+1, 39(XREF 2S), 125(XREF 1S), 125(XREF 1K)
^PS(55 - [#55]	1(XREF 1S)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ID7+1*
>> %DT	10+1, 17+1, 19+1, 21+1, 23+1, 25+1, 27+1, 27.1+1, 29+1, 32+1 , 38+1, 44+1, 115+1, 117+1, 126+1*
>> D0	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 37+1
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2S), 7(XREF 2n1.4), 25+1, 26(XREF 1S) , 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 35(HELP ), 39DEL5+1, 39DEL41+1, 39(XREF 2S), 125(XREF 1S), 125(XREF 1K)
DIC	ID3+1, ID7+1, 1+1!, 3+1!, 20+1!*
DIC("S"	1+1, 1SCR+1, 3+1, 3SCR+1, 20+1, 20SCR+1
>> DIE	1+1, 3+1, 20+1
>> DIG	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
>> DIH	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
>> DIU	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
>> DIU(0	26(XREF 1S), 26(XREF 1K)
DIV	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
DIV(0	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
>> PSGOES	26+1
>> PSGS0XT	7(XREF 1S), 26(XREF 2S), 26(XREF 2K)
>> PSGS0Y	7(XREF 1S), 26(XREF 1S), 26(XREF 1K), 39(XREF 1S)
U	ID3+1, ID7+1, 1(XREF 1S), 37+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .25+1!, .5(XREF 1S), .5(XREF 1K), 1+1!, 1(XREF 1S), 3+1!, 5(XREF 1S) , 7(XREF 1S), 7(XREF 2S), 10+1!, 11+1!, 12+1!, 13+1!, 14+1!, 16(XREF 1S), 16(XREF 1K), 17+1! , 19+1!, 20+1!, 21+1!, 23+1!, 25+1!, 27+1!, 27.1+1!, 28(XREF 1S), 28(XREF 1K), 29+1! , 32+1!, 33+1!, 34+1!, 35+1!, 36+1!, 37+1, 38+1!, 39+1!, 39(XREF 1S), 39(XREF 2S) , 41+1!, 44+1!, 46+1!, 47+1!, 49+1!, 55+1!, 60+1!, 63+1!, 64+1!, 68+1! , 102+1!, 104+1!, 105+1!, 109+1!, 111+1!, 115+1!, 116+1!, 117+1!, 120+1!, 121+1! , 125(XREF 1S), 125(XREF 1K), 126+1!, 127+1!, 129+1!, 9999999.01+1!
>> XX	.5(XREF 1S), .5(XREF 1K), 16(XREF 1S), 16(XREF 1K), 28(XREF 1S), 28(XREF 1K)
>> Y	1+1, 3+1, 10+1, 13OT+1*, 17+1, 19+1, 20+1, 21+1, 23+1, 25+1 , 27+1, 27.1+1, 29+1, 32+1, 38+1, 44+1, 115+1, 117+1, 126+1
>> Y(	37+1*
>> Y(0	13OT+1*
>> Y1	35(HELP )

Customize PDF page

Package: Inpatient Medications

Global: ^PS(53.1

Information

Description

Directly Accessed By Routines, Total: 178

Accessed By FileMan Db Calls, Total: 24

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 13

Fields, Total: 101

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	10+1, 17+1, 19+1, 21+1, 23+1, 25+1, 27+1, 27.1+1, 29+1, 32+1 , 38+1, 44+1, 115+1, 117+1, 126+1
EN^DDIOL	10(HELP ), 35(HELP ), 39(HELP ), 39DEL5+1, 39DEL41+1
^DIC	1+1, 3+1, 20+1
^DICR	5(XREF 1S), 5(XREF 1K), 7(XREF 1S), 7(XREF 2n1.4), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
ENNACK^PSGAXR	16(XREF 1S)
ENNACKK^PSGAXR	16(XREF 1K)
ENNDK^PSGAXR	101(XREF 1K)
ENNDS^PSGAXR	101(XREF 1S)
ENNPK^PSGAXR	.5(XREF 1K)
ENNPS^PSGAXR	.5(XREF 1S)
ENSK^PSGAXR	28(XREF 1K)
ENSS^PSGAXR	28(XREF 1S)
ENCHK^PSGS0	39+1
CHKSI^PSJDDUT	8+1
SCH^PSJDDUT	26+1
SCH3^PSJDDUT	26(HELP )
SCHTP^PSJDDUT	7(HELP )
SPCIN^PSJDDUT	8(HELP )
STRDT^PSJDDUT	10+1
UNPD^PSJDDUT	13(HELP )
EN^PSJDDUT3	25(HELP )
ENI^PSJDDUT3	59+1

Name	Field # of Occurrence
^(0	ID3+1, ID7+1, 1(XREF 1S), 5(XREF 1S), 5(XREF 1K), 37+1
^(2	7(XREF 1S), 7(XREF 2S), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 39DEL5+1, 39DEL41+1, 39(XREF 2S)
^(5	35(HELP ), 37+1
^(5.1	1(XREF 1S)