Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All
Print Page as PDF
Global: ^PSB(53.79

Package: Barcode Medication Administration

Global: ^PSB(53.79


Information

FileMan FileNo FileMan Filename Package
53.79 BCMA MEDICATION LOG Barcode Medication Administration

Description

Accessed By FileMan Db Calls, Total: 48

Package Total Routines
Barcode Medication Administration 40 ALPBCBU    ALPBINP    PSB0000    PSB372P    PSB381P    PSB394P    PSB3P68    PSBCSUTL
PSBCSUTX    PSBCSUTY    PSBINJEC    PSBML    PSBML1    PSBML2    PSBML3    PSBMLEN
PSBMLEN1    PSBMLLKU    PSBMLVAL    PSBO1    PSBOCI    PSBOIV    PSBOMH    PSBOMH1
PSBOMH2    PSBOMH3    PSBOML    PSBOMT    PSBOMT1    PSBOPE    PSBOPM    PSBOPM1
PSBOXA    PSBPRN    PSBUTL    PSBVAR    PSBVDLPB    PSBVDLU3    PSBVDLUD    PSBVDLVL
Inpatient Medications 3 PSJ0050    PSJPATMR    PSJUTL2    
DSS Extracts 2 ECXAPHA2    ECXBCM    
Virtual Patient Record 2 VPRDJ05V    VPRSDAP    
Enterprise Health Management Platform 1 HMPDJ05V    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Barcode Medication Administration 1 BCMA MEDICATION VARIANCE LOG(#53.78)[.08]    
DSS Extracts 1 BCMA EXTRACT(#727.833)[25]    

Pointer To FileMan Files, Total: 7

Package Total FileMan Files
Pharmacy Data Management 4 PHARMACY ORDERABLE ITEM(#50.7)[.08]    IV ADDITIVES(#52.6)[#53.796(.01)]    IV SOLUTIONS(#52.7)[#53.797(.01)]    DRUG(#50)[#53.795(.01)]    
Kernel 2 INSTITUTION(#4)[.03]    NEW PERSON(#200)[.05, .07, .23, .29, #53.793(.02), #53.799(.02), #53.799(.05)]
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 35

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  MAY 12, 2014
  • HELP-PROMPT:  Enter the patient that received the medication.
  • DESCRIPTION:  
    This field contains a pointer to the PATIENT File (#2) and is the patient that received the medication.
  • CROSS-REFERENCE:  53.79^B
    1)= S ^PSB(53.79,"B",$E(X,1,30),DA)=""
    2)= K ^PSB(53.79,"B",$E(X,1,30),DA)
  • FIELD INDEX:  APATCH (#146) REGULAR IR SORTING ONLY
    Short Descr: Updates APATCH when DFN or admin date/time changes.
    Set Logic: S ^PSB(53.79,"APATCH",X(1),X(2),DA)=""
    Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,4)="PATCH")&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q
    Kill Logic: K ^PSB(53.79,"APATCH",X(1),X(2),DA)
    Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,4)="PATCH" S X=1 Q
    Whole Kill: K ^PSB(53.79,"APATCH")
    X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards)
    X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards)
  • FIELD INDEX:  AMRR (#1406) REGULAR IR SORTING ONLY
    Short Descr: Updates AMRR when DFN or admin date/time changes.
    Set Logic: S ^PSB(53.79,"AMRR",X(1),X(2),DA)=""
    Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,6)>0)&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q
    Kill Logic: K ^PSB(53.79,"AMRR",X(1),X(2),DA)
    Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,6)>0 S X=1 Q
    Whole Kill: K ^PSB(53.79,"AMRR")
    X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards)
    X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards)
  • RECORD INDEXES:  ADERM (#1404), ADERMOI (#1405), AINFUSING (#1115), AINJ (#1045), AINJOI (#1046), AORDX (#47), ASTOPPED (#1116), AUID (#147)
.02 PATIENT LOCATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  NOV 14, 2012
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  
    Free text room-bed and ward location of the patient for Inpatient Medication orders or Clinic Name for Clinic orders at the time of the med pass.
.03 PATIENT DIVISION 0;3 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Division of the ward that this patient was on during the med pass.
.04 ENTERED DATE/TIME 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 14, 1999
  • DESCRIPTION:  
    Date and time the med pass was filed. Defaults to NOW on record creation.
  • CROSS-REFERENCE:  53.79^AEDT^MUMPS
    1)= S ^PSB(53.79,"AEDT",$P(^PSB(53.79,DA,0),U),X,DA)=""
    2)= K ^PSB(53.79,"AEDT",$P(^PSB(53.79,DA,0),U),X,DA)
    Creates an entry by patient for date/time entries in the log were created.
    ^PSB(53.79,"AEDT",dfn,Entered Date/Time,DA)=""
