Global: ^BWMAMT

Information

FileMan FileNo	FileMan Filename	Package
9002086.51	BW BREAST TX NEED	Women's Health

Package	Total	Routines
Women's Health	1	BWUTL1

Package	Total	FileMan Files
Women's Health	1	BW PATIENT(#9002086)[.18]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	BREAST TX NEED	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `MAR 08, 1996` HELP-PROMPT: `Answer must be 3-20 characters in length.` CROSS-REFERENCE: `9002086.51^B` 1)= S ^BWMAMT("B",$E(X,1,30),DA)="" 2)= K ^BWMAMT("B",$E(X,1,30),DA) CROSS-REFERENCE: `9002086.51^U^MUMPS` 1)= D UPXREF^BWUTL5(X,"^BWMAMT(") 2)= D KUPXREF^BWUTL5(X,"^BWMAMT(") Sets uppercase xref.
.02	MAMMOGRAM PROCEDURE?	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 15, 1995` HELP-PROMPT: `Enter "YES" if this procedure involves a mammogram; enter "NO" if not.`

BREAST TX NEED

0;1

FREE TEXT

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

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAR 08, 1996
HELP-PROMPT: Answer must be 3-20 characters in length.

CROSS-REFERENCE: 9002086.51^B

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

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

CROSS-REFERENCE: 9002086.51^U^MUMPS

1)= D UPXREF^BWUTL5(X,"^BWMAMT(")

2)= D KUPXREF^BWUTL5(X,"^BWMAMT(")

Sets uppercase xref.

MAMMOGRAM PROCEDURE?

0;2

SET

LAST EDITED: AUG 15, 1995
HELP-PROMPT: Enter "YES" if this procedure involves a mammogram; enter "NO" if not.

Name	Field # of Occurrence
KUPXREF^BWUTL5	.01(XREF 2K)
UPXREF^BWUTL5	.01(XREF 2S)

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

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K)