VDEMPDRG Routine Calling File 50.3 ICR (4169)

Name

Value

NUMBER

4169

IA #

4169

FILE NUMBER

50.3

GLOBAL ROOT

PS(50.3,IEN

DATE CREATED

2003/07/30

CUSTODIAL PACKAGE

VDEM

USAGE

Private

TYPE

File

ROUTINE

VDEMPDRG

NAME

VDEMPDRG Routine Calling File 50.3

GENERAL DESCRIPTION

This IA was created becuase  of the routines dependancy
with the PRIMARY DRUG File 50.3. The routine will loop through the file and
extract data elements of key fields. The data will be used to support the VDEM
extraction application.

GLOBAL REFERENCE

FIELD NUMBER

PS(50.3,IEN,0)

FIELD NUMBER	ACCESS	FIELD NAME	LOCATION
.01	Read w/Fileman	NAME	0;1
.02	Read w/Fileman	DEA, SPECIAL HANDLING	0;2
.03	Read w/Fileman	MESSAGE	0;3

PS(50.3,IEN,1,D1,0)

FIELD NUMBER	ACCESS	FIELD NAME	LOCATION
.01	Read w/Fileman	APPLICATION	0;1

PS(50.3,IEN,2,D1,0)

FIELD NUMBER	ACCESS	FIELD NAME	LOCATION
.01	Read w/Fileman	SYNONYM	0;1

STATUS

Withdrawn

KEYWORDS

VDEM
VDEMPDRG

VDEMPDRG

COMPONENT/ENTRY POINT

VARIABLES

START

VARIABLES	TYPE	VARIABLES DESCRIPTION
IEN	Used	Internal Entry Number for subscript in global ^PS(50.3,IEN...
APLET	Used	Subscript in global reference ^PS(50.35,APLET.....
MEDRTNME	Used	This is created from ^PS(51.2,IEN....