Global: ^ECX(728.506

FileMan FileNo	FileMan Filename	Package
728.506	DSS DRUG PRODUCT CODE	DSS Extracts

Description

This file holds information needed to determine the DSS drug product code for any entry in the local DRUG file (#50) which has been matched to an entry in the NATIONAL DRUG file (#50.6). The determining factors are VA classification, route of administration, and, in some cases, specific VA product name. These factors have been determined by the DSS pharmaceutical task force based, in part, on information provided by the National Drug File (NDF) task force. Use of this file depends on fields in the local DRUG file (#50) which were set by the matching process in the National Drug File package as specified by the NDF task force. For these reasons, it is imperative that neither the data nor the data dictionary for this file be modified at the local VAMC. As modifications are required, they will be sent from the developers as directed by the involved task force members.

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DSS DRUG PRODUCT CODE	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `MAR 14, 1995` HELP-PROMPT: `Type a Number between 1 and 500, 0 Decimal Digits` DESCRIPTION: `This is the product code as determined by the DSS pharmaceutical task force. The DESCRIPTION field (#1) indicates how this code is determined by a combination of VA drug classification, route of administration, and (in` `some cases) by specific generic name of a particular item.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `728.506^B` `1)= S ^ECX(728.506,"B",$E(X,1,30),DA)=""` `2)= K ^ECX(728.506,"B",$E(X,1,30),DA)`
1	DESCRIPTION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<3) X` LAST EDITED: `MAY 14, 1990` HELP-PROMPT: `Answer must be 3-200 characters in length.` DESCRIPTION: `VA classification description.` `UNEDITABLE`
2	IDENTIFIER	1;0	Multiple #728.5061	728.5061 DESCRIPTION: `Drug identifier composed of two numbers, separated by the letter "A", that represents drug and dose form from the NATIONAL DRUG file (#50.6).` `WRITE AUTHORITY: ^`

DSS DRUG PRODUCT CODE

0;1

NUMBER

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:+X'=X!(X>500)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
LAST EDITED: MAR 14, 1995
HELP-PROMPT: Type a Number between 1 and 500, 0 Decimal Digits
DESCRIPTION: This is the product code as determined by the DSS pharmaceutical task force. The DESCRIPTION field (#1) indicates how this code is determined by a combination of VA drug classification, route of administration, and (in
some cases) by specific generic name of a particular item.
WRITE AUTHORITY: ^
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 728.506^B
1)= S ^ECX(728.506,"B",$E(X,1,30),DA)=""
2)= K ^ECX(728.506,"B",$E(X,1,30),DA)

DESCRIPTION

0;2

FREE TEXT

IDENTIFIER

1;0

Multiple #728.5061

DESCRIPTION:
Drug identifier composed of two numbers, separated by the letter "A", that represents drug and dose form from the NATIONAL DRUG file (#50.6).
WRITE AUTHORITY: ^