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: 50.9006

Package: Outpatient Pharmacy

DRUG COST(#50.9)-->50.9006

Sub-Field: 50.9006


Information

Parent File Name Number Package
DRUG COST(#50.9) DIVISION DATA 50.9006 Outpatient Pharmacy

Details

Field # Name Loc Type Details
.01 DIVISION 0;1 POINTER TO OUTPATIENT SITE FILE (#59) OUTPATIENT SITE(#59)

  • INPUT TRANSFORM:  S DINUM=X Q
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  Enter the division number within pharmacy.
  • DESCRIPTION:  
    This field is used to indicate the division within pharmacy.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 # ORG FILLS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the number of original fills for a division.
    UNEDITABLE
.03 # REFILLS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the number of refills for a division within pharmacy.
    UNEDITABLE
.035 TOTAL FILLS COMPUTED

  • MUMPS CODE:  S Y(50.9006,.035,1)=$S($D(^PSCST(D0,"V",D1,0)):^(0),1:"") S X=$P(Y(50.9006,.035,1),U,2)+$P(Y(50.9006,.035,1),U,3) S X=$J(X,0,0)
  • ALGORITHM:  # ORG FILLS+# REFILLS (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field is used to indicate the total number of fills (fills+refills).
.04 TOTAL COST 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the total cost per division by patient status.
    UNEDITABLE
.045 AVE COST/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9006,.035,0),U,5,99) S Y(50.9006,.045,2)=X S Y(50.9006,.045,1)=$S($D(^PSCST(D0,"V",D1,0)):^(0),1:"") S X=$P(Y(50.9006,.045,1),U,4),X=$S(Y(50.9006,.045,2):X/Y(50.9006,.045,2),1:"*******") S X=$J(X,0,2)
  • ALGORITHM:  TOTAL COST/TOTAL FILLS (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field is used to indicate the average cost per fill.
  • SUM:  S X=S("50.9006^.04"),X=$S(S("50.9006^.035"):X/S("50.9006^.035"),1:"*******") S Y=X
.05 TOTAL QTY DISPENSED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the total quantity dispensed per prescription.
    UNEDITABLE
.055 AVE QTY DISPENSED/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9006,.035,0),U,5,99) S Y(50.9006,.055,2)=X S Y(50.9006,.055,1)=$S($D(^PSCST(D0,"V",D1,0)):^(0),1:"") S X=$P(Y(50.9006,.055,1),U,5),X=$S(Y(50.9006,.055,2):X/Y(50.9006,.055,2),1:"*******") S X=$J(X,0,0)
  • ALGORITHM:  TOTAL QTY DISPENSED/TOTAL FILLS (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field is used to indicate the average quantity dispensed per fill.
  • SUM:  S X=S("50.9006^.05"),X=$S(S("50.9006^.035"):X/S("50.9006^.035"),1:"*******") S Y=X
.06 MAILS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the number of prescriptions dispensed by mail sorted by patient status.
    UNEDITABLE
.07 WINDOWS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 29, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This field is used to indicate the number of prescription dispensed by mail sorted by patient status.
    UNEDITABLE
.08 REQUESTS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 22, 1999
  • HELP-PROMPT:  Type a Number between 0 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    These are the number of unique patients seen for the day associated with divisions within pharmacy.
1 PHYSICIAN DATA P;0 POINTER Multiple #50.901 50.901

  • DESCRIPTION:  
    This sub-file contains fill data for physicians.
2 DRUG DATA D;0 POINTER Multiple #50.9007 50.9007

  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Enter the name of drug prescribed.
3 # REFILLS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond with the total number of refills for the specified date.
    UNEDITABLE
3.5 TOTAL FILLS COMPUTED

  • MUMPS CODE:  S Y(50.9006,3.5,1)=$S($D(^PSCST(D0,"PS",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9006,3.5,1),U,2)+$P(Y(50.9006,3.5,1),U,3) S X=$J(X,0,0)
  • ALGORITHM:  # ORG FILLS+# REFILLS (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    Respond by adding all new fills with all refills.
4 TOTAL COST 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond by entering the total dollar cost of precriptions.
    UNEDITABLE
4.5 AVE COST/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9006,3.5,0),U,5,99) S Y(50.9006,4.5,2)=X S Y(50.9006,4.5,1)=$S($D(^PSCST(D0,"PS",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9006,4.5,1),U,4),X=$S(Y(50.9006,4.5,2):X/Y(50.9006,4.5,2),1:"*******") S X=$J(X,0,2)
  • ALGORITHM:  TOTAL COST/TOTAL FILLS (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    Average prescription cost is found by dividing total prescription costs by total number of prescriptions filled.
  • SUM:  S X=S("50.9006^4"),X=$S(S("50.9006^3.5"):X/S("50.9006^3.5"),1:"*******") S Y=X
5 TOTAL QTY DISPENSED 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond by entering the actual number of pills dispensed.
    UNEDITABLE
5.5 AVE QTY DISPENSED/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9006,3.5,0),U,5,99) S Y(50.9006,5.5,2)=X S Y(50.9006,5.5,1)=$S($D(^PSCST(D0,"PS",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9006,5.5,1),U,5),X=$S(Y(50.9006,5.5,2):X/Y(50.9006,5.5,2),1:"*******") S X=$J(X,0,0)
  • ALGORITHM:  TOTAL QTY DISPENSED/TOTAL FILLS (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    This field is used to indicate the average quantity dispensed per fill.
  • SUM:  S X=S("50.9006^5"),X=$S(S("50.9006^3.5"):X/S("50.9006^3.5"),1:"*******") S Y=X
6 MAILS 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond with the number of prescriptions distributed by mail.
    UNEDITABLE
7 WINDOWS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond with the number of prescriptions distributed on site.
    UNEDITABLE
Info |  Details