Print Page as PDF
DBIA4483 ICR (4483)

DBIA4483    ICR (4483)

Name Value
NUMBER 4483
IA # 4483
DATE CREATED 2005/09/15
CUSTODIAL PACKAGE PHARMACY DATA MANAGEMENT
CUSTODIAL ISC Birmingham
USAGE Supported
TYPE Routine
ROUTINE PSS50
NAME DBIA4483
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 Retired
DURATION Till Otherwise Agreed
ID PSS50
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
DATA(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
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 of the DRUG file (#50.01). 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,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)
^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,2)^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 NAME(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
INV(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
INV^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  A value of  "??" may be used)
[optional]
PSSPK Input

PSSPK = Returns the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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]
PSSRTOI Input

PSSRTOI = If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,11)=REORDER LEVEL(50,11)
^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)=NORMAL AMOUNT TO ORDER (50,14)
^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,17)=SOURCE OF SUPPLY(50,17)
^TMP($J,LIST,PSSIEN,17.1)=EXPIRATION DATE(50,17.1)
^TMP($J,LIST,PSSIEN,50)=CURRENT INVENTORY (50,50)
^TMP($J,LIST,PSSIEN,"IFC",0)= Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"IFC",PSS(1),.01)=ITEM NUMBER (50.0441,.01)
^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),400)=VSN(50.1,400)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),401)=ORDER UNIT (50.1,401)^
ABBREVIATION(51.5,.01)^EXPANSION(51.5,.02)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),402)=PRICE PER ORDER UNIT (50.1,402)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),404)=PRICE PER DISPENSE UNIT (50.1,404)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),405)=VENDOR(50.1,405)
^TMP($J,LIST, "B",GENERIC NAME,PSSIEN)= ""
Where:
PSS(1) is the IEN of the multiple it referenced
CMOP(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
CMOP^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 of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,28)=OP EXTERNAL DISPENSE(50,28)^ External format for the
set of codes
^TMP($J,LIST,PSSIEN,213)=CMOP DISPENSE(50,213)^External format for the set of
codes
^TMP($J,LIST,PSSIEN,215)=QUANTITY DISPENSE MESSAGE (50,215)
^TMP($J,LIST,PSSIEN,"AL",0)= Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"AL",PSS(1),.01)=ACTIVITY LOG(50.0214,.01)^External
format (ex: SEP 12,1999)
^TMP($J,LIST,PSSIEN,"AL",PSS(1),1)=REASON(50.0214,1)^External format for the
set of codes
^TMP($J,LIST,PSSIEN ,"AL",PSS(1),2)=INITIATOR OF ACTIVITY (50.0214,2) ^
NAME(200,.01)
^TMP($J,LIST,PSSIEN, "AL",PSS(1),3)=FIELD EDITED(50.0214,3)
^TMP($J,LIST,PSSIEN ,"AL",PSS(1),4)=NEW VALUE(50.0214,4)
^TMP($J,LIST,PSSIEN, "AL",PSS(1),5)=NDF UPDATE(50.0214,5)
^TMP($J,LIST, "B",GENERIC NAME,PSSIEN)= ""
Where:
PSS(1) is the IEN of entry in the ACTIVITY LOG multiple
DRG(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
DRG^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 of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI - If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,62.01)=DAY (nD) or DOSE (nL) LIMIT(50,62.01)
^TMP($J,LIST,PSSIEN,62.02)=UNIT DOSE MED ROUTE (50,62.02)^NAME(51.2,.01)
^TMP($J,LIST,PSSIEN,62.03)=UNIT DOSE SCHEDULE TYPE(50,62.03)^External format
for the set of codes
^TMP($J,LIST,PSSIEN,62.04)=UNIT DOSE SCHEDULE(50,62.04)
^TMP($J,LIST,PSSIEN,62.05)=CORRESPONDING OUTPATIENT DRUG (50,62.05)^GENERIC
NAME(50,.01)
^TMP($J,LIST,PSSIEN,905)=CORRESPONDING INPATIENT DRUG (50,905) ^GENERIC
NAME(50,.01)
^TMP($J,LIST, "B",GENERIC NAME,PSSIEN)= ""
ATC(PSSIEN,PSSFT,PSSFL,PSSPK,LIST)

