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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PSCST

Package: Outpatient Pharmacy

Global: ^PSCST


Information

FileMan FileNo FileMan Filename Package
50.9 DRUG COST Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 28

Package Total Routines
Outpatient Pharmacy 24 CLINIC DATA    DIVISION DATA    DRUG    DRUG DATA    PATIENT STATUS DATA    PHYSICIAN    PHYSICIAN DATA    PSO COST STAT
PSOCOST    PSOCOSTP    PSOCST11    PSOCST12    PSOCST2    PSOCST3    PSOCST4    PSOCST5
PSOCST6    PSOCST7    PSOCST8    PSOCST9    PSOCSTD    PSOCSTM    SORT GROUP    ^PSCST

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Outpatient Pharmacy 2 PSOCOSTP    PSOCST    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
Outpatient Pharmacy 2 RX PATIENT STATUS(#53)[#50.9005(.01)]    OUTPATIENT SITE(#59)[#50.9006(.01)]    
Kernel 1 NEW PERSON(#200)[#50.9001(.01), #50.9004(.01), #50.901(.01)]
Pharmacy Data Management 1 DRUG(#50)[#50.9002(.01), #50.9003(.01), #50.9007(.01)]
Scheduling 1 HOSPITAL LOCATION(#44)[#50.9008(.01)]    

Fields, Total: 20

Field # Name Loc Type Details
.01 FILLED DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:(Y<1)!(+$E(Y,6,7)'=0)!(+$E(Y,4,5)=0) X S:$D(X) DINUM=X
  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  Enter the date the prescription was filled.
  • DESCRIPTION:  
    This field is used to enter the date that the prescription was filled.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50.9^B
    1)= S ^PSCST("B",$E(X,1,30),DA)=""
    2)= K ^PSCST("B",$E(X,1,30),DA)
.02 # ORG FILLS 0;2 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 prescriptions filled on the specified date. -- Should not include any refills --
    UNEDITABLE
.03 # 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
.035 TOTAL FILLS COMPUTED

  • MUMPS CODE:  S Y(50.9,.035,1)=$S($D(^PSCST(D0,0)):^(0),1:"") S X=$P(Y(50.9,.035,1),U,2)+$P(Y(50.9,.035,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.
.04 TOTAL COST 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999, 4 Decimal Digits
  • DESCRIPTION:  
    Respond by entering the total dollar cost of prescriptions.
    UNEDITABLE
.045 AVE COST/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.045,2)=X S Y(50.9,.045,1)=$S($D(^PSCST(D0,0)):^(0),1:"") S X=$P(Y(50.9,.045,1),U,4),X=$S(Y(50.9,.045,2):X/Y(50.9,.045,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 cost by total number of prescriptions filled.
  • SUM:  S X=S("50.9^.04"),X=$S(S("50.9^.035"):X/S("50.9^.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
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    Respond by entering the actual number of pills dispensed.
    UNEDITABLE
.055 AVE QTY DISPENSED/FILL COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.055,2)=X S Y(50.9,.055,1)=$S($D(^PSCST(D0,0)):^(0),1:"") S X=$P(Y(50.9,.055,1),U,5),X=$S(Y(50.9,.055,2):X/Y(50.9,.055,2),1:"*******") S X=$J(X,0,0)
  • ALGORITHM:  TOTAL QTY DISPENSED/TOTAL FILLS (ALWAYS 0 DECIMAL DIGITS)
  • DESCRIPTION:  
    Divide the total number of pills dispensed by the total number of prescriptions to find the average quantity dispensed.
  • SUM:  S X=S("50.9^.05"),X=$S(S("50.9^.035"):X/S("50.9^.035"),1:"*******") S Y=X
.06 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
.07 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
.11 COMPILE DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date the proceeding data was gathered.
  • DESCRIPTION:  
    Enter the date that the proceeding data was gathered.
    UNEDITABLE
.12 REQUESTS 1;2 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:  
    Enter the number of different patients seen per day.
    UNEDITABLE
.125 AVE COST/REQUEST COMPUTED

  • MUMPS CODE:  S Y(50.9,.125,1)=$S($D(^PSCST(D0,0)):^(0),1:""),Y(50.9,.125,2)=$S($D(^(1)):^(1),1:"") S X=$P(Y(50.9,.125,1),U,4),X=$S($P(Y(50.9,.125,2),U,2):X/$P(Y(50.9,.125,2),U,2),1:"*******") S X=$J(X,0,2)
  • ALGORITHM:  TOTAL COST/REQUESTS (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    Enter the total cost divided by the number of patients for that day.
  • SUM:  S X=S("50.9^.04"),X=$S(S("50.9^.12"):X/S("50.9^.12"),1:"*******") S Y=X
.126 AVE FILLS/REQUEST COMPUTED

  • MUMPS CODE:  X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.126,1)=X S Y(50.9,.126,2)=$S($D(^PSCST(D0,1)):^(1),1:"") S X=Y(50.9,.126,1),X=$S($P(Y(50.9,.126,2),U,2):X/$P(Y(50.9,.126,2),U,2),1:"*******") S X=$J(X,0,2)
  • ALGORITHM:  TOTAL FILLS/REQUESTS (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    To find the average fill, divide the total fills by the number of patients for a given day.
  • SUM:  S X=S("50.9^.035"),X=$S(S("50.9^.12"):X/S("50.9^.12"),1:"*******") S Y=X
1 PHYSICIAN DATA P;0 POINTER Multiple #50.9001 50.9001

  • DESCRIPTION:  
    This sub-file is used to store prescription costs as it relates to the prescribing physician.
2 DRUG DATA D;0 POINTER Multiple #50.9003 50.9003

  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This sub-file is used to store costs of drugs dispensed.
3 PATIENT STATUS DATA PS;0 POINTER Multiple #50.9005 50.9005

  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This sub-file is used to store drug costs associated with the clinical status of the patient.
4 CLINIC DATA S;0 POINTER Multiple #50.9008 50.9008

  • LAST EDITED:  FEB 28, 1984
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999
  • DESCRIPTION:  
    This sub-file is used to store drug cost data associated with clinics.
5 CLASS DATA C;0 POINTER Multiple #50.9009 50.9009

  • DESCRIPTION:  
    This sub-file is used to store drug cost data associated with drug class.
6 DIVISION DATA V;0 POINTER Multiple #50.9006 50.9006

  • DESCRIPTION:  
    This sub-file is used to store drug costs associated with divisions within pharmacy.

External References

Name Field # of Occurrence
^%DT .01+1, .11+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(50.9 .045+1, .055+1, .126+1
^PSCST - [#50.9] .035+1, .045+1, .055+1, .125+1, .126+1
^PSCST("B" .01(XREF 1S), .01(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .035+1, .045+1, .055+1, .125+1
^(1 .125+1, .126+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, .11+1*
>> D0 .035+1, .045+1, .055+1, .125+1, .126+1
>> DA .01(XREF 1S), .01(XREF 1K)
>> DINUM .01+1*
U .035+1, .045+1, .055+1, .125+1, .126+1
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1!, .035+1*, .04+1!, .045+1*, .05+1!, .055+1*
, .06+1!, .07+1!, .11+1*!, .12+1!, .125+1*, .126+1*
>> Y .01+1, .11+1
>> Y( .035+1*, .045+1*, .055+1*, .125+1*, .126+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All