Global: ^BMCLPRV

Information

FileMan FileNo	FileMan Filename	Package
90001.53	RCIS SPECIFIC PROVIDER	Referred Care Information System

This file contains specific providers who will be seeing the patient being referred.

Package	Total	Routines
Patient Chart	3	BPCRC3 BPCRC5 BPCRC7
Referred Care Information System	2	BMC BMCRLU

Package	Total	Routines
Referred Care Information System	3	BMCRPC1 BMCRPC3 BMCRPC4

Package	Total	FileMan Files
Referred Care Information System	3	RCIS SECONDARY REFERRAL(#90001.04)[205] RCIS REFERRAL(#90001)[.09] RCIS ROUTINE REFERRAL DEF(#90001.32)[.09]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1","1U.UP) X` LAST EDITED: `APR 10, 2001` HELP-PROMPT: `Answer must be 3-30 characters in length.` EXECUTABLE HELP: `W " Example: SMITH,JOHN MD",!` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90001.53^B` 1)= S ^BMCLPRV("B",$E(X,1,30),DA)="" 2)= K ^BMCLPRV("B",$E(X,1,30),DA)
1	MNEMONIC	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1)!'(X?1.3A) X` LAST EDITED: `JUL 23, 1997` HELP-PROMPT: `Answer must be 1-3 characters in length.` CROSS-REFERENCE: `90001.53^C` 1)= S ^BMCLPRV("C",$E(X,1,30),DA)="" 2)= K ^BMCLPRV("C",$E(X,1,30),DA)

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1","1U.UP) X
LAST EDITED: APR 10, 2001
HELP-PROMPT: Answer must be 3-30 characters in length.
EXECUTABLE HELP: W " Example: SMITH,JOHN MD",!
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 90001.53^B

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

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

MNEMONIC

0;2

FREE TEXT

CROSS-REFERENCE: 90001.53^C

1)= S ^BMCLPRV("C",$E(X,1,30),DA)=""

2)= K ^BMCLPRV("C",$E(X,1,30),DA)

Name	Line Occurrences (* Changed, ! Killed)
^BMCLPRV("B"	.01(XREF 1S), .01(XREF 1K)
^BMCLPRV("C"	1(XREF 1S), 1(XREF 1K)

Name	Field # of Occurrence
^(0	ID1+1