Sub-Field: 691.66

Parent File	Name	Number	Package
HOLTER(#691.6)	SYMPTOM	691.66	Medicine

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"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 30, 1996` HELP-PROMPT: `HISTORY OF PRESENT ILLNESS` DESCRIPTION: This field contains the patients physical complaints or symtoms. SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"` EXPLANATION: `Choose symptoms applying to HOLTER or Cardiology only` CROSS-REFERENCE: `691.66^B` 1)= S ^MCAR(691.6,DA(1),.3,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(691.6,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"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 30, 1996
HELP-PROMPT: HISTORY OF PRESENT ILLNESS

DESCRIPTION:

This field contains the patients physical complaints or symtoms.

SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""HOLTER"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose symptoms applying to HOLTER or Cardiology only

CROSS-REFERENCE: 691.66^B

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

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