.05 ENTERED BY 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 26, 2002
  • DESCRIPTION:  
    Pointer to the NEW PERSON file (#200). Contains the user passing meds.
.06 ACTION DATE/TIME 0;6 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 2015
  • HELP-PROMPT:  Enter the date/time the medication was administered.
  • DESCRIPTION:  
    Fileman Date/Time containing the actual time the med was administered.
  • CROSS-REFERENCE:  53.79^AADT^MUMPS
    1)= S ^PSB(53.79,"AADT",$P(^PSB(53.79,DA,0),U),X,DA)=""
    2)= K ^PSB(53.79,"AADT",$P(^PSB(53.79,DA,0),U),X,DA)
    Creates a cross reference by patient for administration times
    ^PSB(53.79,"AADT",dfn,administration d/t,DA)=""
  • CROSS-REFERENCE:  53.79^AOIP1^MUMPS^^^^^^G
    1)= I $P(^PSB(53.79,DA,0),U,8) S ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA)=""
    2)= I $P(^PSB(53.79,DA,0),U,8) K ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA)
    Creates a cross reference by patient for orderable items and administration date/time
    ^PSB(53.79,"AOIP",dfn,orderable item,administration d/t,DA)=""
    Same as field ADMINISTRATION MEDICATION (#.08)
  • CROSS-REFERENCE:  53.79^AU06^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.06,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.06,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALGIV^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.06,1,8,1.1) X ^DD(53.79,.06,1,8,1.4)
    1.1)= S X=DIV X ^DD(53.79,.06,1,8,49.2) S X1=Y(1) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
    1.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALGIV^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.06,1,8,2.4)
    2.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    49.2)= S Y(2)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=DIV,Y(1)=$G(X) S X=$P(Y(2),U,3)
    CREATE CONDITION)= I $$VALGIV^PSBUTL
    CREATE VALUE)= MINUTES(#.06,#.13)
    DELETE CONDITION)= I $$VALGIV^PSBUTL
    DELETE VALUE)= @
    FIELD)= ORDER ADMINISTRATION VARIANCE
    Create field ORDER ADMINISTRATION VARIANCE #.14 value in the difference of minutes from the ACTION DATE/TIME #.06 and the SCHEDULED ADMINISTRATION TIME #.13.
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALREM^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.06,1,9,1.1) X ^DD(53.79,.06,1,9,1.4)
    1.1)= S X=DIV X ^DD(53.79,.06,1,9,49.2) S X1=Y(1) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
    1.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALREM^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.06,1,9,2.4)
    2.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    49.2)= S Y(2)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=DIV,Y(1)=$G(X) S X=$P(Y(2),U,7)
    CREATE CONDITION)= I $$VALREM^PSBUTL
    CREATE VALUE)= MINUTES(#.06,#.17)
    DELETE CONDITION)= I $$VALREM^PSBUTL
    DELETE VALUE)= @
    FIELD)= ORDER ADMINISTRATION VARIANCE
    Create field ORDER ADMINISTRATION VARIANCE #.14 value in the difference of minutes from the ACTION DATE/TIME #.06 and the SCHEDULED REMOVAL TIME #.17.
  • FIELD INDEX:  APATCH (#146) REGULAR IR SORTING ONLY
    Short Descr: Updates APATCH when DFN or admin date/time changes.
    Set Logic: S ^PSB(53.79,"APATCH",X(1),X(2),DA)=""
    Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,4)="PATCH")&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q
    Kill Logic: K ^PSB(53.79,"APATCH",X(1),X(2),DA)
    Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,4)="PATCH" S X=1 Q
    Whole Kill: K ^PSB(53.79,"APATCH")
    X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards)
    X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards)
  • FIELD INDEX:  AMRR (#1406) REGULAR IR SORTING ONLY
    Short Descr: Updates AMRR when DFN or admin date/time changes.
    Set Logic: S ^PSB(53.79,"AMRR",X(1),X(2),DA)=""
    Set Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I ($P($G(^(I,0)),U,6)>0)&($P(^PSB(53.79,DA,0),U,9)="G") S X=1 Q
    Kill Logic: K ^PSB(53.79,"AMRR",X(1),X(2),DA)
    Kill Cond: S X=0 N I S I=0 F S I=$O(^PSB(53.79,DA,.5,I)) Q:'I I $P($G(^(I,0)),U,6)>0 S X=1 Q
    Whole Kill: K ^PSB(53.79,"AMRR")
    X(1): PATIENT NAME (53.79,.01) (Subscr 1) (forwards)
    X(2): ACTION DATE/TIME (53.79,.06) (Subscr 2) (forwards)
  • RECORD INDEXES:  ADERM (#1404), ADERMOI (#1405), AINFUSING (#1115), AINJ (#1045), AINJOI (#1046), AORDX (#47), ASTOPPED (#1116)
.07 ACTION BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 11, 2001
  • DESCRIPTION:  
    Pointer to the NEW PERSON file (#200). Contains the user passing meds.
.08 ADMINISTRATION MEDICATION 0;8 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7)
************************REQUIRED FIELD************************
PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  SEP 21, 2011
  • DESCRIPTION:  
    Pointer to ORDERABLE ITEM (#50.7) containing the medication entered for the order.
  • CROSS-REFERENCE:  53.79^AOIP^MUMPS
    1)= I $P(^PSB(53.79,DA,0),U,6) S ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA)=""
    2)= I $P(^PSB(53.79,DA,0),U,6) K ^PSB(53.79,"AOIP",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA)
    Creates a cross reference by patient for orderable items and administration date/time
    ^PSB(53.79,"AOIP",dfn,orderable item,administration d/t,DA)=""
    Same as Field ADMINISTRATION DATE/TIME (#.06)
  • RECORD INDEXES:  ADERMOI (#1405), AINJOI (#1046)
.09 ACTION STATUS 0;9 SET
************************REQUIRED FIELD************************
  • 'G' FOR GIVEN;
  • 'H' FOR HELD;
  • 'R' FOR REFUSED;
  • 'N' FOR NOT GIVEN;
  • 'RM' FOR REMOVED;
  • 'I' FOR INFUSING;
  • 'S' FOR STOPPED;
  • 'C' FOR COMPLETED;
  • 'M' FOR MISSING DOSE;

  • LAST EDITED:  FEB 26, 2002
  • DESCRIPTION:  
    Status of administration (H:Held,R:Refused,G:Given,N:NOT GIVEN)
  • CROSS-REFERENCE:  53.79^AU09^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.09,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.09,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.11 ORDER REFERENCE NUMBER .1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X?.N1"U"!(X?.N1"V")!(X?.N1"P")) X
  • LAST EDITED:  MAY 09, 2001
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    Contains the IEN to the actual order in PHARMACY PATIENT (#55) followed by a U for Unit Dose or V for IV
  • RECORD INDEXES:  AORDX (#47), AUID (#147)
.12 ORDER SCHEDULE .1;2 SET
  • 'C' FOR CONTINUOUS;
  • 'P' FOR PRN;
  • 'O' FOR ONE-TIME;
  • 'OC' FOR ON-CALL;

  • LAST EDITED:  APR 27, 1999
  • DESCRIPTION:  
    Contains the schedule type of the order.
  • CROSS-REFERENCE:  53.79^APRN2^MUMPS
    1)= S:X="P"&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,"APRN",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA)=""
    2)= K:X="P"&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,"APRN",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA)
    Creates an index for all PRN administered medications for recall with the PRN effectiveness options.
    ^PSB(53.79,"APRN",dfn,entered date/time,DA)=""
    NOTE: This is entered date/time (#.04), not administered date/time.
.13 SCHEDULED ADMINISTRATION TIME .1;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 05, 2015
  • HELP-PROMPT:  Enter the Scheduled administration time being administered.
  • DESCRIPTION:  
    If a continuous order this field will contain the actual administration date and time the medication was ordered for.
  • CROSS-REFERENCE:  53.79^AORD2^MUMPS
    1)= I $P($G(^PSB(53.79,DA,.1)),U,1)]"" S ^PSB(53.79,"AORD",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA)=""
    2)= I $P($G(^PSB(53.79,DA,.1)),U,1)]"" K ^PSB(53.79,"AORD",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA)
    Creates an index by patient for Order reference number and administration time.
    ^PSB(53.79,"AORD",dfn,order reference,administration date/time,DA)=""
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALGIV^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.13,1,8,1.1) X ^DD(53.79,.13,1,8,1.4)
    1.1)= S X=DIV X ^DD(53.79,.13,1,8,49.2) S X1=Y(2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
    1.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALGIV^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.13,1,8,2.4)
    2.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    49.2)= S Y(1)=$S($D(^PSB(53.79,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),Y(2)=$G(X) S X=DIV
    CREATE CONDITION)= I $$VALGIV^PSBUTL
    CREATE VALUE)= MINUTES(#.06,#.13)
    DELETE CONDITION)= I $$VALGIV^PSBUTL
    DELETE VALUE)= @
    FIELD)= ORDER ADMINISTRATION VARIANCE
    Create field ORDER ADMINISTRATION VARIANCE #.14 value in the difference of minutes from the ACTION DATE/TIME #.06 and the SCHEDULED ADMINISTRATION TIME #.13.
