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)