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

Package Total Routines
Outpatient Pharmacy 21 CLINIC DATA    DRUG    DRUG DATA    PATIENT STATUS DATA    PHYSICIAN    PHYSICIAN DATA    PSOCOST    PSOCOSTP
PSOCST11    PSOCST12    PSOCST2    PSOCST3    PSOCST4    PSOCST5    PSOCST6    PSOCST7
PSOCST8    PSOCST9    ^PSCST    PSOCSTD    PSOCSTM    

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