Sub-Field: 691.801

Parent File	Name	Number	Package
ELECTROPHYSIOLOGY (EP)(#691.8)	SYMPTOM	691.801	Medicine

Parent File

Name

Number

Package

SYMPTOM

691.801

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SYMPTOM	0;1	POINTER TO SYMPTOM FILE (#695.5)	SYMPTOM(#695.5) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 22, 1988` HELP-PROMPT: `HISTORY OF PRESENT ILLNESS` DESCRIPTION: These are the clinical signs of disease. SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))"` EXPLANATION: `CHOOSE CARDIAC SYMPTOMS ONLY` CROSS-REFERENCE: `691.801^B` 1)= S ^MCAR(691.8,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(691.8,DA(1),1,"B",$E(X,1,30),DA)

SYMPTOM

0;1

POINTER TO SYMPTOM FILE (#695.5)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: HISTORY OF PRESENT ILLNESS

DESCRIPTION:

These are the clinical signs of disease.

CROSS-REFERENCE: 691.801^B

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

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