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.0611

Package: Pharmacy Data Management

PHARMACY PATIENT(#55)-->55.06-->55.0611

Sub-Field: 55.0611


Information

Parent File Name Number Package
55.06 DISPENSE LOG 55.0611 Pharmacy Data Management

Details

Field # Name Loc Type Details
.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 ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
.02 DISPENSE DRUG 0;2 POINTER TO DRUG FILE (#50) DRUG(#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 ^PSGAL5
    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)
.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 ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
.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 ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
.05 HOW 0;5 SET

  • 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 ^PSGAL5
    3)= UNIT DOSE ACTIVITY LOG
    Used by Unit Dose to log any changes made to this field.
.06 USER 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
.07 WARD 0;7 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#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.
.08 PROVIDER 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#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.
Info |  Details