Sub-Field: 697.55

Parent File	Name	Number	Package
MEDICAL DIAGNOSIS/ICD CODES(#697.5)	PROCEDURE NAME	697.55	Medicine

Parent File

Name

Number

Package

PROCEDURE NAME

697.55

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,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: `JUL 26, 1994` HELP-PROMPT: `This field stores the various procedures with which the diagnosis is applicable.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `697.55^B` 1)= S ^MCAR(697.5,DA(1),4,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(697.5,DA(1),4,"B",$E(X,1,30),DA) CROSS-REFERENCE: `697.5^I^MUMPS` 1)= S ^MCAR(697.5,"A."_X,$P(^MCAR(697.5,DA(1),0),U),DA(1))="" 2)= K ^MCAR(697.5,"A."_X,$P(^MCAR(697.5,DA(1),0),U),DA(1)) Sorts Diagnoses by procedure.

PROCEDURE NAME

0;1

FREE TEXT

INPUT TRANSFORM: I $D(X) N DO,DIC,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: JUL 26, 1994
HELP-PROMPT: This field stores the various procedures with which the diagnosis is applicable.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

CROSS-REFERENCE: 697.55^B

1)= S ^MCAR(697.5,DA(1),4,"B",$E(X,1,30),DA)=""

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

CROSS-REFERENCE: 697.5^I^MUMPS

1)= S ^MCAR(697.5,"A."_X,$P(^MCAR(697.5,DA(1),0),U),DA(1))=""

2)= K ^MCAR(697.5,"A."_X,$P(^MCAR(697.5,DA(1),0),U),DA(1))

Sorts Diagnoses by procedure.