Sub-Field: 50.9007

Parent File	Name	Number	Package
50.9006	DRUG DATA	50.9007	Outpatient Pharmacy

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

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

Customize PDF page

Package: Outpatient Pharmacy

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

Sub-Field: 50.9007

Information

Details