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

Package: Barcode Medication Administration

Global: ^PSB(53.68


Information

FileMan FileNo FileMan Filename Package
53.68 BCMA MISSING DOSE REQUEST Barcode Medication Administration

Description

Directly Accessed By Routines, Total: 2

Package Total Routines
Barcode Medication Administration 2 PSBMD    PSBOMD    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Barcode Medication Administration 2 PSBMD    PSBOMD    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Pharmacy Data Management 3 IV ADDITIVES(#52.6)[#53.686(.01)]    IV SOLUTIONS(#52.7)[#53.687(.01)]    DRUG(#50)[.13]    
Registration 3 ROOM-BED(#405.4)[.18]    WARD LOCATION(#42)[.12]    VA PATIENT(#2)[.11]    
Kernel 2 INSTITUTION(#4)[.04]    NEW PERSON(#200)[.03.22]    

Fields, Total: 23

Field # Name Loc Type Details
.01 REQUEST NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<18) X
  • LAST EDITED:  MAR 13, 1999
  • HELP-PROMPT:  Answer must be 18 characters in length.
  • DESCRIPTION:  
    Contains a system generated unique request number for each missing dose request entered.
  • CROSS-REFERENCE:  53.68^B
    1)= S ^PSB(53.68,"B",$E(X,1,30),DA)=""
    2)= K ^PSB(53.68,"B",$E(X,1,30),DA)
.02 DATE/TIME ENTERED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 18, 1999
  • DESCRIPTION:  
    Automatically stuffed at record creation time with a value of NOW.
  • CROSS-REFERENCE:  53.68^ADTE
    1)= S ^PSB(53.68,"ADTE",$E(X,1,30),DA)=""
    2)= K ^PSB(53.68,"ADTE",$E(X,1,30),DA)
.03 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Automatically stuffed at record creation time with the current value of DUZ.
.04 DIVISION 0;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Automatically stuffed at record creation time with the current value of DUZ(2).
.05 SENT TO MAILGROUP 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 26, 1999
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Once submitted this field contains the Mail group the request was sent to.
.06 PRINTED ON DEVICE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 26, 1999
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    If printing is enabled this contains the printer that the request printed on.
.07 STATUS 0;7 SET
  • '0' FOR CLOSED;
  • '1' FOR UNRESOLVED;

  • LAST EDITED:  APR 08, 1999
  • DESCRIPTION:  
    Status of the request as Closed or Unresolved.
  • NOTES:  TRIGGERED by the PHARMACY REASON NEEDED field of the BCMA MISSING DOSE REQUEST File
  • CROSS-REFERENCE:  53.68^AS
    1)= S ^PSB(53.68,"AS",$E(X,1,30),DA)=""
    2)= K ^PSB(53.68,"AS",$E(X,1,30),DA)
.11 PATIENT .1;1 POINTER TO VA PATIENT FILE (#2) VA PATIENT(#2)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Pointer to the PATIENT file (#2) of the patient missing the medication.
.12 WARD LOCATION .1;2 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  MAR 26, 1999
  • DESCRIPTION:  
    Pointer to the WARD LOCATION file (#42) with the selected ward for the report.
.13 DRUG REQUESTED .1;3 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  I ($P($G(^PSDRUG(X,2)),U,3)'["U")&($P($G(^PSDRUG(X,2)),U,3)'["I")!($G(^PSDRUG(X,"I"),DT)
  • LAST EDITED:  MAY 08, 2000
  • HELP-PROMPT:  Drug must be active and a Unit Dose or IV med.
  • DESCRIPTION:  
    Pointer to DRUG file (#50) with the medication needed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.14 DOSE NEEDED .1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 13, 1999
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Free text description of the dosage needed.
.15 REASON NEEDED .1;5 SET
  • '1' FOR DROPPED;
  • '2' FOR EMPTY PACKAGE;
  • '3' FOR NOT AVAILABLE;
  • '4' FOR WRONG DOSE/DRUG DELIVERED;
  • '5' FOR PACKAGE CONTENTS DAMAGED;
  • '6' FOR PACKAGE INTEGRITY DAMAGED;
  • '7' FOR BARCODE/IEN ILLEGIBLE;

  • LAST EDITED:  OCT 30, 2003
  • DESCRIPTION:  
    Set of codes containing the reason a medication is missing.
.16 ADMINISTRATION DATE/TIME .1;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Date/Time the medication is to be administered.
.17 NEEDED BY DATE/TIME .1;7 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 26, 2002
  • DESCRIPTION:  
    Date/Time the medication will be needed to meet the next administration.
.18 ROOM/BED .1;8 POINTER TO ROOM-BED FILE (#405.4) ROOM-BED(#405.4)

  • LAST EDITED:  MAY 11, 2000
  • DESCRIPTION:  
    The room/bed of the patient when the request is entered.
.19 SCHEDULE .1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  APR 26, 2002
  • HELP-PROMPT:  Answer must be 2-25 characters in length.
.21 DOSE DELIVERED .2;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Was a dose delivered to complete this missing med request. (y/n)
.22 DOSE DELIVERED BY .2;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Pointer to NEW PERSON file (#200) with the user who resolved the request.
.23 DELIVERY TIME .2;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 13, 1999
  • DESCRIPTION:  
    Date/Time the medication was delivered/resolved.
.24 PHARMACY REASON NEEDED .2;4 SET
  • '1' FOR WS/FILL ON REQUEST;
  • '2' FOR FOUND IN DRAWER;
  • '3' FOR PHARMACIST ERROR;
  • '4' FOR EXPIRED/NO ORDER;
  • '5' FOR ATC ERROR;
  • '6' FOR NOT ENOUGH PRNS;
  • '7' FOR TECHNICIAN ERROR;
  • '8' FOR ON PRE-EXCHANGE/PICK LIST;
  • '9' FOR PATIENT TRANSFERRED;
  • '10' FOR NURSE ADMIN ERROR;

  • LAST EDITED:  APR 08, 1999
  • DESCRIPTION:  
    Set of coded for resolution reason.
  • CROSS-REFERENCE:  ^^TRIGGER^53.68^.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="0" X ^DD(53.68,.24,1,1,1.4)
    1.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 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.68,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X="1" X ^DD(53.68,.24,1,1,2.4)
    2.4)= S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= "0"
    DELETE VALUE)= "1"
    FIELD)= STATUS
.25 UNIQUE ID .1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 28, 2002
  • 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.
.26 ADDITIVES .6;0 POINTER Multiple #53.686 53.686

  • DESCRIPTION:  
    Pointer to the additives file. Filled in automatically with the ordered additives when a missing dose is submitted.
.27 SOLUTIONS .7;0 POINTER Multiple #53.687 53.687

  • DESCRIPTION:  
    Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing dose is submitted.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All