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 (#135) 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)
Info |  Details |  All