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

Package: Drug Accountability

DRUG ACCOUNTABILITY STATS(#58.8)-->58.8001-->58.801

Sub-Field: 58.801


Information

Parent File Name Number Package
58.8001 MONTHLY ACTIVITY 58.801 Drug Accountability

Details

Field # Name Loc Type Details
.01 MONTHLY ACTIVITY 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<29204)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • OUTPUT TRANSFORM:  X ^DD("DD")
  • LAST EDITED:  FEB 25, 1993
  • HELP-PROMPT:  Type a Number between 29204 and 9999999, 0 Decimal Digits
  • DESCRIPTION:  
    As activity (receipts, adjustments, dispensing) occurs for each drug, an entry will be added here in which to store totals.
  • TECHNICAL DESCR:  
    Month of activity stored in seven digit FM format.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  58.801^B
    1)= S ^PSD(58.8,DA(2),1,DA(1),5,"B",$E(X,1,30),DA)=""
    2)= K ^PSD(58.8,DA(2),1,DA(1),5,"B",$E(X,1,30),DA)
1 BEGINNING BALANCE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 03, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    At the beginning of each month, the current balance of a drug will be stuffed here by a queued option.
  • TECHNICAL DESCR:  
    The balance of a drug at the beginning of the month.
2 BEGINNING VALUE COMPUTED

  • MUMPS CODE:  X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,2,2)=X S Y(58.801,2,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"") S X=$P(Y(58.801,2,1),U,2)*Y(58.801,2,2)
  • ALGORITHM:  BEG*PRICE PER DI
  • LAST EDITED:  APR 29, 1992
  • DESCRIPTION:  
    Computed by the price per dispense unit from the DRUG file (#50) times the beginning balance.
  • TECHNICAL DESCR:  
    Uses price per dispense unit from File 50 - DRUG file - times beginning balance.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
3 ENDING BALANCE 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 03, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    At the beginning of each month the current balance will be stuffed as the previous month's ending balance.
  • TECHNICAL DESCR:  
    The balance of a drug at the end of the month.
4 ENDING VALUE COMPUTED

  • MUMPS CODE:  X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,4,2)=X S Y(58.801,4,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"") S X=$P(Y(58.801,4,1),U,4)*Y(58.801,4,2)
  • ALGORITHM:  ENDING BALANCE*PRICE PER DISPENSE UNIT
  • DESCRIPTION:  
    Computed by the price per dispense unit from the DRUG file (#50) times the ending balance.
  • TECHNICAL DESCR:  
    Uses price per dispense unit from File 50 - DRUG file - times ending balance.
5 TOTAL RECEIVED 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Each receipt added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will increment this amount.
  • TECHNICAL DESCR:  
    Incremented by receipt transactions in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
6 VALUE RECEIVED COMPUTED

  • MUMPS CODE:  X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,6,2)=X S Y(58.801,6,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"") S X=$P(Y(58.801,6,1),U,3)*Y(58.801,6,2)
  • ALGORITHM:  TOTAL RECEIVED*PRICE PER DISPENSE UNIT
  • DESCRIPTION:  
    Computed by the price per dispense unit from the DRUG file (#50) times the total received.
  • TECHNICAL DESCR:  
    Uses price per dispense unit from File 50 - DRUG file - times total received.
7 TOTAL ADJUSTED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Each adjustment added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will increment/decrement this amount.
  • TECHNICAL DESCR:  
    Incremented/decremented by adjustments in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
8 VALUE ADJUSTED COMPUTED

  • MUMPS CODE:  X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,8,2)=X S Y(58.801,8,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"") S X=$P(Y(58.801,8,1),U,5)*Y(58.801,8,2)
  • ALGORITHM:  TOTAL ADJUSTED*PRICE PER DISPENSE UNIT
  • DESCRIPTION:  
    Computed by the price per dispense unit from the DRUG file (#50) times the total adjusted.
  • TECHNICAL DESCR:  
    Uses price per dispense unit from File 50 - DRUG file - times total adjusted.
9 TOTAL DISPENSED 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Each dispensing transaction added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will increment this amount.
  • TECHNICAL DESCR:  
    Incremented by dispensing recorded in File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file.
10 VALUE DISPENSED COMPUTED

  • MUMPS CODE:  X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,10,2)=X S Y(58.801,10,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"") S X=$P(Y(58.801,10,1),U,6)*Y(58.801,10,2)
  • ALGORITHM:  TOTAL DISPENSED*PRICE PER DISPENSE UNIT
  • DESCRIPTION:  
    Computed by the price per dispense unit from the DRUG file (#50) times the total dispensed.
  • TECHNICAL DESCR:  
    Uses price per dispense unit from File 50 - DRUG file - times total dispensed.
11 TOTAL RETURN TO STOCK 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 03, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    The total number of drugs return to stock during this month. This total includes cancelled orders returned to stock.
  • TECHNICAL DESCR:  
    Monthly total of drugs returned to stock.
12 TOTAL TURN IN FOR DESTRUCTION 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"."3N.N) X
  • LAST EDITED:  AUG 03, 1993
  • HELP-PROMPT:  Type a Number between -9999999 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    The total number of drugs turned into the pharmacy for destruction.
  • TECHNICAL DESCR:  
    Monthly total of drugs turned in for destruction.
13 TOTAL TRANSFERRED 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 1997
  • HELP-PROMPT:  Enter the total number of dispense units transferred to and from the pharmacy location.
  • DESCRIPTION:  
    The TOTAL TRANSFERRED field contains the total number of dispense units that were transferred from or to the pharmacy location.
  • TECHNICAL DESCR:  
    The number of dispense units transferred from the pharmacy location are subtracted from the dispense units transferred to the pharmacy location.
Info |  Details