Print Page as PDF
DBIA4533 ICR (4533)

DBIA4533    ICR (4533)

Name Value
NUMBER 4533
IA # 4533
DATE CREATED 2004/12/14
CUSTODIAL PACKAGE PHARMACY DATA MANAGEMENT
CUSTODIAL ISC Birmingham
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSS50
NAME DBIA4533
GENERAL DESCRIPTION
This DBIA is provided by PDM (Pharmacy Data Management)
as an API to the DRUG file (#50). This API is to used in the future by all
packages accessing this file as all the Pharmacy packages are being
re-engineered.
STATUS Active
DURATION Till Otherwise Agreed
ID PSS50
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
DATA(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
Format: D
DATA^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input
PSSFT = GENERIC NAME field (#.01) of the DRUG file
(#50) (a value of "??" may be used) [optional]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
PSSRTOI Input
PSSRTOI = If a "1" is passed in, then only those
entries matched to a Pharmacy Orderable Item will be returned [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returning or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,2)=VA CLASSIFICATION(50,2)

^TMP($J,LIST,PSSIEN,2.1)=PHARMACY ORDERABLE ITEM(50,2.1)^NAME (50.7,.01)^IEN
of the Dosage Form file (#50.606)^NAME(50.606,.01)

^TMP($J,LIST,PSSIEN,3)=DEA SPECIAL HDLG(50,3)

^TMP($J,LIST,PSSIEN,4)=MAXIMUM DOSE PER DAY(50,4)

^TMP($J,LIST,PSSIEN,5)=STANDARD SIG(50,5)

^TMP($J,LIST,PSSIEN,6)=FSN(50,6)

^TMP($J,LIST,PSSIEN,8)=WARNING LABEL(50,8)

^TMP($J,LIST,PSSIEN,12)=ORDER UNIT(50,12)^ABBREVIATION
(51.5,.01)^EXPANSION(51.5,.02)

^TMP($J,LIST,PSSIEN,13)=PRICE PER ORDER UNIT(50,13)

^TMP($J,LIST,PSSIEN,14.5)=DISPENSE UNIT(50,14.5)

^TMP($J,LIST,PSSIEN,15)=DISPENSE UNITS PER ORDER UNIT(50,15)

^TMP($J,LIST,PSSIEN,16)=PRICE PER DISPENSE UNIT(50,16)

^TMP($J,LIST,PSSIEN,20)=NATIONAL DRUG FILE ENTRY (50,20)^NAME(50.6,.01)

^TMP($J,LIST,PSSIEN,21)=VA PRODUCT NAME(50,21)

^TMP($J,LIST,PSSIEN,22)=PSNDF VA PRODUCT NAME ENTRY(50,22)^NAME(50.68,.01)

^TMP($J,LIST,PSSIEN,25)=NATIONAL DRUG
CLASS(50,25)^CODE(50.605,.01)^CLASSIFICATION (50.605,1)

^TMP($J,LIST,PSSIEN,27)=CMOP ID(50,27)

^TMP($J,LIST,PSSIEN,31)=NDC(50,31)

^TMP($J,LIST,PSSIEN,40)=ACTION PROFILE MESSAGE(50,40)

^TMP($J,LIST,PSSIEN,51)=LOCAL NON-FORMULARY(50,51)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,52)=VISN NON-FORMULARY(50,52)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,63)=APPLICATION PACKAGES' USE(50,63)

^TMP($J,LIST,PSSIEN,64)=PRIMARY DRUG(50,64)^NAME(50.3,.01)

^TMP($J,LIST,PSSIEN,100)=INACTIVE DATE (50,100)^External format (ex: SEP
12,1999)

^TMP($J,LIST,PSSIEN,101)=MESSAGE(50,101)

^TMP($J,LIST,PSSIEN,102)=RESTRICTION(50,102)

^TMP($J,LIST,PSSIEN,301)=AR/WS AMIS CATEGORY(50,301)^External format for the
set of codes

^TMP($J,LIST,PSSIEN,302)=AR/WS AMIS CONVERSION NUMBER(50,302)

^TMP($J,LIST,PSSIEN,400)=SERVICE CODE(50,400)

Note: For the SERVICE CODE field (#400)entry returned, it will be
retrieved in one of three ways:
1) If the DRUG entry from the DRUG file (#50) is matched to the
VA PRODUCT file (#50.68), and there is data in the SERVICE CODE
field (#2000) of the VA PRODUCT file (#50.68) of that match, the
SERVICE CODE field will be retrieved from the SERVICE CODE field
(#2000) of the VA PRODUCT file (#50.68).
2) If no SERVICE CODE data is found in the SERVICE CODE field (#2000)
of the VA PRODUCT file (#50.68), and there is data in the SERVICE
CODE field (#400) of the DRUG file (#50), the SERVICE CODE field
will be retrieved from the SERVICE CODE field (#400) of the DRUG
file (#50).
3) If no SERVICE CODE data is found in the SERVICE CODE field (#2000)
of the VA PRODUCT file (#50.68), and in the SERVICE CODE field
(#400) of the DRUG file (#50), the value 600000 will be returned as
the SERVICE CODE.


^TMP($J,LIST,PSSIEN,"FRM",0)= Total entries returning for this sub-file or
-1^NO DATA FOUND

^TMP($J,LIST,PSSIEN,"FRM",PSS(1),2)=FORMULARY ALTERNATIVE (50.065,.01)^GENERIC
NAME (50,.01)

^TMP($J,LIST,PSSIEN,"OLD",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND

^TMP($J,LIST,PSSIEN,"OLD",PSS(1),.01)=OLD NAMES(50.01,.01)

^TMP($J,LIST,PSSIEN,"OLD",PSS(1),.02)=DATE CHANGED (50.01,.02) ^External
format (ex: SEP 12,1999)

^TMP($J,LIST,PSSIEN,"SYN",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND

^TMP($J,LIST,PSSIEN,"SYN",PSS(1),.01)=SYNONYM (50.1,.01)

^TMP($J,LIST,PSSIEN,"SYN",PSS(1),1)=INTENDED USE(50.1,1)^External format for
the set of codes

^TMP($J,LIST,PSSIEN,"SYN",PSS(1),2)=NDC CODE(50.1,2)

^TMP($J,LIST,PSSIEN,"SYN",PSS(1),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)

^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)= ""

Where: PSS(1) is the IEN of the multiple it referenced
LAB(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
D LAB^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input
PSSFT = GENERIC NAME field (#.01) of the DRUG file
(#50) (a value of "??" may be used) [optional]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
PSSRTOI Input
PSSRTOI = If a "1" is passed in, then only those
entries matched to a Pharmacy Orderable Item will be returned [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,17.2)=LAB TEST MONITOR 50,17.2)^NAME 60,.01)

^TMP($J,LIST,PSSIEN,17.3)=MONITOR MAX DAYS(50,17.3)

^TMP($J,LIST,PSSIEN,17.4)=SPECIMEN TYPE(50,17.4)^NAME(61,.01)

^TMP($J,LIST,PSSIEN,17.5)=MONITOR ROUTINE(50,17.5)

^TMP($J,LIST,PSSIEN,17.6)=LAB MONITOR MARK(50,17.6)^External format for the
set of codes

^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
CLOZ(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
Format: D
CLOZ^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input
PSSFT = GENERIC NAME field (#.01) of the DRUG file
(#50) (a value of "??" may be used) [optional]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
PSSRTOI Input
PSSRTOI = If a "1" is passed in, then only those
entries matched to a Pharmacy Orderable Item will be returned [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,"CLOZ",0)=Total entries returned for this sub-file or
-1^NO DATA FOUND

^TMP($J,LIST,PSSIEN,"CLOZ",PSS(1),.01)=LAB TEST
MONITOR(50.02,.01)^NAME(60,.01)

^TMP($J,LIST,PSSIEN,"CLOZ",PSS(1),1)=MONITOR MAX DAYS(50.02,1)

^TMP($J,LIST,PSSIEN,"CLOZ",PSS(1),2)=SPECIMEN TYPE(50.02,2)^NAME(61,.01)

^TMP($J,LIST,PSSIEN,"CLOZ",PSS(1),3)=TYPE OF TEST(50.02,3)^External format for
the set of codes

^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""

Where: PSS(1) is the IEN of entry in the CLOZAPINE LAB TEST multiple
NDC(PSSVAL,PSSFL,PSSPK,LIST)
Format: D NDC^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input
PSSVAL = NDC field (#31) of the DRUG file (#50) (ex:
"053905099101" (without dashes) as being used in the "NDC" cross-reference)
[required]

Note: Use quotes around the PSSVAL value, or use quotes around the value if
setting a variable to this value to be used as the parameter, to prevent
leading zeros from being truncated.
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,"NDC",GENERIC NAME,PSSIEN)=""

Where: PSSIEN is IEN of entry in the DRUG file (#50)

The "NDC" cross-reference in the format of ^PSDRUG("NDC",NDC(50,31), IEN(50))
will be used for the lookup.
ASP(PSSVAL,PSSFL,PSSPK,LIST)
Format: D ASP^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input
PSSVAL = PHARMACY ORDERABLE ITEM field (#2.1) of the
DRUG file (#50) [required]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,"ASP",GENERIC NAME,PSSIEN)=""

Where: PSSIEN is IEN of entry in the DRUG file(#50)

The "ASP" cross-reference in the format of ^PSDRUG("ASP",PHARMACY ORDERABLE
ITEM(50,2.1),IEN(50)) will be used for the lookup.
AND(PSSVAL,PSSFL,PSSPK,LIST)
Format: D AND^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input
PSSVAL = NATIONAL DRUG FILE ENTRY field (#20) of the
DRUG file (#50) [required]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
LIST Input
LIST = array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,"AND",GENERIC NAME,PSSIEN)=""

Where: PSSIEN is IEN of entry in the DRUG file(#50)

The "AND" cross-reference in the format of ^PSDRUG("AND",NATIONAL DRUG FILE
ENTRY(50,20),IEN(50)) will be used for the lookup.
VAC(PSSVAL,PSSFL,PSSPK,LIST)
Format: D VAC^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input
PSSVAL = the NATIONAL DRUG CLASS field (#25) of the
DRUG file (#50) [required]
PSSFL Input
PSSFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
PSSPK Input
PSSPK = Returns only those entries containing at
least one of the codes in the APPLICATION PACKAGES' USE (#63) field of the
DRUG file (#50) (ex: PSSPK = "IU" will return all entries for either IV, Unit
Dose, or both IV and Unit Dose) [optional]
LIST Input
LIST = the array defined by the calling application
[required]
~TMP Output
^TMP($J,LIST,0)=Total entries returned or -1^NO DATA
FOUND

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,"VAC",GENERIC NAME,PSSIEN)=""

Note: The "VAC" cross-reference in the format of ^PSDRUG("VAC",NATIONAL DRUG
CLASS(50,25),IEN(50) will be used for the lookup.

Where: PSSIEN is IEN of entry in the DRUG file(#50)
ZERO(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
This API will return information from the DRUG file
(#50), primarily from the zero node.
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
This is the internal entry number from the DRUG file
(#50). [optional]
PSSFT Input
This is the GENERIC NAME field (#.01) from the DRUG
file (#50). A value of "??" may be used for a complete list of entries.
[optional]
PSSFL Input
This parameter represents the inactive date, in
FileMan format.  If no date is passed in, all possible entries will be
returned. If a date is passed in, only entries without an inactive date and
entries with an inactive date later than this date will be returned.
[optional]
PSSPK Input
This parameter represents the APPLICATION PACKAGES'
USE field (#63) of the DRUG file (#50), and the entries returned will be based
on this value.  For example, if "IU" is passed in, then the call will return
only those entries marked for Unit Dose or IV. [optional]
PSSRTOI Input
If a 1 is passed in this parameter, only those
entries matched to a Pharmacy Orderable Item, will be returned. If a 1 is not
passed in, all possible entries will be returned.
LIST Input
This will be the name subscript in the return ^TMP
global. [required]
~TMP Output
^TMP($J,LIST,0)= Total entries returned. If there are
no entries being returned, then this will be equal to "-1^NO DATA FOUND".

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,2)=VA CLASSIFICATION(50,2)

^TMP($J,LIST,PSSIEN,3)=DEA, SPECIAL HDLG(50,3)

^TMP($J,LIST,PSSIEN,4)=MAXIMUM DOSE PER DAY(50,4)

^TMP($J,LIST,PSSIEN,5)=STANDARD SIG(50,5)

^TMP($J,LIST,PSSIEN,6)=FSN(50,6)

^TMP($J,LIST,PSSIEN,8)=WARNING LABEL(50,8)

^TMP($J,LIST,PSSIEN,51)=LOCAL NON-FORMULARY(50,51)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,52)=VISN NON-FORMULARY(50,52)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,101)=MESSAGE(50,101)

^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
ARWS(PSSIEN,PSSFT,LIST)
This API will return information from the DRUG file
(#50).
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
This is the internal entry number from the DRUG file
(#50). [optional]
PSSFT Input
This is the GENERIC NAME field (#.01) from the DRUG
file (#50). A value of "??" may be used for a complete list of entries.
[optional]
LIST Input
This will be the name subscript in the return ^TMP
global. [required]
~TMP Output
^TMP($J,LIST,0)= Total entries returned. If there are
no entries being returned, then this will be equal to "-1^NO DATA FOUND".

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)

^TMP($J,LIST,PSSIEN,2)=VA CLASSIFICATION(50,2)

^TMP($J,LIST,PSSIEN,3)=DEA, SPECIAL HDLG(50,3)

^TMP($J,LIST,PSSIEN,12)=ORDER
UNIT(50,12)^ABBREVIATION(51.5,.01)^EXPANSION(51.5,.02)

^TMP($J,LIST,PSSIEN,13)=PRICE PER ORDER UNIT(50,13)

^TMP($J,LIST,PSSIEN,14.5)=DISPENSE UNIT(50,14.5)

^TMP($J,LIST,PSSIEN,15)=DISPENSE UNITS PER ORDER UNIT(50,15)

^TMP($J,LIST,PSSIEN,16)=PRICE PER DISPENSE UNIT(50,16)

^TMP($J,LIST,PSSIEN,20)=NATIONAL DRUG FILE ENTRY(50,20)^NAME(50.6,.01)

^TMP($J,LIST,PSSIEN,21)=VA PRODUCT NAME(50,12)

^TMP($J,LIST,PSSIEN,22)=PSNDF VA PRODUCT NAME ENTRY(50,22)^NAME(50.68,.01)

^TMP($J,LIST,PSSIEN,23)=PACKAGE SIZE(50,23)^NAME(50.609,.01)

^TMP($J,LIST,PSSIEN,25)=NATIONAL DRUG
CLASS(50.25)^CODE(50.605,.01)^CLASSIFICATION(50.605,1)

^TMP($J,LIST,PSSIEN,31)=NDC(50,31)

^TMP($J,LIST,PSSIEN,51)=LOCAL NON-FORMULARY(50,51)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,52)=VISN NON-FORMULARY(50,52)^External format for the set
of codes

^TMP($J,LIST,PSSIEN,301)=AR/WS AMIS CATEGORY(50,301)^External format for the
set of codes

^TMP($J,LIST,PSSIEN,302)=AR/WS AMIS CONVERSION NUMBER(50,302)

^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
NDF(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
This API returns National Drug Information from the
DRUG file (#50).
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input
This is the internal entry number from the DRUG file
(#50). [optional]
PSSFT Input
This is the GENERIC NAME field (#.01) from the DRUG
file (#50). A value of "??" may be used for a complete list of entries.
[optional]
PSSFL Input
This parameter represents the inactive date, in
FileMan format.  If no date is passed in, all possible entries will be
returned. If a date is passed in, only entries without an inactive date and
entries with an inactive date later than this date will be returned.
[optional]
PSSPK Input
This parameter represents the APPLICATION PACKAGES'
USE field (#63) of the DRUG file (#50), and the entries returned will be based
on this value.  For example, if "IU" is passed in, then the call will return
only those entries marked for Unit Dose or IV. [optional]
PSSRTOI Input
If a 1 is passed in this parameter, only those
entries matched to a Pharmacy Orderable Item, will be returned. If a 1 is not
passed in, all possible entries will be returned.
LIST Input
This will be the name subscript in the return ^TMP
global. [required]
~TMP Output
^TMP($J,LIST,0)= Total entries returned. If there are
no entries being returned, then this will be equal to "-1^NO DATA FOUND".

^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01) ^TMP($J,LIST,PSSIEN,20)=NATIONAL
DRUG FILE ENTRY(50,20)^NAME (50.6,.01) ^TMP($J,LIST,PSSIEN,21)=VA PRODUCT
NAME(50,21) ^TMP($J,LIST,PSSIEN,22)=PSNDF VA PRODUCT NAME
ENTRY(50,22)^NAME(50.68,.01) ^TMP($J,LIST,PSSIEN,23)=PACKAGE
SIZE(50,23)^NAME(50.609,.01) ^TMP($J,LIST,PSSIEN,24)=PACKAGE
TYPE(50,24)^NAME(50.608,.01) ^TMP($J,LIST,PSSIEN,25)=NATIONAL DRUG
CLASS(50,25)^CODE(50.605,.01)^CLASSIFICATION(50.605,1)
^TMP($J,LIST,PSSIEN,27)=CMOP ID(50,27) ^TMP($J,LIST,PSSIEN,29)=NATIONAL
FORMULARY INDICATOR (50,29)^External format for the set of codes
^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""