Print Page as PDF
DBIA2779 ICR (2779)

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
ID VAFCUTL1
COMPONENT/ENTRY POINT
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
MAIL MESSAGE 29184267