STANDARD DATA DICTIONARY #55 -- PHARMACY PATIENT FILE 3/24/25 PAGE 1
STORED IN ^PS(55, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 1.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file holds, for each patient, information that is typically of interest only to the pharmacy. This should be noted when
merging patient records and deleting the 'old' record from the patient file. That process does not delete the corresponding
pharmacy patient file entry.
This file is also shared with inpatient pharmacy and promises to become a very central file to the pharmacy.
COMPILED CROSS-REFERENCE ROUTINE: PSSJXR
DD ACCESS: @
APPLICATION GROUP(S): PS
POINTED TO BY: LAST PATIENT CONVERTED TO V4 field (#20.8) of the PHARMACY SYSTEM File (#59.7)
LAST PATIENT CONVERTED (IV) field (#30.2) of the PHARMACY SYSTEM File (#59.7)
CROSS
REFERENCED BY: STATUS(ADC), DOCUMENTED DATE(ADCDT), DIALYSIS PATIENT(ADIA), STOP DATE/TIME(AIT), STOP DATE/TIME(AIV),
START DATE/TIME(AIVS), NAME(ALCNVRT), NV FLAG(ANIV), NV FLAG(ANV), ORDER NUMBER(ANV2), STATUS(ANVO),
PV FLAG(APIV), PV FLAG(APV), ORDER NUMBER(APV2), PV FLAG(AQ), CLOZAPINE REGISTRATION NUMBER(ASAND),
CLOZAPINE REGISTRATION NUMBER(ASAND1), STOP DATE/TIME(AUD), NAME(AUDAPM), NAME(AUDDD), PURGE FLAG(AUDDD),
START DATE/TIME(AUDS), ORDER NUMBER(AUE), NAME(B)
INDEXED BY: START DATE/TIME & STOP DATE/TIME (ACRIV), ORDERABLE ITEM & DOCUMENTED DATE & START DATE & DISCONTINUED DATE
(ACRNVA), START DATE/TIME & STOP DATE/TIME (ACRUD), ORDERS FILE PARENT ORDER & ORDERS FILE ENTRY (ACX), ORDERS FILE
PARENT ORDER & ORDERS FILE ENTRY (ACX1), FIRST SERVICE DATE (AFSD), STOP DATE/TIME & CLINIC (AIVC), STOP DATE/TIME &
CLINIC (AUDC), CLINIC (CIMOCLI), CLINIC (CIMOCLU), PATIENT NAME & CLINIC & STOP DATE/TIME (CIMOU)
LAST MODIFIED: OCT 5,2022@14:49:54
55,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 30, 1984
HELP-PROMPT: Type a whole number between 0 and 9999999.
DESCRIPTION:
This allows users to select entries by the internal number.
GROUP: PS
55,.01 NAME 0;1 POINTER TO PATIENT FILE (#2) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: MAR 08, 1989
DESCRIPTION:
This is the name of a patient that has some type of pharmacy order.
GROUP: PS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55^B
1)= S ^PS(55,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 55^ALCNVRT^MUMPS
1)= I '$D(PSGINITF) S ^PS(55,"ALCNVRT")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
2)= Q
Used by the Inpatient post-inits to determine if a conversion needs to be run on this file. In the
form of: ^PS(55,"ALCNVRT")
CROSS-REFERENCE: 55^AUDDD^MUMPS
1)= I '$D(PSGINITF) S ^PS(55,"AUDDD")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
2)= Q
Used by the Inpatient post-inits to determine if a conversion needs to be run on this file. In the
form of: ^PS(55,"AUDDD")
CROSS-REFERENCE: 55^AUDAPM^MUMPS
1)= I '$D(PSGINITF) S ^PS(55,"AUDAPM")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
2)= Q
Used by the Inpatient post-inits to determine if a conversion needs to be run on this file. In the
form of: ^PS(55,"AUDAPM")
55,.02 CAP 0;2 SET
'1' FOR NON-SAFETY;
'0' FOR SAFETY;
LAST EDITED: SEP 06, 1982
HELP-PROMPT: Enter 1 if the patient should be issued non-safety caps or 0 if safety caps should be issued.
DESCRIPTION:
This field is used to indicate if safety caps are to be issued to patient.
55,.03 MAIL 0;3 SET
'0' FOR REGULAR MAIL;
'1' FOR CERTIFIED MAIL;
'2' FOR DO NOT MAIL;
'3' FOR LOCAL - REGULAR MAIL;
'4' FOR LOCAL - CERTIFIED MAIL;
LAST EDITED: FEB 10, 1997
HELP-PROMPT: Enter: (0) Regular Mail (Can be CMOP) (1) Certified Mail (Can be CMOP) (2) DO NOT MAIL (3)
Local-Regular Mail (4) Local-Certified Mail
DESCRIPTION: This field is used to: A) Determine whether this patient's Rx's are to be sent to the CMOP, or
retained for local distribution. If 2-4 are selected, none of this patient's Rx's will be
transmitted to the CMOP. B) Select what the mail priority is. The CMOP choices are limited to (0)
REGULAR and (1) CERTIFIED. Local mail may be designated (3) LOCAL - REGULAR or (4) LOCAL -
CERTIFIED. The 'DO NOT MAIL' code (2) may be used to ensure that the patient's Rx's are not mailed.
55,.04 DIALYSIS PATIENT 0;4 SET
'0' FOR NO;
'1' FOR YES;
HELP-PROMPT: Enter 0 if the patient is not in dialysis or a 1 if the patient is in dialysis.
DESCRIPTION:
This field is used to indicate if the patient is in dialysis.
CROSS-REFERENCE: 55^ADIA
1)= S ^PS(55,"ADIA",$E(X,1,30),DA)=""
2)= K ^PS(55,"ADIA",$E(X,1,30),DA)
55,.05 MAIL STATUS EXPIRATION DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 10, 1997
HELP-PROMPT: If a time limit is desired for the "Do Not Mail", "Local - Regular Mail" or "Local - Certified
Mail" conditions found in the "MAIL" field, then enter the date here.
DESCRIPTION: This field places a time limit on the 'Do Not Mail', 'Local - Regular Mail' and 'Local - Certified
Mail' conditions in the 'MAIL' field. If a date is placed in this field and the software detects
that the date the Rx is processed is greater than the date in the field (past the expired date) a
default value of 'Regular Mail' will be assumed for the 'MAIL' field. NOTE: The actual value of
the 'MAIL' field will not be changed by the software, but can only be modified by a user editing
the 'MAIL' field.
55,.07 FIRST SERVICE DATE 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 29, 2005
HELP-PROMPT: Login date of first pharmacy service.
DESCRIPTION:
This is the login date of the first order for pharmacy services.
FIELD INDEX: AFSD (#816) MUMPS IR SORTING ONLY
Short Descr: BUILD QUEUE FOR PBM RETRANSMIT IF FIRST SERVICE DATE UPDATED.
Description: If the patient's FIRST SERVICE DATE is updated, this cross-reference will queue the patient for
demographic retransmit.
Set Logic: D LOGDFN^PSUHL(DA)
Kill Logic: Q
X(1): FIRST SERVICE DATE (55,.07) (Subscr 1) (Len 30) (forwards)
55,.08 ACTUAL/HISTORICAL FLAG 0;8 SET
'A' FOR ACTUAL;
'H' FOR HISTORICAL;
LAST EDITED: DEC 06, 2001
HELP-PROMPT: ACTUAL OR HISTORICAL FIRST SERVICE DATE
DESCRIPTION: The purpose of this field is to indicate whether the FIRST SERVICE DATE field was populated with
actual or historical data. Actual indicates the field was populated when the first pharmacy
service was filed. Historical indicates the field was populated by the conversion routine.
55,1 NARRATIVE 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>250!($L(X)<1) X
HELP-PROMPT: Answer must be 1-250 characters in length.
DESCRIPTION:
This is notable information about the patient that pertains to pharmacy.
GROUP: PS
55,3 PATIENT STATUS PS;1 POINTER TO RX PATIENT STATUS FILE (#53)
LAST EDITED: DEC 18, 1984
HELP-PROMPT: Enter the default patient status.
DESCRIPTION:
This field is used to indicate a default patient status.
55,40 COMMUNITY NURSING HOME 40;1 SET
'1' FOR YES;
LAST EDITED: NOV 08, 1989
HELP-PROMPT: Enter Y if this patient is in a community nursing home.
DESCRIPTION:
This field is used to indicate if the patient resides within a community nursing home.
55,40.1 NURSING HOME CONTRACT 40;2 SET
'1' FOR YES;
LAST EDITED: NOV 08, 1989
HELP-PROMPT: Enter Y if this nursing home stay is covered by a contract.
DESCRIPTION:
This field is used to indicate if the patient has a nursing home contract.
55,40.2 LAST DATE OF CONTRACT 40;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 02, 1990
HELP-PROMPT: Enter the date on which the contract expires.
DESCRIPTION:
This field is used to indicate the last date of the nursing home contract.
55,41 RESPITE PATIENT START DATE 40;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 08, 1989
HELP-PROMPT: Enter the date on which this patient entered for respite treatment.
DESCRIPTION:
This field is used to indicate the start date of respite care.
55,41.1 RESPITE PATIENT END DATE 40;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 08, 1989
HELP-PROMPT: Enter the final date of respite treatment.
DESCRIPTION:
This field is used to indicate the end date of respite care.
55,50 ACTIVE SCRIPTS ; COMPUTED
MUMPS CODE: X ^DD(55,50,9.2) S Y(55,50,102)="" X "F D1=0:0 S D1=$N(^PS(55,D0,""P"",D1)) Q:D1'>0 X $P(^DD(55.03
,3,0),U,5,99) S:X Y(55,50,102)=Y(55,50,102)+1" S X=Y(55,50,102) S D1=Y(55,50,1) S X=$J(X,0,0)
9.2 = S Y(55,50,1)=$S($D(D1):D1,1:"")
ALGORITHM: COUNT(PRESCRIPTION PROFILE:ACTIVE) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: APR 28, 1984
DESCRIPTION:
This field is used to indicate active prescriptions.
TECHNICAL DESCR:
computed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55,52 PRESCRIPTION PROFILE P;0 POINTER Multiple #55.03
DESCRIPTION:
This sub-file is used to indicate prescription history for this patient.
GROUP: PSO
55.03,.01 PRESCRIPTION PROFILE 0;1 POINTER TO PRESCRIPTION FILE (#52)
LAST EDITED: MAY 19, 1993
DESCRIPTION:
This field is used to indicate prescription history.
TECHNICAL DESCR:
pointer.
GROUP: PSO
CROSS-REFERENCE: 55.03^A^MUMPS
1)= D SREF^PSOHELP1
2)= D KREF^PSOHELP1
3)= DO NOT DELETE!
This cross reference is used to index prescriptions by expiration or cancel date. Expiration or
Cancel date is the date all activity stops for this prescription. In the form of:
^PS(55,DA(1),"P","A",$P(^PSRX(X,2),"^",6),X)
55.03,1 DRUG ; COMPUTED
MUMPS CODE: X ^DD(55.03,1,9.2) S X=$S('$D(^PSDRUG(+$P(Y(55.03,1,101),U,6),0)):"",1:$P(^(0),U,1)) S D0=Y(55.03,1
,2)
9.2 = S Y(55.03,1,2)=$S($D(D0):D0,1:""),Y(55.03,1,1)=$S($D(^PS(55,D0,"P",D1,0)):^(0),1:""),D0=$P(Y(
55.03,1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(55.03,1,101)=$S($D(^PSRX(D0,0)):^(0),1:"")
ALGORITHM: .01:DRUG
DESCRIPTION:
This field is used to indicate the medication for the prescription.
TECHNICAL DESCR:
computed.
GROUP: PSO
55.03,2 STATUS ; COMPUTED
MUMPS CODE: X ^DD(55.03,2,9.3) S D0=Y(55.03,2,2)
9.2 = S Y(55.03,2,2)=$S($D(D0):D0,1:""),Y(55.03,2,1)=$S($D(^PS(55,D0,"P",D1,0)):^(0),1:""),D0=$P(Y(
55.03,2,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1
9.3 = X ^DD(55.03,2,9.2) S X="UNKNOWN" I D0>0 S J=+D0,RX0=^PSRX(J,0),RX2=$S($D(^(2)):^(2),1:"") D S
TAT^PSOEXDT S X=ST
ALGORITHM: .01:STATUS
DESCRIPTION:
This field is used to indicate the status of the prescription.
TECHNICAL DESCR:
computed.
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.03,3 ACTIVE ; BOOLEAN COMPUTED
MUMPS CODE: X ^DD(55.03,3,9.2) S X=X["NON-VERIFIED",Y=X,X=Y(55.03,3,3),X=X!Y,Y(55.03,3,4)=X S X=Y(55.03,3,1)["S
USPEND",Y=X,X=Y(55.03,3,4),X=X!Y
9.2 = X $P(^DD(55.03,2,0),U,5,99) S Y(55.03,3,1)=X S X=Y(55.03,3,1)="ACTIVE",Y(55.03,3,2)=X S X=Y(5
5.03,3,1)="HOLD",Y=X,X=Y(55.03,3,2),X=X!Y,Y(55.03,3,3)=X S X=Y(55.03,3,1)
ALGORITHM: STATUS="ACTIVE"!(STATUS="HOLD")!(STATUS["NON-VERIFIED")!(STATUS["SUSPEND")
LAST EDITED: APR 28, 1984
DESCRIPTION: The field is boolean in nature, that is, it's value is 1 if the prescription is active, suspended,
or on hold.
GROUP: PSO
55,52.1 RX UPDATE 0;6 SET
'0' FOR Nothing updated;
'1' FOR Data movement complete;
'2' FOR Backfill complete;
LAST EDITED: AUG 07, 1997
HELP-PROMPT: Data not entered directly with fileman.
DESCRIPTION: This field is used to indicate if the patient's medications have been updated in the CPRS orders
file. If the field is 0, nothing has been updated, 1 indicates the initial data movement is
complete, and 2 indicates the Backfill to CPRS is complete.
55,52.2 NON-VA MEDS NVA;0 POINTER Multiple #55.05
LAST EDITED: MAR 26, 2003
DESCRIPTION: This is the Non-VA Meds order multiple. It will be used to store the Non-VA Med orders entered
through the CPRS application.
TECHNICAL DESCR:
This multiple field (#52.2) contains the Non-VA Med orders.
55.05,.01 ORDERABLE ITEM 0;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
LAST EDITED: MAR 28, 2003
DESCRIPTION:
This is the orderable item that represents the Non-VA Med being taken by the patient.
TECHNICAL DESCR:
This field points to the PHARMACY ORDERABLE ITEM (#50.7).
CROSS-REFERENCE: 55.05^B
1)= S ^PS(55,DA(1),"NVA","B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),"NVA","B",$E(X,1,30),DA)
RECORD INDEXES: ACRNVA (#464) (WHOLE FILE #55)
55.05,1 DISPENSE DRUG 0;2 POINTER TO DRUG FILE (#50)
LAST EDITED: MAR 28, 2003
DESCRIPTION:
This is the dispense drug that represents the Non-VA Med being taken by the patient.
TECHNICAL DESCR:
This field is a pointer to the DRUG file (#50).
55.05,2 DOSAGE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: MAR 28, 2003
HELP-PROMPT: Answer must be 1-80 characters in length
DESCRIPTION:
This is the dosage of the Non-VA Med being taken by the patient.
55.05,3 MEDICATION ROUTE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: MAR 22, 2005
HELP-PROMPT: Answer must be 1-40 characters in length
DESCRIPTION:
This is the route of the Non-VA Medication being taken by the patient.
55.05,4 SCHEDULE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAR 15, 2004
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This is the schedule of the Non-VA Medication being taken by the patient.
55.05,5 STATUS 0;6 SET
'1' FOR DISCONTINUED;
'2' FOR DATE OF DEATH ENTERED;
LAST EDITED: DEC 17, 2003
DESCRIPTION:
This is the status of the Non-VA Med order.
TECHNICAL DESCR:
set of codes
CROSS-REFERENCE: 55.05^APSOD^MUMPS
1)= S:$G(PSODEATH) ^PS(55,DA(1),"NVA","APSOD",DA)=""
2)= K:$G(PSODEATH) ^PS(55,DA(1),"NVA","APSOD",DA)
3)= DO NOT DELETE.
This xref will be set only when a Non-VA med is discontinued because a death of detah was
entered. This xref will be used to reinstate order if date of death is deleted.
^PS(55,dfn,"nva","apsod",da).
55.05,6 DISCONTINUED DATE 0;7 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAR 28, 2003
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
This is the date the patient stopped taking the Non-VA Medication.
RECORD INDEXES: ACRNVA (#464) (WHOLE FILE #55)
55.05,7 ORDER NUMBER 0;8 POINTER TO ORDER FILE (#100)
LAST EDITED: MAR 28, 2003
HELP-PROMPT: This is the CPRS order number.
DESCRIPTION:
This is the CPRS order number.
55.05,8 START DATE 0;9 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 07, 2004
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
This is the date the patient started taking the Non-VA Medication.
RECORD INDEXES: ACRNVA (#464) (WHOLE FILE #55)
55.05,9 ORDER CHECKS OCK;0 Multiple #55.051
55.051,.01 ORDER CHECK NARRATIVE 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<1) X
LAST EDITED: JUL 10, 2003
HELP-PROMPT: Answer must be 1-200 characters in length.
DESCRIPTION:
This is the narrative of the order check(s) for the Non-VA Med order.
CROSS-REFERENCE: 55.051^B
1)= S ^PS(55,DA(2),"NVA",DA(1),"OCK","B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),"NVA",DA(1),"OCK","B",$E(X,1,30),DA)
55.051,1 OVERRIDING PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 10, 2003
DESCRIPTION:
This is the provider responsible for overriding the order check.
55.051,2 OVERRIDING REASON OVR;0 WORD-PROCESSING #55.0511
DESCRIPTION:
This is the overriding reason description given by the Provider.
LAST EDITED: APR 14, 2003
DESCRIPTION:
This is the overriding reason description given by the Provider.
55.05,10 DISCLAIMER DSC;0 WORD-PROCESSING #55.052
DESCRIPTION:
This is the multiple for the Non-VA Med Disclaimer (Statement/Explanation).
LAST EDITED: APR 18, 2003
DESCRIPTION:
This is the multiple for the Non-VA Med Disclaimer (Statement/Explanation)
55.05,11 DOCUMENTED DATE 0;10 DATE (Required)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAR 28, 2003
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
This is the date the Non-VA Med order was entered to the system.
CROSS-REFERENCE: 55^ADCDT
1)= S ^PS(55,"ADCDT",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(55,"ADCDT",$E(X,1,30),DA(1),DA)
RECORD INDEXES: ACRNVA (#464) (WHOLE FILE #55)
55.05,12 DOCUMENTED BY 0;11 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: MAR 28, 2003
DESCRIPTION:
This is the person responsible for documenting the Non-VA Med order.
55.05,13 CLINIC 0;12 POINTER TO HOSPITAL LOCATION FILE (#44)
LAST EDITED: MAR 25, 2003
55.05,14 COMMENTS 1;0 WORD-PROCESSING #55.514
LAST EDITED: MAR 17, 2004
HELP-PROMPT: Comment from CPRS.
DESCRIPTION:
This field will store comments enter when placing the Non-VA med order.
55.05,15 INDICATION FOR USE 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<3) X
MAXIMUM LENGTH: 40
LAST EDITED: JUL 09, 2020
HELP-PROMPT: Enter the Indication For Use. Answer must be 3-40 characters in length.
DESCRIPTION:
This field contains the Indication For Use that is chosen when the medication is ordered.
55.05,16 SIG 3;0 Multiple #55.516 (Add New Entry without Asking)
DESCRIPTION: This sub-file will contain the SIG section of the Complex Order, Schedule, Duration,
Conjunction and Dosage of a Non-VA Complex Medication being sent via CPRS.
55.516,.01 SIG 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>200!($L(X)<3) X
MAXIMUM LENGTH: 200
LAST EDITED: JAN 29, 2019
HELP-PROMPT: Answer must be 3-200 characters in length.
DESCRIPTION:
This field represents the complex sig being sent from CPRS.
CROSS-REFERENCE: 55.516^B
1)= S ^PS(55,DA(2),"NVA",DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),"NVA",DA(1),3,"B",$E(X,1,30),DA)
55.516,1 SCHEDULE 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
MAXIMUM LENGTH: 50
LAST EDITED: JAN 29, 2019
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This is the schedule of the Non-VA Medication being taken by the patient.
55.516,2 DURATION 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
MAXIMUM LENGTH: 30
LAST EDITED: JAN 29, 2019
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is the length of time a Non-VA Medication is to be taken. Enter a numeric value
followed by "M" for minutes, "H" for hours, "D" for days, "W" for weeks and "L" for
months.
55.516,3 CONJUNCTION 1;3 SET
'A' FOR AND;
'S' FOR THEN;
LAST EDITED: MAR 25, 2020
HELP-PROMPT: Select the conjunction to use in the Sig.
DESCRIPTION: This code is used to help build a possible sig for a complex Non-VA Medication dose.
This code expands to "AND" or "THEN".
55.516,4 DOSAGE 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
MAXIMUM LENGTH: 80
LAST EDITED: JAN 29, 2019
HELP-PROMPT: Answer must be 1-80 characters in length.
DESCRIPTION:
This is the dosage of the Non-VA Medication being taken by the patient.
55,53 CLOZAPINE REGISTRATION NUMBER SAND;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?2U5N) X
LAST EDITED: AUG 14, 1991
HELP-PROMPT: Registration number is 2 letters followed by 5 numbers.
DESCRIPTION:
This is the patient's authorization number assigned by national data base.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55^ASAND^MUMPS
1)= S ^PS(55,"ASAND",DA)=""
2)= K ^PS(55,"ASAND",DA)
3)= This cross reference is essential for the national Clozapine reporting system. DO NOT DELETE.
This cross reference is used to select patients for whom data must be extracted and sent to the
national Clozapine data base. In the form of: ^PS(55,"ASAND",DA)
CROSS-REFERENCE: 55^ASAND1
1)= S ^PS(55,"ASAND1",$E(X,1,30),DA)=""
2)= K ^PS(55,"ASAND1",$E(X,1,30),DA)
55,54 CLOZAPINE STATUS SAND;2 SET
'P' FOR PRE-TREATMENT;
'A' FOR ACTIVE TREATMENT;
'H' FOR TREATMENT ON HOLD;
'D' FOR DISCONTINUED;
LAST EDITED: AUG 14, 1991
HELP-PROMPT: Enter the code for the patient's clozapine treatment status.
DESCRIPTION:
This is the patient's clozapine treatment status.
55,55 DATE OF LAST CLOZAPINE RX SAND;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 14, 1991
HELP-PROMPT: Enter the date and time of the patient's last clozapine prescription.
DESCRIPTION:
This is the date of the patient's last clozapine prescription.
55,56 DEMOGRAPHICS SENT SAND;4 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 07, 1991
HELP-PROMPT: Enter 1 if the patient demographic data has been sent to the national database. Enter 0 if not.
DESCRIPTION:
This indicates whether patient demographic data has been sent to the national database.
55,57 RESPONSIBLE PROVIDER SAND;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I +$G(^VA(200,+Y,""PS"")),'$P(^(0),""^"",4)!($P(^(0),""^"",4)'1000000000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 25, 2013
HELP-PROMPT: Type a whole number between 1 and 1000000000.
DESCRIPTION:
This is the record number of the order.
DELETE TEST: 1,0)= I '$D(PSGPO) S PSGAL("C")=20180 D ^PSGAL5 K PSGAL D EN^DDIOL("YOU CANNOT DELETE A UNIT DOSE
ORDER!","","$C(7),!")
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1))#2 KILL^PSGAL5:PSGAL(1)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1)=X,PSGAL("C")=6000,PSGALFF=.01 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes to this field.
CROSS-REFERENCE:55.06^B
1)= S ^PS(55,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),5,"B",$E(X,1,30),DA)
CROSS-REFERENCE:55^AUE^MUMPS
1)= I '$D(DIU(0)) S ^PS(55,"AUE",DA(1),DA)=""
2)= I '$D(DIU(0)) K ^PS(55,"AUE",DA(1),DA)
3)= This x-ref is a flag and will NOT always exist.
Set when certain actions (edit, etc.) are taken on the order. Allows other package functionality,
such as the pick list update, to know that the order needs to be "revisited".
CROSS-REFERENCE:55^APV2^MUMPS
1)= Q
2)= K ^PS(55,"APV",DA(1),DA)
3)= This is used to delete the APV xref when the order is deleted.
This is used to delete the APV xref when the order is deleted. The APV xref is used by the Unit
Dose package to identify orders that have been verified by a nurse but not a pharmacist.
CROSS-REFERENCE:55^ANV2^MUMPS
1)= Q
2)= K ^PS(55,"ANV",DA(1),DA)
3)= This is used to delete the ANV xref when the order is deleted.
This is used to delete the ANV xref when the order is deleted. The ANV xref is used by the Unit
Dose package to identify orders that have been verified by a pharacist but not a nurse.
55.06,.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 the processing of this order, if desired.
DESCRIPTION:
This field contains the priority of the order that was received from OERR.
55.06,.25 ORIGINAL ORDER NUMBER 0;18 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 22, 1986
HELP-PROMPT: Type a whole number between 1 and 1000000000.
DESCRIPTION:
This is the original number of the order from file 53.1.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL55^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(55)) KILL^PSGAL5:PSGAL(55)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(55)=X,PSGAL("C")=6000,PSGALFF=.25 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes to this field.
55.06,.5 PATIENT NAME 0;15 POINTER TO PATIENT FILE (#2)
LAST EDITED: JUN 25, 2013
DESCRIPTION:
This is the patient for which the medication has been ordered.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL2^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(2))#2 KILL^PSGAL5:PSGAL(2)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(2)=X,PSGAL("C")=6000,PSGALFF=.5 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
RECORD INDEXES: CIMOU (#1121) (WHOLE FILE #55)
55.06,1 PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^D
IC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the prescribing physician's name.
SCREEN: S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"
EXPLANATION: Providers must be active and privileged to write medication orders.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL3^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(3))#2 KILL^PSGAL5:PSGAL(3)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(3)=X,PSGAL("C")=6000,PSGALFF=1 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^APR^MUMPS
1)= I $S('$D(^PS(55,DA(1),5.1)):1,1:$P(^(5.1),"^",2)'=X) S $P(^(5.1),"^",2)=X
2)= Q
3)= UD PROVIDER update.
Used to update the UD PROVIDER field in the PHARMACY PATIENT file.
(Probably should be someday changed to a trigger....)
55.06,2 DISPENSE DRUG 1;0 POINTER Multiple #55.07
LAST EDITED: OCT 31, 1991
DESCRIPTION: This contains the dispense drug(s), and the related information, for this order. The dispense
drug is the actual medication dispense by pharmacy for the order. Dispense drugs are obtained from
the DRUG file (#50).
GROUP: PSJU
55.07,.01 DISPENSE DRUG 0;1 POINTER TO DRUG FILE (#50) (Required) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="S X(1)=$P($G(^PSDRUG(+Y,2)),""^"",1) I X(1),X(1)=+$G(^PS(55,DA(1),5,DA,.2))" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 05, 1999
HELP-PROMPT: Enter a medication that will dispensed for this order.
DESCRIPTION: This is a medication that will actually be dispensed by pharmacy for this order. Each dispense
drug of an order must be tied to the primary drug of the order.
TECHNICAL DESCR:
This is a medications that will actually be dispensed by pharmacy for this order. An order may
consist of more than one dispense drug. Each dispense drug of the order must be tied to the
primary drug of the order through the PRIMARY DRUG field in the DRUG file.
SCREEN: S DIC("S")="S X(1)=$P($G(^PSDRUG(+Y,2)),""^"",1) I X(1),X(1)=+$G(^PS(55,DA(1),5,DA,.2))"
EXPLANATION: The dispense drug must be tied to the drug of the order.
DELETE TEST: 1,0)= W !?2,"Dispense Drugs for active orders cannot be deleted, but can be given an",!?2,"INACTIVE
DATE."
LAYGO TEST: 1,0)= S X(1)=$D(^PS(55,DA(1),5,DA,1,"B",+X)) W:X(1) !?2,"This dispense drug has already been entere
d for this order." I 'X(1)
GROUP: PSJU
CROSS-REFERENCE:55.06^AL701^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(701))#2 KILL^PSGAL5:PSGAL(701)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(701)=X,PSGAL("C")=6000,PSGALFF=.01,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.07^B
1)= S ^PS(55,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),5,DA(1),1,"B",$E(X,1,30),DA)
55.07,.02 UNITS PER DOSE 0;2 NUMBER
INPUT TRANSFORM:S:X?1.2N1"/"1.2N X=+$J(+X/$P(X,"/",2),0,2) K:X'?.N.1".".N!(X>30)!(X<0)!(X?.E1"."5.N) X
OUTPUT TRANSFORM:S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
LAST EDITED: FEB 21, 2003
HELP-PROMPT: Enter a number between 0 and 30, no more than 4 decimals (will accept fractions).
DESCRIPTION: This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order.
The literals '1/2' and '1/4' may be entered. If there is no entry, it is assumed to be ONE (1).
** PLEASE NOTE **
If a doctor prescribes 30 ml's of a medication that is usually dispensed and administered as 60
ml's, the correct UNITS PER DOSE would be 1/2 (or .5), NOT 30 ml's. (30 ml's would be entered into
the DOSAGE ORDERED field.)
If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is suggested that the maximum
amount be entered into this field and the amount ordered noted either in the DOSAGE ORDERED or
SPECIAL INSTRUCTIONS fields.
EXECUTABLE HELP:D EN^DDIOL("ONE (1) UNIT PER DOSE WILL BE ASSUMED IF THERE IS NO ENTRY (OR AN ENTRY OF ZERO (0))
INTO THIS FIELD.")
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.06^AL702^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(702))#2 KILL^PSGAL5:PSGAL(702)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(702)=X,PSGAL("C")=6000,PSGALFF=.02,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.07,.03 INACTIVE DATE 0;3 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 26, 1992
HELP-PROMPT: Enter the date that this drug will no longer be dispense for this order.
DESCRIPTION: This is the date that this dispense drug will no longer be dispensed for this order. Once an
order becomes active, dispense drugs cannot be deleted.
TECHNICAL DESCR:
This is used by pharmacy when the dispense drug is no longer to be dispensed for the order.
GROUP: PSJU
55.07,.04 TOTAL UNITS DISPENSED ; COMPUTED
MUMPS CODE: S Y(55.06,.04,1)=$G(^PS(55,D0,5,D1,1,D2,0)) S X=$P(Y(55.06,.04,1),U,6)+$P(Y(55.06,.04,1),U,10)+$P(Y
(55.06,.04,1),U,12)-$P(Y(55.06,.04,1),U,7) S X=$J(X,0,2)
ALGORITHM: UNITS ACTUALLY DISPENSED+TOTAL EXTRA UNITS DISPENSED+TOTAL PRE-EXCHANGE UNITS-TOTAL RETURNS (ALWAY
S 2 DECIMAL DIGITS)
LAST EDITED: NOV 20, 1986
DESCRIPTION: This is the total number of units actually dispensed for this order, including any EXTRA UNIT
DISPENSED, and PRE-EXCHANGE NEEDS.
GROUP: PSJU
55.07,.05 UNITS CALLED FOR 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: NOV 11, 1985
HELP-PROMPT: Type a whole number between 0 and 9999.
DESCRIPTION: This is the total number of units to be dispensed for this medication as calculated by the
package.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL705^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(705))#2 KILL^PSGAL5:PSGAL(705)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(705)=X,PSGAL("C")=6000,PSGALFF=.05,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.07,.06 UNITS ACTUALLY DISPENSED 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1986
HELP-PROMPT: Type a whole number between 0 and 9999.
DESCRIPTION:
This is the number of units of this medication actually dispensed as entered by the pharmacist.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL706^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(706))#2 KILL^PSGAL5:PSGAL(706)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(706)=X,PSGAL("C")=6000,PSGALFF=.06,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.07,.07 TOTAL RETURNS 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 22, 1986
HELP-PROMPT: Type a whole number between 0 and 9999.
DESCRIPTION:
This is the total number units returned for this medication over the life of the order.
GROUP: PSJU
NOTES: TRIGGERED by the *RETURNS field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
TRIGGERED by the RETURNS field of the DISPENSE DRUG sub-field of the UNIT DOSE sub-field of the
PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL707^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(707))#2 KILL^PSGAL5:PSGAL(707)=X K PSGAL
2)= I '$D(PSGRET),'$D(DIU(0)),'$D(PSGPO) S PSGAL(707)=X,PSGAL("C")=6000,PSGALFF=.07,PSGALFN=55.07 D
^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.07,.08 RETURNS 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: MAY 07, 1992
HELP-PROMPT: Enter a whole number between -100 and 100.
DESCRIPTION: This is the number of units returned of this medication from the patient's cassette upon the
termination of this order.
EXECUTABLE HELP:S Y1=$S('$D(^PS(55,DA(2),5,DA(1),1,DA,0)):0,1:$P(^(0),"^",7)) W !,$S(Y1:Y1_" TOTAL",1:"NO")," UNI
T",$E("S",Y1'=1)," RETURNED, SO FAR."
GROUP: PSJU
CROSS-REFERENCE:^^TRIGGER^55.07^.07
1)= I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),"^",7),$P(^(0),"^",7)=DIU+X I $O(^DD(55.07,.07,1,
0)) K DIV S (DIV(0),D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.07 D ^DICR
2)= Q
CREATE VALUE)= TOTAL RETURNS=TOTAL RETURNS+RETURNS
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL RETURNS
Used to trigger data into field .07.
CROSS-REFERENCE:55.07^AMSRET^MUMPS
1)= I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,4)
2)= Q
3)= Needed to register dispense stats.
This is used to enter returns into this order's dispense log and into the Unit Dose Pick List
Stats file.
55.07,.09 PRE-EXCHANGE UNITS 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 07, 1992
HELP-PROMPT: Type a Number between 0 and 99, 2 Decimal Digits.
DESCRIPTION:
This is the number of actual units required for this order until the next cart exchange.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL709^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(709))#2 KILL^PSGAL5:PSGAL(709)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(709)=X,PSGAL("C")=6000,PSGALFF=.09,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.07^AMSPREX^MUMPS
1)= I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,2)
2)= Q
3)= Needed to register pre-exchange needs.
This is used to update the order's dispense log and the Unit Dose Pick List Stats file.
CROSS-REFERENCE:^^TRIGGER^55.07^.12
1)= I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),"^",12) S $P(^(0),"^",12)=DIU+X I $O(^DD(55.07,.1
2,1,0)) K DIV S (DIV,D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.12 D ^DICR
2)= Q
CREATE CONDITION)= IF PRE-EXCHANGE NEEDS
CREATE VALUE)= TOTAL PRE-EXCHANGE UNITS+PRE-EXCHANGE UNITS
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL PRE-EXCHANGE UNITS
Used to trigger data into field .12.
55.07,.1 TOTAL EXTRA UNITS DISPENSED 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: AUG 25, 1986
HELP-PROMPT: Type a whole number between -100 and 100.
DESCRIPTION: This is the total number of extra units dispensed for this order over the entire life of the
order.
GROUP: PSJU
NOTES: TRIGGERED by the *EXTRA UNITS DISPENSED field of the UNIT DOSE sub-field of the PHARMACY PATIENT
File
TRIGGERED by the EXTRA UNITS DISPENSED field of the DISPENSE DRUG sub-field of the UNIT DOSE
sub-field of the PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL710^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(710)) KILL^PSGAL5:PSGAL(710)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(710)=X,PSGAL("C")=6000,PSGALFF=.1,PSGALFN=55.07 D ^PSGAL5
3)= UNIT DOSE ACTIVTY LOG
Used by Unit Dose to log any changes made to this field.
55.07,.11 EXTRA UNITS DISPENSED 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: MAY 07, 1992
HELP-PROMPT: Enter a whole number between -100 and 100.
DESCRIPTION:
This is the number of units dispensed outside of the normal dispensing process (pick list).
GROUP: PSJU
CROSS-REFERENCE:^^TRIGGER^55.07^.1
1)= I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),"^",10),$P(^(0),"^",10)=DIU+X I $O(^DD(55.07,.1,1
,0)) K DIV S (DIV(0),D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.1 D ^DICR
2)= Q
CREATE VALUE)= TOTAL EXTRA UNITS DISPENSED+EXTRA UNITS DISPENSED
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL EXTRA UNITS DISPENSED
Used to trigger data into field .1.
CROSS-REFERENCE:55.07^AMSEXTRA^MUMPS
1)= I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,3)
2)= Q
3)= Needed to register extra units dispensed.
This is used to update the order's dispense log and the Unit Dose Pick List Stats file.
55.07,.12 TOTAL PRE-EXCHANGE UNITS 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: JUL 30, 1992
HELP-PROMPT: Enter a number between 0 and 9999.
DESCRIPTION:
This is the total number of pre-exchange units dispensed over the life of the order.
GROUP: PSJU
NOTES: TRIGGERED by the PRE-EXCHANGE UNITS field of the DISPENSE DRUG sub-field of the UNIT DOSE sub-field
of the PHARMACY PATIENT File
CROSS-REFERENCE:55.07^AL712^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(712))#2 KILL^PSGAL5:PSGAL(712)=X K PSGAL
2)= I '$D(PSGPEN),'$D(DIU(0)),'$D(PSGPO) S PSGAL(712)=X,PSGAL("C")=6000,PSGALFF=.12,PSGALFN=55.07 D
^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,3 MED ROUTE 0;3 POINTER TO MEDICATION ROUTES FILE (#51.2)
LAST EDITED: MAR 13, 1985
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, that abbreviation is printed on the various reports
in this package.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL4^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(4))#2 KILL^PSGAL5:PSGAL(4)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(4)=X,PSGAL("C")=6000,PSGALFF=3 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,4 TYPE 0;4 SET
'A' FOR ADMIXTURE;
'C' FOR CHEMOTHERAPY;
'P' FOR PIGGYBACK;
'T' FOR TPN;
'U' FOR UNIT DOSE;
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This identifies the type of medication ordered.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL5^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(5))#2 KILL^PSGAL5:PSGAL(5)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(5)=X,PSGAL("C")=6000,PSGALFF=4 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,5 SELF MED 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 14, 1986
HELP-PROMPT: Enter 'YES' (or '1') 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:55.06^AL6^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(6))#2 KILL^PSGAL5:PSGAL(6)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(6)=X,PSGAL("C")=6000,PSGALFF=5 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:^^TRIGGER^55.06^6
1)= I 'X S DIU=$S($D(^PS(55,DA(1),5,DA,0)):$P(^(0),"^",6),1:"") I DIU S $P(^(0),"^",6)="" I $O(^DD(
55.06,6,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="",DIH=55.06,DIG=6 D ^DICR
2)= S DIU=$S($D(^PS(55,DA(1),5,DA,0)):$P(^(0),"^",6),1:"") I DIU S $P(^(0),"^",6)="" I $O(^DD(55.06
,6,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="",DIH=55.06,DIG=6 D ^DICR
CREATE CONDITION)= I 'X
CREATE VALUE)= @
DELETE VALUE)= @
FIELD)= HOSPITAL SUPPLIED SELF MED
Used to trigger data into field 6.
55.06,6 HOSPITAL SUPPLIED SELF MED 0;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: MAR 13, 1985
HELP-PROMPT: Enter 'YES' (or '1') if this SELF MED is to be supplied by this 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 prompt is ever edited to show `NO' (or `0'), this field is
automatically deleted.
GROUP: PSJU
NOTES: TRIGGERED by the SELF MED field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL7^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(7))#2 KILL^PSGAL5:PSGAL(7)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(7)=X,PSGAL("C")=6000,PSGALFF=6 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,7 SCHEDULE TYPE 0;7 SET
'C' FOR CONTINUOUS;
'O' FOR ONE TIME;
'P' FOR PRN;
'R' FOR FILL ON REQUEST;
'OC' FOR ON CALL;
LAST EDITED: FEB 25, 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.
EXECUTABLE HELP:D SCHTP^PSSDDUT3
GROUP: PSJU
CROSS-REFERENCE:55.06^AL8^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(8))#2 KILL^PSGAL5:PSGAL(8)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(8)=X,PSGAL("C")=6000,PSGALFF=7 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^ACR1^MUMPS
1)= I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),"^",4) S ^PS(55,DA(1),5,"AU",X,+$P(^(2),"^",4),DA)=""
2)= I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),"^",4) K ^PS(55,DA(1),5,"AU",X,+$P(^(2),"^",4),DA)
3)= NEEDED BY UNIT DOSE
Used by Unit Dose when gathering orders. This x-ref is in the form of:
^PS(55,DA(1),5,"AU",schedule type,stop date/time,DA) Used mainly by the profiles.
55.06,8 SPECIAL INSTRUCTIONS 6;1 FREE TEXT
INPUT TRANSFORM:D CHKSI^PSSDDUT3
LAST EDITED: JUN 26, 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. This field utilizes the
abbreviations and expansions from the MEDICATION INSTRUCTIONS file.
EXECUTABLE HELP:D SPCIN^PSSDDUT3
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.06^AL9^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(9))#2 KILL^PSGAL5:PSGAL(9)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(9)=X,PSGAL("C")=6000,PSGALFF=8 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,9 ORIGINAL WARD 2;10 POINTER TO WARD LOCATION FILE (#42)
LAST EDITED: DEC 11, 1993
DESCRIPTION:
This is the ward where the patient was located when the order was created.
TECHNICAL DESCR:
This is used to determine if the admin times for the ward were used when the order was created. If
the patient is transferred and the order is then renewed, the admin times of the new ward will be
used for the renewal order if the admin times of the previous ward were used in the original order.
GROUP: PSJU
55.06,10 START DATE/TIME 2;2 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1!('$P(Y,".",2)) X
LAST EDITED: OCT 31, 1993
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.
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.")
WRITE AUTHORITY:^
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.06^AL41^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(41))#2 KILL^PSGAL5:PSGAL(41)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(41)=X,PSGAL("C")=6000,PSGALFF=10 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55^AUDS
1)= S ^PS(55,"AUDS",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(55,"AUDS",$E(X,1,30),DA(1),DA)
Identifies verified Unit Dose orders by the order's start date/time.
RECORD INDEXES: ACRUD (#465) (WHOLE FILE #55)
55.06,11 DAY LIMIT 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 13, 1985
HELP-PROMPT: Type a whole number between 1 and 99.
DESCRIPTION:
This is number of days this order is to last.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL11^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(11))#2 KILL^PSGAL5:PSGAL(11)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(11)=X,PSGAL("C")=6000,PSGALFF=11 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,12 DOSE LIMIT 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 13, 1985
HELP-PROMPT: Type a whole number between 1 and 99.
DESCRIPTION:
This is the number of times the medication is to be administered.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL12^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(12))#2 KILL^PSGAL5:PSGAL(12)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(12)=X,PSGAL("C")=6000,PSGALFF=12 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,13 *UNITS PER DOSE 0;12 NUMBER
UNITS PER DOSE
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: MAY 13, 1992
HELP-PROMPT: Enter a number between 0 and 30 (will accept '1/2' or '1/4').
DESCRIPTION: This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a DOSE for this order.
The literals '1/2' and '1/4' may be entered. If there is no entry, it is assumed to be ONE (1).
** PLEASE NOTE **
If a doctor prescribes 30 ml's of a medication that is usually dispensed and administered as 60
ml's, the correct UNITS PER DOSE would be 1/2 (or .5), NOT 30 ml's. (30 ml's would be entered into
the DOSAGE ORDERED field.)
If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is suggested that the maximum
amount be entered into this field and the amount ordered noted either in the DOSAGE ORDERED or
SPECIAL INSTRUCTIONS fields.
EXECUTABLE HELP:D EN^DDIOL("IF NO ENTRY (OR AN ENTRY OF `0') IS MADE, A ONE (1) WILL BE ASSUMED.")
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.06^AL13^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(13))#2 KILL^PSGAL5:PSGAL(13)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(13)=X,PSGAL("C")=6000,PSGALFF=13 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,14 *PRE-EXCHANGE UNITS 5;6 NUMBER
PRE-EXCHANGE UNITS
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 13, 1992
HELP-PROMPT: Type a Number between 0 and 99, 2 Decimal Digits.
DESCRIPTION:
This is the number of actual units required for this order until the next cart exchange.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL14^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(14))#2 KILL^PSGAL5:PSGAL(14)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(14)=X,PSGAL("C")=6000,PSGALFF=14 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^AMSPREX^MUMPS
1)= ; I X S PSGAMSF=0 D ^PSGAMSA
2)= Q
No longer used.
CROSS-REFERENCE:^^TRIGGER^55.06^63
1)= I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),"^",9),1:0) S $P(^(5),"^",9)=DIU+X I $O(^DD(55.06
,63,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=63 D ^DICR
2)= Q
CREATE CONDITION)= IF PRE-EXCHANGE NEEDS
CREATE VALUE)= TOTAL PRE-EXCHANGE UNITS+PRE-EXCHANGE UNITS
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL PRE-EXCHANGE UNITS
Used to trigger data into field 63.
55.06,15 COMMENTS 3;0 WORD-PROCESSING #55.08
DESCRIPTION:
This is any remarks or explanations needed for this order.
GROUP: PSJU
LAST EDITED: MAR 13, 1985
DESCRIPTION: This is a word processing field that is purely informational. This field only shows on the
expanded view of the order.
GROUP: PSJU
55.06,16 VERIFYING NURSE 4;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the nurse who verified the order, or the latest action taken on the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL15^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(15))#2 KILL^PSGAL5:PSGAL(15)=X K PSGAL
2)= I '$D(DIU(0)),X,'$D(PSGPO) S PSGAL(15)=X,PSGAL("C")=6000,PSGALFF=16 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^AVN^MUMPS
1)= X:'$D(PSGNVF) "S PSGAL(""C"")=""VN"" D ^PSGAL5" K PSGNVF,PSGAL
2)= S PSGNVF=1
55.06,17 DATE VERIFIED BY NURSE 4;2 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the date the order was verified by the nurse.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL16^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(16))#2 KILL^PSGAL5:PSGAL(16)=X K PSGAL
2)= I '$D(DIU(0)),X,'$D(PSGPO) S PSGAL(16)=X,PSGAL("C")=6000,PSGALFF=17 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,18 VERIFYING PHARMACIST 4;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the pharmacist who verified the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL17^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(17))#2 KILL^PSGAL5:PSGAL(17)=X K PSGAL
2)= I X,'$D(DIU(0)),'$D(PSGPO) S PSGAL(17)=X,PSGAL("C")=6000,PSGALFF=18 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^AVP^MUMPS
1)= X:'$D(PSGNVF) "S PSGAL(""C"")=""VP"" D ^PSGAL5" K PSGNVF,PSGAL
2)= S PSGNVF=1
55.06,19 DATE VERIFIED BY PHARMACIST 4;4 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the date the order was verified by the pharmacist.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL18^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(18))#2 KILL^PSGAL5:PSGAL(18)=X K PSGAL
2)= I X,'$D(DIU(0)),'$D(PSGPO) S PSGAL(18)=X,PSGAL("C")=6000,PSGALFF=19 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,20 PHYSICIAN 4;5 POINTER TO NEW PERSON FILE (#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:Physician must be active and privileged to write medication orders.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL19^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(19))#2 KILL^PSGAL5:PSGAL(19)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(19)=X,PSGAL("C")=6000,PSGALFF=20 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,21 DATE VERIFIED BY PHYSICIAN 4;6 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the date the physician signed off on the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL20^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(20))#2 KILL^PSGAL5:PSGAL(20)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(20)=X,PSGAL("C")=6000,PSGALFF=21 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,22 CLERK 4;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
(Not currently used.)
GROUP: PSJU
CROSS-REFERENCE:55.06^AL21^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(21))#2 KILL^PSGAL5:PSGAL(21)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(21)=X,PSGAL("C")=6000,PSGALFF=22 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,23 DATE ENTERED BY CLERK 4;8 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
(Not currently used.)
GROUP: PSJU
CROSS-REFERENCE:55.06^AL22^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(22))#2 KILL^PSGAL5:PSGAL(22)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(22)=X,PSGAL("C")=6000,PSGALFF=23 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,24 *SOLUTION 0;17 POINTER TO DRUG FILE (#50)
SOLUTION
LAST EDITED: JUL 29, 1992
DESCRIPTION:
(Not currently used.)
GROUP: PSJU
CROSS-REFERENCE:55.06^AL23^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(23))#2 KILL^PSGAL5:PSGAL(23)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(23)=X,PSGAL("C")=6000,PSGALFF=24 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,25 PREVIOUS STOP DATE/TIME 2;3 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 14, 1986
HELP-PROMPT:Enter date and time that this order was to be stopped.
DESCRIPTION: This is used to store the original stop date when it is changed due to the order being cancelled.
This allows the order to be reinstated.
EXECUTABLE HELP:D EN^DDIOL("TIME IS REQUIRED.")
GROUP: PSJU
CROSS-REFERENCE:55.06^AL24^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(24))#2 KILL^PSGAL5:PSGAL(24)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(24)=X,PSGAL("C")=6000,PSGALFF=25 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,26 SCHEDULE 2;1 FREE TEXT (Required)
INPUT TRANSFORM:D SCH^PSSDDUT
LAST EDITED: JUN 01, 2009
HELP-PROMPT:Answer must be 1-70 characters in length.
DESCRIPTION:This is the frequency (ONLY) by 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. 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 ENSH5^PSSDDUT
WRITE AUTHORITY:^
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.06^AL43^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(43))#2 KILL^PSGAL5:PSGAL(43)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(43)=X,PSGAL("C")=6000,PSGALFF=26 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:^^TRIGGER^55.06^41
1)= I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),"^",5),1:"") I DIU'=PSGS0Y S
$P(^(2),"^",5)=PSGS0Y I $O(^DD(55.06,41,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=PSGS0Y,
DIH=55.06,DIG=41 D ^DICR
2)= I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),"^",5),1:"") I DIU]"" S $P(^
(2),"^",5)="" I $O(^DD(55.06,41,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="",DIH=55.06,DIG
=41 D ^DICR
CREATE VALUE)= PSGS0Y
DELETE VALUE)= @
FIELD)= ADMIN. TIMES
Used to trigger data into field 41.
CROSS-REFERENCE:^^TRIGGER^55.06^42
1)= I $D(PSGS0XT) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),"^",6),1:"") I DIU'=PSGS0XT S $P(^(2),"
^",6)=PSGS0XT I $O(^DD(55.06,42,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=PSGS0XT,DIH=55.0
6,DIG=42 D ^DICR
2)= I $D(PSGS0XT) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),"^",6),1:"") I DIU]"" S $P(^(2),"^",6)=
"" I $O(^DD(55.06,42,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="",DIH=55.06,DIG=42 D ^DICR
CREATE VALUE)= PSGS0XT
DELETE VALUE)= @
FIELD)= FREQUENCY (in minutes)
Used to trigger data into field 42.
55.06,27 ORDER DATE 0;14 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
HELP-PROMPT:Enter the date and time that this order was entered into the computer.
DESCRIPTION: This is the date the order was entered into the computer. The package enters this date
automatically when the order is transcribed.
EXECUTABLE HELP:D EN^DDIOL("TIME IS REQUIRED.")
GROUP: PSJU
CROSS-REFERENCE:55.06^AL26^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(26))#2 KILL^PSGAL5:PSGAL(26)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(26)=X,PSGAL("C")=6000,PSGALFF=27 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,27.1 LOG-IN DATE 0;16 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the date (to the second) the order was entered.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL27^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(27))#2 KILL^PSGAL5:PSGAL(27)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(27)=X,PSGAL("C")=6000,PSGALFF=27.1 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,28 STATUS 0;9 SET (Required)
'A' FOR ACTIVE;
'D' FOR DISCONTINUED;
'E' FOR EXPIRED;
'H' FOR HOLD;
'R' FOR RENEWED;
'RE' FOR REINSTATED;
'DE' FOR DISCONTINUED (EDIT);
'DR' FOR DISCONTINUED (RENEWAL);
LAST EDITED: MAY 23, 1996
DESCRIPTION:
This is the status of the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL28^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(28))#2 KILL^PSGAL5:PSGAL(28)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(28)=X,PSGAL("C")=6000,PSGALFF=28 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^AOERRS^MUMPS
1)= Q
2)= Q
3)= NEEDED BY UNIT DOSE
Used by Unit Dose to update the order's corresponding order when the STATUS is changed.
55.06,29 ACTIVITY LOG 9;0 DATE Multiple #55.09 (Add New Entry without Asking)
DESCRIPTION: This is a record of the actions that have taken place on the order. Actions include EDIT,
RENEWAL and CANCELLATION. 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.
GROUP: PSJU
55.09,.01 DATE 0;1 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the date (to the second) that the activity took place.
GROUP: PSJU
CROSS-REFERENCE:55.09^AL35^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(35))#2 KILL^PSGAL5:PSGAL(35)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(35)=X,PSGAL("C")=6000,PSGALFF=.01,PSGALFN=55.09 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.09,1 USER 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 13, 1985
DESCRIPTION:
This is the user who effected the activity.
GROUP: PSJU
CROSS-REFERENCE:55.09^AL36^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(36))#2 KILL^PSGAL5:PSGAL(36)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(36)=X,PSGAL("C")=6000,PSGALFF=1,PSGALFN=55.09 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.09,2 ACTION 0;3 POINTER TO ACTIVITY LOG REASON FILE (#53.3) (Required)
LAST EDITED: FEB 28, 1986
DESCRIPTION:
This is the activity that has taken place on the order.
GROUP: PSJU
CROSS-REFERENCE:55.09^AL37^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(37))#2 KILL^PSGAL5:PSGAL(37)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(37)=X,PSGAL("C")=6000,PSGALFF=2,PSGALFN=55.09 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.09,3 FIELD 0;4 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X)
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is field that was changed due to the activity.
GROUP: PSJU
CROSS-REFERENCE:55.09^AL78^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(78)=X,PSGAL("C")=6000,PSGALFF=3,PSGALFN=55.09 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.09,4 OLD DATA 0;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>170!($L(X)<1) X
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the previous data that was in the field that was changed.
GROUP: PSJU
CROSS-REFERENCE:55.09^AL79^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(79)=X,PSGAL("C")=6000,PSGALFF=4,PSGALFN=55.09 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.09,5 OLD DATA (WORD PROCESSING) 1;0 WORD-PROCESSING #55.16 (NOWRAP) (IGNORE "|")
DESCRIPTION:This contains the previous data that was in the changed field, if the field being changed is a
Word Processing field. The data is captured automatically and is not editable.
LAST EDITED: NOV 03, 2011
DESCRIPTION:This contains the previous data that was in the changed field, if the field being changed is a
Word Processing field. The data is captured automatically and is not editable.
55.06,32 *UNITS CALLED FOR 5;2 NUMBER
UNITS CALLED FOR
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1992
HELP-PROMPT:Type a whole number between 0 and 9999.
DESCRIPTION: This is the total number of units to be dispensed for this medication as calculated by the
package.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL51^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(51))#2 KILL^PSGAL5:PSGAL(51)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(51)=X,PSGAL("C")=6000,PSGALFF=32 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,34 STOP DATE/TIME 2;4 DATE (Required)
INPUT TRANSFORM:X:X=+X&X&$D(^PS(55,DA(1),5,DA,2)) "S PSGDL=X D EN2^PSSDDUT3" S %DT="ERTX" D ^%DT S X=+Y K:Y
'>0 X
LAST EDITED: JUN 25, 2013
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
calculates a default stop date, depending on the SITE PARAMETERS.
EXECUTABLE HELP:D EN^DDIOL(" TIME IS REQUIRED.","","?0")
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the PREVIOUS STOP DATE/TIME field of the UNIT DOSE sub-field of the PHARMACY
PATIENT File
CROSS-REFERENCE:55.06^ASD^MUMPS
1)= S ^PS(55,DA(1),5,"AUS",+X,DA)="" I $P($G(^PS(55,DA(1),5,DA,0)),"^",7)]"" S ^PS(55,DA(1),5,"AU",
$P(^(0),"^",7),+X,DA)=""
2)= K ^PS(55,DA(1),5,"AUS",+X,DA) I $P($G(^PS(55,DA(1),5,DA,0)),"^",7)]"" K ^PS(55,DA(1),5,"AU",$P(
^(0),"^",7),+X,DA)
3)= NEEDED BY UNIT DOSE
Used by Unit Dose to gather orders. X-refs are in the form of: ^PS(55,DA(1),"AU",status,stop
date/time,DA) ^PS(55,DA(1),"AUS",stop date/time,DA)
These are used primarily by the profiles.
CROSS-REFERENCE:55.06^AL53^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(53))#2 KILL^PSGAL5:PSGAL(53)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(53)=X,PSGAL("C")=6000,PSGALFF=34 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55^AUD
1)= S ^PS(55,"AUD",+(X),DA(1),DA)=""
2)= K ^PS(55,"AUD",+(X),DA(1),DA)
Identifies verified Unit Dose orders by the order's stop date/time.
RECORD INDEXES: ACRUD (#465) (WHOLE FILE #55), AUDC (#499) (WHOLE FILE #55), AUN (#501), CIMOU (#1121) (WHOLE FILE
#55)
55.06,35 *TOTAL RETURNS 5;4 NUMBER
TOTAL RETURNS
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1992
HELP-PROMPT:Type a whole number between 0 and 9999.
DESCRIPTION:
This is the total number units returned for this medication over the life of the order.
GROUP: PSJU
NOTES: TRIGGERED by the *RETURNS field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL61^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(61))#2 KILL^PSGAL5:PSGAL(61)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(61)=X,PSGAL("C")=6000,PSGALFF=35 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,36 *UNITS ACTUALLY DISPENSED 5;3 NUMBER
UNITS ACTUALLY DISPENSED
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1992
HELP-PROMPT:Type a whole number between 0 and 9999.
DESCRIPTION:
This is the number of units of this medication actually dispensed as entered by the pharmacist.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL54^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(54))#2 KILL^PSGAL5:PSGAL(54)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(54)=X,PSGAL("C")=6000,PSGALFF=36 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,38 *RETURNS 5;5 NUMBER
RETURNS
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: JUL 29, 1992
HELP-PROMPT:Enter a whole number between -100 and 100.
DESCRIPTION:
This is the number of units returned of this medication from the patient's cassette upon the
termination of this order.
EXECUTABLE HELP:S Y1=$S('$D(^PS(55,DA(1),5,DA,5)):0,1:$P(^(5),"^",4)) D EN^DDIOL($S(Y1:Y1_" TOTAL",1:"NO")_
" UNIT"_$E("S",Y1'=1)_" RETURNED, SO FAR.")
GROUP: PSJU
CROSS-REFERENCE:^^TRIGGER^55.06^35
1)= I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),"^",4),1:""),$P(^(5),"^",4)=DIU+X I $O(^DD(55.06,
35,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=35 D ^DICR
2)= Q
CREATE VALUE)= TOTAL RETURNS=TOTAL RETURNS+RETURNS
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL RETURNS
Used to trigger data into field 35.
CROSS-REFERENCE:55.06^AMSRET^MUMPS
1)= ; I X S PSGAMSF=2 D ^PSGAMSA
2)= Q
Formerly used to update the UD PICK LIST STATS file. Routine call no longer valid.
55.06,39 *TOTALS UNITS DISPENSED ; COMPUTED
TOTALS UNITS DISPENSED
MUMPS CODE: S Y(55.06,39,1)=$S($D(^PS(55,D0,5,D1,5)):^(5),1:"") S X=$P(Y(55.06,39,1),U,3)+$P(Y(55.06,39,1),
U,7)+$P(Y(55.06,39,1),U,9)-$P(Y(55.06,39,1),U,4) S X=$J(X,0,2)
ALGORITHM: UNITS ACTUALLY DISPENSED+TOTAL EXTRA UNITS DISPENSED+TOTAL PRE-EXCHANGE UNITS-TOTAL RETURNS (A
LWAYS 2 DECIMAL DIGITS)
LAST EDITED: JAN 28, 1992
DESCRIPTION:
This is the total number of units actually dispensed for this order, including any EXTRA UNIT
DISPENSED, and PRE-EXCHANGE NEEDS.
GROUP: PSJU
55.06,41 ADMIN TIMES 2;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) D ENCHK^PSGS0
LAST EDITED: JUL 29, 1992
HELP-PROMPT:Enter a set of times (1-119 characters) for the administration of this medication over a 24
hour period.
DESCRIPTION:
This is the times of the day the medication is to be administered. This package initially
assigns a default set of ADMIN TIMES when a STANDARD SCHEDULE is entered into the SCHEDULE prompt.
EXECUTABLE HELP:D ADTM^PSSDDUT3
DELETE TEST: 5,0)= I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),"^")["@" D EN^DDIOL("YOU CANNOT DELETE THE ADMIN TIME
S FOR THIS TYPE OF SCHEDULE. ","","!?2")
42,0)= I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),"^",6)="D" D EN^DDIOL("This is a 'DAY OF THE WEEK' schedu
le, and must have admin times.","","!")
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the SCHEDULE field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL56^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(56))#2 KILL^PSGAL5:PSGAL(56)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(56)=X,PSGAL("C")=6000,PSGALFF=41 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^ADM^MUMPS
1)= I $P($G(^PS(55,DA(1),5,DA,2)),"^")["@" S $P(^(2),"^")=$P($P(^(2),"^"),"@")_"@"_X
2)= Q
3)= USED BY UNIT DOSE
If the SCHEDULE is a day-of-the-week schedule (which is in the form of
weekday[-weekday-weekday...]@admin times), this will update the admin times part of the schedule
whenever the admin times are edited here.
55.06,42 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 times the medication is to be
administered.
GROUP: PSJU
NOTES: TRIGGERED by the SCHEDULE field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
CROSS-REFERENCE:55.06^AL57^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(57))#2 KILL^PSGAL5:PSGAL(57)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(57)=X,PSGAL("C")=6000,PSGALFF=42 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,43 RENEWAL 4;15 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 22, 1986
DESCRIPTION:
This is an internal flag, set when the order is marked to be renewed.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL58^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(58)) KILL^PSGAL5:PSGAL(58)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(58)=X,PSGAL("C")=6000,PSGALFF=43 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,44 RENEWAL USER 4;16 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the user who marked the order to be renewed.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL59^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(59))#2 KILL^PSGAL5:PSGAL(59)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(59)=X,PSGAL("C")=6000,PSGALFF=44 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,45 DATE RENEWAL MARKED 4;17 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 22, 1986
HELP-PROMPT:Enter the date and time this order was marked for renewal.
DESCRIPTION:
This is the date this order was renewed or marked for renewal.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL60^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(60))#2 KILL^PSGAL5:PSGAL(60)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(60)=X,PSGAL("C")=6000,PSGALFF=45 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,46 MARKED CANCELLED 4;12 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is an internal flag set when the order is marked for cancellation.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL63^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(63)) KILL^PSGAL5:PSGAL(63)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(63)=X,PSGAL("C")=6000,PSGALFF=46 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,47 MARKED CANCELLED USER 4;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the user who marked the order for cancellation.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL64^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(64)) KILL^PSGAL5:PSGAL(64)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(64)=X,PSGAL("C")=6000,PSGALFF=47 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,48 DATE MARKED CANCELLED 4;14 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the date that the order was marked for cancellation.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL65^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(65)) KILL^PSGAL5:PSGAL(65)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(65)=X,PSGAL("C")=6000,PSGALFF=48 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,49 AUTO CANCELLED FLAG 4;11 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 22, 1986
DESCRIPTION:
This is an internal flag looked at by the UNIT DOSE package to determine if this order was
automatically cancelled by the package because the patient was newly admitted, transferred, or
discharged (or deceased). If this flag is on (1), the order may be reinstated within 72 hours of
its cancellation.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL62^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(62))#2 KILL^PSGAL5:PSGAL(62)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(62)=X,PSGAL("C")=6000,PSGALFF=49 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,50 PV FLAG 4;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 01, 2021
DESCRIPTION:
This is an internal flag set whenever a pharmacist verifies the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL66^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(66)) KILL^PSGAL5:PSGAL(66)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(66)=X,PSGAL("C")=6000,PSGALFF=50 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55^APV^MUMPS
1)= K:X ^PS(55,"APV",DA(1),DA) S:'X ^PS(55,"APV",DA(1),DA)=""
2)= K ^PS(55,"APV",DA(1),DA)
This is used to identify orders that have been verified by a nurse but not a pharmacist.
55.06,51 NV FLAG 4;10 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: SEP 18, 1996
DESCRIPTION:
This is an internal flag set whenever a nurse verifies the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL67^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(67)) KILL^PSGAL5:PSGAL(67)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(67)=X,PSGAL("C")=6000,PSGALFF=51 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55^ANV^MUMPS
1)= K:X ^PS(55,"ANV",DA(1),DA) S:'X ^PS(55,"APV",DA(1),DA)=""
2)= S:'X ^PS(55,"ANV",DA(1),DA)=""
This is used to identify orders that have been verified by a pharmacist but not a nurse.
55.06,52 LABEL DATE 7;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 25, 1986
HELP-PROMPT:Enter the date and time the latest label for this order was created.
DESCRIPTION:
This is the date the last label record was created for the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL68^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(68)) KILL^PSGAL5:PSGAL(68)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(68)=X,PSGAL("C")=6000,PSGALFF=52 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,53 LABEL REASON 7;2 SET
'E' FOR EDITED;
'N' FOR NEW;
'R' FOR RENEWED;
'D' FOR DISCONTINUED;
'RE' FOR REINSTATED;
'DE' FOR DISCONTINUED (EDIT);
'H1' FOR ON HOLD;
'H0' FOR OFF OF HOLD;
LAST EDITED: JUN 30, 1994
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
CROSS-REFERENCE:55.06^AL69^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(69)) KILL^PSGAL5:PSGAL(69)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(69)=X,PSGAL("C")=6000,PSGALFF=53 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,54 *TOTALS EXTRA UNITS DISPENSED 5;7 NUMBER
TOTAL EXTRA UNITS DISPENSED
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1992
HELP-PROMPT:Type a whole number between -100 and 100.
DESCRIPTION:
This is the total number of extra units dispensed for this order over the entire life of the
order.
GROUP: PSJU
NOTES: TRIGGERED by the *EXTRA UNITS DISPENSED field of the UNIT DOSE sub-field of the PHARMACY PATIENT
File
CROSS-REFERENCE:55.06^AL70^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(70)) KILL^PSGAL5:PSGAL(70)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(70)=X,PSGAL("C")=6000,PSGALFF=54 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,55 *EXTRA UNITS DISPENSED 5;8 NUMBER
EXTRA UNITS DISPENSED
INPUT TRANSFORM:K:+X'=X!(X>100)!(X<-100)!(X?.E1"."1N.N) X
LAST EDITED: JUL 29, 1992
HELP-PROMPT:Enter a whole number between -100 and 100.
DESCRIPTION:
This is the number of units dispensed outside of the normal dispensing process (pick list).
GROUP: PSJU
CROSS-REFERENCE:^^TRIGGER^55.06^54
1)= I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),"^",7),1:""),$P(^(5),"^",7)=DIU+X I $O(^DD(55.06,
54,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=54 D ^DICR
2)= Q
CREATE VALUE)= TOTAL EXTRA UNITS DISPENSED+EXTRA UNITS DISPENSED
DELETE VALUE)= NO EFFECT
FIELD)= TOTAL EXTRA UNITS DISPENSED
Used to trigger data into field 54.
CROSS-REFERENCE:55.06^AMSEXTRA^MUMPS
1)= ; I '$D(DIU(0)),X S PSGAMSF=0 D ^PSGAMSA
2)= Q
Formerly used to update the UD PICK LIST STATS file.
55.06,56 HOLD FLAG 4;18 SET
'0' FOR OFF;
'1' FOR ON;
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is an internal number set whenever the order is placed on HOLD, or marked to be placed on
hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL71^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(71)) KILL^PSGAL5:PSGAL(71)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(71)=X,PSGAL("C")=6000,PSGALFF=56 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,57 HOLD USER 4;19 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the user who placed the order on hold, or marked the order to be placed on hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL72^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(72)) KILL^PSGAL5:PSGAL(72)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(72)=X,PSGAL("C")=6000,PSGALFF=57 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,58 HOLD DATE 4;20 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the date the order was placed on hold, or marked to be placed on hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL73^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(73)) KILL^PSGAL5:PSGAL(73)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(73)=X,PSGAL("C")=6000,PSGALFF=58 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,59 HOLD STATUS 4;21 SET
'A' FOR ACTIVE;
'R' FOR RENEWED;
'RE' FOR REINSTATED;
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the previous status of the order, updated when the order is placed on HOLD. This allows
the return of the previous status when the order is taken off of hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL74^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(74)) KILL^PSGAL5:PSGAL(74)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(74)=X,PSGAL("C")=6000,PSGALFF=59 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,59.1 OERR HOLD FLAG 4;26 SET
'1' FOR YES;
LAST EDITED: JUL 31, 1992
HELP-PROMPT:This field is set when order is placed on hold thru OE/RR package.
DESCRIPTION:
This field is set when the order is placed on hold through the OE/RR package. Orders placed on hold
through OE/RR may only be removed from hold through OE/RR.
55.06,60 OFF HOLD FLAG 4;22 SET
'0' FOR OFF;
'1' FOR ON;
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is an internal flag set when an order is taken off of hold, or marked to be taken off of
hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL75^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(75)) KILL^PSGAL5:PSGAL(75)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(75)=X,PSGAL("C")=6000,PSGALFF=60 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,61 OFF HOLD USER 4;23 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the user who has taken the order off of hold, or marked the order to be taken off of
hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL76^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(76)) KILL^PSGAL5:PSGAL(76)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(76)=X,PSGAL("C")=6000,PSGALFF=61 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,62 OFF HOLD DATE 4;24 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 25, 1986
DESCRIPTION:
This is the date the order was taken off of hold, or marked to taken off of hold.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL77^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(77)) KILL^PSGAL5:PSGAL(77)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(77)=X,PSGAL("C")=6000,PSGALFF=62 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,63 *TOTAL PRE-EXCHANGE UNITS 5;9 NUMBER
TOTAL PRE-EXCHANGE UNITS
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 13, 1992
HELP-PROMPT:Enter a number between 0 and 9999.
DESCRIPTION:
This is the total number of pre-exchange units dispensed over the life of the order.
GROUP: PSJU
NOTES: TRIGGERED by the *PRE-EXCHANGE UNITS field of the UNIT DOSE sub-field of the PHARMACY PATIENT File
55.06,64 PURGE FLAG 0;20 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 08, 1989
DESCRIPTION:
This is an internal flag set when the order is due to be purged (deleted). This is actually the
patient's discharge date, to allow the use of the 'AUDDD' x-ref.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL79^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(79)=X,PSGAL("C")=6000,PSGALFF=64 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55^AUDDD
1)= S ^PS(55,"AUDDD",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(55,"AUDDD",$E(X,1,30),DA(1),DA)
3)= NEEDED BY UNIT DOSE
Only orders with this x-ref set are purged by the routine PSGPO. Set in the PSJADT routines.
55.06,65 *SIG 6.5;1 FREE TEXT
SIG
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>180!($L(X)<1) X
LAST EDITED: JUL 29, 1992
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
CROSS-REFERENCE:55.06^AL78^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(78)=X,PSGAL("C")=6000,PSGALFF=65 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,66 ORDERS FILE ENTRY 0;21 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 17, 2003
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 into OE/RR.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL80^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(80)) KILL^PSGAL5:PSGAL(80)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(80)=X,PSGAL("C")=6000,PSGALFF=66 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
CROSS-REFERENCE:55.06^AC^MUMPS
1)= D STOREINT^PSGSICH1
2)= Q
RECORD INDEXES: ACX (#414) (WHOLE FILE #55)
55.06,67 MERGED PATIENT 4;25 FREE TEXT
INPUT TRANSFORM:K:$L(X)>13!($L(X)<2) X
LAST EDITED: AUG 26, 1987
HELP-PROMPT:Answer must be 2-13 characters in length.
DESCRIPTION:
If the order is moved from one patient to another, because patients are being merged, there will
be data here. The data will be in the form of another patient's internal record number
concatenated with either a `T' (if the order has been moved to the other patient), or an `F' (if
the came FROM the other patient).
GROUP: PSJU
55.06,68 LAST WARD 0;23 POINTER TO WARD LOCATION FILE (#42)
LAST EDITED: DEC 08, 1993
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
55.06,69 'NOT TO BE GIVEN' FLAG 0;22 SET
'1' FOR NOT TO BE GIVEN;
LAST EDITED: AUG 23, 1988
HELP-PROMPT:NOT TO BE ENTERED THROUGH VA FILEMAN
DESCRIPTION:
This is a flag that may be set for orders that have been discontinued or expired only. If the
flag is set, the order cannot be renewed or reinstated. This is to be set only through the
package, and not through VA FileMan.
GROUP: PSJU
55.06,70 ORIGINAL START DATE/TIME 2;7 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1990
HELP-PROMPT:ENTER DATE THIS ORDER ORIGINALLY STARTED.
DESCRIPTION:
This is the original start date/time of the order. An entry is automatically made here the first
time the order is renewed.
GROUP: PSG
55.06,71 DISPENSE LOG 11;0 DATE Multiple #55.0611
DESCRIPTION:
This is the dispensing record for this order. It contains information such when the drug was
dispensed, by whom, and how it was dispensed.
TECHNICAL DESCR:
This contains the dispensing information for the order. Every time a medication is dispensed (or
returned) for this order, an entry is made here.
GROUP: PSJU
55.0611,.01 DISPENSE DATE/TIME 0;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 24, 1991
DESCRIPTION:
This is the date (time optional) that units dispensed (or returned) were entered for this
order. If the units were dispensed through the pick list, this will be the start date (no time)
of the pick list.
TECHNICAL DESCR:
This is the date and time that a medication was dispensed or returned for this order. If the
medications was dispensed through the pick list, this will be date only (the start date of the
pick list).
GROUP: PSJ
CROSS-REFERENCE:55.0611^B
1)= S ^PS(55,DA(2),5,DA(1),11,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),5,DA(1),11,"B",$E(X,1,30),DA)
CROSS-REFERENCE:55.06^AL1101^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1101)) KILL^PSGAL5:PSGAL(1101)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1101)=X,PSGAL("C")=6000,PSGALFF=.01,PSGALFN=55.0611 D ^PSGAL
5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.02 DISPENSE DRUG 0;2 POINTER TO DRUG FILE (#50)
LAST EDITED: JAN 11, 1999
DESCRIPTION:
This is the medication that was dispensed (or returned) for this order.
TECHNICAL DESCR:
This will be an entry from the Unit Dose DISPENSE DRUG multiple within the Unit Dose order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1102^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1102)) KILL^PSGAL5:PSGAL(1102)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1102)=X,PSGAL("C")=6000,PSGALFF=.02,PSGALFN=55.0611 D ^PSGAL
5
3)= UNIT DOSE ACTIVITY LOG
The AL1102 cross-reference is used to update the information in the
ACTIVITY LOG sub-file (#55.09) of the PHARMACY PATIENT file (#55). The
controlling point comes from the KILL logic. When the DISPENSE DRUG field
changes, an entry is added to the ACTIVITY LOG sub-file. The data global
changes by the Set and Kill logic are as follows:
SET: K ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)
KILL: S ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)=
Piece 1 = DATE (date/time update made)
Piece 2 = USER (IEN in NEW PERSON file (#200))
Piece 3 = ACTION (IEN to ACTIVITY LOG REASON file (#53.3))
Piece 4 = FIELD (Field edited, "DISPENSE DRUG")
Piece 5 = OLD DATA (The old value of the field before the
edit)
55.0611,.03 AMOUNT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>500)!(X<-500)!(X?.E1"."3N.N) X
LAST EDITED: OCT 30, 1991
HELP-PROMPT:Enter a Number between -500 and 500, 2 Decimal Digits.
DESCRIPTION:
This is the number of units that were dispensed (or returned) for this order.
TECHNICAL DESCR:
This is the number of units (tablets, etc.) that were dispensed or returned for this order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1103^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1103)) KILL^PSGAL5:PSGAL(1103)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1103)=X,PSGAL("C")=6000,PSGALFF=.03,PSGALFN=55.0611 D ^PSGAL
5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.04 COST 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>5000)!(X<-5000)!(X?.E1"."5N.N) X
LAST EDITED: OCT 30, 1991
HELP-PROMPT:Enter a Number between -5000 and 5000, 4 Decimal Digits.
DESCRIPTION:
This is the cost of the amount dispensed or returned.
TECHNICAL DESCR:
This is the cost of the amount dispensed or returned for this dispense drug. This is obtained
by multiplying the amount dispensed by the PRICE PER DISPENSE UNIT from the DRUG file (#50) for
the dispense drug.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1104^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1104)) KILL^PSGAL5:PSGAL(1104)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1104)=X,PSGAL("C")=6000,PSGALFF=.04,PSGALFN=55.0611 D ^PSGAL
5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.05 HOW 0;5 SET
'1' FOR FROM PICK LIST;
'2' FOR PRE-EXCHANGE UNITS;
'3' FOR EXTRA UNITS DISPENSED;
'4' FOR RETURNS;
LAST EDITED: OCT 30, 1991
DESCRIPTION:
This is the method the drug was dispensed for this order.
TECHNICAL DESCR:
This is the method the drug was dispensed for the order.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1105^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1105)) KILL^PSGAL5:PSGAL(1105)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1105)=X,PSGAL("C")=6000,PSGALFF=.05,PSGALFN=55.0611 D ^PSGAL
5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.06 USER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 30, 1991
DESCRIPTION:
This is the user who entered the amount dispensed for this drug for this order.
TECHNICAL DESCR:
Thsi si the user who entered the amount dispensed (or returned) for this drug for this order.
If the drug was dispensed through the pick list, the user entered is the user who filed the pick
list away, and is not shown in the dispense log view.
GROUP: PSJU
CROSS-REFERENCE:55.06^AL1106^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1106)) KILL^PSGAL5:PSGAL(1106)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1106)=X,PSGAL("C")=6000,PSGALFF=1106,PSGALFN=55.0611 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.07 WARD 0;7 POINTER TO WARD LOCATION FILE (#42)
LAST EDITED: OCT 30, 1991
DESCRIPTION:
This is the ward the patient was residing on when the dispense amount was entered.
TECHNICAL DESCR:
This is the ward the patient was shown to be residing on when the dispense amount was entered.
If the amount dispensed was entered through the pick list, this will be the ward the patient was on
when the pick list was run.
GROUP:PSJU
CROSS-REFERENCE:55.06^AL1107^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1107)) KILL^PSGAL5:PSGAL(1107)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1107)=X,PSGAL("C")=6000,PSGALFF=1107,PSGALFN=55.0611 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.0611,.08 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 30, 1991
DESCRIPTION:
This is the provider for the order when the amount dispensed was entered.
TECHNICAL DESCR:
This is the provider for the order when the amount dispensed was entered.
GROUP:PSJU
CROSS-REFERENCE:55.06^AL1108^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(1108)) KILL^PSGAL5:PSGAL(1108)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1108)=X,PSGAL("C")=6000,PSGALFF=1108,PSGALFN=55.0611 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,72 PROVIDER COMMENTS 12;0 WORD-PROCESSING #55.0612
DESCRIPTION:
This is any instructions or comments entered by the provider for this order.
GROUP:PSJU
LAST EDITED: NOV 19, 1991
DESCRIPTION:
This is any instructions or other comments entered by the provider of this order for this
order.
GROUP:PSJU
55.06,101 *PRIMARY DRUG .1;1 POINTER TO PRIMARY DRUG FILE (#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:55.06^B
1)= S ^PS(55,DA(1),5,"C",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),5,"C",$E(X,1,30),DA)
3)= Used to index Unit Dose orders by Primary Drug.
CROSS-REFERENCE:55.06^AL101^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(101)) KILL^PSGAL5:PSGAL(101)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(101)=X,PSGAL("C")=6000,PSGALFF=101,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,102 *DOSAGE ORDERED .1;2 FREE TEXT (Required)
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.
CROSS-REFERENCE:55.06^AL102^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(102)) KILL^PSGAL5:PSGAL(102)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(102)=X,PSGAL("C")=6000,PSGALFF=102,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,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
CROSS-REFERENCE:55.06^AL103^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(103)) KILL^PSGAL5:PSGAL(103)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(103)=X,PSGAL("C")=6000,PSGALFF=103,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,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
CROSS-REFERENCE:55.06^AL104^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(104)) KILL^PSGAL5:PSGAL(104)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(104)=X,PSGAL("C")=6000,PSGALFF=104,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,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
CROSS-REFERENCE:55.06^AL105^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(105)) KILL^PSGAL5:PSGAL(105)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(105)=X,PSGAL("C")=6000,PSGALFF=105,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,106 *NATURE OF ORDER .1;3 SET (Required)
'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
CROSS-REFERENCE:55.06^AL106^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(106)) KILL^PSGAL5:PSGAL(106)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(106)=X,PSGAL("C")=6000,PSGALFF=106,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,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
CROSS-REFERENCE:55.06^AL107^MUMPS
1)= I '$D(DIU(0)) D:$D(PSGAL(107)) KILL^PSGAL5:PSGAL(107)=X K PSGAL
2)= I '$D(DIU(0)),'$D(PSGPO) S PSGAL(107)=X,PSGAL("C")=6000,PSGALFF=107,PSGALFN=55.06 D ^PSGAL5
3)= UNIT DOSE ACTIVITY LOG
Used by Unit Dose to log any changes made to this field.
55.06,108 ORDERABLE ITEM .2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
LAST EDITED: FEB 22, 1995
DESCRIPTION:
This is the Orderable Item associated with the order. If the order is a unit dose order, all
dispense drugs entered must be matched to the order's primary drug. If the order is an IV, at
lest one of the additives or solutions entered must match the orderable item.
55.06,109 DOSAGE ORDERED .2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
LAST EDITED: APR 17, 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.
GROUP:PSJ
55.06,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: AUG 23, 2000
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) on the order.
TECHNICAL DESCR:
This is the method 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
55.06,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.
55.06,114 LAST RENEW 14;0 DATE Multiple #55.6114 (Add New Entry without Asking)
55.6114,.01 LAST RENEW 0;1 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 23, 2000
HELP-PROMPT:Enter the date/time the order was renewed.
DESCRIPTION:
This is the date/time the order was renewed.
TECHNICAL DESCR:
This is the date/time the order was renewed.
CROSS-REFERENCE:55.6114^B
1)= S ^PS(55,DA(2),5,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),5,DA(1),14,"B",$E(X,1,30),DA)
55.6114,1 RENEWED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 23, 2000
HELP-PROMPT:Enter the name of the person renewing this order.
DESCRIPTION:
This is the person who renewed the order.
TECHNICAL DESCR:
This is the person who renewed the order.
55.6114,2 PREVIOUS PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 23, 2000
HELP-PROMPT:Enter the name of the provider for the order you renewed.
DESCRIPTION:
This is the name of the provider responsible for the prior order.
TECHNICAL DESCR:
This is the name of the provider responsible for the prior order.
55.6114,3 PREVIOUS STOP DATE/TIME 0;4 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 23, 2000
HELP-PROMPT:Enter the stop date/time of the previous order.
DESCRIPTION:
This is the stop date/time of the prior order.
TECHNICAL DESCR:
This is the stop date/time of the prior order.
55.6114,4 PREVIOUS ORDERS FILE ENTRY 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: DEC 14, 2003
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
When an order is being renewed, this is the pointer value of the corresponding entry in the
ORDERS file (100), prior to the renewal.
55.06,120 DOSE .2;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999999)!(X<.0001)!(X?.E1"."5N.N) X
LAST EDITED: AUG 23, 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.
55.06,121 UNIT .2;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>75!($L(X)<1) X
LAST EDITED: AUG 23, 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 the doasge 325MG, MG would be stored
here.
55.06,122 SI/OPI FLAG 6;2 SET
'1' FOR YES;
LAST EDITED: MAY 22, 2001
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.
55.06,123 BCMA EXPIRED FLAG 4;27 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 05, 2001
DESCRIPTION:
This is an internal flag to indicate the order was expired at the request of the Bar Code
Medication Administration (BCMA) package. If the flag is set to 1, then BCMA requested
Inpatient Medications expire the order. Only orders with the flag set to 1 can be reinstated
by a BCMA reinstate request.
GROUP:PSJU
55.06,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.
55.06,125 ORDERS FILE PARENT ORDER .2;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 30, 2003
HELP-PROMPT:Enter the parent, if this order is its child.
DESCRIPTION:
This is the parent of an order that may have a parent/child relationship in CPRS.
RECORD INDEXES: ACX (#414) (WHOLE FILE #55)
55.06,126 REQUESTED DURATION 2.5;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
LAST EDITED: MAY 30, 2003
HELP-PROMPT:Answer must be 2-8 characters in length.
DESCRIPTION:
The duration of an order as requested by the ordering clinician in CPRS. The duration is
stored as one of the following upper case letters followed by an integer:
L - Months
W - Weeks
D - Days
H - Hours
M - Minutes
S - Seconds
Example: D6 = Six days.
55.06,128 MOST RECENT FLAG COMMENT 13;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JUN 10, 2007
HELP-PROMPT:Answer must be 1-80 characters in length
55.06,130 CLINIC 8;1 POINTER TO HOSPITAL LOCATION FILE (#44)
INPUT TRANSFORM:S DIC("S")="D PSS13^PSSDDUT" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D ^DIC K DIC S DIC=$
G(DIE),X=+Y K:Y<0 X
LAST EDITED: JUN 26, 2013
HELP-PROMPT:Entry must be a clinic location and should be a clinic that allows administration of
Inpatient Meds.
DESCRIPTION:
This is the clinic location if this order is for an Outpatient.
SCREEN:S DIC("S")="D PSS13^PSSDDUT"
EXPLANATION:Must be a clinic location. For Unit Dose, should allow IPM.
FIELD INDEX: CIMOCLU (#1120) REGULAR IR LOOKUP & SORTING WHOLE FILE (#55)
Short Descr: CIMOCLU - PS(55,CLINIC,PATIENT)
Description: This cross reference will be defined during order entry if the clinic is defined with YES answered
for the ADMINISTER INPATIENT MEDS parameter under the SET UP A CLINIC [SDBUILD] option. These
parameters identify the clinic as an IMO clinic. If at the time of order entry the clinic was not
defined as an IMO clinic, it is not stored in the either the CIMOU or CIMOCLU cross reference.
When a new IMO clinic is added or an existing clinic is edited using the CLINIC DEFINTION [PSJ CD]
option and it is marked as an IMO clinic, the IMO^PSJIMO1(.CLINICS) API will be called passing by
references the array of clinics added/edited. This API will add/update the CIMOU and CIMOCLU cross
references with the newly added IMO clinic(s).
Additionally, CIMOCLU will be used during order entry to verify whether the clinic is an IMO
clinic.
Set Logic: S ^PS(55,"CIMOCLU",X,DA(1),DA)=""
Set Cond: S X=$$GET1^DIQ(44,X2(1),2802,"I") I X
Kill Logic: K ^PS(55,"CIMOCLU",X,DA(1),DA)
Whole Kill: K ^PS(55,"CIMOCLU")
X(1): CLINIC (55.06,130) (Subscr 1) (forwards)
RECORD INDEXES: AUDC (#499) (WHOLE FILE #55), AUN (#501), CIMOU (#1121) (WHOLE FILE #55)
55.06,131 APPOINTMENT DATE/TIME 8;2 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAY 16, 2003
HELP-PROMPT:This is the date and time of the appointment this order is being placed for.
DESCRIPTION:
Date and time of the appointment for this clinic location.
55.06,132 INTERVENTION 10;0 POINTER Multiple #55.6132 (Add New Entry without Asking)
LAST EDITED: JAN 26, 2011
DESCRIPTION:
Pointer to Intervention (#9009032.4) file.
55.6132,.01 INTERVENTION 0;1 POINTER TO APSP INTERVENTION FILE (#9009032.4)
LAST EDITED: JAN 26, 2011
CROSS-REFERENCE:55.6132^B
1)= S ^PS(55,DA(2),5,DA(1),10,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),5,DA(1),10,"B",$E(X,1,30),DA)
55.6132,1 INTERVENTION DATE/TIME 0;2 DATE (Required)
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 26, 2011
DESCRIPTION:
The Date/Time the Intervention occurred.
55.06,135 SPECIAL INSTRUCTIONS (LONG) 15;0 WORD-PROCESSING #55.6135 (NOWRAP) (IGNORE "|")
LAST EDITED: OCT 16, 2011
55.06,136 DISPLAY STATUS 0;28 SET
'DF' FOR Discontinued due to edit by a provider through CPRS;
'DP' FOR Discontinued by provider through CPRS;
'DD' FOR Auto discontinued due to death;
'DA' FOR Auto discontinued due to patient movements;
'HP' FOR Placed on hold by provider through CPRS;
LAST EDITED: AUG 14, 2009
HELP-PROMPT:This code is to capture the source of which the action occurred.
DESCRIPTION:
This field captures how a "Discontinued" action occurred and this code is displayed on the
short patient profile if the Stop Date/Time is within the time specified in the Inpatient Ward
Parameter file (#59.6) or the Pharmacy System file (#59.7). The "HP" is to display on the
profile if the order was placed on hold by provider through CPRS.
55.06,137 DURATION OF ADMINISTRATION 2.1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: SEP 01, 2015
HELP-PROMPT:Answer must be 1-6 characters in length. DO NOT EDIT!
DESCRIPTION:
This is the period of time that a Medication Requiring Removal must remain on the patient prior
to removal.
TECHNICAL DESCR:
This is the period of time in minutes. The user enters the time in hours then they are
converted to minutes to remain consistent with schedule Frequency. Only entered via Inpatient
Meds
SOURCE OF DATA:PSJ
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AL56DOA (#1216)
55.06,138 REMOVE TIMES 2.1;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
LAST EDITED: AUG 20, 2015
HELP-PROMPT:Answer must be 1-60 characters in length. DO NOT EDIT!
DESCRIPTION:
This is the set of removal times for this order.
TECHNICAL DESCR:
Actual calculated Removal times based on user input. Admin Time + Duration of Admin = Removal
SOURCE OF DATA:PSJ
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.06,139 REMOVE PERIOD (in minutes) 2.1;3 FREE TEXT
MEDICATION FREE PERIOD
INPUT TRANSFORM:K:$L(X)>6!($L(X)<1) X
LAST EDITED: SEP 01, 2015
HELP-PROMPT:Answer must be 1-6 characters in length. DO NOT EDIT!
DESCRIPTION:
Period of time in minutes calculated using the Duration of Administration and the
Administration times. Only entered via PSJ OE.
TECHNICAL DESCR:
Calculated field in PSJ OE. Frequency - Duration of Admin = Remove Period. Value of -1
indicates optional entry for Orderable Item was declined by user.
SOURCE OF DATA:PSJ
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AL56DOA (#1216)
55.06,140 BCMA PROMPT FOR REMOVAL FLAG 2.1;4 SET
'0' FOR No Removal Required;
'1' FOR Removal at Next Administration;
'2' FOR Removal Period Optional Prior to Next Administration;
'3' FOR Removal Period Required Prior to Next Administration;
LAST EDITED: AUG 20, 2015
HELP-PROMPT:Enter values 0 through 3 as flags. DO NOT EDIT!
DESCRIPTION:
Orderable Item Prompt for Removal flag captured at order time. DO NOT EDIT!
TECHNICAL DESCR:
Orderable Item Prompt for Removal Flag used by BCMA. Controls method of prompting for VDL
users.
SOURCE OF DATA:PSJ
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.06,141 INDICATION FOR USE 18;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<3) X
MAXIMUM LENGTH: 40
LAST EDITED: JUL 09, 2020
HELP-PROMPT:Enter the Indication For Use. Answer must be 3-40 characters in length.
DESCRIPTION:
This field contains the Indication For Use that is chosen when the medication is ordered.
55.06,301 CLOZAPINE DOSAGE (MG/DAY) SAND;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>3000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 06, 2016
HELP-PROMPT:Type a number between 0 and 3000, 0 decimal digits.
DESCRIPTION:
This is the total daily dosage of clozapine if this order is for the drug clozapine. This is
used only for clozapine.
55,62.01 UD DEFAULT STOP DATE/TIME 5.1;1 DATE
DEFAULT STOP DATE/TIME
INPUT TRANSFORM: S %DT="ETXRS" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 20, 2000
HELP-PROMPT: Enter a default stop date and time for orders entered for this patient.
DESCRIPTION: This is date used as a default value for the STOP DATE/TIME of Unit Dose orders during the order
entry and renewal processes, if the corresponding site parameter is turned on. The order entry and
renewal processes will sometimes change this date.
EXECUTABLE HELP: D EN^DDIOL("NOT TO BE ENTERED INTO THROUGH FILEMAN!!","","$C(7),$C(7),!")
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSJU
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55,62.02 UD PROVIDER 5.1;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 08, 1991
DESCRIPTION:
This is the latest provider for this patient, used as a default value in order entry.
GROUP: PSJU
55,62.03 UD LAST ADMISSION DATE 5.1;3 DATE
INPUT TRANSFORM: S %DT="ETXS" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 20, 2000
DESCRIPTION:
This is the last admission date for this patient.
GROUP: PSJ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55,62.04 UD LAST TRANSFER DATE 5.1;4 DATE
INPUT TRANSFORM: S %DT="ETXS" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 20, 2000
DESCRIPTION:
This is the last transfer date for this patient.
GROUP: PSJ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55,62.05 UD LAST DISCHARGE DATE 5.1;5 DATE
INPUT TRANSFORM: S %DT="ETXS" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 20, 2000
DESCRIPTION:
This is the last discharge date for this patient.
GROUP: PSJ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55,62.06 UD EXP UP-DATE 5.1;6 DATE
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 04, 1986
DESCRIPTION:
This is a date used to update expired orders. (Internal)
GROUP: PSJU
55,62.07 UD HOLD FLAG 5.1;7 SET
'0' FOR ORDERS NOT ON HOLD;
'1' FOR ORDERS ON HOLD;
'2' FOR ORDERS AUTOMATICALLY PLACED ON HOLD;
LAST EDITED: FEB 28, 1994
DESCRIPTION:
This is an internal flag set when all of the patient's orders have been placed on hold.
GROUP: PSJU
55,62.08 UD DISCHARGE FLAG 5.1;8 SET
'1' FOR PATIENT HAS BEEN DISCHARGED;
LAST EDITED: JUL 01, 1990
DESCRIPTION: This is an internal flag set when a patient is first found to have been discharged. It is set so
that Inpatient Meds does not try to cancel the patient's orders every time the patient is accessed
while discharged.
GROUP: PSJ
55,62.1 COMMENTS 5.2;0 WORD-PROCESSING #55.061
DESCRIPTION: This is used for temporary storage of data by the Unit Dose package. The data is deleted before
and after each use!
GROUP: PSJU
LAST EDITED: MAR 20, 1987
DESCRIPTION: This is used for temporary storage of data by the Unit Dose package. The data is deleted
before and after each use!
GROUP: PS
55,62.11 HOLD REASON 5.1;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 07, 1989
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is an explanation of why this patient's orders are being placed on hold. This explanation
will show on the patient's Unit Dose profile.
EXECUTABLE HELP: D EN^DDIOL("Enter the reason this patient's order(s) are being placed on hold.","","!")
GROUP: PSJU
55,62.16 *LAST UD ORDER CONVERTED TO V4 5.1;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: AUG 05, 1997
HELP-PROMPT: Answer must be 2-10 characters in length.
DESCRIPTION: This is the last Unit Dose order converted for use with version 4 of the Inpatient Medications
package. THIS SHOULD NOT BE EDITED. Editing could result in corrupted data and possibly
medication administration errors.
TECHNICAL DESCR: This is used and set by the post-init routine PSJIPST0. It is used to keep track of the
patient's last Unit Dose order to be converted to the New Person file and Primary Drug. It is used
to allow the Inpatient Medications version 4 inits to be rerun if necessary.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
GROUP: PSG
55,62.2 INPATIENT NARRATIVE 5.3;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>250!($L(X)<1) X
LAST EDITED: NOV 14, 1997
HELP-PROMPT: Answer must be 1-250 characters in length.
DESCRIPTION:
This field stores the Inpatient pharmacy narrative for the patient.
55,63 *UD STOP DATE 5.1;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 02, 1996
HELP-PROMPT: NOT TO BE USED THROUGH FILEMAN
DESCRIPTION:
This field is used by the UNIT DOSE PHARMACY package. It is NOT to be entered into anywhere else!
EXECUTABLE HELP: D EN^DDIOL("NOT TO BE ENTERED INTO THROUGH FILEMAN!!","","$C(7),$C(7),!")
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
55,70 PATIENT COMMENT PC;0 DATE Multiple #55.17 (Add New Entry without Asking)
LAST EDITED: SEP 07, 2017
DESCRIPTION:
This sub-file allows patient billing comments to be stored for this patient.
55.17,.01 PATIENT COMMENT DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 21, 2017
HELP-PROMPT: (No range limit on date)
CROSS-REFERENCE: 55.17^B
1)= S ^PS(55,DA(1),"PC","B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),"PC","B",$E(X,1,30),DA)
55.17,1 USER 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: SEP 06, 2017
55.17,2 ACTIVE 0;3 SET
'Y' FOR ACTIVE;
'N' FOR INACTIVE;
LAST EDITED: AUG 09, 2017
55.17,3 COMMENT 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>150!($L(X)<1) X
MAXIMUM LENGTH: 150
LAST EDITED: AUG 09, 2017
HELP-PROMPT: Answer must be 1-150 characters in length.
55.17,4 PATIENT COMMENT HISTORY PCH;0 DATE Multiple #55.174 (Add New Entry without Asking)
LAST EDITED: SEP 21, 2017
DESCRIPTION:
This sub-file stores all historical updates to the patient billing comments for this patient.
55.174,.01 HISTORY DATE 0;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 21, 2017
HELP-PROMPT: (No range limit on date)
CROSS-REFERENCE: 55.174^B
1)= S ^PS(55,DA(2),"PC",DA(1),"PCH","B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),"PC",DA(1),"PCH","B",$E(X,1,30),DA)
55.174,1 USER 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 09, 2017
55.174,2 ACTIVITY 0;3 SET
'1' FOR ADD;
'2' FOR ACTIVATE;
'3' FOR INACTIVATE;
LAST EDITED: AUG 09, 2017
55,99 *NO. OF IV ORDERS ; COMPUTED
MUMPS CODE: X ^DD(55,99,9.2) S Y(55,99,102)="" X "F D1=0:0 S D1=$N(^PS(55,D0,""IV"",D1)) Q:D1'>0 S:$S($D(^(D1,
0)):$P(^(0),U,1),1:"""")'?."" "" Y(55,99,102)=Y(55,99,102)+1" S X=Y(55,99,102) S D1=Y(55,99,1) S X=
$J(X,0,0)
9.2 = S Y(55,99,1)=$S($D(D1):D1,1:"")
ALGORITHM: COUNT(IV) (ALWAYS 0 DECIMAL DIGITS)
LAST EDITED: OCT 02, 1996
55,100 IV IV;0 Multiple #55.01
LAST EDITED: JUN 23, 1993
DESCRIPTION: This subfile contains IV order information for any given patient. A separate IV order file does
not exist. This isn't the same design as outpatient pharmacy -- which does contain a separate file
for prescriptions.
GROUP: PSJI
INDEXED BY: STOP DATE/TIME & CLINIC (AIN), CLINIC & STOP DATE/TIME (CIMOI)
55.01,.01 ORDER NUMBER 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: JUN 25, 2013
HELP-PROMPT: Type a whole number between 1 and 9999999.
DESCRIPTION:
Order Number for IV drugs administered to this patient.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.01^B
1)= S ^PS(55,DA(1),"IV","B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),"IV","B",$E(X,1,30),DA)
55.01,.02 START DATE/TIME 0;2 DATE (Required)
INPUT TRANSFORM:X:X="P" "F X=0:0 S X=$O(^PS(55,DA(1),""IV"",X)) Q:'X I $O(^(X))=DA W ""...RECALL"" S X=$P(^(X,0),"
"^"",3) Q" S:X="STAT" X="NOW" S %DT="ERTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 31, 1993
HELP-PROMPT: Enter the start DATE and TIME for this order.
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 WARD PARAMETERS file. START DATE/TIME may not be
entered prior to 7 days from the order's LOGIN DATE.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.01^AE^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.02 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.02 D ENFR^PSIVAL
Used by IV Package.
CROSS-REFERENCE:55^AIVS
1)= S ^PS(55,"AIVS",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(55,"AIVS",$E(X,1,30),DA(1),DA)
Identifies IV orders by the order's start date/time.
RECORD INDEXES: ACRIV (#466) (WHOLE FILE #55)
55.01,.03 STOP DATE/TIME 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="ETX" D:X'=+X ^%DT D:X=+X ENDL^PSSDDUT3 S X=Y K:Y<1!(Y'[".") X
LAST EDITED: MAY 28, 2014
HELP-PROMPT: Enter the stop DATE and TIME for this order.
DESCRIPTION:
This is the date and time the order is to end.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55^AIV
1)= S ^PS(55,"AIV",+$E(X,1,30),DA(1),DA)=""
2)= K ^PS(55,"AIV",+$E(X,1,30),DA(1),DA)
Identifies IV orders by the order's stop date/time.
CROSS-REFERENCE:55.01^AF^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.03 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.03 D ENFR^PSIVAL
Used by IV Package.
CROSS-REFERENCE:55.01^AIS
1)= S ^PS(55,DA(1),"IV","AIS",+X,DA)=""
2)= K ^PS(55,DA(1),"IV","AIS",+X,DA)
CROSS-REFERENCE:55^AIT^MUMPS
1)= I $P($G(^PS(55,DA(1),"IV",DA,0)),U,4)]"" S ^PS(55,DA(1),"IV","AIT",$P(^(0),U,4),+X,DA)=""
2)= I $P($G(^PS(55,DA(1),"IV",DA,0)),U,4)]"" K ^PS(55,DA(1),"IV","AIT",$P(^(0),U,4),+X,DA)
Used by IV to gather orders. X-refs are in the form of:
^PS(55,DA(1),"IV","AIT",type,stop date/time,DA)
These are used primarily by the Med Due Worksheet and MAR.
RECORD INDEXES: ACRIV (#466) (WHOLE FILE #55), AIN (#500), AIVC (#498) (WHOLE FILE #55), CIMOI (#1122)
55.01,.04 TYPE 0;4 SET (Required)
'A' FOR ADMIXTURE;
'P' FOR PIGGYBACK;
'H' FOR HYPERAL;
'S' FOR SYRINGE;
'C' FOR CHEMOTHERAPY;
LAST EDITED: JAN 06, 1989
DESCRIPTION: Type of IV - 'A' for Admixture, 'C' for chemotherapy, 'H' for Hyperal, 'P' for Piggyback, and 'S'
for Syringe.
GROUP: PSJI
CROSS-REFERENCE:55.01^AG^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.04 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.04 D ENFR^PSIVAL
Used by IV Package.
55.01,.06 PROVIDER 0;6 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^D
IC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 30, 1991
HELP-PROMPT: (Entry required.)
DESCRIPTION:
Person who authorized the prescription.
TECHNICAL DESCR: This is a pointer to the NEW PERSON File (200). The provider entered must be active and
authorized to write medication orders.
SCREEN: S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"
EXPLANATION: Inactive physician's are not allowed.
GROUP: PSJI
CROSS-REFERENCE:55.01^AH^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.06 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.06 D ENFR^PSIVAL
Used by IV Package.
CROSS-REFERENCE:55.01^AP^MUMPS
1)= I '$D(DIU(0)),$S($D(^PS(55,DA(1),5.1)):$P(^(5.1),"^",2)'=X,1:1) S $P(^(5.1),"^",2)=X
2)= Q
Used by IV Package.
55.01,.08 INFUSION RATE 0;8 FREE TEXT
INPUT TRANSFORM:D ENI^PSSDDUT3
LAST EDITED: FEB 18, 1986
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: The rate at which the IV is to be administered. This value, together with the total volume of
the hyperal or the admixture type, is used to determine the time covered by one bag; hence the
system can predict the bags needed during a specified time of coverage. This field is free text
for IVPB's. For LVP's you must enter a number representing the infusion rate. You may also
specify the # of bags per day needed, which will become the default number of LABELS PER DAY.
Example: 125 = 125 ml/hr (IV system will calculate bags needed per day)
125@2 = 125 ml/hr with 2 labels per day
TITRATE@1 = TITRATE with 1 label per day
The format of this field is either a number only or
[FREE TEXT@NUMBER OF LABELS PER DAY].
Note: If an administration time(s) is defined, the number of labels will reflect the
administration time(s) for the IVPB type orders. For example: One administration time of 12:00 is
specified. The infusion rate is entered as 125@3. Only 1 label will print.
TECHNICAL DESCR:The # of bags per day needed, if entered, populates P("NUMLBL") and displays as the default for the
LABELS PER DAY (#155) field.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.01^AI^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.08 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.08 D ENFR^PSIVAL
Used by IV Package.
55.01,.09 SCHEDULE 0;9 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45)!($L(X," ")>$S(X["PRN":4,1:3)) X I $D(X) D EN^PSIVSP K:XT<0 X I $D(X) S PSIVSC=Y
,$P(^PS(55,DA(1),"IV",DA,0),U,15)=+XT
OUTPUT TRANSFORM:S Y=$S($P(^PS(55,D0,"IV",D1,0),U,7):Y_"@0 labels a day.",1:Y)
LAST EDITED: SEP 24, 2014
HELP-PROMPT: Answer must be 1-70 characters in length.
DESCRIPTION: You may enter a standard schedule here or non-standard schedule. If a standard schedule is
entered, the doses will be given at the administration time(s). If a non-standard schedule is
entered, and no administration times are entered, the doses will be given at time intervals past
the start date/time of the IV order.
TID = (09-17-21) doses will be given at admin. times.
Q5H = (300 minutes) doses will be given every 300 minutes. The format of this field is
[SCHEDULEspaceFREETEXTspaceFREETEXT] and 1-70 characters.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.01^AJ^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.09 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.09 D ENFR^PSIVAL
Used by IV Package.
55.01,.1 REMARKS 1;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X
LAST EDITED: NOV 18, 1985
HELP-PROMPT: Answer must be 1-100 characters in length.
DESCRIPTION:
This field is not shown on the IV labels, but is shown on some of the IV reports.
GROUP: PSJI
CROSS-REFERENCE:55.01^AC^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.1 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.1 D ENFR^PSIVAL
Used by IV Package.
55.01,.12 ADMINISTRATION TIMES 0;11 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) X $P(^DD(51.1,1,0),"^",5,999)
LAST EDITED: MAR 26, 1986
HELP-PROMPT: Answer must be 1-64 characters in length, e.g., 03-09-15-21.
DESCRIPTION: Enter the times that this order will be given separated by a '-'. The administration times have
to be entered in ascending order. Each administration time must be at least two characters long or
four characters long. Example: '03-07-11-15-19-23' or '0730-1130'. Administration times are
REQUIRED for STANDARD schedules but are NOT REQUIRED for NON-STANDARD schedules.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.01^AK^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.12 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.12 D ENFR^PSIVAL
Used by IV Package.
55.01,.15 LAST FILL 9;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 07, 1985
DESCRIPTION:
Last time the prescription was filled.
GROUP: PSJI
55.01,.16 LAST QTY FILLED 9;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 15, 1985
HELP-PROMPT: Type a whole number between 0 and 999.
DESCRIPTION:
Quantity of last filled prescription.
GROUP: PSJI
55.01,.17 SCHEDULE INTERVAL 0;15 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 23, 1985
HELP-PROMPT: Type a whole number between 0 and 9999.
DESCRIPTION:
Interval between administrations of IV
GROUP: PSJI
55.01,.21 LOGIN DATE/TIME 2;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date and time the order was entered.
GROUP: PSJI
55.01,.22 IV ROOM 2;2 POINTER TO IV ROOM FILE (#59.5) (Required)
LAST EDITED: JUL 30, 1991
DESCRIPTION:
IV room where IV was prepared for administration.
GROUP: PSJI
55.01,.23 *ENTRY CODE 2;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<2)!'(X?.A) X
LAST EDITED: NOV 05, 1997
HELP-PROMPT: Answer must be 2-5 characters in length.
DESCRIPTION:
This is the user who entered the order into the system.
GROUP: PSJI
55.01,.24 CUMULATIVE DOSES 0;16 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 21, 1985
HELP-PROMPT: Type a whole number between 0 and 999.
DESCRIPTION:
Cumulative doses of IV for patient.
GROUP: PSJI
55.01,1 ADDITIVE AD;0 POINTER Multiple #55.02 (Add New Entry without Asking)
DESCRIPTION:
The additive in the IV. This looks at the Additives File (52.6)
SCREEN: S DIC("S")="I 1 S DIC(""W"")=""I 1 ENQUI^PSIV"""
EXPLANATION: Choose an additive or an additves quick code.
GROUP: PSJI
55.02,.01 ADDITIVE 0;1 POINTER TO IV ADDITIVES FILE (#52.6) (Multiply asked)
INPUT TRANSFORM:S PSIVX=X,DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"
")):DT<^(""I"")!'^(""I""),1:1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 23, 1987
DESCRIPTION: This is the additive which was selected as part of the IV order. This entry is a pointer to the
ADDITIVES file (52.6).
SCREEN: S PSIVX=X,DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")
):DT<^(""I"")!'^(""I""),1:1))"
EXPLANATION: Choose an additive, an additive's synonym, or an additive's quick code.
EXECUTABLE HELP:S DIC("W")="I 1 D ENQUI^PSIV"
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.02^AC^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENFR^PSIVAL
Used by IV Package.
55.02,.02 STRENGTH 0;2 FREE TEXT (Required)
INPUT TRANSFORM:K:X'?.6N.".".8N!(X<0) X I $D(X) D ENU^PSIV S X=X_" "_PSIVSTR W " ",PSIVSTR
LAST EDITED: MAR 21, 1990
DESCRIPTION: 'STRENGTH' is the amount of an additive that is used in the manufacturing of the IV order. NOTE!
You'll be expected to use the strength units that have been previously defined within the additive
file (52.6) for each additive. That is to say, if the additive file expects AMPICILLIN to be
dispensed in 'GMS', it would not be correct for you to enter '500' for a half-gram dose -- enter
0.5 instead.
EXECUTABLE HELP:D:X="??" ENTDRG^PSIVDRG D ENU^PSIV W !,"Enter the strength"_$S($D(PSIVSTR):" in "_PSIVSTR_"'s",1:
"")_". Enter only a number.",!
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.02^AD^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENFR^PSIVAL
Used by IV Package.
55.02,.03 BOTTLE 0;3 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X) Q:PSIV>$L(X,",") K:$P(
X,",",PSIV)'?1N.N X
LAST EDITED: NOV 18, 1985
HELP-PROMPT: Enter the bottle #'s that this additive will be in (e.g. '1', '1,3', or for all
bottles). In case of "See Comments," replace with specific bottle #'s or enter "@" to specify all
bottles.
DESCRIPTION: This is the bottle number (or numbers, separated by commas) in which this additive will be
included for this IV order. If this field is blank, it means that the additive will be included in
all bottles.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.02^AE^MUMPS
1)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) S PSIVF1=55.02,PSIVF2=.03 D ENFR^PSIVAL
Used by IV Package.
55.01,3 SOLUTION SOL;0 POINTER Multiple #55.11 (Add New Entry without Asking)
DESCRIPTION:
Solution in IV. Looks at the Solutions File (52.7)
GROUP: PSJI
IDENTIFIED BY:
"PSIV": D ENSOL^PSIV
55.11,.01 SOLUTION 0;1 POINTER TO IV SOLUTIONS FILE (#52.7)
INPUT TRANSFORM:S DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT
<^(""I"")!'^(""I""),1:1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 27, 1988
HELP-PROMPT:Answer must be 1-120 characters in length.
DESCRIPTION:
This is the solution entered as part of the specified IV order.
SCREEN: S DIC("S")="I $S($D(^(""I"")):DT<^(""I"")!'^(""I""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""I"")):DT<^("
"I"")!'^(""I""),1:1))"
EXPLANATION:Choose a solution or a solution's synonym.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.11^AC^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENFR^PSIVAL
Used by IV Package.
55.11,1 VOLUME 0;2 FREE TEXT (Required)
INPUT TRANSFORM:K:X[""""!($A(X)=45)!(X'=+X)!(X>9999)!(X<.01) X I $D(X) S X=X_" ML" W " ML"
LAST EDITED: OCT 08, 1998
HELP-PROMPT:Answer must be a number from .01-9999.
DESCRIPTION: This field represents the volume of this solution in MLs. Only a number can be entered into this
field. The total volume of an IV ORDER is all the solution's volumes added together.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:55.11^AD^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENFR^PSIVAL
Used by IV Package.
55.01,9 ORIGINAL WARD 2;10 POINTER TO WARD LOCATION FILE (#42)
LAST EDITED: DEC 11, 1993
DESCRIPTION:
This is the ward where the patient was located when the order was created.
TECHNICAL DESCR:
This is used to determine if the admin times for the ward were used when the order was created. If
the patient is transferred and the order is then renewed, the admin times of the new ward will be
used for the renewal order if the admin times of the previous ward were used in the original order.
GROUP: PSJI
55.01,16 VERIFYING NURSE 4;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 12, 1996
DESCRIPTION:This is the nurse who acknowledged (through OE/RR) the order, or the lates action taken on the
order.
55.01,17 DATE VERIFIED BY NURSE 4;2 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 12, 1996
DESCRIPTION:
This is the date the order was acknowledged (through OE/RR) by the nurse.
55.01,31 OTHER PRINT INFO 3;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X
LAST EDITED: DEC 10, 1985
HELP-PROMPT:Answer must be 1-60 characters in length.
DESCRIPTION: This field is very similar to the REMARKS field except that OTHER INFO is shown on the label and
the IV REPORTS.
GROUP: PSJI
CROSS-REFERENCE:55.01^AD^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=31 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=31 D ENFR^PSIVAL
Used by IV Package.
55.01,40 ACTIVITY LOG A;0 Multiple #55.04 (Add New Entry without Asking)
DESCRIPTION: This is used to record changes made to the IV order. Information stored includes the date/time of
the action, the user who took the action, and any fields changed.
GROUP: PSJI
55.04,.01 ACTIVITY LOG 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X?.E1"."1N.N) X
LAST EDITED: FEB 22, 1988
HELP-PROMPT:Type a whole number between 1 and 999999999.
DESCRIPTION:
Log in IV activity.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.04,.02 TYPE OF ACTIVITY 0;2 SET (Required)
'H' FOR HOLD;
'D' FOR DISCONTINUED;
'U' FOR UNHOLD;
'E' FOR EDIT;
'R' FOR RENEW;
'I' FOR REINSTATE;
'O' FOR ON CALL;
'C' FOR OFF CALL;
'V' FOR VERIFY;
'F' FOR COMPLETE;
'AI' FOR AUTO REINSTATE;
'PNRD' FOR PENDING/NON-VERIFIED RENEWAL DISCONTINUED;
'G' FOR FLAGGED;
'UG' FOR UNFLAGGED;
LAST EDITED: JUL 03, 2002
DESCRIPTION: Captures type of activity. Enter one of following set of codes: H for hold, D for Discontinue,
U for Unhold, E for Edit, R for Renew, I for Reinstate, AI for auto reinstate, O for On Call, C
for Off call, V for Verify, F for Complete, PNRD for Pending/Non-Verified Renewal Discontinued, G
for Flagged, or UG for Unflagged.
GROUP: PSJI
UNEDITABLE
55.04,.03 ENTRY CODE 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: APR 18, 2002
HELP-PROMPT:Answer must be 2-30 characters in length.
DESCRIPTION: This is the free text name from the user file of the person who performed the activity on this
order.
GROUP: PSJI
UNEDITABLE
55.04,.04 REASON FOR ACTIVITY 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>102!($L(X)<3) X
LAST EDITED: JUL 11, 2002
HELP-PROMPT:Answer must be 3-102 characters in length.
DESCRIPTION:
Reason for activity. This may be a message field.
GROUP: PSJI
UNEDITABLE
55.04,.05 ACTIVITY DATE 0;5 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 21, 1986
DESCRIPTION:
This is the date in which this action was taken.
GROUP: PSJI
UNEDITABLE
55.04,.06 USER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 17, 2001
HELP-PROMPT:This is the user who effected the activity.
DESCRIPTION:
This is the user who effected the activity.
55.04,1 FIELD CHANGED 1;0 Multiple #55.15 (Add New Entry without Asking)
DESCRIPTION: This is used to record the actual changes made to fields in the IV order. Information stored
includes the field name, it's old value, and it's new value.
GROUP: PSJI
55.15,.01 FIELD CHANGED 0;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 21, 1986
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
The name of the field changed.
GROUP: PSJI
UNEDITABLE
55.15,1 FROM 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: MAR 21, 1986
HELP-PROMPT:Answer must be 1-100 characters in length.
DESCRIPTION:
This is the value which the specified field contained before modification.
GROUP: PSJI
UNEDITABLE
55.15,2 TO 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: MAR 21, 1986
HELP-PROMPT:Answer must be 1-100 characters in length.
DESCRIPTION:
Value field was changed to.
GROUP: PSJI
UNEDITABLE
55.04,2 OTHER PRINT INFO (OLD VALUE) 2;0 WORD-PROCESSING #55.42 (NOWRAP) (IGNORE "|")
DESCRIPTION:This contains the previous data that was in the OTHER PRINT INFO (LONG) (#154) multiple in the
IV (#100) multiple in the PHARMACY PATIENT (#55) file, prior to an edit. The data is captured
automatically and is not editable.
LAST EDITED: FEB 22, 2012
DESCRIPTION:This contains the previous data that was in the OTHER PRINT INFO (LONG) (#154) multiple in
the IV (#100) multiple in the PHARMACY PATIENT (#55) file, prior to an edit. The data is
captured automatically and is not editable.
55.04,3 OTHER PRINT INFO (NEW VALUE) 3;0 WORD-PROCESSING #55.43 (NOWRAP) (IGNORE "|")
DESCRIPTION:This contains the new data in the OTHER PRINT INFO (LONG) (#154) multiple in the IV (#100)
multiple in the PHARMACY PATIENT (#55) file, after an edit. The data is captured
automatically and is not editable.
LAST EDITED: FEB 22, 2012
DESCRIPTION:This contains the new data in the OTHER PRINT INFO (LONG) (#154) multiple in the IV (#100)
multiple in the PHARMACY PATIENT (#55) file, after an edit. The data is captured
automatically and is not editable.
55.01,100 STATUS 0;17 SET (Required)
'A' FOR ACTIVE;
'H' FOR HOLD;
'R' FOR RENEWED;
'D' FOR DISCONTINUED;
'E' FOR EXPIRED;
'P' FOR PURGE;
'O' FOR ON CALL;
'N' FOR NON VERIFIED;
LAST EDITED: JUL 22, 1992
DESCRIPTION: Status of order. Enter one of following codes: A for active, H for hold, R for renewed, D
for discontinued, E for expired, P for purge, O for on call, N for nonverified.
GROUP: PSJI
CROSS-REFERENCE:55.01^AL^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=100 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=100 D ENFR^PSIVAL
Used by IV Package.
CROSS-REFERENCE:55^ANVO^MUMPS
1)= I $D(DIU(0)) S:X="N" ^PS(55,"ANVO",DA(1),DA)=""
2)= K:X'="N" ^PS(55,"ANVO",DA(1),DA)
Used by IV Package.
CROSS-REFERENCE:55^ADC^MUMPS
1)= S:X="D"&($D(^PS(55,DA(1),"IV",DA,"ADC"))) ^PS(55,"ADC",^PS(55,DA(1),"IV",DA,"ADC"),DA(1),DA)=""
2)= K:X'="D"&($D(^PS(55,DA(1),"IV",DA,"ADC"))) ^PS(55,"ADC",^PS(55,DA(1),"IV",DA,"ADC"),DA(1),DA)
3)= This is used by purging options and reports.
This is used to identify DC'ed orders by date. Used by purging functions and reports.
55.01,101 *DOSAGE ORDERED 4;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<1) X
LAST EDITED: OCT 08, 1991
HELP-PROMPT:Answer must be 1-15 characters in length.
DESCRIPTION:
This is the dosage prescribed by the physician.
GROUP:PSJI
55.01,102 *IV ORDERED 4;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<1) X
LAST EDITED: OCT 08, 1991
HELP-PROMPT:Answer must be 1-40 characters in length.
DESCRIPTION:
This field is used only for orders entered through the OE/RR interface. If a hyperal is ordered,
this field will contain "HYPERAL IV ORDER". If an admixture is ordered, it will contain the free
text drug name entered, and may be from 1 to 40 characters long. If a piggyback is ordered it will
be null, as the drug entered will be an entry in the additives file, and is stored in the ADDITIVES
sub-file (55.02) for the order.
GROUP:PSJI
55.01,103 *SPECIAL INSTRUCTIONS 4;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>180!($L(X)<1) X
LAST EDITED: OCT 08, 1991
HELP-PROMPT:Answer must be 1-180 characters in length.
DESCRIPTION:
This field contains any special instructions or messages appropriate for this IV order. This
field may only be edited when entering an order through the OE/RR package, and will only be
displayed when viewing the order until the order has been verified.
GROUP:PSJI
55.01,104 WARD 0;22 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X I $S($D(X)[0:0,X=.5:0,1:'$D(^DIC(42,+X,0))) K X
LAST EDITED: NOV 15, 1990
HELP-PROMPT:Type a Number between 0 and 999, 1 Decimal Digit.
DESCRIPTION:
If the IV is not a outpatient IV, this field will be a pointer to the ward file 42. If the IV is
a outpatient IV, this field will contain a .5
GROUP:PSJI
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.01,105 TOTAL IV'S ADMINISTERED 9;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 02, 1988
HELP-PROMPT:Type a Number between 0 and 99999999, 0 Decimal Digits.
DESCRIPTION:
This is the total number of doses of this IV order which have been administered to the patient.
GROUP:PSJI
55.01,106 CHEMOTHERAPY TYPE 0;23 SET (Required)
'A' FOR ADMIXTURE;
'P' FOR PIGGYBACK;
'S' FOR SYRINGE;
LAST EDITED: JAN 06, 1989
DESCRIPTION:
A chemotherapy IV order may be one of three types: 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.
GROUP:PSJI
55.01,107 SYRINGE SIZE 2;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: JAN 03, 1989
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
55.01,108 INTERMITTENT SYRINGE 0;5 SET (Required)
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 10, 1989
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
piggback type will be followed.
GROUP:PSJI
55.01,109 DC DATE ADC;1 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 22, 1989
DESCRIPTION:
This is the date the IV order selected was discontinued.
GROUP:PSJI
55.01,110 ORDERS FILE ENTRY 0;21 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 17, 2003
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
This value matches this IV order to its entry in the Order file.
GROUP:PSJI
RECORD INDEXES: ACX1 (#415) (WHOLE FILE #55)
55.01,111 LABEL TRACKING LAB;0 Multiple #55.1111 (Add New Entry without Asking)
DESCRIPTION:
This contains IV label information pertaining to any label action taken for an IV order.
55.1111,.01 LABEL TRACKING 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: FEB 07, 1990
HELP-PROMPT:Type a Number between 1 and 99999999999, 0 Decimal Digits
DESCRIPTION:
This is the internal number of this label tracking event.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.1111,1 DATE 0;2 DATE
INPUT TRANSFORM:S %DT="EST" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 07, 1990
DESCRIPTION:
This is the date the label action was taken.
55.1111,2 ACTION 0;3 SET
'1' FOR DISPENSED;
'2' FOR RECYCLED;
'3' FOR DESTROYED;
'4' FOR CANCELED;
'5' FOR SUSPENDED;
'6' FOR OTHER;
LAST EDITED: MAR 26, 1990
DESCRIPTION:
This describes what type of label action was taken.
55.1111,3 USER 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 07, 1990
HELP-PROMPT:Type a Number between 0 and 99999999999999, 0 Decimal Digits
DESCRIPTION:
This identifies who initiated the label action.
55.1111,4 LABELS 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 07, 1990
HELP-PROMPT:Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
This is the number of labels involved in this event.
55.1111,5 TRACK 0;6 SET
'1' FOR INDIVIDUAL LABELS;
'2' FOR SCHEDULED LABELS;
'3' FOR SUSPENDED LABELS;
'4' FOR ORDER ACTION LABELS;
'5' FOR OTHER;
LAST EDITED: FEB 07, 1990
DESCRIPTION:
This identifies the type of option used when labels were printed.
55.1111,6 DAILY USAGE 0;7 SET
'1' FOR YES;
'2' FOR NO;
LAST EDITED: FEB 07, 1990
DESCRIPTION:
This shows if the labels printed during this event were counted toward daily usage and had an
entry made in the IV STATS file (50.8).
55.1111,7 ERROR 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: FEB 09, 1990
HELP-PROMPT:Answer must be 1-100 characters in length.
DESCRIPTION:
This will be defined when recycling, canceling, or destroying IV bags in an IV room different
from the one in which the label was dispensed. This is a built in error log and will show on the
label tracking log if the error has occurred. The log will tell you the IV room from which the
bag was dispensed and the IV room in which the bag was recycled, canceled, or destroyed. An IV
bag should always be recycled, canceled, or destroyed in the same IV room from which it was
dispensed.
GROUP:PSJI
55.01,112 ATZERO 0;7 SET
'1' FOR PRINT PB'S ON DEMAND;
LAST EDITED: APR 12, 1990
DESCRIPTION:
This field is a 1 or a null. It will be a 1 if the IV order is intermittent and a schedule was
entered in the form SCHEDULE@0. Notice the 'NO space' in the input. When I see a schedule
entered in this form, I set this field to one. A 1 means that the user wants to see these order
on the ward list and manufacturing list with 0 doses due. They will not get scheduled labels for
these orders unless they update the ward list first. They can get these labels from individual
order print. This is a 'print on demand function' just like entering INFUSION RATE@0 for
continuous orders.
55.01,113 PREVIOUS ORDER 2;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: AUG 05, 1991
HELP-PROMPT:Answer must be 1-10 characters in length.
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 this field contains a "N", it is a pointer to the NONVERIFIED ORDERS file (53.1). If it
contains a "V", it is a pointer to the PHARMACY PATIENT file (55).
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
55.01,114 FOLLOWING ORDER 2;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 19, 1992
HELP-PROMPT:Answer must be 1-10 characters in length.
DESCRIPTION:
If an action is taken on an order that causes a new order to be created, this will contain a
code identifying the status and location of the new order.
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 and location of the order
created. 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
55.01,115 PROVIDER COMMENTS 5;0 WORD-PROCESSING #55.1115
DESCRIPTION:
This is any comments about the order that the provider needs to pass along to the pharmacy
and/or ward personnel.
LAST EDITED: AUG 12, 1991
DESCRIPTION:
This contains any comments about the order that the provider needs to pass along to pharmacy
or ward personnel. This field may only be edited using OE/RR options.
TECHNICAL DESCR:
When an order entered through OE/RR is completed by pharmacy, the provider comments for the
order are copied into this field in the new active order. Provider comments may only be edited
through OE/RR.
55.01,116 ORIGINAL STOP DATE 2;7 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 20, 1991
DESCRIPTION:
When an action is taken on an order that causes the order's original stop date to be changed,
the original stop date is stored in this field.
TECHNICAL DESCR:
This contains the stop date of the order when the order was originally entered. When an
active order is edited, renewed, or discontinued, the original stop date is moved to this field
before the change to the stop the stop date field is changed.
55.01,117 *PRIMARY DRUG 6;1 POINTER TO PRIMARY DRUG FILE (#50.3)
LAST EDITED: FEB 01, 1996
DESCRIPTION:
Used to store the primary drug entered through OE/RR for Inpatient Medication IV orders. If
the order entered is an Inpatient Medication IV order, the primary drug is taken from the first
additive or solution entered. The primary drug will be displayed for this order type on the
OE/RR Review Orders screen and other displays used by the clinician.
TECHNICAL DESCR:
Stores the primary drug for Inpatient Medication IV orders. If the order is entered through
OE/RR, at least one of the additives or solutions input by pharmacy when completing the order
must be linked to this primary drug.
55.01,118 *DOSAGE ORDERED 6;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<1) X
LAST EDITED: FEB 01, 1996
HELP-PROMPT:Answer must be 1-20 characters in length.
DESCRIPTION:
This is the dosage ordered (strength) for the primary drug entered for an Inpatient
Medication IV order.
TECHNICAL DESCR:
If the order is entered using Pharmacy options, the dosage ordered will the strength entered
for the additive used to get the primary drug for the order. If the order is entered through
the Inpatient Medications protocol in OE/RR, this will be entered by the user.
GROUP:PSJI
55.01,119 *MED ROUTE 6;3 POINTER TO MEDICATION ROUTES FILE (#51.2)
LAST EDITED: FEB 01, 1996
HELP-PROMPT:Enter how this medication will be administered to the patient.
DESCRIPTION:
This is the route of administration for this order. This is not required for IV Fluid orders.
55.01,120 OERR HOLD FLAG 0;10 SET
'1' FOR YES;
LAST EDITED: OCT 11, 1991
DESCRIPTION:
If an IV order is placed on hold using OE/RR options, the hold may only be removed using
OE/RR options.
TECHNICAL DESCR:
This flag is set when an order is placed on hold through OE/RR. If set, the order may only be
removed from hold through OE/RR.
GROUP:PSJ
55.01,121 AUTO DC 0;12 SET
'1' FOR YES;
LAST EDITED: DEC 05, 1991
DESCRIPTION:
This is used to determine if an order was auto-discontinued due to a patient movement. Only
orders that were discontinued in this way may be reinstated by pharmacy. When reinstated, the
status will become active, and the original stop date will be used.
TECHNICAL DESCR:
This is set by the Inpatient Medications routines (PSJADT*) when an order is discontinued
because of a patient movement. Only orders discontinued in This allows pharmacy to
GROUP:PSJ
55.01,122 REASON ORDER CREATED 2;8 SET
'N' FOR NEW;
'R' FOR RENEW;
'E' FOR EDIT;
LAST EDITED: MAR 23, 1992
DESCRIPTION:
This is used to show the method used to create this order.
TECHNICAL DESCR:
This shows why the order was created. After an order has been edited or renewed, the only
actions allowed on the order are to discontinue, show or view the activity log.
55.01,123 REASON FOR FOLLOWING ORDER 2;9 SET
'N' FOR NEW;
'E' FOR EDIT;
'R' FOR RENEW;
LAST EDITED: MAR 19, 1992
DESCRIPTION:
This is used to determine the action taken which caused the creation of the following order.
TECHNICAL DESCR:
This is used to determine the action taken which caused the creation of the following order.
After an order has been edited or renewed, the only actions allowed are to discontinue, show,
or view the order's activity log.
55.01,128 MAR LABEL DATE 7;1 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 09, 1993
HELP-PROMPT:Enter the date and time the latest MAR label for this order was created.
DESCRIPTION:
This is the date and time the latest MAR label for this order was created.
TECHNICAL DESCR:
This field is set when an MAR label is generated for the order because of an action taken on
the order.
GROUP:PSJI
55.01,129 MAR LABEL REASON 7;2 SET
'E' FOR EDITED;
'N' FOR NEW;
'R' FOR RENEWED;
'D' FOR DISCONTINUED;
'DE' FOR DISCONTINUED (EDIT);
'H1' FOR ON HOLD;
'H0' FOR OFF HOLD;
'RE' FOR REINSTATED;
LAST EDITED: JUN 30, 1994
HELP-PROMPT: Enter the reason the latest MAR label for this order was created.
DESCRIPTION:
This is the last activity to take place on the order that created a label record.
TECHNICAL DESCR:
This is set any time an action is taken on the order that causes an MAR label to be generated.
GROUP:PSJI
55.01,130 ORDERABLE ITEM .2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
LAST EDITED: FEB 22, 1995
DESCRIPTION:
This is the Orderable Item associated with the order. If the order is a unit dose order, all
dispense drugs entered must be matched to the order's primary drug. If the order is an IV, at
lest one of the additives or solutions entered must match the orderable item.
GROUP:PSJI
55.01,131 DOSAGE ORDERED .2;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>60!($L(X)<1) X
LAST EDITED: APR 17, 2001
HELP-PROMPT:Enter the amount of the drug the patient is to receive as a dose for this order, using
1-60 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 as '500MG' or '50cc'. THIS SHOULD NOT BE THE
NUMBER OF TABLETS, ETC.
GROUP:PSJI
55.01,132 MED ROUTE .2;3 POINTER TO MEDICATION ROUTES FILE (#51.2)
LAST EDITED: MAY 18, 1995
HELP-PROMPT:Enter how this medication will be administered to the patient.
DESCRIPTION:
This is the route of administration for this order. This is not required for IV Fluid orders.
GROUP:PSJI
55.01,133 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.
55.01,134 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 the processing of this order, if desired.
DESCRIPTION:
This field contains the priority of the order that was received from OERR.
55.01,135 ENTRY BY 2;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 22, 1997
DESCRIPTION:
This field contains the pointer value for the person entered the IV order.
55.01,136 CLINIC DSS;1 POINTER TO HOSPITAL LOCATION FILE (#44)
INPUT TRANSFORM:S DIC("S")="D PSS13^PSSDDUT" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JUN 27, 2013
SCREEN:S DIC("S")="D PSS13^PSSDDUT"
EXPLANATION:Entry must be a clinic. Depending on the condition, INACTIVATE and REACTIVATE dates ma
y exist.
FIELD INDEX: CIMOCLI (#809) REGULAR IR LOOKUP & SORTING WHOLE FILE (#55)
Short Descr: CIMOCLI - PS(55,CLINIC,PATIENT)
Description: This cross reference will be defined during order entry if the clinic is defined with YES
answered for the ADMINISTER INPATIENT MEDS parameter under the SET UP A CLINIC [SDBUILD]
option. These parameters identify the clinic as an IMO clinic. If at the time of order entry
the clinic was not defined as an IMO clinic, it is not stored in the either the CIMOI or
CIMOCLI cross reference.
When a new IMO clinic is added or an existing clinic is edited using the CLINIC DEFINTION [PSJ
CD] option and it is marked as an IMO clinic, the IMO^PSJIMO1(.CLINICS) API will be called
passing by references the array of clinics added/edited. This API will add/update the CIMOI and
CIMOCLI cross references with any newly added IMO clinic(s).
Additionally, CIMOCLI will be used during order entry to verify whether the clinic is an IMO
clinic.
Set Logic: S ^PS(55,"CIMOCLI",X,DA(1),DA)=""
Set Cond: S X=$$CHECK2^PSJIMO1() I X
Kill Logic: K ^PS(55,"CIMOCLI",X,DA(1),DA)
Whole Kill: K ^PS(55,"CIMOCLI")
X(1): CLINIC (55.01,136) (Subscr 1) (forwards)
RECORD INDEXES: AIN (#500), AIVC (#498) (WHOLE FILE #55), CIMOI (#1122)
55.01,137 NATURE OF ORDER .2;5 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: AUG 23, 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 to enter (or take any
other action on) the order.
55.01,138 LAST RENEW 14;0 DATE Multiple #55.1138 (Add New Entry without Asking)
55.1138,.01 LAST RENEW 0;1 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 24, 2000
HELP-PROMPT:Enter the Date/Time this order was last renewed.
DESCRIPTION:
This is the date/time the order was renewed.
TECHNICAL DESCR:
This is the date/time the order was renewed.
CROSS-REFERENCE:55.1138^B
1)= S ^PS(55,DA(2),"IV",DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),"IV",DA(1),14,"B",$E(X,1,30),DA)
55.1138,1 RENEWED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 24, 2000
HELP-PROMPT:Enter the name of the person renewing this order.
DESCRIPTION:
This is the name of the person who renewed this order.
TECHNICAL DESCR:
This is the name of the person who renewed this order.
55.1138,2 PREVIOUS PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 24, 2000
HELP-PROMPT:Enter the name of the provider for the order you renewed.
DESCRIPTION:
This is the name of the provider responsible for the prior order.
TECHNICAL DESCR:
This is the name of the provider responsible for the prior order.
55.1138,3 PREVIOUS STOP DATE/TIME 0;4 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 24, 2000
HELP-PROMPT:Enter the Stop Date/Time of the previous order.
DESCRIPTION:
This is the stop date/time of the prior order.
TECHNICAL DESCR:
This is the stop date/time of the prior order.
55.1138,4 PREVIOUS ORDERS FILE ENTRY 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: DEC 14, 2003
HELP-PROMPT:Answer must be 1-30 characters in length.
DESCRIPTION:
When an order is being renewed, this is the pointer value of the corresponding entry in the
ORDERS file (100), prior to the renewal.
55.01,139 APPOINTMENT DATE/TIME DSS;2 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: MAY 16, 2003
HELP-PROMPT:This is the date and time of the appointment this order is being placed for.
DESCRIPTION:
Date and time of the appointment for this clinic location.
55.01,140 VERIFYING PHARMACIST 4;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: APR 05, 2001
HELP-PROMPT:Enter the pharmacist who verified the order.
DESCRIPTION:
This is the pharmacist who verified the order.
55.01,141 DATE VERIFIED BY PHARMACIST 4;5 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 05, 2001
HELP-PROMPT:Enter the date/time this order was verified by the pharmacist.
DESCRIPTION:
This is the date/time the order was verified by the pharmacist.
55.01,142 PV FLAG 4;9 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 05, 2001
DESCRIPTION:
This is an internal flag set whenever a pharmacist verifies the order.
CROSS-REFERENCE:55^AQ^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=142 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=142 D ENFR^PSIVAL
This is used by the IV package to log any changes made to this field.
CROSS-REFERENCE:55^APIV^MUMPS
1)= K:X ^PS(55,"APIV",DA(1),DA) S:'X ^PS(55,"APIV",DA(1),DA)=""
2)= K ^PS(55,"APIV",DA(1),DA)
This is used to identify orders that have been verified by a nurse but not a pharmacist.
55.01,143 NV FLAG 4;10 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 05, 2001
DESCRIPTION:
This is an internal flag set whenever a nurse verifies the order.
CROSS-REFERENCE:55.01^AM^MUMPS
1)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=143 D ENTO^PSIVAL
2)= Q:$D(PSIVACT) I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=143 D ENFR^PSIVAL
This is used by the IV package to log any changes made to this field.
CROSS-REFERENCE:55^ANIV^MUMPS
1)= K:X ^PS(55,"ANIV",DA(1),DA) S:'X ^PS(55,"ANIV",DA(1),DA)=""
2)= K ^PS(55,"ANIV",DA(1),DA)
This is used to identify orders that have been verified by a pharmacist but not a nurse.
55.01,144 BCMA STATUS 9;4 SET
'I' FOR INFUSING;
'S' FOR STOP;
'H' FOR HELD;
'R' FOR REFUSED;
'C' FOR COMPLETED;
'G' FOR GIVEN;
LAST EDITED: APR 12, 2001
HELP-PROMPT:Enter the latest BCMA Status for this order.
DESCRIPTION:
This is the latest BCMA Status for this order.
55.01,145 BCMAID 9;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAY 17, 2001
HELP-PROMPT:Answer must be 1-50 characters in length.
DESCRIPTION:
This is the unique barcode ID in the format DFN_"V"_ID# ex: 740V1.
55.01,146 SI/OPI FLAG 3;2 SET
'1' FOR YES;
LAST EDITED: MAY 22, 2001
HELP-PROMPT:Enter 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.
55.01,147 BCMA EXPIRED FLAG 0;24 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUL 05, 2001
DESCRIPTION:
This is an internal flag to indicate the order was expired at the request of the Bar Code
Medication Administration (BCMA) package. If the flag is set to 1, then BCMA requested
Inpatient Medications expire the order. Only orders with the flag set to 1 can be reinstated
by a BCMA reinstate request.
GROUP:PSJ
55.01,148 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.
55.01,149 HOLD FLAG 4;18 SET
'0' FOR OFF HOLD;
'1' FOR ON HOLD;
LAST EDITED: AUG 23, 2002
DESCRIPTION:
This is a flag set to 1 whenever the order is placed on HOLD or 0 whenever the order is
removed from hold.
55.01,150 ORDERS FILE PARENT ORDER .2;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 30, 2003
HELP-PROMPT:Enter the parent, if this order is its child.
DESCRIPTION:
This is the parent of an order that may have a parent/child relationship in CPRS.
RECORD INDEXES: ACX1 (#415) (WHOLE FILE #55)
55.01,151 REQUESTED DURATION 2.5;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>8!($L(X)<2) X
LAST EDITED: MAY 21, 2003
HELP-PROMPT:Answer must be 2-8 characters in length
DESCRIPTION:
The duration of an order as requested by the ordering clinician in CPRS. The duration is
stored as one of the following upper case letters followed by an integer:
L - Months
W - Weeks
D - Days
H - Hours
M - Minutes
S - Seconds
Example: D6 = Six days.
55.01,152 REQUESTED IV LIMITATION 2.5;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2)!'(X?1.2A1.5N) X
LAST EDITED: NOV 15, 2004
HELP-PROMPT:Answer must be 2-7 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.
55.01,153 INTERVENTION 8;0 POINTER Multiple #55.1153 (Add New Entry without Asking)
LAST EDITED: MAR 29, 2011
DESCRIPTION:
Pharmacy Interventions associated with the Inpatient order.
55.1153,.01 INTERVENTION 0;1 POINTER TO APSP INTERVENTION FILE (#9009032.4)
LAST EDITED: JAN 26, 2011
HELP-PROMPT:Select the Pharmacy Intervention.
DESCRIPTION:
This is the Pharmacy Intervention logged in response to order checks that occurred during
Inpatient Order Entry.
CROSS-REFERENCE:55.1153^B
1)= S ^PS(55,DA(2),"IV",DA(1),8,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(2),"IV",DA(1),8,"B",$E(X,1,30),DA)
55.1153,1 INTERVENTION DATE/TIME 0;2 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 26, 2011
HELP-PROMPT:When was the intervention logged?
DESCRIPTION:
The Date/Time the Intervention was logged in response to Order Checks that occurred during
Inpatient Order Entry.
55.01,154 OTHER PRINT INFO (LONG) 10;0 WORD-PROCESSING #55.1154 (NOWRAP) (IGNORE "|")
LAST EDITED: OCT 19, 2011
LAST EDITED: OCT 16, 2011
55.01,155 LABELS PER DAY 11;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 25, 2012
HELP-PROMPT:Type a number between 0 and 99, 0 decimal digits.
DESCRIPTION:
The number of IV labels needed each day. If populated, this value will override the
system-calculated number of labels.
55.01,156 INDICATION FOR USE 18;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<3) X
MAXIMUM LENGTH: 40
LAST EDITED: JUL 09, 2020
HELP-PROMPT:Enter the Indication For Use. Answer must be 3-40 characters in length.
DESCRIPTION:
This field contains the Indication For Use that is chosen when the medication is ordered.
55.01,157 DISPLAY STATUS 0;25 SET
'DF' FOR Discontinued due to edit by a provider through CPRS;
'DP' FOR Discontinued by provider through CPRS;
'DD' FOR Auto discontinued due to death;
'DA' FOR Auto discontinued due to patient movements;
'HP' FOR Placed on hold by provider through CPRS;
LAST EDITED: AUG 14, 2009
HELP-PROMPT:This code is to capture the source of which the action occurred.
DESCRIPTION:
This field captures how a "Discontinued" action occurred and this code is displayed on
the short patient profile if the Stop Date/Time is within the time specified in the
Inpatient Ward Parameter file (#59.6) or the Pharmacy System file (#59.7). The "HP" is to
display on the profile if the order was placed on hold by provider through CPRS.
55,101 ARCHIVE DATE ARC;0 DATE Multiple #55.13 (Add New Entry without Asking)
DESCRIPTION:
This sub file is used to indicate archived prescriptions.
GROUP: PSO
55.13,.01 ARCHIVE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X S DINUM=X
LAST EDITED: JUL 16, 1985
HELP-PROMPT: Enter the date the patient's prescription was archived.
DESCRIPTION:
Date patient Rx information was archived.
GROUP: PSO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
55.13,1 RX LIST 1;0 Multiple #55.14
GROUP: PSO
55.14,.01 RX LIST 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>250!($L(X)<1) X
LAST EDITED: JUL 16, 1985
HELP-PROMPT: ANSWER MUST BE 1-250 CHARACTERS IN LENGTH, ENTER RX #'S SEPARATED BY COMMAS
GROUP: PSO
55,102 *LAST ADMISSION NUMBER IVD;1 FREE TEXT
LAST ADMISSION NUMBER
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAR 18, 1986
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This field is updated by the IV PACKAGE every time action is taken on this particular patient.
This piece will have two pieces of information on it. The first piece ('-' is the delimiter) is
the current admissions number, and the second piece is the discharge date for this admissions
number. This field is used for determining whether or not to DC IV ORDERS due to ADMISSIONS or
DISCHARGE.
GROUP: PSJI
55,102.1 *LAST SERVICE IVD;2 SET
LAST SERVICE
'M' FOR MEDICINE;
'S' FOR SURGERY;
'P' FOR PSYCHIATRY;
'NH' FOR NHCU;
'NE' FOR NEUROLOGY;
'I' FOR INTERMIDIATE MED;
'R' FOR REHAB MEDICINE;
'SCI' FOR SPINAL CORD INJURY;
'D' FOR DOMICILLARY;
'B' FOR BLIND REHAB;
LAST EDITED: MAR 18, 1986
DESCRIPTION: This piece is updated by the IV PACKAGE every time this particular patient has any 'IV ACTION'.
This piece represents the service of the last ward that this patient was in. It is a set of codes
that was taken from the ADT package. This field is used to determine whether or not to DC IV
ORDERS due to SERVICE transfer.
GROUP: PSJI
55,102.2 *LAST INTERWARD TRANSFER IVD;3 NUMBER
LAST INTERWARD TRANSFER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 19, 1986
HELP-PROMPT: Type a whole number between 0 and 999.
DESCRIPTION: This field is updated by the IV PACKAGE every time this particular patient has any 'IV ACTION'.
This field represents the last INTERWARD TRANSFER NUMBER for the LAST ADMISSION NUMBER. This field
is used to determine whether or not to DC IV ORDERS due to WARD TRANSFER.
GROUP: PSJI
55,103 *LAST IV ORDER CONVERTED (4.0) 5.1;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 05, 1997
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION: This is the last IV order for a patient that had it's data converted to the New Person file
(200).
TECHNICAL DESCR: This used and set by the routine PSJIPST1, which is run during the post-init process to convert
the Inpatient data from the Provider file (6) to the New Person file (200). This is used to allow
the conversion process to restart where it left of if the conversion was previously aborted.
GROUP: PSJ
55,104 CONVERSION COMPLETED? 5.1;11 SET
'1' FOR VERSION 5;
'2' FOR POE;
'3' FOR IV VERIFIED;
LAST EDITED: OCT 26, 2001
DESCRIPTION: This field contains a 1 if the conversion to the patient's orders for version 5.0 has completed.
It contains a 2 if the conversion to the patient's orders for Pharmacy Ordering Enhancement (POE)
has completed. It contains a 3 if the patient's IV orders existed prior to BCMA V.2.0 has updated
the Verifying Pharmacist field.
55,105 BCMA ID IVBCMA;0 Multiple #55.0105 (Add New Entry without Asking)
DESCRIPTION:
This is the unique barcode ID in the format DFN_"V"_ID# ex: 740V1.
INDEXED BY: BCMA ID & ON (BCMA1)
55.0105,.01 BCMA ID 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<1) X
LAST EDITED: MAY 18, 2001
HELP-PROMPT: Answer must be 1-50 characters in length.
DESCRIPTION:
This is the unique barcode ID in the format DFN_"V"_ID# ex: 740V1.
RECORD INDEXES: BCMA1 (#145)
55.0105,.02 ON 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 18, 2001
HELP-PROMPT: Type a Number between 1 and 99999999, 0 Decimal Digits
DESCRIPTION:
This is the order number for this patient that this BCMA ID is currently associated with.
CROSS-REFERENCE: 55.0105^BCMA^MUMPS
1)= S ^PS(55,DA(1),"IV",X,"BCMA",DA)=""
2)= K ^PS(55,DA(1),"IV",X,"BCMA",DA)
This cross reference is used by the Inpatient Medications package to look-up BCMA IDs for a given
order.
RECORD INDEXES: BCMA1 (#145)
55.0105,1 BCMA STATUS DATE/TIME 0;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the Date/Time the action was taken on this lable in BCMA.
DESCRIPTION:
This is the Date/Time the action was taken on this label in BCMA.
55.0105,2 BCMA STATUS 0;4 SET
'C' FOR COMPLETED;
'G' FOR GIVEN;
'H' FOR HELD;
'M' FOR MISSING;
'R' FOR REFUSED;
'S' FOR STOP;
'I' FOR INFUSING;
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the BCMA Status for this label.
DESCRIPTION:
This is the BCMA Status assigned to this label by the BCMA software.
55.0105,3 USAGE COUNT 0;5 SET
'0' FOR NO COUNT;
'1' FOR COUNT;
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter 1 if this label should be counted as usage, enter 0 if not.
DESCRIPTION: This is a flag to tell whether or not this label should be counted as usage, 1 means count, 0
means no count.
55.0105,4 LABEL DATE 0;6 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the Date/Time this label was created.
DESCRIPTION:
This is the Date/Time this label was created.
55.0105,5 LABEL STATUS 0;7 SET
'RP' FOR REPRINTED;
'RC' FOR RECYCLED;
'CA' FOR CANCELLED;
'DT' FOR DESTROYED;
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the Inpatient Medications status for this label.
DESCRIPTION:
This is the status of this label in Inpatient Medications.
55.0105,6 BAG # 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<4) X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Answer must be 4-12 characters in length, and should be in the format 1[4], where 1 would be the
first of 4 bags.
DESCRIPTION: This identifies which bag of the total number of bags for the day this bag is. Ex. 1[4] means 1
of 4 bags that will be used that day.
55.0105,7 ADDITIVE AD;0 POINTER Multiple #55.1057 (Add New Entry without Asking)
DESCRIPTION: This multiple contains the additives associated with this IV order in the form of pointers to the
IV Additive file (#52.6)
55.1057,.01 ADDITIVE 0;1 POINTER TO IV ADDITIVES FILE (#52.6)
LAST EDITED: MAY 18, 2001
HELP-PROMPT: Choose an additive, an additive synonym, or an additive quick code.
DESCRIPTION:
The additive in the IV order. This points to the IV Additives file (#52.6).
55.1057,1 STRENGTH 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the numeric strength of the additive.
DESCRIPTION: 'STRENGTH' is the amount of an additive that is used in the manufacturing of the IV order.
NOTE! You'll be expected to use the strength units that have been previously defined within
the additive file (52.6) for each additive. That is to say, if the additive file expects
AMPICILLIN to be dispensed in 'GMS', it would not be correct for you to enter '500' for a
half-gram dose -- enter 0.5 instead.
55.1057,2 BOTTLE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Enter the bottle #'s that this additive will be in. (Ex. '1' or '1,3' or for all
bottles).
DESCRIPTION:
Enter the bottle no.(s) in which this additive will be included in for this IV order.
55.0105,8 SOLUTION SOL;0 POINTER Multiple #55.1058 (Add New Entry without Asking)
DESCRIPTION: This multiple contains the solutions associated with this IV order in the form of pointers to
the IV Solutions file (#52.7)
55.1058,.01 SOLUTION 0;1 POINTER TO IV SOLUTIONS FILE (#52.7)
LAST EDITED: MAY 18, 2001
HELP-PROMPT: Enter a solution or a solution's synonym.
DESCRIPTION:
This is the solution in the IV order. This points to the IV Solutions file (#52.7).
55.1058,1 VOLUME 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: MAY 17, 2001
HELP-PROMPT: Answer must be from .01 - 9999.
DESCRIPTION: This field represents the volume of this solution in MLs. Only a number can be entered into
this field. The total volume of an IV ORDER is all the solution's volumes added together.
55.0105,9 INVALID DATE/TIME 0;9 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 11, 2012
HELP-PROMPT: Enter the Date/Time the label was invalidated.
DESCRIPTION:
The Date/Time the label became invalid due to a change to the associated order.
55,106 OTHER LANGUAGE PREFERENCE LAN;1 SET
'1' FOR YES;
LAST EDITED: SEP 30, 2002
HELP-PROMPT: Answer only if patient has another language preference for printing on bottle labels.
DESCRIPTION: This field is used to identify patients who have another language preference for printing
medication instructions on bottle labels.
TECHNICAL DESCR:
set of codes.
GROUP: PSO
55,106.1 PMI LANGUAGE PREFERENCE LAN;2 SET
'1' FOR ENGLISH;
'2' FOR SPANISH;
LAST EDITED: OCT 23, 2002
DESCRIPTION: This field will be used to determine the default language preference for printing the PMI sheets at
the CMOPs.
55,108 SCRIPTALK ENROLLMENT ACTIVITY SCTALK;0 DATE Multiple #55.0108 (Add New Entry without Asking)
DESCRIPTION: This multiple contains the history log information for ScripTalk enrollment activities for a
patient.
55.0108,.01 SCRIPTALK ENROLLMENT ACTIVITY 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:X<1 X
LAST EDITED: JUN 03, 2003
HELP-PROMPT: (No range limit on date)
DESCRIPTION:
Date that the patient was enrolled or the enrollment was changed for this patient.
55.0108,1 SCRIPTALK PATIENT 0;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 14, 2003
HELP-PROMPT: Answer is Yes if patient is enrolled for ScripTalk
DESCRIPTION:
If the patient is enrolled for ScripTalk, the enrollment status is 1 (Yes).
CROSS-REFERENCE: 55.0108^ASTALK^MUMPS
1)= S ^PS(55,"ASTALK",DA(1))=X
2)= Q
This cross-reference is used to keep the current values of the ScripTalk enrollment for patients
who have been enrolled to receive ScripTalk "talking" prescription labels.
55.0108,2 INDICATION 0;3 SET
'B' FOR BLIND VETERAN;
'L' FOR LOW VISION;
LAST EDITED: JUN 03, 2003
HELP-PROMPT: Reason patient is marked as a ScripTalk patient - B=blind L=low vision
DESCRIPTION: This field contains the indication for being enrolled for ScripTalk. B=Blind veteran; L=low
vision.
55.0108,3 USER 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 03, 2003
HELP-PROMPT: User who edited the ScripTalk entry for this patient.
DESCRIPTION:
This field contains the person who enrolled or updated the enrollment of a ScripTalk patient.
55,109 CLINICAL ALERT 2;0 DATE Multiple #55.0109
LAST EDITED: NOV 28, 2017
DESCRIPTION: The CLINICAL ALERTS (multiple) allows Pharmacy staff to document clinical information that is not
covered anywhere else in the VistA packages, e.g. when a patient is part of a research study.
55.0109,.01 DATE/TIME OF ALERT 0;1 DATE
INPUT TRANSFORM: S %DT="ESTR" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999.999999-X
LAST EDITED: NOV 28, 2017
HELP-PROMPT: Answer with DATE/TIME for the CLINICAL ALERT.
DESCRIPTION:
This field represents the CLINICAL ALERT DATE/TIME.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 55.0109^B
1)= S ^PS(55,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PS(55,DA(1),2,"B",$E(X,1,30),DA)
55.0109,1 TEXT 1;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>245!($L(X)<2) X
MAXIMUM LENGTH: 245
LAST EDITED: AUG 08, 2017
HELP-PROMPT: Answer must be 2-245 characters in length.
DESCRIPTION:
This field represents the CLINICAL ALERT information.
FILES POINTED TO FIELDS
ACTIVITY LOG REASON (#53.3) ACTIVITY LOG:ACTION (#2)
APSP INTERVENTION (#9009032.4) INTERVENTION:INTERVENTION (#.01)
INTERVENTION:INTERVENTION (#.01)
DRUG (#50) NON-VA MEDS:DISPENSE DRUG (#1)
FIELD^NL^140^104:*SOLUTION (#24)
DISPENSE LOG:DISPENSE DRUG (#.02)
DISPENSE DRUG:DISPENSE DRUG (#.01)
HOSPITAL LOCATION (#44) IV:CLINIC (#136)
NON-VA MEDS:CLINIC (#13)
FIELD^NL^140^104:CLINIC (#130)
IV ADDITIVES (#52.6) ADDITIVE:ADDITIVE (#.01)
ADDITIVE:ADDITIVE (#.01)
IV ROOM (#59.5) IV:IV ROOM (#.22)
IV SOLUTIONS (#52.7) SOLUTION:SOLUTION (#.01)
SOLUTION:SOLUTION (#.01)
MEDICATION ROUTES (#51.2) IV:*MED ROUTE (#119)
MED ROUTE (#132)
FIELD^NL^140^104:MED ROUTE (#3)
NEW PERSON (#200) RESPONSIBLE PROVIDER (#57)
UD PROVIDER (#62.02)
IV:PROVIDER (#.06)
VERIFYING NURSE (#16)
ENTRY BY (#135)
VERIFYING PHARMACIST (#140)
SCRIPTALK ENROLLMENT ACTIVITY:USER (#3)
ACTIVITY LOG:USER (#.06)
NON-VA MEDS:DOCUMENTED BY (#12)
ORDER CHECKS:OVERRIDING PROVIDER (#1)
FIELD^NL^140^104:PROVIDER (#1)
VERIFYING NURSE (#16)
VERIFYING PHARMACIST (#18)
PHYSICIAN (#20)
CLERK (#22)
RENEWAL USER (#44)
MARKED CANCELLED USER (#47)
HOLD USER (#57)
OFF HOLD USER (#61)
DISPENSE LOG:USER (#.06)
PROVIDER (#.08)
LAST RENEW:RENEWED BY (#1)
PREVIOUS PROVIDER (#2)
PATIENT COMMENT:USER (#1)
PATIENT COMMENT HISTORY:USER (#1)
LAST RENEW:RENEWED BY (#1)
PREVIOUS PROVIDER (#2)
ORDER (#100) NON-VA MEDS:ORDER NUMBER (#7)
PATIENT (#2) NAME (#.01)
FIELD^NL^140^104:PATIENT NAME (#.5)
PHARMACY ORDERABLE ITEM (#50.7) IV:ORDERABLE ITEM (#130)
NON-VA MEDS:ORDERABLE ITEM (#.01)
FIELD^NL^140^104:ORDERABLE ITEM (#108)
PRESCRIPTION (#52) PRESCRIPTION PROFILE:PRESCRIPTION PROFILE (#.01)
PRIMARY DRUG (#50.3) IV:*PRIMARY DRUG (#117)
FIELD^NL^140^104:*PRIMARY DRUG (#101)
RX PATIENT STATUS (#53) PATIENT STATUS (#3)
WARD LOCATION (#42) IV:ORIGINAL WARD (#9)
FIELD^NL^140^104:ORIGINAL WARD (#9)
LAST WARD (#68)
DISPENSE LOG:WARD (#.07)
Subfile #55.01
Record Indexes:
ACRIV (#466) RECORD MUMPS IR ACTION WHOLE FILE (#55)
Short Descr: Clinical Reminders index.
Description: This cross-reference builds two indexes, one for finding all patients with a particular drug and one for
finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
^PXRMINDX(55,"IP",DRUG,DFN,START,STOP,DAS)
^PXRMINDX(55,"PI",DFN,DRUG,START,STOP,DAS) respectively. START is the start date and STOP is the stop date.
For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SPSPA^PSJXRFS(.X,.DA,"IV")
Set Cond: S X=$$PATCH^XPDUTL("PXRM*1.5*12")
Kill Logic: D KPSPA^PSJXRFK(.X,.DA,"IV")
Kill Cond: S X=$$PATCH^XPDUTL("PXRM*1.5*12")
Whole Kill: K ^PXRMINDX(55)
X(1): START DATE/TIME (55.01,.02) (Subscr 1) (forwards)
X(2): STOP DATE/TIME (55.01,.03) (Subscr 2) (forwards)
ACX1 (#415) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#55)
Short Descr: Complex Order index.
Description: This cross-reference builds an index used for finding all child orders associated with a particular CPRS parent
order. The indexes are stored as
^PS(55,"ACX",PARENT,ON)
Set Logic: S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")=""
Set Cond: S X=1
Kill Logic: K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"V")
Kill Cond: S X=1
Whole Kill: K ^PS(55,"ACX")
X(1): ORDERS FILE PARENT ORDER (55.01,150) (Subscr 1) (forwards)
X(2): ORDERS FILE ENTRY (55.01,110) (Subscr 2) (forwards)
AIN (#500) RECORD REGULAR IR SORTING ONLY
Short Descr: Clinic cross-reference.
Description: This cross-reference is used to easily determine if a specific patient has clinic orders.
Set Logic: S ^PS(55,DA(1),"IV","AIN",X(1),X(2),DA)=""
Kill Logic: K ^PS(55,DA(1),"IV","AIN",X(1),X(2),DA)
Whole Kill: K ^PS(55,DA(1),"IV","AIN")
X(1): STOP DATE/TIME (55.01,.03) (Subscr 1) (forwards)
X(2): CLINIC (55.01,136) (Subscr 2) (forwards)
AIVC (#498) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#55)
Short Descr: List of patients with orders associated with clinic appointments.
Set Logic: S ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)=""
Kill Logic: K ^PS(55,"AIVC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
Whole Kill: K ^PS(55,"AIVC")
X(1): STOP DATE/TIME (55.01,.03) (Subscr 1) (Len 20) (forwards)
X(2): CLINIC (55.01,136) (Subscr 2) (Len 20) (forwards)
CIMOI (#1122) RECORD REGULAR IR LOOKUP & SORTING
Short Descr: CIMOI - PS(55,PATIENT,"IV","CIMOI",CLINIC,STOP DATE/TIME,ORDER)
Description: This cross reference is used during enhanced order checks for quick access to clinic order information for IV
orders. IV sub-file cross referenced by CLINIC, STOP DATE/TIME and ORDER NUMBER.
As orders are placed, this cross reference will be defined when YES is answered for the ADMINISTER INPATIENT
MEDS parameter under the SET UP A CLINIC [SDBUILD] option and appointment date/time is defined.
Using the same criteria, this cross reference will be defined if a clinic is added or edited using the CLINIC
DEFINITION [PSJ CD] option.
Set Logic: S ^PS(55,DA(1),"IV","CIMOI",X(1),X(2),DA)=""
Set Cond: S X=$$CHECK2^PSJIMO1() I X
Kill Logic: K ^PS(55,DA(1),"IV","CIMOI",X(1),X(2),DA)
Whole Kill: K ^PS(55,DA(1),"IV","CIMOI")
X(1): CLINIC (55.01,136) (Subscr 1) (forwards)
X(2): STOP DATE/TIME (55.01,.03) (Subscr 2) (forwards)
Subfile #55.0105
Record Indexes:
BCMA1 (#145) RECORD MUMPS IR LOOKUP & SORTING
Short Descr: Used by Inpatient Medications.
Set Logic: S ^PS(55,DA(1),"BCMA",X(1),X(2))=""
Kill Logic: K ^PS(55,DA(1),"BCMA",X(1),X(2))
Whole Kill: K ^PS(55,DA(1),"BCMA")
X(1): BCMA ID (55.0105,.01) (Subscr 1) (forwards)
X(2): ON (55.0105,.02) (Subscr 2) (forwards)
Subfile #55.05
Record Indexes:
ACRNVA (#464) RECORD MUMPS IR ACTION WHOLE FILE (#55)
Short Descr: Clinical Reminders index.
Description: This cross-reference builds two indexes, one for finding all patients with a pharmacy orderable item and one
for finding all the pharmacy orderable items a patient has. The indexes are stored in the Clinical Reminders
index global as:
^PXRMINDX("55NVA","IP",POI,DFN,START DATE,STOP DATE,DAS)
^PXRMINDX("55NVA","PI",DFN,POI,START DATE,STOP DATE,DAS) respectively. POI is the pharmacy orderable item. If
there is no START DATE then the DOCUMENTED DATE is used in its place. For all the details, see the Clinical
Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SNVA^PSOPXRMU(.X,.DA)
Kill Logic: D KNVA^PSOPXRMU(.X,.DA)
Whole Kill: K ^PXRMINDX("55NVA")
X(1): ORDERABLE ITEM (55.05,.01) (Subscr 1) (forwards)
X(2): DOCUMENTED DATE (55.05,11) (Subscr 2) (forwards)
X(3): START DATE (55.05,8)
X(4): DISCONTINUED DATE (55.05,6)
Subfile #55.06
Record Indexes:
ACRUD (#465) RECORD MUMPS IR ACTION WHOLE FILE (#55)
Short Descr: Clinical Reminders index.
Description: This cross-reference builds two indexes, one for finding all patients with a particular drug and one for
finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
^PXRMINDX(55,"IP",DRUG,DFN,START,STOP,DAS)
^PXRMINDX(55,"PI",DFN,DRUG,START,STOP,DAS) respectively. START is the start date and STOP is the stop date.
For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual.
Set Logic: D SPSPA^PSJXRFS(.X,.DA,"UD")
Set Cond: S X=$$PATCH^XPDUTL("PXRM*1.5*12")
Kill Logic: D KPSPA^PSJXRFK(.X,.DA,"UD")
Kill Cond: S X=$$PATCH^XPDUTL("PXRM*1.5*12")
Whole Kill: K ^PXRMINDX(55)
X(1): START DATE/TIME (55.06,10) (Subscr 1) (forwards)
X(2): STOP DATE/TIME (55.06,34) (Subscr 2) (forwards)
ACX (#414) RECORD MUMPS IR SORTING ONLY WHOLE FILE (#55)
Short Descr: Complex Order index.
Description: This cross-reference builds an index used for finding all child orders associated with a particular CPRS parent
order. The indexes are stored as
^PS(55,"ACX",PARENT,ON)
Set Logic: S ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")=""
Set Cond: S X=1
Kill Logic: K ^PS(55,"ACX",$E(X(1),1,30),$E(X(2),1,30),DA_"U")
Kill Cond: S X=1
Whole Kill: K ^PS(55,"ACX")
X(1): ORDERS FILE PARENT ORDER (55.06,125) (Subscr 1) (forwards)
X(2): ORDERS FILE ENTRY (55.06,66) (Subscr 2) (forwards)
AL56DOA (#1216) RECORD MUMPS IR ACTION
Short Descr: Used by Unit Dose to log any changes made to this field.
Description: Updates Actvity log node when DOA fields are edited.
Set Logic: I '$D(DIU(0)) D:$D(PSGAL(56))#2 KILL^PSGAL5:PSGAL(56)=X S:(X1(2)=-1) (PSGAL(56),X)=0,PSGAL("C")=6000,PSGALFF=13
7 D:(X1(2)=-1) ^PSGAL5 K PSGAL
Kill Logic: I '$D(DIU(0)),'$D(PSGPO) S PSGAL(56)=X,PSGAL("C")=6000,PSGALFF=137 D ^PSGAL5
Kill Cond:
X(1): DURATION OF ADMINISTRATION (55.06,137) (Subscr 1) (Len 30) (forwards)
X(2): REMOVE PERIOD (in minutes) (55.06,139) (Subscr 2) (Len 6) (forwards)
AUDC (#499) RECORD REGULAR IR SORTING ONLY WHOLE FILE (#55)
Short Descr: List of patients with orders associated with clinic appointments.
Set Logic: S ^PS(55,"AUDC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)=""
Kill Logic: K ^PS(55,"AUDC",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)
Whole Kill: K ^PS(55,"AUDC")
X(1): STOP DATE/TIME (55.06,34) (Subscr 1) (Len 20) (forwards)
X(2): CLINIC (55.06,130) (Subscr 2) (Len 20) (forwards)
AUN (#501) RECORD REGULAR IR SORTING ONLY
Short Descr: Clinic cross-reference.
Description: This cross-reference is used to easily determine if a specific patient has clinic orders.
Set Logic: S ^PS(55,DA(1),5,"AUN",X(1),X(2),DA)=""
Kill Logic: K ^PS(55,DA(1),5,"AUN",X(1),X(2),DA)
Whole Kill: K ^PS(55,DA(1),5,"AUN")
X(1): STOP DATE/TIME (55.06,34) (Subscr 1) (forwards)
X(2): CLINIC (55.06,130) (Subscr 2) (forwards)
CIMOU (#1121) RECORD REGULAR IR LOOKUP & SORTING WHOLE FILE (#55)
Short Descr: CIMOU - PS(55,"CIMOU",PATIENT,CLINIC,STOP DATE/TIME,PATIENT,ORDER)
Description: This cross reference is used during enhanced order checks for quick access to clinic order information for unit
dose orders by PATIENT, CLINIC, STOP DATE/TIME and ORDER NUMBER.
The set condition checks to see if the clinic is defined with YES answered for the ADMINISTER INPATIENT MEDS
parameter under the SET UP A CLINIC [SDBUILD] option and if the order has an appointment date/time defined. If
both are true, the cross reference is defined.
Using the same criteria, this cross reference will be defined if a clinic is added or edited using the CLINIC
DEFINITION [PSJ CD] option.
Set Logic: S ^PS(55,"CIMOU",X(1),X(2),X(3),DA(1),DA)=""
Set Cond: S X=$$CHECK^PSJIMO1() I X
Kill Logic: K ^PS(55,"CIMOU",X(1),X(2),X(3),DA(1),DA)
Whole Kill: K ^PS(55,"CIMOU")
X(1): PATIENT NAME (55.06,.5) (Subscr 1) (forwards)
X(2): CLINIC (55.06,130) (Subscr 2) (forwards)
X(3): STOP DATE/TIME (55.06,34) (Subscr 3) (forwards)
INPUT TEMPLATE(S):
PSO CLINICAL ALERT ENTER/EDIT SEP 22, 2017@15:48 USER #0
This INPUT TEMPLATE allows Enter/Edit of the CLINICAL ALERT multiple
(field #109) in PHARMACY PATIENT file (#55).
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):