Global: ^BDGCWD

Information

FileMan FileNo	FileMan Filename	Package
9009016.2	ADT CENSUS-WARD	IHS Changes To Scheduling

Package	Total	Routines
IHS Changes To ADT	13	BDGAD0 BDGAD1 BDGAD2 BDGAD3 BDGAD4 BDGAD5 BDGCEN0 BDGCEN10 BDGCEN11 BDGCENI BDGM202C BDGSTAT1 BDGSTAT2
Patient Care Component Table Maintiance	3	APCM24EM APCM25EM APCM2AEM
Registration	2	DGPMGL DGPMGL1

Package	Total	FileMan Files
Registration	2	WARD LOCATION(#42)[.01] FACILITY TREATING SPECIALTY(#45.7)[#9009016.211(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	POINTER TO WARD LOCATION FILE (#42)	**********************REQUIRED FIELD********************** WARD LOCATION(#42) INPUT TRANSFORM: `S DINUM=X Q` LAST EDITED: `MAR 30, 2001` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9009016.2^B` 1)= S ^BDGCWD("B",$E(X,1,30),DA)="" 2)= K ^BDGCWD("B",$E(X,1,30),DA)
1	CENSUS DATE	1;0	DATE Multiple #9009016.21	9009016.21

NAME

0;1

POINTER TO WARD LOCATION FILE (#42)

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

INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: MAR 30, 2001
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 9009016.2^B

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

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

1 CENSUS DATE 1;0 DATE Multiple #9009016.21 9009016.21