DBIA4540 ICR (4540)

Name

Value

NUMBER

4540

IA #

4540

DATE CREATED

2004/12/14

CUSTODIAL PACKAGE

NATIONAL DRUG FILE

CUSTODIAL ISC

Birmingham

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

PSN50P6

NAME

DBIA4540

GENERAL DESCRIPTION

This DBIA is provided by NDF (National Drug File) as an
API to the VA GENERIC file (#50.6). 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

PSN50P6

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

ZERO(PSNIEN,PSNFT,PSNFL,PSNX,LIST)

Format: D ZERO^PSN50P6(PSNIEN,PSNFT,PSNFL,PSNX,LIST)

VARIABLES	TYPE	VARIABLES DESCRIPTION
PSNIEN	Input	PSNIEN = IEN of entry in VA GENERIC file (#50.6) [optional]
PSNFT	Input	PSNFT = NAME field (#.01) of the VA GENERIC file (#50.6) (a value of "??" may be used) [optional]
PSNX	Input	PSNX = 1 for exact match flag [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.6,.01) ^TMP($J,LIST,PSNIEN,1)=INACTIVATION DATE(50.6,1)^External format (ex: SEP 12,1999) ^TMP($J,LIST,"B",NAME,PSNIEN)= ""

$$ROOT

$$ROOT returns the global root of VA Generic file
(#50.6) Format: S X=$$ROOT^PSN50P6

VARIABLES	TYPE	VARIABLES DESCRIPTION
$$ROOT	Output	$$ROOT Where: $$ROOT is "^PSNDF(50.6,"