DGPMDDCF CALLS ICR (1246)

Name

Value

NUMBER

1246

IA #

1246

DATE CREATED

1995/07/20

CUSTODIAL PACKAGE

REGISTRATION

CUSTODIAL ISC

Albany

USAGE

Supported

TYPE

Routine

DBIC APPROVAL STATUS

APPROVED

ROUTINE

DGPMDDCF

NAME

DGPMDDCF CALLS

GENERAL DESCRIPTION

This agreement allows other packages to call the
following tags in the routine DGPMDDCF:  WIN, RIN, BOS, AUTH, and OPER.  These
calls return info on whether wards and beds are in service and the number of
beds in service, authorized, and operating for a given ward.

STATUS

Active

DURATION

Till Otherwise Agreed

DGPMDDCF

COMPONENT/ENTRY POINT

COMPONENT DESCRIPTION

VARIABLES

WIN

Requires D0 to be passed as the IEN of the WARD
LOCATION (file #42) which you'd like to know is active or not.  DGPMOS can be
passed as a date to compute whether the ward is in service (it assumes DT if
not defined).  Returns a 1 if ward is inactive as of date or 0 if it's active.
-1 returned if D0 not defined or date not valid.

VARIABLES	TYPE	VARIABLES DESCRIPTION
D0	Input	IEN of WARD LOCATION file.
DGPMOS	Input	Date to determine if ward is out of service as of.
X	Output	1 if ward out of service, 0 if in service, or -1 if input variables not defined properly.

RIN

Requires D0 to be passed as the IEN of the ROOM-BED
(file #405.4) which you'd like to know is active or not.  DGPMOS can be passed
as a date to compute whether the bed is in service (it assumes DT if not
defined).  Returns a 1 if bed is inactive as of date or 0 if it's active.  -1
returned if D0 not defined or date not valid.

VARIABLES

TYPE

VARIABLES DESCRIPTION

Input

IEN of ROOM-BED file

DGPMOS

Input

Date for which you'd like to know if room-bed is in
service.  Optional: assumes DT if left undefined.

Output

Returned as 1 if bed is out of service, 0 if it's in
service, or -1 if the input variables are not defined properly.

BOS

Computes number of beds out of service for a given
ward.  D0 defines the WARD LOCATION IEN and DGPMOS can be passed as the date
on which to make the computation (assumes DT if undefined).

VARIABLES	TYPE	VARIABLES DESCRIPTION
D0	Input	IEN of WARD LOCATION file
DGPMOS	Input	Date for which to return calculation. Assumes DT if undefined.
X	Output	Number of beds out of service on ward as of date in question.

AUTH

Returns number of authorized beds for WARD LOCATION
defined by D0 as of date defined in DGPMOS (assumes DT if not defined).

VARIABLES	TYPE	VARIABLES DESCRIPTION
D0	Input	IEN of WARD LOCATION file
DGPMOS	Input	Optional variable defining date for which to return calculation. Assumes DT if left undefined.
X	Output	Number of authorized beds for ward requested as of date selected.

OPER

Computes the number of operating beds for a WARD
LOCATION defined in the variable D0 on a date defined by DGPMOS (assumes DT if
left undefined).

VARIABLES

TYPE

VARIABLES DESCRIPTION

Input

IEN of WARD LOCATION file

DGPMOS

Input

Optional variable to define date for which you'd like
number of operating beds returned.  Assumes DT if left undefined.

Output

Number of operating beds for ward requested on date
input.