DBIA4545 ICR (4545)

Name

Value

NUMBER

4545

IA #

4545

DATE CREATED

2004/12/14

CUSTODIAL PACKAGE

NATIONAL DRUG FILE

CUSTODIAL ISC

Birmingham

USAGE

Supported

TYPE

Routine

ROUTINE

PSN50P68

NAME

DBIA4545

GENERAL DESCRIPTION

This DBIA is provided by NDF (National Drug File) as an
API to the VA PRODUCT file (#50.68). This API is to used in the future by all
packages accessing this file as all the Pharmacy packages are being
re-engineered.

STATUS

Under Revision

DURATION

Till Otherwise Agreed

PSN50P68

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

DATA(PSNIEN,PSNFT,LIST)

Format: D DATA^PSN50P68(PSNIEN,PSNFT,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSNIEN	Input	PSNIEN = IEN of entry in VA PRODUCT file (#50.68) [optional]
PSNFT	Input	PSNFT = NAME field (#.01) of the VA PRODUCT file (#50.68) (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,PSNIEN,.01)=NAME(50.68,.01) ^TMP($J,LIST,PSNIEN,.05)=VA GENERIC NAME(50.68,.05)^NAME(50.6,.01) ^TMP($J,LIST,PSNIEN,3)=UNITS(50.68,3)^NAME (50.607,.01) ^TMP($J,LIST,PSNIEN,4)=NATIONAL FORMULARY NAME(50.68,4) ^TMP($J,LIST,PSNIEN,11)=GCNSEQNO(50.68,11) ^TMP($J,LIST,PSNIEN,12)=PREVIOUS GCNSEQNO (50.68,12) ^TMP($J,LIST,PSNIEN,13)=NDC LINK TO GCNSEQNO(50.68,13) ^TMP($J,LIST,PSNIEN,19)=CS FEDERAL SCHEDULE(50.68,19)^External format for the set of codes ^TMP(552498364,5068,2887,43,1,.01)="RxNorm^RxNorm" ^TMP(552498364,5068,2887,43,2,.01)="SNOMED^SNOMED" ^TMP($J,LIST,PSNIEN,2000)=SERVICE CODE(50.68,2000) Note: If there is no data in the SERVICE CODE field (#2000) of the VA PRODUCT file (#50.68), the value 600000 will be returned for the SERVICE CODE. ^TMP($J,LIST,"B",NAME,PSNIEN)= ""