DGACT ICR (1375)

Name

Value

NUMBER

1375

IA #

1375

DATE CREATED

1995/11/07

CUSTODIAL PACKAGE

REGISTRATION

CUSTODIAL ISC

Albany

USAGE

Supported

TYPE

Routine

ROUTINE

DGACT

NAME

DGACT

GENERAL DESCRIPTION

This function will determine if a treating specialty
entry is active or inactive in either the SPECIALTY (#42.4) file or the
FACILITY TREATING SPECIALTY (#45.7) file.  The function will return a 1 if the
treating specialty is active or 0 otherwise.

STATUS

Withdrawn

DURATION

Till Otherwise Agreed

DGACT

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

$$ACTIVE(FILE,IEN,DGDT)

Input:  -- FILE to determine if checking SPECIALTY file (#42.4)
or FACILITY TREATING SPECIALTY file (#45.7)
-- IEN as the internal entry number of treating specialty
-- DGDT as 'as of' date (uses DT if undefined)

Output: -- 1 if active, 0 otherwise

VARIABLES	TYPE	VARIABLES DESCRIPTION
FILE	Input	File number of SPECIALTY file (#42.4) or FACILITY TREATING SPECIALTY file (#45.7).
IEN	Input	Internal entry number of treating specialty.
DGDT	Used	'As of' date (uses DT if not defined).