.14 ORDER ADMINISTRATION VARIANCE .1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 14, 1999
  • HELP-PROMPT:  Type a Number between -99999 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    If a continuous order this field contains the minutes early (<1) or Late (>1) that the medication was given.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the ACTION DATE/TIME field of the BCMA MEDICATION LOG File
    TRIGGERED by the SCHEDULED ADMINISTRATION TIME field of the BCMA MEDICATION LOG File
    TRIGGERED by the ACTION DATE/TIME field of the BCMA MEDICATION LOG File
    TRIGGERED by the SCHEDULED REMOVAL TIME field of the BCMA MEDICATION LOG File
  • CROSS-REFERENCE:  53.79^AVARCHK^MUMPS
    1)= D CHECK^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA)
    2)= Q
    This field is triggered by the administration date/time. If this field is greater than or less than the allowable administration window times for this division a variance will be filed.
.15 ORDER DOSAGE .1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  APR 09, 1999
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    Free text field containing the dosage from the original order.
.16 INJECTION SITE .1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 21, 2011
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Free text field containing the injection site of medication that are injected.
  • CROSS-REFERENCE:  53.79^AU16^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.16,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.16,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
  • RECORD INDEXES:  AINJ (#1045), AINJOI (#1046)
.17 SCHEDULED REMOVAL TIME .1;7 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 27, 2015
  • HELP-PROMPT:  The time this Medication is scheduled to be removed after it was given.
  • DESCRIPTION:  Medications Requiring Removal (MRR) have times that they are to be removed from the patient after they were previously Given. These medications are only those that point to an Orderable Item file entry that has the Prompt
    For Removal In BCMA field set to value 1-3.
  • TECHNICAL DESCR:  
    Scheduled date and time to remove a Medications Requiring Removal (MRR) that is associated with a PHARMACY ORDERABLE ITEM (#50.7) file item when PROMPT FOR REMOVAL IN BCMA (#12) field is set to a value of 1-3.
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALREM^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.17,1,9,1.1) X ^DD(53.79,.17,1,9,1.4)
    1.1)= S X=DIV X ^DD(53.79,.17,1,9,49.2) S X1=Y(2) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
    1.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$VALREM^PSBUTL I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.17,1,9,2.4)
    2.4)= S DIH=$G(^PSB(53.79,DIV(0),.1)),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR
    49.2)= S Y(1)=$S($D(^PSB(53.79,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),Y(2)=$G(X) S X=DIV
    CREATE CONDITION)= I $$VALREM^PSBUTL
    CREATE VALUE)= MINUTES(#.06,#.17)
    DELETE CONDITION)= I $$VALREM^PSBUTL
    DELETE VALUE)= @
    FIELD)= ORDER ADMINISTRATION VARIANCE
    Create field ORDER ADMINISTRATION VARIANCE #.14 value in the difference of minutes from the ACTION DATE/TIME #.06 and the SCHEDULED REMOVAL TIME #.17.
