Sub-Field: 700.021

Parent File	Name	Number	Package
PULMONARY FUNCTION TESTS(#700)	INTERPRETATION BY	700.021	Medicine

Parent File

Name

Number

Package

INTERPRETATION BY

700.021

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	INTERPRETATION BY	0;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 05, 1996` HELP-PROMPT: `Enter the provider who interpreted this test.` DESCRIPTION: `This field identifies the provider who interpreted the PFT` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Check if this person holds the PROVIDER key.` CROSS-REFERENCE: `700.021^B` `1)= S ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)`

INTERPRETATION BY

0;1

POINTER TO NEW PERSON FILE (#200)

INPUT TRANSFORM: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 05, 1996
HELP-PROMPT: Enter the provider who interpreted this test.
DESCRIPTION:
This field identifies the provider who interpreted the PFT
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
EXPLANATION: Check if this person holds the PROVIDER key.
CROSS-REFERENCE: 700.021^B
1)= S ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(700,DA(1),7,"B",$E(X,1,30),DA)