Sub-Field: 699.0207

Parent File	Name	Number	Package
ENDOSCOPY/CONSULT(#699)	PNEUMONIA	699.0207	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	LOCATION OF PNEUMONIA	0;1	POINTER TO LOCATION OF PAIN/PNEUMONIAS FILE (#699.83)	LOCATION OF PAIN/PNEUMONIAS(#699.83) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 30, 1988` HELP-PROMPT: `Enter Location of Pneumonia, this is a pointer to Location of Pain/Pneumonias File.` DESCRIPTION: This field identifies the anatomical location of the pneumonia. SCREEN: `S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))"` EXPLANATION: `CHOOSE LOCATIONS ASSOCIATED WITH PNEUMONIA ONLY` CROSS-REFERENCE: `699.0207^B` 1)= S ^MCAR(699,DA(1),11,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(699,DA(1),11,"B",$E(X,1,30),DA)
1	DATES	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 30, 1988` HELP-PROMPT: `This is free text . Dates of Pheumonia should be entered in the format 'STARTING DATE' - 'ENDING DATE'` DESCRIPTION: This field identifies a range of dates during which the pneumonia occurred and is free text.

LOCATION OF PNEUMONIA

0;1

POINTER TO LOCATION OF PAIN/PNEUMONIAS FILE (#699.83)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(699.83,""C"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: Enter Location of Pneumonia, this is a pointer to Location of Pain/Pneumonias File.

DESCRIPTION:

This field identifies the anatomical location of the pneumonia.

CROSS-REFERENCE: 699.0207^B

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

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

DATES

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 30, 1988
HELP-PROMPT: This is free text . Dates of Pheumonia should be entered in the format 'STARTING DATE' - 'ENDING DATE'

DESCRIPTION:

This field identifies a range of dates during which the pneumonia occurred and is free text.