.18 DERMAL SITE .1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  OCT 29, 2015
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Free text body location where a Dermal medication was applied.
  • RECORD INDEXES:  ADERM (#1404), ADERMOI (#1405)
.21 PRN REASON .2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 22, 1999
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Free text field containing the PRN reason for a PRN med being given.
  • CROSS-REFERENCE:  53.79^AU21^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.21,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.21,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.22 PRN EFFECTIVENESS .2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  APR 22, 1999
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
  • DESCRIPTION:  
    Free text field containing the effectiveness of a PRN medication.
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.22,1,1,1.1) X ^DD(53.79,.22,1,1,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(53.79,.22,1,1,2.4)
    2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= NOW
    DELETE VALUE)= @
    FIELD)= PRN EFFECTIVENESS ENTERED AT
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.23
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(53.79,.22,1,2,1.4)
    1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(53.79,.22,1,2,2.4)
    2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X=DUZ
    DELETE VALUE)= @
    FIELD)= PRN EFFECTIVENESS ENTERED BY
  • CROSS-REFERENCE:  53.79^AU22^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.22,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.22,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.23 PRN EFFECTIVENESS ENTERED BY .2;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Pointer to file NEW PERSON (#200) with the IEN of the user logging the PRN effectiveness.
  • NOTES:  TRIGGERED by the PRN EFFECTIVENESS field of the BCMA MEDICATION LOG File
.24 PRN EFFECTIVENESS ENTERED AT .2;4 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 24, 1999
  • DESCRIPTION:  
    Date/time the PRN effectiveness was charted.
  • NOTES:  TRIGGERED by the PRN EFFECTIVENESS field of the BCMA MEDICATION LOG File
  • CROSS-REFERENCE:  ^^TRIGGER^53.79^.25
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(53.79,.24,1,1,1.1) X ^DD(53.79,.24,1,1,1.4)
    1.1)= S X=DIV X ^DD(53.79,.24,1,1,49.2) S X1=Y(1) S Y=$E(X1_"000",9,10)-$E(X_"000",9,10)*60+$E(X1_"00000",11,12)-$E(X_"00000",11,12),X2=X,X=$P(X,".",1)'=$P(X1,".",1) D ^%DTC:X S X=X*1440+Y
    1.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(53.79,.24,1,1,2.4)
    2.4)= S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    49.2)= S Y(2)=$S($D(^PSB(53.79,D0,0)):^(0),1:"") S X=DIV,Y(1)=X S X=$P(Y(2),U,6)
    CREATE VALUE)= MINUTES(#.24,#.06)
    DELETE VALUE)= @
    FIELD)= PRN EFFECTIVENESS MINUTES
