Sub-Field: 691.701

Parent File	Name	Number	Package
EXERCISE TOLERANCE TEST(#691.7)	SYMPTOM	691.701	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"",""ETT"",+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 HISTORY` DESCRIPTION: `This field contains the patient's physical complaints or symtoms.` SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""ETT"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"` EXPLANATION: `Choose symptoms applying to ETT or Cardiology only` CROSS-REFERENCE: `691.701^B` `1)= S ^MCAR(691.7,DA(1),.3,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.7,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"",""ETT"",+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 HISTORY
DESCRIPTION:
This field contains the patient's physical complaints or symtoms.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""ETT"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose symptoms applying to ETT or Cardiology only
CROSS-REFERENCE: 691.701^B
1)= S ^MCAR(691.7,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.7,DA(1),.3,"B",$E(X,1,30),DA)