Sub-Field: 552.61

Parent File	Name	Number	Package
552.51	DATE PRESCRIPTION FILLED	552.61	CMOP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DATE PRESCRIPTION FILLED	0;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 13, 1994` HELP-PROMPT: `Enter the date the prescription was filled/refilled.` DESCRIPTION: `This field contains the date the prescriptions were filled/refilled.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `552.61^B` `1)= S ^PSX(552.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PSX(552.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `552.5^AD` `1)= S ^PSX(552.5,"AD",$E(X,1,30),DA(2),DA(1),DA)=""` `2)= K ^PSX(552.5,"AD",$E(X,1,30),DA(2),DA(1),DA)` `This cross reference lists the Date Prescription Filled, Facility IEN, Division IEN, then Date IEN. It is used to purge the CMOP Cost Stats file for a specified date range.`
1	DRUG ID#	1;0	Multiple #552.611	552.611 DESCRIPTION: `This sub-file contains drug data for the prescriptions filled/refilled.`

DATE PRESCRIPTION FILLED

0;1

DATE

INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 13, 1994
HELP-PROMPT: Enter the date the prescription was filled/refilled.
DESCRIPTION:
This field contains the date the prescriptions were filled/refilled.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 552.61^B
1)= S ^PSX(552.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PSX(552.5,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 552.5^AD
1)= S ^PSX(552.5,"AD",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^PSX(552.5,"AD",$E(X,1,30),DA(2),DA(1),DA)
This cross reference lists the Date Prescription Filled, Facility IEN, Division IEN, then Date IEN. It is used to purge the CMOP Cost Stats file for a specified date range.

DRUG ID#

1;0

Multiple #552.611

DESCRIPTION:
This sub-file contains drug data for the prescriptions filled/refilled.