.25 PRN EFFECTIVENESS MINUTES .2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 28, 1999
  • HELP-PROMPT:  Type a Number between -99999 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Number of minutes from administration to the charting of PRN effectiveness.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the PRN EFFECTIVENESS ENTERED AT field of the BCMA MEDICATION LOG File
  • CROSS-REFERENCE:  53.79^ACHKPRN^MUMPS
    1)= D CHKPRN^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA)
    2)= Q
    This field is triggered by the PRN EFFECTIVENESS DATE/TIME field. If this field is greater than the allowable PRN EFFECTIVENESS window times for this division a variance will be filed.
.26 IV UNIQUE ID 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 19, 2001
  • HELP-PROMPT:  Answer must be 3-30 characters in length
  • DESCRIPTION:  
    This is the unique ID number of an IV bag, which is generated from Inpatient Medications.
  • RECORD INDEXES:  AUID (#147)
.27 PRN REASON FLAG 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<0)!(X?.E1"."1.N) X
  • LAST EDITED:  NOV 04, 2003
  • HELP-PROMPT:  Type a number between 0 and 1, 0 Decimal Digits
  • DESCRIPTION:  
    The PRN REASON FLAG field is to indicate whether the BCMA Med Log file entry is PRN activity and has an associated PRN REASON which has been set to require BCMA user attention or action.
