Sub-Field: 691.51

Parent File	Name	Number	Package
ELECTROCARDIOGRAM (EKG)(#691.5)	SYMPTOM	691.51	Medicine

Parent File

Name

Number

Package

SYMPTOM

691.51

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: This field contains the patient's physical complaints or symptoms. SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""C"",+Y))"` EXPLANATION: `CHOOSE CARDIAC SCREENS ONLY` CROSS-REFERENCE: `691.51^B` 1)= S ^MCAR(691.5,DA(1),.3,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(691.5,DA(1),.3,"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:

This field contains the patient's physical complaints or symptoms.

CROSS-REFERENCE: 691.51^B

1)= S ^MCAR(691.5,DA(1),.3,"B",$E(X,1,30),DA)=""

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