Global: ^PSCST

FileMan FileNo	FileMan Filename	Package
50.9	DRUG COST	Outpatient Pharmacy

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

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PSCST

Information

Description

Accessed By FileMan Db Calls, Total: 2

Pointer To FileMan Files, Total: 5

Fields, Total: 20