Global: ^BDGITM

FileMan FileNo	FileMan Filename	Package
9009016.9	ADT ITEMS	IHS Changes To Scheduling

FileMan FileNo

FileMan Filename

Package

9009016.9

ADT ITEMS

Package	Total	Routines
IHS Changes To ADT	2	BDGP1003 BDGP1005

Package	Total	Routines
IHS Changes To ADT	1	BDGCRB1

Package	Total	FileMan Files
IHS Changes To Scheduling	1	ADT FORMS(#9009016.8)[#9009016.811(.01)]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAY 03, 2001` HELP-PROMPT: `Answer must be 3-30 characters in length` CROSS-REFERENCE: `9009016.9^B` 1)= S ^BDGITM("B",$E(X,1,30),DA)="" 2)= K ^BDGITM("B",$E(X,1,30),DA)
1	EXTERNAL FORMAT CODE	1;E1,245	MUMPS	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>245 X D:$D(X) ^DIM` LAST EDITED: `MAY 03, 2001` HELP-PROMPT: `Enter Standard MUMPS code, setting Y=external format.` DESCRIPTION: `Variables expected to be set (but check with $G anyway) are:` DFN = patient ien DUZ(2) = user's current facility DUZ = user DGPMDA = current ADT movement DGPMCA = admission ien
2	DESCRIPTION	2;0	WORD-PROCESSING #9009016.92

NAME

0;1

FREE TEXT

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

CROSS-REFERENCE: 9009016.9^B

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

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

EXTERNAL FORMAT CODE

1;E1,245

MUMPS

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

DESCRIPTION: Variables expected to be set (but check with $G anyway) are:

DFN = patient ien

DUZ(2) = user's current facility

DUZ = user

DGPMDA = current ADT movement

DGPMCA = admission ien

2 DESCRIPTION 2;0 WORD-PROCESSING #9009016.92

Information