Sub-Field: 691.08

Parent File	Name	Number	Package
ECHO(#691)	SYMPTOM	691.08	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"",""ECHO"",+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 identifies the medical patients symptoms listed on the procedure request form.` SCREEN: `S DIC("S")="I $D(^MCAR(695.5,""C"",""ECHO"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"` EXPLANATION: `Choose only symptons applying to ECHO or Cardiology` CROSS-REFERENCE: `691.08^B` `1)= S ^MCAR(691,DA(1),.3,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691,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"",""ECHO"",+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 identifies the medical patients symptoms listed on the procedure request form.
SCREEN: S DIC("S")="I $D(^MCAR(695.5,""C"",""ECHO"",+Y))!($D(^MCAR(695.5,""C"",""C"",+Y)))"
EXPLANATION: Choose only symptons applying to ECHO or Cardiology
CROSS-REFERENCE: 691.08^B
1)= S ^MCAR(691,DA(1),.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691,DA(1),.3,"B",$E(X,1,30),DA)