Sub-Field: 9009016.52

Parent File	Name	Number	Package
IHS WARD DEFINITION(#9009016.5)	AUTHORIZATION DATE	9009016.52	IHS Changes To Scheduling

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	AUTHORIZATION DATE	0;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `APR 27, 2006` HELP-PROMPT: `Enter date a particular type of bed was authorized for this ward.` CROSS-REFERENCE: `9009016.52^B` 1)= S ^BDGWD(DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^BDGWD(DA(1),2,"B",$E(X,1,30),DA)
.02	BED TYPE	0;2	SET	'AM' FOR ADULT MEDICAL; 'AS' FOR ADULT SURGICAL; 'PM' FOR PEDS MEDICAL; 'PS' FOR PEDS SURGICAL; 'OB' FOR OBSTETRICS; 'NB' FOR NEWBORN; 'TB' FOR TUBERCULOSIS; 'AL' FOR ALCOHOL/SUBSTANCE; 'MH' FOR MENTAL HEALTH; 'IC' FOR ICU/SCU; 'PC' FOR PCU; LAST EDITED: `APR 27, 2006` HELP-PROMPT: `Enter type of bed authorized for this ward on this date.`
.03	NUMBER OF BEDS	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `APR 27, 2006` HELP-PROMPT: `Type a number between 0 and 999, 0 Decimal Digits`

AUTHORIZATION DATE

0;1

DATE

INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: APR 27, 2006
HELP-PROMPT: Enter date a particular type of bed was authorized for this ward.

CROSS-REFERENCE: 9009016.52^B

1)= S ^BDGWD(DA(1),2,"B",$E(X,1,30),DA)=""

2)= K ^BDGWD(DA(1),2,"B",$E(X,1,30),DA)

BED TYPE

0;2

SET

NUMBER OF BEDS

0;3

NUMBER