Sub-Field: 699.05

Parent File	Name	Number	Package
ENDOSCOPY/CONSULT(#699)	INSTRUMENT	699.05	Medicine

Parent File

Name

Number

Package

INSTRUMENT

699.05

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INSTRUMENT	0;1	POINTER TO INSTRUMENT FILE (#699.48)	INSTRUMENT(#699.48) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 27, 1993` HELP-PROMPT: `Enter Endoscopic instrument used in procedure, ointer to instrument file (#699.48)` SCREEN: `S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)"` EXPLANATION: `CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY` CROSS-REFERENCE: `699.05^B` `1)= S ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)`

INSTRUMENT

0;1

POINTER TO INSTRUMENT FILE (#699.48)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 27, 1993
HELP-PROMPT: Enter Endoscopic instrument used in procedure, ointer to instrument file (#699.48)
SCREEN: S DIC("S")="I $P(^(0),U,2)=$G(MCARCODE,U)"
EXPLANATION: CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY
CROSS-REFERENCE: 699.05^B
1)= S ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699,DA(1),34,"B",$E(X,1,30),DA)