Sub-Field: 699.16

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

Parent File

Name

Number

Package

INDICATION FOR PROCEDURE

699.16

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