Global: ^PSCST

FileMan FileNo	FileMan Filename	Package
50.9	DRUG COST	Outpatient Pharmacy

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 PSOCSTM ^PSCST PSOCSTD SORT GROUP

Package	Total	Routines
Outpatient Pharmacy	2	PSOCOSTP PSOCST

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.`

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)

>>	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*

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PSCST

Information

Description

Directly Accessed By Routines, Total: 28

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 5

Fields, Total: 20

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: