Sub-Field: 699.62

Parent File	Name	Number	Package
DIAG/THERAP INTERVENT(#699.6)	PROCEDURE NAME	699.62	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: `Enter the procedure with which this intervention is associated.` DESCRIPTION: `Enter the procedure with which this intervention is associated.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `699.62^B` `1)= S ^MCAR(699.6,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699.6,DA(1),2,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `699.6^E` `1)= S ^MCAR(699.6,"E",$E(X,1,30),DA(1),DA)=""` `2)= K ^MCAR(699.6,"E",$E(X,1,30),DA(1),DA)` `This cross-reference is used to sceen out technique from the procedure base on the type of 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: Enter the procedure with which this intervention is associated.
DESCRIPTION:
Enter the procedure with which this intervention is associated.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 699.62^B
1)= S ^MCAR(699.6,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.6,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 699.6^E
1)= S ^MCAR(699.6,"E",$E(X,1,30),DA(1),DA)=""
2)= K ^MCAR(699.6,"E",$E(X,1,30),DA(1),DA)
This cross-reference is used to sceen out technique from the procedure base on the type of procedure.