DBIA3744 ICR (3744)

Name

Value

NUMBER

3744

IA #

3744

DATE CREATED

2002/09/03

CUSTODIAL PACKAGE

REGISTRATION

CUSTODIAL ISC

Albany

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

VADPT

NAME

DBIA3744

STATUS

Active

KEYWORDS

TEST PATIENT

VADPT

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

$$TESTPAT

Function call returns whether or not a given patient
is a test patient.  A test patient is defined as a patient whose SSN has five
leading zeros (ex: 000001234) or whose TEST PATIENT INDICATOR field (#6) is
set to 'YES'.

Sample Use
----------
S DFN=xxxxx
S X=$$TESTPAT^VADPT(DFN)
W !,"Patient is ",$S('X:"not ",1:""),"a test patient"

VARIABLES	TYPE	VARIABLES DESCRIPTION
DFN	Input	Pointer to PATIENT file (#2)
Output of function call	Output	1 = Test patient 0 = Not a test patient