Sub-Field: 728.5061

Parent File	Name	Number	Package
DSS DRUG PRODUCT CODE(#728.506)	IDENTIFIER	728.5061	DSS Extracts

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	IDENTIFIER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3)!'(X?1.N1"A"1.N) X` LAST EDITED: `MAY 14, 1990` HELP-PROMPT: `Answer must be 3-25 characters in length.` DESCRIPTION: `Drug identifier composed of two numbers, separated by the letter "A", that represent drug and dose form from the NATIONAL DRUG file (#50.6).` `WRITE AUTHORITY: ^` `UNEDITABLE` CROSS-REFERENCE: `728.5061^B` `1)= S ^ECX(728.506,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^ECX(728.506,DA(1),1,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `728.506^AP^MUMPS` `1)= S ^ECX(728.506,"AP",X,DA(1))=""` `2)= K ^ECX(728.506,"AP",X,DA(1))` `3)= DO NOT DELETE.` `This cross reference is used to find the DSS drug product code for a drug selected out of the DRUG file (#50) based on information which links that drug to the NATIONAL DRUG file (#50.6) and defines the elements which` `were used to define drug product codes.`

IDENTIFIER

0;1

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3)!'(X?1.N1"A"1.N) X
LAST EDITED: MAY 14, 1990
HELP-PROMPT: Answer must be 3-25 characters in length.
DESCRIPTION:
Drug identifier composed of two numbers, separated by the letter "A", that represent drug and dose form from the NATIONAL DRUG file (#50.6).
WRITE AUTHORITY: ^
UNEDITABLE
CROSS-REFERENCE: 728.5061^B
1)= S ^ECX(728.506,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^ECX(728.506,DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 728.506^AP^MUMPS
1)= S ^ECX(728.506,"AP",X,DA(1))=""
2)= K ^ECX(728.506,"AP",X,DA(1))
3)= DO NOT DELETE.
This cross reference is used to find the DSS drug product code for a drug selected out of the DRUG file (#50) based on information which links that drug to the NATIONAL DRUG file (#50.6) and defines the elements which
were used to define drug product codes.