Sub-Field: 699.16

Parent File	Name	Number	Package
ENDOSCOPY/CONSULT(#699)	INDICATION FOR PROCEDURE	699.16	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INDICATION FOR PROCEDURE	0;1	POINTER TO INDICATION FILE (#694.1)	INDICATION(#694.1) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(694.1,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 29, 1988` HELP-PROMPT: `CHOOSE NUMBER FOR INDICATION YOU WISH TO SELECT` DESCRIPTION: This contains a specific reason why the procedure was performed. SCREEN: `S DIC("S")="I $D(^MCAR(694.1,""C"",$G(MCARCODE,U),+Y))"` EXPLANATION: `CHOOSE ENTRIES THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE` CROSS-REFERENCE: `699.16^B` 1)= S ^MCAR(699,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(699,DA(1),1,"B",$E(X,1,30),DA)

INDICATION FOR PROCEDURE

0;1

POINTER TO INDICATION FILE (#694.1)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(694.1,""C"",$G(MCARCODE,U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 29, 1988
HELP-PROMPT: CHOOSE NUMBER FOR INDICATION YOU WISH TO SELECT

DESCRIPTION:

This contains a specific reason why the procedure was performed.

CROSS-REFERENCE: 699.16^B

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

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