DBIA2779 ICR (2779)

Name

Value

NUMBER

2779

IA #

2779

DATE CREATED

1999/03/22

CUSTODIAL PACKAGE

REGISTRATION

USAGE

Private

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

VAFCUTL1

NAME

DBIA2779

GENERAL DESCRIPTION

This function will indentify that a given patient is
either a dead patient, test patient, an employee, a non-veteran, or a Psuedo
patient.  It will return a 1 if it meets the given parameter or a 0 if it does
not meet the given parameter.

STATUS

Active

VAFCUTL1

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

SEND2

Will identify that a given patient is either a dead
patient, test patient, an employee, a non-veteran, or a Psuedo patient.

VARIABLES

TYPE

VARIABLES DESCRIPTION

DFN,PARAMS

Input

DFN      - IEN of PATIENT (#2) file PARAMS   - "D"ead
Patient
"T"est Patient
"E"mployee
"V"eteran (Non)
"P"suedo

0 or 1

Output

The function will return a 1 if the patient is a Dead
patient, Test patient, an Employee, a Non-Veteran or psuedo.  Otherwise, the
function will return a 0.

$$SEND2

This function screens out certain types of patients.

VARIABLES

TYPE

VARIABLES DESCRIPTION

$$SEND2

Output

if the PARAM variable contains: "D", the function
will return a 1 if the patient is a Dead patient.  "T", the
...................... 1 ................. a Test patient "E", the
...................... 1 ................. an Employee.  "V", the
...................... 1 ................. a Non-Veteran.  "P", the
...................... 1 ................. Psuedo otherwise the function
returns  0

PARAMS

Input

"D" -  Dead patient.  "T" - Test patient "E" -  an
Employee.  "V" - a Non-Veteran.  "P" -  Psuedo

DFN

Input

IEN from PATIENT (#2) file

SUBSCRIBING PACKAGE