Global: ^BCHTREF

Information

FileMan FileNo	FileMan Filename	Package
90002.52	CHR REFERRALS	IHS RPMS CHR System

Package	Total	Routines
IHS RPMS CHR System	11	BCHDHS BCHDL2 BCHEXD2 BCHEXD21 BCHGDEL BCHRC2 BCHRC2P BCHRP1 BCHUFPP BCHUTIL BCHVD
Health Summary Components	1	BHSBCH

Package	Total	Routines
IHS RPMS CHR System	2	BCHENV BCHUTIL

Package	Total	FileMan Files
IHS RPMS CHR System	2	CHR GROUP FORM TEMP FILE(#90002.97)[.07, .08] CHR RECORD(#90002)[.07, .08, #90002.141(.01), #90002.142(.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!(X?.N)!($L(X)<3)!'(X'?1P.E) X` HELP-PROMPT: `NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `90002.52^B` 1)= S ^BCHTREF("B",$E(X,1,30),DA)="" 2)= K ^BCHTREF("B",$E(X,1,30),DA)
.02	CODE	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1.2N) X` LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Answer must be 1-2 characters in length.` CROSS-REFERENCE: `90002.52^C` 1)= S ^BCHTREF("C",$E(X,1,30),DA)="" 2)= K ^BCHTREF("C",$E(X,1,30),DA)
.03	ABBREVIATION	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X` LAST EDITED: `MAR 14, 2011` HELP-PROMPT: `Answer must be 2 characters in length.` CROSS-REFERENCE: `90002.52^D` 1)= S ^BCHTREF("D",$E(X,1,30),DA)="" 2)= K ^BCHTREF("D",$E(X,1,30),DA)

NAME

0;1

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DELETE TEST: .01,0)= I 1

CROSS-REFERENCE: 90002.52^B

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

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

CODE

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1.2N) X
LAST EDITED: SEP 13, 1994
HELP-PROMPT: Answer must be 1-2 characters in length.

CROSS-REFERENCE: 90002.52^C

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

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

ABBREVIATION

0;3

FREE TEXT

CROSS-REFERENCE: 90002.52^D

1)= S ^BCHTREF("D",$E(X,1,30),DA)=""

2)= K ^BCHTREF("D",$E(X,1,30),DA)

NAME: AGENCY/PROGRAM	NAME: BEHAVIORAL HEALTH	NAME: CHR	NAME: DENTAL	NAME: EYE	NAME: FAMILY/SELF/COMMUNITY	NAME: MEDICAL	NAME: NOT APPLICABLE
NAME: NURSING	NAME: OTHER PROFESSIONALS	NAME: SOCIAL WORKER	NAME: TECHNICIAN

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

Name	Field # of Occurrence
^(0	ID.02+1

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
U	ID.02+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K)