Global: ^BIDLOC

FileMan FileNo	FileMan Filename	Package
9002084.62	BI USER DATE-LOC LINE	Immunization Tracking

FileMan FileNo

FileMan Filename

Package

9002084.62

BI USER DATE-LOC LINE

Package	Total	Routines
Immunization Tracking	1	BILETPR

Package

Total

Routines

BILETPR

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DUZ	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X S:$D(X) DINUM=X` LAST EDITED: `JUN 24, 1998` HELP-PROMPT: `Enter the user's DUZ.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002084.62^B` 1)= S ^BIDLOC("B",$E(X,1,30),DA)="" 2)= K ^BIDLOC("B",$E(X,1,30),DA)
.02	DATE-LOCATION LINE TEXT	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `JUN 24, 1998` HELP-PROMPT: `Enter the Date/Location Line text to be saved for this user. Answer must be 1-70 characters in length.`

DUZ

0;1

FREE TEXT

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

CROSS-REFERENCE: 9002084.62^B

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

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

DATE-LOCATION LINE TEXT

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>70!($L(X)<1) X
LAST EDITED: JUN 24, 1998
HELP-PROMPT: Enter the Date/Location Line text to be saved for this user. Answer must be 1-70 characters in length.