Print Page as PDF
DBIA4531 ICR (4531)

DBIA4531    ICR (4531)

Name Value
NUMBER 4531
IA # 4531
DATE CREATED 2004/12/14
CUSTODIAL PACKAGE NATIONAL DRUG FILE
CUSTODIAL ISC Birmingham
USAGE Supported
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE PSN50P41
NAME DBIA4531
GENERAL DESCRIPTION
This DBIA is provided by NDF (National Drug File) as an
API to the DRUG INGREDIENTS file (#50.416). 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 PSN50P41
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
$$B
Returns the file root of the "B" cross-reference. The
$$B^PSN50P41 API will accomplish this task.

Format: S X=$$B^PSN50P41
VARIABLES TYPE VARIABLES DESCRIPTION
$$B Output
$$B = "^PS(50.416, "B")" the file root of the "B"
cross-reference on the DRUG INGREDIENTS file (#50.416)
ZERO(PSNIEN,PSNFT,PSNFL,LIST)
Format: D ZERO^PSN50P41(PSNIEN,PSNFT,PSNFL,LIST)
VARIABLES TYPE VARIABLES DESCRIPTION
PSNIEN Input
PSNIEN = IEN of entry in DRUG INGREDIENTS file
(#50.416) [optional]
PSNFT Input
PSNFT = the NAME field (#.01) of the DRUG INGREDIENTS
file (#50.416) (a value of  "??" may be used) [optional]
PSNFL Input
PSNFL = 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,PSNIEN,.01)=NAME(50.416,.01)

^TMP($J,LIST,PSNIEN,2)=PRIMARY INGREDIENT(50.416,2)^NAME(50.416,.01) (The
PRIMARY INGREDIENT field (#2) stores the IEN of the DRUG INGREDIENTS file
(#50.416) that point to other entry in this file)

^TMP($J,LIST,PSNIEN,3)=INACTIVATION DATE(50.416,3)^External format (ex: SEP
12,1999)

^TMP($J,LIST,"B",NAME,PSNIEN)= ""
NAME(PSNFT,LIST)
Returns fields in the zero node in the DRUG
INGREDIENTS file (#50.416) in the array defined by the calling application.
The "P  cross-reference in the format of ^PS(50.416,"P
,NAME(50.416,.01),IEN(50.416)) will be used.
VARIABLES TYPE VARIABLES DESCRIPTION
PSNFT Input
NAME field (#.01) of the DRUG INGREDIENTS file
(#50.416) (a value of "??" may be used) [required]
LIST Input
defined by the calling application [required]
~TMP Output
^TMP($J,LIST,0) = Total entries returned or -1^NO
DATA FOUND

^TMP($J,LIST,PSNIEN,.01) = NAME (50.416,.01)

^TMP($J,LIST,PSNIEN,2) = PRIMARY INGREDIENT (50.416,2)^NAME (50.416,.01) (The
PRIMARY INGREDIENT field (#2) stores the IEN of the DRUG INGREDIENTS file
(#50.416) that point to other entry in this file)

^TMP($J,LIST,"P",NAME,PSNIEN) = ""

Where:

PSNIEN is IEN of entry in the DRUG INGREDIENTS file (#50.416)

MAIL MESSAGE 40013522