Format:
ATC^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
LIST Input

LIST = the array defined by the calling party [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,212.2)=ATC MNEMONIC(50,212.2)
^TMP($J,LIST,PSSIEN,"ATC",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"ATC",PSS(1),.01)=WARD GROUP FOR ATC CANISTER
(50.0212,.01)^ NAME(57.5,.01)
^TMP($J,LIST,PSSIEN,"ATC",PSS(1),1)=ATC CANISTER (50.0212,1)
^TMP($J,LIST,"C",GENERIC NAME,PSSIEN)=""
Where:
PSS(1) is the IEN of entry in the ATC CANISTER multiple
LAB(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
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 of the DRUG file (#50.01).  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]
PSSRTOI Input

PSSRTOI - If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
PSSPK Input

PSSPK = Returns the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
LIST Input

LIST = the array defined by the calling party [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,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:
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 of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI - If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [required]
~TMP Output

^TMP($J,LIST,0)=Total entries returning or -1^DATA NOT FOUND
^TMP($J,LIST,PSSIEN,.01)=GENERIC NAME(50,.01)
^TMP($J,LIST,PSSIEN,"CLOZ",0)=Total entries returning 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
DOSE(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
DOSE^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI - If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,901)=STRENGTH (50,901)
^TMP($J,LIST,PSSIEN,902)=UNIT(50,902)^NAME(50.607,.01)
^TMP($J,LIST,PSSIEN,"LOC",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"LOC",PSS(1),.01)=LOCAL POSSIBLE DOSAGE (50.0904,.01)
^TMP($J,LIST,PSSIEN,"LOC",PSS(1),1)=PACKAGE(50.0904,1)^External format for
the set of codes
^TMP($J,LIST,PSSIEN,"LOC",PSS(1),2)=BCMA UNITS PER DOSE (50.0904,2)
^TMP($J,LIST,PSSIEN,"LOC",PSS(1),3)=OTHER LANGUAGE DOSAGE NAME(50.0904,3)
^TMP($J,LIST,PSSIEN,"POS",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"POS",PSS(1),.01)=DISPENSE UNITS PER DOSE(50.0903,.01)
^TMP($J,LIST,PSSIEN,"POS",PSS(1),1)=DOSE(50.0903,1)
^TMP($J,LIST,PSSIEN,"POS",PSS(1),2)=PACKAGE(50.0903,2)^External format
^TMP($J,LIST,PSSIEN,"POS",PSS(1),3)=BCMA UNITS PER DOSE(50.0903,3)
^TMP($J,LIST, "B",GENERIC NAME,PSSIEN)=""
Where:
PSS(1) is the IEN of the multiple it referenced
NDF(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
NDF^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI - If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
LIST Input

LIST = the array defined by the calling party [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,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)=""
WS(PSSIEN,PSSFT,PSSFL,PSSPK, PSSRTOI,LIST)

Format:
WS^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If passed in a 1, returns only those entries matched to a Pharmacy
Orderable Item [optional]
LIST Input

LIST = the array defined by the calling party [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,300)=INPATIENT PHARMACY LOCATION (50,300)
^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)=""
ARWS(PSSIEN,PSSFT,LIST)

Format:
ARWS^PSS50(PSSIEN,PSSFT,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field (#.01) of the DRUG file (#50) (a value of  "??" may be
used) [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,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,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,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)=""
CSYN(PSSIEN,PSSVAL,LIST)

Format:
CSYN^PSS50(PSSIEN,PSSVAL,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSVAL Input

PSSVAL = SYNONYM subfield (#.01) of the SYNONYM multiple of the DRUG file
(#50) [required]
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,"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),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)
^TMP($J,LIST,"C",SYNONYM,PSSIEN)=""
Definition:
PSS(1) is the IEN of the SYNONYM multiple
MRTN(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
MRTN^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If passed in a 1, returns only those entries matched to a Pharmacy
Orderable Item [optional]
LIST Input

LIST = the array defined by the calling party [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,17.2)=LAB TEST MONITOR(50,17.2)^NAME (60,.01)
^TMP($J,LIST,PSSIEN,17.5)=MONITOR ROUTINE(50,17.5)
^TMP($J,LIST,PSSIEN,31)=NDC(50,31)
^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
DSPUNT(PSSIEN,PSSIEN2,LIST)

Format:
DSPUNT^PSS50(PSSIEN,PSSIEN2,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSIEN2 Input

PSSIEN2 = IEN of entry in SYNONYM multiple of the DRUG file (#50) [required]
LIST Input

LIST = the array defined by the calling party [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,"SYN",0)= Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,PSS(1),.01)=SYNONYM(50.1,.01)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)
^TMP($J,LIST",C",SYNONYM,PSSIEN)=""
Definition:
PSS(1) is the IEN of the SYNONYM multiple
ZERO(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
ZERO^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01).  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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If passed in a 1, return only those entries matched to a Pharmacy
Orderable Item [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,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)= ""
$$NOCMOP(PSSIEN,PSSFL)

Format:
S X=$$NOCMOP^PSS50(PSSIEN,PSSFL)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN from the DRUG file (#50) [optional]
PSSFL Input

PSSFL = verifies if ^PSDRUG(D0,3) node existed and the CMOP DISPENSE field
(#213) = 0 if PSSFL = 1

PSSFL=0 or null will check if ^PSDRUG(D0,3) node is not existed
$$NOCMOP Output

X
Where X is:
0 (zero) conditions are not met
1 (one) condition is met
MSG(LIST)

Format:
MSG^PSS50(LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
LIST Input

LIST = array defined by the calling application
~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,100)=INACTIVE DATE(50,100)^External format (ex: SEP
12,1999)
^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
IEN(LIST)

Format:
IEN^PSS50(LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
LIST Input

LIST = array defined by the calling application
~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,"AIU",GENERIC NAME,PSSIEN)=""
^TMP($J,LIST,"IU",GENERIC NAME,PSSIEN)=""
B(PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)

Format:
B^PSS50(PSSFT,PSSFL,PSSPK,PSSRTOI,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSFT Input

PSSFT = NAME field of the DRUG file (#50.01) 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If passed in a 1, return only those entries matched to a Pharmacy
Orderable Item [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, "B",GENERIC NAME,PSSIEN)= ""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
$$SKB(PSSIEN,PSSFL)

Format:
S X=$$SKB^PSS50(PSSIEN,PSSFL)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSFL Input

PSSFL = Either "S" (set) or "K"  (kill) action [required]
$$SKB Output

X
Where X is:
0 (zero) action unsuccessful
1 (one) action is accomplished
VAC(PSSVAL,PSSFL,PSSPK,LIST)

Format:
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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
LIST Input

LIST - the 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, "VAC",GENERIC NAME,PSSIEN)= ""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
NDC(PSSVAL,PSSFL,PSSPK,LIST)

Format:
NDC^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = NDC field (#31) 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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, "NDC",GENERIC NAME,PSSIEN)= ""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
ASP(PSSVAL,PSSFL,PSSPK,LIST)

Format:
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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"ASP",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
AND(PSSVAL,PSSFL,PSSPK,LIST)

Format:
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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"AND",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
AB(PSSVAL,PSSFL,PSSPK,LIST)

Format:
AB^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = ITEM NUMBER sub-field (#.01) of the IFCAP ITEM NUMBER multiple in
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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"IFC",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"IFC",PSS(1),.01)=ITEM NUMBER(50.0441,.01)
^TMP($J,LIST,"AB",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
PSS(1) is the IEN of entry in the IFCAP ITEM NUMBER multiple
AP(PSSVAL,PSSFL,PSSPK,LIST)

Format:
AP^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = PRIMARY DRUG field (#64) 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"AP",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
AOC(PSSVAL,PSSFL,PSSPK,LIST)

Format:
AOC^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = VA CLASSIFICATION field (#2) 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"AOC",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
C(PSSVAL,PSSFL,PSSPK,LIST)

Format:
C^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = SYNONYM sub-field (#.01) of the SYNONYM multiple of the DRUG file
(#50).  The synonym needs to be enclosed in quotes otherwise the leading
zeroes get stripped off by the system [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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,PSS(1),.01)=SYNONYM(50.1,.01)
^TMP($J,LIST,PSSIEN,PSS(1),1)=INTENDED USE(50.1,1) ^External format for the
set of codes
^TMP($J,LIST,PSSIEN,PSS(1),2)=NDC CODE(50.1,2)
^TMP($J,LIST,PSSIEN,PSS(1),400)=VSN(50.1,400)
^TMP($J,LIST,PSSIEN,PSS(1),401)=ORDER UNIT(50.1,401)^ ABBREVIATION(51.5,.01)
^TMP($J,LIST,PSSIEN,PSS(1),402)=PRICE PER ORDER UNIT (50.1,402)
^TMP($J,LIST,PSSIEN,PSS(1),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)
^TMP($J,LIST,PSSIEN,PSS(1),404)=PRICE PER DISPENSE UNIT (50.1,404)
^TMP($J,LIST,PSSIEN,PSS(1),405)=VENDOR(50.1,405)
^TMP($J,LIST,"C",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
PSS(1) is the IEN of entry in the SYNONYM multiple
AVSN(PSSVAL,PSSFL,PSSPK,LIST)

Format:
AVSN^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = VSN sub-field (#400) of the SYNONYM multiple 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional] Dose) [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,"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),400)=VSN(50.1,400)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),,401)=ORDER UNIT (50.1,401)^
ABBREVIATION(51.5,.01)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),402)=PRICE PER ORDER UNIT (50.1,402)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),403)=DISPENSE UNITS PER ORDER UNIT(50.1,403)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),404)=PRICE PER DISPENSE UNIT (50.1,404)
^TMP($J,LIST,PSSIEN,"SYN",PSS(1),405)=VENDOR(50.1,405)
^TMP($J,LIST,"AVSN",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
PSS(1) is the IEN of entry in the SYNONYM multiple
$$AQ(PSSIEN)

Format:
S X=$$AQ^PSS50(PSSIEN)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of the DRUG in the DRUG file (#50) [required]
$$AQ Output

X
Where X is:
0 (zero) = IEN does not exist in the cross-reference
1 (one) = IEN exists in the cross-reference
$$SKAQ(PSSIEN,PSSFL)

Format:
S X=$$SKAQ^PSS50(PSSIEN,PSSFL)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSFL Input

PSSFL = Either "S" (set) or "K"  (kill) action [required]
$$SKAQ Output

X
Where X is:
0 (zero) = action unsuccessful
1 (one)  = action accomplished
$$SKAQ1(PSSIEN)

Format:
S X=$$SKAQ1^PSS50(PSSIEN)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
$$SKAQ1 Output

X
Where X is:
0 (zero) = action unsuccessful
1 (one)  = action accomplished
AQ1(PSSVAL,PSSFL,PSSPK,LIST)

Format:
AQ1^PSS50(PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSVAL Input

PSSVAL = CMOP ID field (#27) 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"AQ1",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
OLDNM(PSSIEN,PSSVAL,PSSFL,PSSPK,LIST)

Format:
OLDNM^PSS50(PSSIEN,PSSVAL,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [optional]
PSSVAL Input

PSSVAL = 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"OLD",0)=Total entries returning for this sub-file or
-1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,"OLD",PSS(1),.01)=OLD NAME(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,"B",GENERIC NAME,PSSIEN)=""
Where:
PSS(1) is the IEN of entry in the OLD NAME multiple
$$ADDOLDNM(PSSIEN,PSSIEN2,PSSONM,PSSDT)

Format:
S X=$$ADDOLDNM^PSS50(PSSIEN,PSSIEN2,PSSONM,PSSDT)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [optional]
PSSIEN2 Input

PSSIEN2 = IEN of entry in OLD NAME multiple of the DRUG file (#50) [required]
PSSONM Input

PSSONM = OLD NAME field (#.01) of the OLD NAME multiple of the DRUG file
(#50) [optional]
PSSDT Input

PSSDT = DATE CHANGED field (#2) of the OLD NAME multiple of the DRUG file
(#50) [optional]
$$ADDOLDNM Output

X
Where X is:
0 (zero) = entry was unsuccessful
1 (one) = entry was added
A526(PSSIEN,LIST)

Format:
A526^PSS50(PSSIEN,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
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,PSSIEN2,.01)=PRINT NAME (52.6,.01)
^TMP($J,LIST,"A526",PRINT NAME,PSSIEN2)=""
Where:
PSSIEN2 is IEN of entry in IV ADDITIVE file (#52.6)
A527(PSSIEN,LIST)

Format:
A527^PSS50(PSSIEN,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
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,PSSIEN2,.01)=PRINT NAME (52.7,.01)
^TMP($J,LIST,"A527",PRINT NAME,PSSIEN2)=""
Where:
PSSIEN2 is IEN of entry in IV SOLUTION file (#52.7)
AIU(PSSFT,PSSPK,PSSFL,LIST)

Format:
AIU^PSS50(PSSFT,PSSPK,PSSFL,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSFT Input

PSSFT = NAME field (#.01) of the DRUG file (#50) [required]
PSSPK Input

PSSPK = Returns the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSFL Input

PSSPK = Returns the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [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,"AIU",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
IU(PSSFL,LIST)

Format:
IU^PSS50(PSSFL,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
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]
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,"IU",GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
$$SKAIU(PSSIEN,PSSFL)

Format:
S X=$$SKAIU^PSS50(PSSIEN,PSSFL)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSFL Input

PSSFL = Either "S" (set) or "K" (kill) action [required] Note: The
APPLICATION PACKAGES' USE (50,63) must be updated prior to calling this API.
$$SKAIU Output

X
Where X is:
0 (zero) = action unsuccessful
1 (one)  = action accomplished
$$SKIU(PSSIEN)

Format:
S X=$$SKIU^PSS50(PSSIEN)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required] Note: The APPLICATION
PACKAGES' USE (50,63) must be updated prior to calling this API.
$$SKIU Output

X
Where X is:
0 (zero) = action unsuccessful
1 (one)  = action accomplished
['LOOKUP(PSSFT,PSSFL,PSSPK,PSSRTOI,PSSIFCAP,PSSCMOP,PSSD,LI', 'ST)']

Format:
LOOKUP^PSS50(PSSFT,PSSFL,PSSPK,PSSRTOI,PSSIFCAP,PSSCMOP,PSSD,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSFT Input

PSSFT = A look up value that could be the NAME field (#.01), IEN, VA PRODUCT
NAME (#21), NATIONAL DRUG CLASS (#25), or SYNONYM (#.01) multiple 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
PSSRTOI Input

PSSRTOI = If "1" returns only those entries matched to a Pharmacy Orderable
Item [optional]
PSSIFCAP Input

PSSIFCAP = If this flag is passed in with a 1, the API returns those drug
entries that do not have the IFCAP ITEM NUMBER (#441) multiple existed in the
DRUG file (#50) [optional]
PSSCMOP Input

PSSCMOP = If this flag is passed in with a 1, the API returns those drug
entries that do not have data in the CMOP ID (#27) of the DRUG file (#50)
[optional]
PSSD Input

PSSD = Multiple index lookup is performed if passed in (ex: "B", "C", "VAPN",
"VAC"). Otherwise only the "B" cross-reference is used [optional]
LIST Input

LIST = array defined by the calling application
~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,25)=NATIONAL DRUG CLASS(50,25)^CODE (50.605,.01)^
CLASSIFICATION(50.605,1))
^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,PSSDX,GENERIC NAME,PSSIEN)=""
Where:
PSSIEN is IEN of entry in the DRUG file (#50)
PSSDX is value passed in the PSSD. If multiple values are passed in, or the
back tick IEN lookup is used, "B" will be used.
FRMALT(PSSIEN,PSSFT,PSSFL,PSSPK,LIST)

Format:
FRMALT^PSS50(PSSIEN,PSSFT,PSSFL,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in DRUG file (#50) [required]
PSSFT Input

PSSFT = 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 the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
LIST Input

LIST = array defined by the calling application
~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,25)=NATIONAL DRUG CLASS(50,25)
^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,"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,2)^GENERIC
NAME (50,.01)
^TMP($J,LIST,"B",GENERIC NAME,PSSIEN)=""
Where:
PSS(1) is the IEN of the FORMULARY ALTERNATIVE multiple
LABEL(PSSIEN,LIST)

Format:
LABEL^PSS50(PSSIEN,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in the DRUG file (#50) [required]
LIST Input

LIST = array defined by the calling application
~TMP Output

^TMP($J,LIST,0)=Total entries returning or -1^NO DATA FOUND
^TMP($J,LIST,PSSIEN,.01)=NAME(50,.01)
^TMP($J,LIST,PSSIEN,25)= NATIONAL DRUG CLASS(50,25)^CODE (50.605,.01)^
CLASSIFICATION(50.605,1)
^TMP($J,LIST,PSSIEN,51)=LOCAL NON FORMULARY(50,51)^ External format for the
set of codes
^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, "B",GENERIC NAME,PSSIEN)= ""
LIST(PSSFT,PSSFL,PSSD,PSSPK,LIST)

Format:
LIST^PSS50(PSSFT,PSSFL,PSSD,PSSPK,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSFT Input

PSSFT = 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]
PSSD Input

PSSD = the index used in the lookup, (ex: "B","C"-cross reference)
PSSPK Input

PSSPK = Returns the APPLICATION PACAKGES USE (ex: "IU" returns the
APPLICATION PACKAGES' USE for IV and Unit Dose [optional]
LIST Input

LIST = array defined by the call application [required] Note: If PSSFT =
"??", the "B" cross reference will be used and PSSD is ignored
~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.1)=PHARMACY ORDERABLE ITEM (50,2.1)^NAME(50.7,.01) ^IEN
of the Dosage Form file (#50.606)
^TMP($J,LIST,PSSIEN,100)=INACTIVE DATE (50,100)^External format (ex: SEP
12,1999)
^TMP($J,LIST, PSSDX,GENERIC NAME,PSSIEN)= ""
Where:
PSSDX is value passed in the PSSD.  If multiple values are passed in, "B"
will be used.
$$EDTIFCAP(PSSIEN,PSSVAL)

Format:
S X=$$EDTIFCAP^PSS50(PSSIEN,PSSVAL)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSIEN Input

PSSIEN = IEN of entry in the DRUG file (#50) [required]
PSSVAL Input

PSSVAL = the ITEM NUMBER subfield (#.01) of the IFCAP ITEM NUMBER multiple in
the DRUG file (#50) [required]
$$EDTIFCAP Output

X
Where X is:
0 (zero) = action unsuccessful
1 (one) = action accomplished
$$FNAME(PSSFNO,PSSFILE)

Format:
S X=$$FNAME^PSS50(PSSFNO,PSSFILE)
VARIABLES TYPE VARIABLES DESCRIPTION
PSSFNO Input

PSSFNO = Field number [required]
PSSFILE Input

PSSFILE = File number of the sub-files [optional]
$$FNAME Output

X
Where:
X = the field name
NOCMOP