Sub-Field: 697.55

Parent File	Name	Number	Package
MEDICAL DIAGNOSIS/ICD CODES(#697.5)	PROCEDURE NAME	697.55	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,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.