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

Package: Outpatient Pharmacy

DRUG COST(#50.9)-->50.9006-->50.9007

Sub-Field: 50.9007

Information

Parent File	Name	Number	Package
50.9006	DRUG DATA	50.9007	Outpatient Pharmacy

Details

Field #	Name	Loc	Type	Details
.01	DRUG	0;1	POINTER TO DRUG FILE (#50)	DRUG(#50) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `FEB 29, 1984` DESCRIPTION: `This field is used to indicate the drug dispensed within division sorted by patient status.` `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` LAST EDITED: `FEB 29, 1984` 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` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999` DESCRIPTION: `This field is used to indicate the number of refills sorted by patient status.` `UNEDITABLE`
3.5	TOTAL FILLS		COMPUTED	MUMPS CODE: `S Y(50.9007,3.5,1)=$S($D(^PSCST(D0,"V",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9007,3.5,1),U,2)+$P(Y(50.9007,3.5,1),U,3) S X=$J(X,0,0)` ALGORITHM: `# ORG FILLS+# REFILLS (ALWAYS 0 DECIMAL DIGITS)` DESCRIPTION: `This field is used to indicate the total number of fills.`
4	TOTAL COST	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 999999` DESCRIPTION: `This field is used to indicate the total cost of medication dispensed within division sorted by patient status.` `UNEDITABLE`
4.5	AVE COST/FILL		COMPUTED	MUMPS CODE: `X $P(^DD(50.9007,3.5,0),U,5,99) S Y(50.9007,4.5,2)=X S Y(50.9007,4.5,1)=$S($D(^PSCST(D0,"V",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9007,4.5,1),U,4),X=$S(Y(50.9007,4.5,2):X/Y(50.9007,4.5,2),1:"*****") S X=$J(X,0,2)` ALGORITHM: `TOTAL COST/TOTAL FILLS (ALWAYS 2 DECIMAL DIGITS)` DESCRIPTION: `This field is used to indicate the average cost per fill within division sorted by patient status.` SUM: `S X=S("50.9007^4"),X=$S(S("50.9007^3.5"):X/S("50.9007^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` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999` DESCRIPTION: `This field is used to indicate the total quantity dispensed within division sorted by patient status.` `UNEDITABLE`
5.5	AVE QTY DISPENSED		COMPUTED	MUMPS CODE: `X $P(^DD(50.9007,3.5,0),U,5,99) S Y(50.9007,5.5,2)=X S Y(50.9007,5.5,1)=$S($D(^PSCST(D0,"V",D1,"D",D2,0)):^(0),1:"") S X=$P(Y(50.9007,5.5,1),U,5),X=$S(Y(50.9007,5.5,2):X/Y(50.9007,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 indicate the average quantity dispensed within division sorted by patient status.` SUM: `S X=S("50.9007^5"),X=$S(S("50.9007^3.5"):X/S("50.9007^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` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999` DESCRIPTION: `This field is used to indicate the number of prescriptions dispensed by mail sorted by patient status.` `UNEDITABLE`
7	WINDOWS	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 29, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999` DESCRIPTION: `This field is used to indicate the number of prescriptions dispensed by window wthin division sorted by patient status.` `UNEDITABLE`