Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 55.06

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.06

Sub-Field: 55.06


Information

Parent File Name Number Package
PHARMACY PATIENT(#55) UNIT DOSE 55.06 Pharmacy Data Management

Details

Field # Name Loc Type Details
.01 ORDER NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 25, 2013
  • HELP-PROMPT:  Type a whole number between 1 and 1000000000.
  • DESCRIPTION:  
    This is 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.
.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.
.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.
.5 PATIENT NAME 0;15 POINTER TO PATIENT FILE (#2) PATIENT(#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)
1 PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  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....)
2 DISPENSE DRUG 1;0 POINTER Multiple #55.07 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
3 MED ROUTE 0;3 POINTER TO MEDICATION ROUTES FILE (#51.2) MEDICATION ROUTES(#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.
4 TYPE 0;4 SET

  • 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.
5 SELF MED 0;5 SET

  • 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.
6 HOSPITAL SUPPLIED SELF MED 0;6 SET

  • 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.
7 SCHEDULE TYPE 0;7 SET

  • 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.
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.
9 ORIGINAL WARD 2;10 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#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
10 START DATE/TIME 2;2 DATE
************************REQUIRED FIELD************************

  • 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)
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.
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.
13 *UNITS PER DOSE 0;12 NUMBER

  • INPUT TRANSFORM:  S X=$S(X="1/2":.5,X="1/4":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"."3.N) X
  • OUTPUT TRANSFORM:  S Y=$S(Y=.5:"1/2",Y=.25:"1/4",Y?1".".N:"0"_Y,1:Y)
  • LAST EDITED:  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.
14 *PRE-EXCHANGE UNITS 5;6 NUMBER

  • 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.
15 COMMENTS 3;0 WORD-PROCESSING #55.08

  • DESCRIPTION:  
    This is any remarks or explanations needed for this order.
  • GROUP:  PSJU
16 VERIFYING NURSE 4;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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
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.
18 VERIFYING PHARMACIST 4;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the pharmacist who verified the order.
  • GROUP:  PSJU
  • 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
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.
20 PHYSICIAN 4;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the physician who signed off on the order.
  • SCREEN:  S DIC("S")="I $D(^(""PS"")),^(""PS""),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)>DT)"
  • EXPLANATION:  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.
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.
22 CLERK 4;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
24 *SOLUTION 0;17 POINTER TO DRUG FILE (#50) DRUG(#50)

  • 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.
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.
26 SCHEDULE 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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.06,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.
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.
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.
28 STATUS 0;9 SET
************************REQUIRED FIELD************************
  • '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.
29 ACTIVITY LOG 9;0 DATE Multiple #55.09 55.09

  • 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
32 *UNITS CALLED FOR 5;2 NUMBER

  • 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.
34 STOP DATE/TIME 2;4 DATE
************************REQUIRED FIELD************************

  • 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)
35 *TOTAL RETURNS 5;4 NUMBER

  • 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.
36 *UNITS ACTUALLY DISPENSED 5;3 NUMBER

  • 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.
38 *RETURNS 5;5 NUMBER

  • 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.
39 *TOTALS UNITS DISPENSED COMPUTED

  • 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 (ALWAYS 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
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 TIMES 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' schedule, 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.
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.
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.
44 RENEWAL USER 4;16 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who marked the order to be 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.
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.
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.
47 MARKED CANCELLED USER 4;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 08, 1991
  • DESCRIPTION:  
    This is the user who marked the order 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.
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.
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.
50 PV FLAG 4;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 18, 1996
  • 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.
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 nurse but not a phrarmacist.
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.
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.
54 *TOTALS EXTRA UNITS DISPENSED 5;7 NUMBER

  • 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 *EXTRA UNITS DISPENSED 5;8 NUMBER

  • 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.
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.
57 HOLD USER 4;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
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.
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.
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.
61 OFF HOLD USER 4;23 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
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.
63 *TOTAL PRE-EXCHANGE UNITS 5;9 NUMBER

  • 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
64 PURGE FLAG 0;20 DATE

  • 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.
65 *SIG 6.5;1 FREE TEXT

  • 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.
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)
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
68 LAST WARD 0;23 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#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
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
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
71 DISPENSE LOG 11;0 DATE Multiple #55.0611 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
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
101 *PRIMARY DRUG .1;1 POINTER TO PRIMARY DRUG FILE (#50.3) PRIMARY DRUG(#50.3)

  • LAST EDITED:  FEB 01, 1996
  • DESCRIPTION:  This is the primary drug associated with the order. If the order is a unit dose order all dispensed drugs entered must be matched to the order's primary drug. If the order is an IV order at least one of the additives
    or solutions entered must match the primary drug.
  • CROSS-REFERENCE:  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.
102 *DOSAGE ORDERED .1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  FEB 01, 1996
  • HELP-PROMPT:  Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters. This is an amount, such as '20MG', and NOT the number of tablets.
  • DESCRIPTION:  
    This is the amount of the medication the patient is to receive as one dose for this order. This should be an amount with a unit of measure, such '500MG' or '50CC'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC.
  • 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.
103 REASON ORDER CREATED 0;24 SET

  • 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.
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.
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.
106 *NATURE OF ORDER .1;3 SET
************************REQUIRED FIELD************************

  • 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.
107 REASON FOR FOLLOWING ORDER 0;27 SET

  • 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.
108 ORDERABLE ITEM .2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  FEB 22, 1995
  • DESCRIPTION:  This 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.
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
110 NATURE OF ORDER .2;3 SET

  • 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
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.
114 LAST RENEW 14;0 DATE Multiple #55.6114 55.6114
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.
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.
122 SI/OPI FLAG 6;2 SET

  • 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.
123 BCMA EXPIRED FLAG 4;27 SET

  • 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
124 FLAGGED .2;7 SET

  • LAST EDITED:  JUL 02, 2002
  • HELP-PROMPT:  Enter YES if this order is being flagged for clarification
  • DESCRIPTION:  
    This indicates that this order has been flagged for clarification.
125 ORDERS FILE PARENT ORDER .2;8 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)
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.
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
130 CLINIC 8;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#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)
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.
132 INTERVENTION 10;0 POINTER Multiple #55.6132 55.6132

  • LAST EDITED:  JAN 26, 2011
  • DESCRIPTION:  
    Pointer to Intervention (#9009032.4) file.
135 SPECIAL INSTRUCTIONS (LONG) 15;0 WORD-PROCESSING #55.6135
136 DISPLAY STATUS 0;28 SET

  • 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.
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)
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
139 REMOVE PERIOD (in minutes) 2.1;3 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:  
    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)
140 BCMA PROMPT FOR REMOVAL FLAG 2.1;4 SET

  • 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
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.
Info |  Details