.28 WITNESS DATE/TIME 0;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 12, 2012
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Contains the DATE/TIME that this administration of a High Risk/High Alert medication was witnessed.
  • CROSS-REFERENCE:  53.79^AU28^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.28,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.28,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.29 ADMIN WITNESSED BY 0;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  SEP 19, 2012
  • HELP-PROMPT:  Select the witness.
  • DESCRIPTION:  
    Contains the user that was required to Witness the passing of meds due to Drug High Risk/Alert.
  • CROSS-REFERENCE:  53.79^AU29^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.29,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.29,X,"K")
    Creates an entry in this items audit log whenever changed or deleted.
.3 COMMENT .3;0 Multiple #53.793 53.793

  • DESCRIPTION:  
    Multiple containing the comments entered for each med pass.
.31 WITNESS COMMENT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  SEP 12, 2012
  • HELP-PROMPT:  Answer must be 1-150 characters in length.
  • DESCRIPTION:  
    Comment the witness may want to enter while witnessing an administration for a High Risk/High Alert medication.
.32 WITNESS HR ORDER CODE 1;2 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 the Order's highest level of High Risk/Alert codes found in its components of Disp Drug, Additives, or Solutions.
  • DESCRIPTION:  
    This field contains the highest level of all the High Risk/High Alert drug indicators that were found in the order when this medication was passed.
  • CROSS-REFERENCE:  53.79^AU32^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.32,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.32,X,"K")
.33 WITNESSED? 1;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  NOV 14, 2012
  • HELP-PROMPT:  Enter Yes if this medication administration was witnessed.
  • DESCRIPTION:  
    This field will track whether the Witness was bypassed for a High Risk/High Alert drug during medication passing.
  • CROSS-REFERENCE:  53.79^AU33^MUMPS
    1)= D AUDIT^PSBUTL(DA,53.79,.33,X,"S")
    2)= D AUDIT^PSBUTL(DA,53.79,.33,X,"K")
.35 INFUSION RATE 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  OCT 10, 2012
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  
    This is the infusion rate for an IV bag, which is passed by Inpatient Medications.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.5 DISPENSE DRUG .5;0 POINTER Multiple #53.795 53.795

  • INDEXED BY:  PROMPT FOR REMOVAL IN BCMA (AMRR), UNIT OF ADMINISTRATION (APATCH)
.6 ADDITIVES .6;0 POINTER Multiple #53.796 53.796
.7 SOLUTIONS .7;0 POINTER Multiple #53.797 53.797
.9 AUDIT LOG .9;0 DATE Multiple #53.799 53.799
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields  | All