Sub-Field: 691.01

Parent File	Name	Number	Package
ECHO(#691)	MED(CARDIOLOGY MEDICATION)	691.01	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MED(CARDIOLOGY MEDICATION)	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 medication listed on patient' request form.` DESCRIPTION: This field identifies the medications listed on the medical patients request form. SCREEN: `S DIC("S")="I $D(^MCAR(695,""C"",""C"",+Y))"` EXPLANATION: `CHOOSE ONLY MEDICATIONS MARKED FOR CARDIOLOGY` CROSS-REFERENCE: `691.01^B` 1)= S ^MCAR(691,DA(1),1,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(691,DA(1),1,"B",$E(X,1,30),DA)
1	DOSE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `SEP 03, 1986` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: This allows the user to enter dosage of medication listed on the medical patient's request form.
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 when/how often (frequency) medication is to be taken.

MED(CARDIOLOGY MEDICATION)

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 medication listed on patient' request form.

DESCRIPTION:

This field identifies the medications listed on the medical patients request form.

CROSS-REFERENCE: 691.01^B

1)= S ^MCAR(691,DA(1),1,"B",$E(X,1,30),DA)=""

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

DOSE

0;2

FREE TEXT

DESCRIPTION:

This allows the user to enter dosage of medication listed on the medical patient's request form.

FREQUENCY

0;3

FREE TEXT

DESCRIPTION:

This allows the user to enter when/how often (frequency) medication is to be taken.