Print Page as PDF
DBIA4545 ICR (4545)

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
DBIC APPROVAL STATUS APPROVED
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 Active
DURATION Till Otherwise Agreed
ID PSN50P68
COMPONENT/ENTRY POINT
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)= ""
DATE ACTIVATED 2025/03/28