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).
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.