Sub-Field: 691.53

Parent File	Name	Number	Package
ELECTROCARDIOGRAM (EKG)(#691.5)	HEART MED	691.53	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	HEART MED	0;1	POINTER TO MEDICATION FILE (#695)	MEDICATION(#695) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 22, 1988` HELP-PROMPT: `Enter cardiac medicine that the patient is taking at the time of this procedure.` DESCRIPTION: `This field documents the cardiac medicines that the patient is taking at the time of this procedure (multiple).` SCREEN: `S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"` EXPLANATION: `CHOOSE CARDIAC MEDICATIONS ONLY` CROSS-REFERENCE: `691.53^B` `1)= S ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)`
1	DOSE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 17, 1986` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `This allows the user to enter in the dosage for the cardiac medicine that the patient is taking at the time of this procedure.`
2	FREQUENCY	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `MAY 18, 1988` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: `This allows the user to enter the time/number of times the patient is to take the cardiac medicine.`

HEART MED

0;1

POINTER TO MEDICATION FILE (#695)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 22, 1988
HELP-PROMPT: Enter cardiac medicine that the patient is taking at the time of this procedure.
DESCRIPTION:
This field documents the cardiac medicines that the patient is taking at the time of this procedure (multiple).
SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"
EXPLANATION: CHOOSE CARDIAC MEDICATIONS ONLY
CROSS-REFERENCE: 691.53^B
1)= S ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(691.5,DA(1),2,"B",$E(X,1,30),DA)

DOSE

0;2

FREE TEXT

INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: DEC 17, 1986
HELP-PROMPT: ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter in the dosage for the cardiac medicine that the patient is taking at the time of this procedure.

FREQUENCY

0;3

FREE TEXT

INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 18, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
This allows the user to enter the time/number of times the patient is to take the cardiac medicine.