Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 50.9005

Package: Outpatient Pharmacy

DRUG COST(#50.9)-->50.9005

Sub-Field: 50.9005

Information

Parent File	Name	Number	Package
DRUG COST(#50.9)	PATIENT STATUS DATA	50.9005	Outpatient Pharmacy

Details

Field #	Name	Loc	Type	Details
.01	PATIENT STATUS	0;1	POINTER TO RX PATIENT STATUS FILE (#53)	RX PATIENT STATUS(#53) INPUT TRANSFORM: `S DINUM=X Q` HELP-PROMPT: `Enter the prescription status of the patient.` DESCRIPTION: `This field is used to show the status of the patient.` TECHNICAL DESCR: `pointer` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	# 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`
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.9005,3.5,1)=$S($D(^PSCST(D0,"PS",D1,0)):^(0),1:"") S X=$P(Y(50.9005,3.5,1),U,2)+$P(Y(50.9005,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 to 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 dollar cost of prescriptions.` `UNEDITABLE`
4.5	AVE COST/FILL		COMPUTED	MUMPS CODE: `X $P(^DD(50.9005,3.5,0),U,5,99) S Y(50.9005,4.5,2)=X S Y(50.9005,4.5,1)=$S($D(^PSCST(D0,"PS",D1,0)):^(0),1:"") S X=$P(Y(50.9005,4.5,1),U,4),X=$S(Y(50.9005,4.5,2):X/Y(50.9005,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 cost by total number of prescriptions filled.` SUM: `S X=S("50.9005^4"),X=$S(S("50.9005^3.5"):X/S("50.9005^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.9005,3.5,0),U,5,99) S Y(50.9005,5.5,2)=X S Y(50.9005,5.5,1)=$S($D(^PSCST(D0,"PS",D1,0)):^(0),1:"") S X=$P(Y(50.9005,5.5,1),U,5),X=$S(Y(50.9005,5.5,2):X/Y(50.9005,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 compute the average quantity dispensed per fill/` SUM: `S X=S("50.9005^5"),X=$S(S("50.9005^3.5"):X/S("50.9005^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`
100	AMIS GROUP		COMPUTED	MUMPS CODE: `X ^DD(50.9005,100,9.3) S X=$P($P(Y(50.9005,100,102),$C(59)_$P(Y(50.9005,100,101),U,6)_":",2),$C(59),1) S D0=Y(50.9005,100,2)` `9.2 = S Y(50.9005,100,2)=$S($D(D0):D0,1:""),Y(50.9005,100,1)=$S($D(^PSCST(D0,"PS",D1,0)):^(0),1:""),D0=$P(Y(50.9005,100,1),U,1) S:'$D(^DIC(53,+D0,0)) D0=-1` `9.3 = X ^DD(50.9005,100,9.2) S Y(50.9005,100,102)=$C(59)_$S($D(^DD(53,6,0)):$P(^(0),U,3),1:""),Y(50.9005,100,101)=$S($D(^DIC(53,D0,0)):^(0),1:"")` ALGORITHM: `.01:6` DESCRIPTION: `Contains Amis group data.`