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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^PSB(53.78

Package: Barcode Medication Administration

Global: ^PSB(53.78


Information

FileMan FileNo FileMan Filename Package
53.78 BCMA MEDICATION VARIANCE LOG Barcode Medication Administration

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Barcode Medication Administration 3 PSBVAR    ^PSB(53.78    PSBOMV    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Barcode Medication Administration 2 PSBOMV    PSBVAR    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Registration 2 WARD LOCATION(#42)[.09]    PATIENT(#2)[.01]    
Barcode Medication Administration 1 BCMA MEDICATION LOG(#53.79)[.08]    
Kernel 1 NEW PERSON(#200)[.03]    
Pharmacy Data Management 1 PHARMACY ORDERABLE ITEM(#50.7)[.07]    

Fields, Total: 9

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

  • LAST EDITED:  MAR 25, 1999
  • DESCRIPTION:  
    Pointer to the patient file (#2) of the patient in the variance log.
  • CROSS-REFERENCE:  53.78^B
    1)= S ^PSB(53.78,"B",$E(X,1,30),DA)=""
    2)= K ^PSB(53.78,"B",$E(X,1,30),DA)
.02 ROOM AND BED 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUL 01, 2002
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Room and bed location of the patient at the time of the variance.
.03 USER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$S($D(^XUSEC("PSB MANAGER",DUZ)):$P(^VA(200,Y,0),U),1:"")
  • LAST EDITED:  MAR 28, 1999
  • DESCRIPTION:  
    User passing meds during the variance.
.04 DATE/TIME OF OCCURRENCE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 28, 1999
  • DESCRIPTION:  
    Date/time of the variance.
  • CROSS-REFERENCE:  53.78^ADT
    1)= S ^PSB(53.78,"ADT",$E(X,1,30),DA)=""
    2)= K ^PSB(53.78,"ADT",$E(X,1,30),DA)
.05 EVENT 0;5 SET
  • '1' FOR WRONG MED;
  • '2' FOR EARLY/LATE DOSE;
  • '3' FOR LATE PRN EFFECT;
  • '4' FOR EARLY/LATE REMOVE;

  • LAST EDITED:  AUG 05, 2015
  • HELP-PROMPT:  Enter a valid code describing this variance event.
  • DESCRIPTION:  
    Set of codes describing the variance.
.06 ADMINISTRATION TIME VARIANCE 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1999
  • HELP-PROMPT:  Type a Number between -999999999 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    If the variance was an early or late event this field store the number of minutes early (<1) or minutes late (>1) of the event.
.07 DRUG SCANNED 0;7 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  APR 22, 2014
  • HELP-PROMPT:  Enter the medication that was scanned for this order.
  • DESCRIPTION:  
    Pointer to the drug file of the medication that was scanned for this variance.
.08 MED LOG PTR 0;8 POINTER TO BCMA MEDICATION LOG FILE (#53.79) BCMA MEDICATION LOG(#53.79)

  • LAST EDITED:  MAR 28, 1999
  • DESCRIPTION:  
    Pointer to the BCMA MEDICATION LOG (#53.79) for this event.
.09 WARD LOCATION 0;9 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  JUL 03, 2002
  • HELP-PROMPT:  Enter the ward where the patient is currently located.
  • DESCRIPTION:  
    The ward location where the patient is located when a Medication Variance is logged.

External References

Name Field # of Occurrence
^%DT .04+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSB(53.78 - [#53.78] .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K)
^VA(200 - [#200] .03OT+1
^XUSEC("PSB MANAGER" .03OT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .04+1*
>> DA .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K)
DUZ .03OT+1
U .03OT+1
X .01(XREF 1S), .01(XREF 1K), .02+1!, .04+1*!, .04(XREF 1S), .04(XREF 1K), .06+1!
>> Y .03OT+1*, .04+1
>> Y(0 .03OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All