Global: ^BDPMSGA

FileMan FileNo	FileMan Filename	Package
90360.5	BDP MESSAGE AGENTS	IHS Designated Provider

FileMan FileNo

FileMan Filename

Package

90360.5

BDP MESSAGE AGENTS

Package	Total	Routines
IHS Designated Provider	7	BDPAMA BDPCHNG BDPCHNGD BDPCOMA BDPDPEE BDPMOD BDPTRANS
IHS Personal Health Record	2	BPHRCHK BPHRUPD

Package	Total	Routines
IHS Designated Provider	3	BDPAMA BDPAPI BDPMOD

Package	Total	FileMan Files
Kernel	1	NEW PERSON(#200)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MESSAGE AGENT	0;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `MAY 22, 2013` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90360.5^B` 1)= S ^BDPMSGA("B",$E(X,1,30),DA)="" 2)= K ^BDPMSGA("B",$E(X,1,30),DA)
.02	DIRECT email Address	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `JUN 04, 2013` HELP-PROMPT: `Answer must be 1-80 characters in length.`
.03	INACTIVE?	0;3	SET	'1' FOR INACTIVE; LAST EDITED: `MAY 22, 2013`

MESSAGE AGENT

0;1

POINTER TO NEW PERSON FILE (#200)

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

CROSS-REFERENCE: 90360.5^B

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

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

DIRECT email Address

0;2

FREE TEXT

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

INACTIVE?

0;3

SET

Information