Global: ^BWRADX

FileMan FileNo	FileMan Filename	Package
9002086.32	BW DIAGNOSTIC CODE TRANSLATION	Women's Health

Accessed By FileMan Db Calls, Total: 1

Package	Total	Routines
Women's Health	1	BWRAD

Package	Total	FileMan Files
Radiology Nuclear Medicine	1	DIAGNOSTIC CODES(#78.3)[.02]
Women's Health	1	BW RESULTS/DIAGNOSIS(#9002086.31)[.01]

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	WOMEN'S HEALTH DIAGNOSIS	0;1	POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)	**********************REQUIRED FIELD********************** BW RESULTS/DIAGNOSIS(#9002086.31) INPUT TRANSFORM: `S:$D(X) DINUM=X S DIC("S")="D SCREEN^BWRAD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 26, 1995` HELP-PROMPT: `Choose the Women's Health RESULTS/DIAGNOSIS Code you wish to match to a Radiology DIAGNOSTIC CODE.` DESCRIPTION: `At ANMC we added two addtional translations for mammograms:` Incomplete, Need Add Imag Eval Incomplete, Previous Films Req Mike Remillard MWR/ANMC/IHS 12/2/1999. SCREEN: `S DIC("S")="D SCREEN^BWRAD"` EXPLANATION: `Only Results/Diagnoses that apply to Mammograms may be selected.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002086.32^B` 1)= S ^BWRADX("B",$E(X,1,30),DA)="" 2)= K ^BWRADX("B",$E(X,1,30),DA)
.02	RADIOLOGY DIAGNOSTIC CODE	0;2	POINTER TO DIAGNOSTIC CODES FILE (#78.3)	DIAGNOSTIC CODES(#78.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 22, 2003` HELP-PROMPT: `Enter the Radiology DIAGNOSTIC CODE you which to match with this Women's Health RESULTS/DIAGNOSIS.` SCREEN: `S DIC("S")="I $P(^(0),U,5)'=""Y"""` EXPLANATION: `Restrict selection to active codes.` CROSS-REFERENCE: `9002086.32^C` 1)= S ^BWRADX("C",$E(X,1,30),DA)="" 2)= K ^BWRADX("C",$E(X,1,30),DA)

WOMEN'S HEALTH DIAGNOSIS

0;1

POINTER TO BW RESULTS/DIAGNOSIS FILE (#9002086.31)

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

INPUT TRANSFORM: S:$D(X) DINUM=X S DIC("S")="D SCREEN^BWRAD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 26, 1995
HELP-PROMPT: Choose the Women's Health RESULTS/DIAGNOSIS Code you wish to match to a Radiology DIAGNOSTIC CODE.

DESCRIPTION: At ANMC we added two addtional translations for mammograms:

Incomplete, Need Add Imag Eval Incomplete, Previous Films Req

Mike Remillard   MWR/ANMC/IHS  12/2/1999.

CROSS-REFERENCE: 9002086.32^B

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

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

RADIOLOGY DIAGNOSTIC CODE

0;2

POINTER TO DIAGNOSTIC CODES FILE (#78.3)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)'=""Y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: OCT 22, 2003
HELP-PROMPT: Enter the Radiology DIAGNOSTIC CODE you which to match with this Women's Health RESULTS/DIAGNOSIS.
SCREEN: S DIC("S")="I $P(^(0),U,5)'=""Y"""
EXPLANATION: Restrict selection to active codes.

CROSS-REFERENCE: 9002086.32^C

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

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

Name	Field # of Occurrence
^DIC	.01+1, .02+1

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