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

Package: Barcode Medication Administration

BCMA MEDICATION LOG(#53.79)-->53.795

Sub-Field: 53.795


Information

Parent File Name Number Package
BCMA MEDICATION LOG(#53.79) DISPENSE DRUG 53.795 Barcode Medication Administration

Details

Field # Name Loc Type Details
.01 DISPENSE DRUG 0;1 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Pointer to the drug file.  Contains the actual medication scanned for this entry.
  • CROSS-REFERENCE:  53.795^B
    1)= S ^PSB(53.79,DA(1),.5,"B",$E(X,1,30),DA)=""
    2)= K ^PSB(53.79,DA(1),.5,"B",$E(X,1,30),DA)
.02 DOSES ORDERED 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUN 05, 2002
  • HELP-PROMPT:  Type a Number between 0 and 50, 4 Decimal Digits
  • DESCRIPTION:  
    Number of units from the PHARMACY PATIENT file (#55)
.03 DOSES GIVEN 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUN 05, 2002
  • HELP-PROMPT:  Type a Number between 0 and 50, 4 Decimal Digits
  • DESCRIPTION:  
    Actual number of units given.
  • CROSS-REFERENCE:  53.795^AU303^MUMPS
    1)= D AUDIT^PSBUTL(DA(1),53.795,.03,X,"S")
    2)= D AUDIT^PSBUTL(DA(1),53.795,.03,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.04 UNIT OF ADMINISTRATION 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  MAR 13, 2003
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Unit of administration (i.e. TABLET, ML, VIAL)
  • CROSS-REFERENCE:  53.795^AU304^MUMPS
    1)= D AUDIT^PSBUTL(DA(1),53.795,.04,X,"S")
    2)= D AUDIT^PSBUTL(DA(1),53.795,.04,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
  • FIELD INDEX:  APATCH (#148) MUMPS IR ACTION
    Short Descr:  Sets the APATCH cross-reference when unit of administration is PATCH
    Set Logic:  N I S I=0 X "F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,4)=""PATCH""  Q:$P(^PSB(53.79,DA(1),0),U,9)'=""G""" S:I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))
    Set Cond:  S X=X1(3)="PATCH"!(X2(3)="PATCH")&(X2(3)]"")
    Kill Logic:  N I S I=0 X "F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,4)=""PATCH""&(I'=DA)" S:I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"APATCH",X(1),X(2),DA(1))
    Kill Cond:  S X=X1(3)="PATCH"&(X2(3)="")
    X(1):  Computed Code: S X=$P(^PSB(53.79,DA(1),0),U)
    (Subscr 1)
    X(2):  Computed Code: S X=$P(^PSB(53.79,DA(1),0),U,6)
    (Subscr 2)
    X(3):  UNIT OF ADMINISTRATION  (53.795,.04)  (Subscr 3)  (forwards)
.05 HIGH RISK/HIGH ALERT 0;5 SET
  • '0' FOR NOT HIGH RISK/ALERT;
  • '1' FOR HIGH RISK/ALERT-NO WITNESS REQUIRED IN BCMA;
  • '2' FOR RECOMMEND WITNESS IN BCMA-HIGH RISK/ALERT;
  • '3' FOR WITNESS REQUIRED IN BCMA-HIGH RISK/ALERT;

  • LAST EDITED:  NOV 14, 2012
  • HELP-PROMPT:  Enter a valid High Risk/Alert code for this Dispense Drug.
  • DESCRIPTION:  
    High Risk/High Alert indicator for the Orderable Item this disp drug pointed to at the time of administration.
.06 PROMPT FOR REMOVAL IN BCMA 0;6 SET
  • '0' FOR No Removal Required Prior to Next Administration;
  • '1' FOR Removal at Next Administration;
  • '3' FOR Removal Period Required Prior to Next Administration;

  • LAST EDITED:  APR 12, 2016
  • HELP-PROMPT:  Enter a valid Prompt for Removal code for this Dispense Drug.
  • DESCRIPTION:  
    This is the value of the PROMPT FOR REMOVAL IN BCMA (#12) field for this dispense drug that was saved in the PHARMACY PATIENT (#55) file when the Inpatient order was Finished in Inpatient Pharmacy.
  • FIELD INDEX:  AMRR (#1407) MUMPS IR ACTION
    Short Descr:  Sets AMRR cross-refernece when Prompt For Removal BCMA > 0
    Set Logic:  N I S I=0 X "F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,6)>0" S:I ^PSB(53.79,"AMRR",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"AMRR",X(1),X(2),DA(1))
    Set Cond:  S X=X1(3)>0!(X2(3)>0)
    Kill Logic:  N I S I=0 X "F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,6)>0&(I'=DA)" S:I ^PSB(53.79,"AMRR",X(1),X(2),DA(1))="" K:'I ^PSB(53.79,"AMRR",X(1),X(2),DA(1))
    Kill Cond:  S X=X1(3)>0&(X2(3)>0)
    X(1):  Computed Code: S X=$P(^PSB(53.79,DA(1),0),U)
    (Subscr 1)
    X(2):  Computed Code: S X=$P(^PSB(53.79,DA(1),0),U,6)
    (Subscr 2)
    X(3):  PROMPT FOR REMOVAL IN BCMA  (53.795,.06)  (Subscr 3)  (forwards)
Info |  Details |  All