Sub-Field: 42.09

Parent File	Name	Number	Package
WARD LOCATION(#42)	AUTHORIZED BEDS DATE	42.09	Registration

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AUTHORIZED BEDS DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:3990930X) X` LAST EDITED: `JUL 02, 1990` HELP-PROMPT: `TYPE A DATE BETWEEN 10/1/1980 AND 9/30/2099` DESCRIPTION: Enter the date on which these authorized beds were assigned. This assignment comes from VA Central Office. CROSS-REFERENCE: `42.09^B` 1)= S ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA)="" 2)= K ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA) CROSS-REFERENCE: `42.09^AINV^MUMPS` 1)= S ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)="" 2)= K ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)
2	NUMBER OF AUTHORIZED BEDS	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 26, 1990` HELP-PROMPT: `Type a Number between 0 and 500, 0 Decimal Digits` DESCRIPTION: Enter in this field the number of beds this ward is authorized. This data is used by the G&L and bed status reports.

AUTHORIZED BEDS DATE

0;1

DATE

************************REQUIRED FIELD************************

DESCRIPTION:

Enter the date on which these authorized beds were assigned.  This assignment comes from VA Central Office.

CROSS-REFERENCE: 42.09^B

1)= S ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA)=""

2)= K ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA)

CROSS-REFERENCE: 42.09^AINV^MUMPS

1)= S ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)=""

2)= K ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)

NUMBER OF AUTHORIZED BEDS

0;2

NUMBER

************************REQUIRED FIELD************************

DESCRIPTION:

Enter in this field the number of beds this ward is authorized.  This data is used by the G&L and bed status reports.