Sub-Field: 697.02

Parent File	Name	Number	Package
ANATOMY(#697)	PROCEDURE NAME	697.02	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	PROCEDURE NAME	0;1	FREE TEXT	INPUT TRANSFORM: `I $D(X) N DO,DIC,DIX,Y S DIC="^MCAR(697.2,",DIC(0)="QEZ" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X` LAST EDITED: `AUG 20, 1997` HELP-PROMPT: `Enter name of Procedure to match that in the Procedure/Subspecialty File.` DESCRIPTION: This is a "free-text" pointer to the Procedure/Subspecialty File (#697.2). NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `697.02^B` 1)= S ^MCAR(697,DA(1),2,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(697,DA(1),2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `697^D` 1)= S ^MCAR(697,"D",$E(X,1,30),DA(1),DA)="" 2)= K ^MCAR(697,"D",$E(X,1,30),DA(1),DA) This cross-reference allow looks-up on procedure name.

PROCEDURE NAME

0;1

FREE TEXT

INPUT TRANSFORM: I $D(X) N DO,DIC,DIX,Y S DIC="^MCAR(697.2,",DIC(0)="QEZ" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X
LAST EDITED: AUG 20, 1997
HELP-PROMPT: Enter name of Procedure to match that in the Procedure/Subspecialty File.

DESCRIPTION:

This is a "free-text" pointer to the Procedure/Subspecialty File (#697.2).

CROSS-REFERENCE: 697.02^B

1)= S ^MCAR(697,DA(1),2,"B",$E(X,1,30),DA)=""

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

CROSS-REFERENCE: 697^D

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

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

This cross-reference allow looks-up on procedure name.