Sub-Field: 701.0201

Parent File	Name	Number	Package
RHEUMATOLOGY(#701)	MEDICATION	701.0201	Medicine

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	MEDICATION	0;1	POINTER TO MEDICATION FILE (#695)	MEDICATION(#695) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(695,""C"",""R"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 13, 1990` HELP-PROMPT: `Enter the patient's current medications.` DESCRIPTION: These are the patients current medications. SCREEN: `S DIC("S")="I $D(^MCAR(695,""C"",""R"",+Y))"` EXPLANATION: `CHOOSE RHEUMATOLOGY MEDICATION ENTRIES ONLY` CROSS-REFERENCE: `701.0201^B` 1)= S ^MCAR(701,DA(1),6,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(701,DA(1),6,"B",$E(X,1,30),DA)
1	DOSAGE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `DEC 13, 1990` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: This allows the user to enter the dosage of the patient's current medications.
2	FREQUENCY	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `DEC 13, 1990` HELP-PROMPT: `Answer must be 2-10 characters in length.` DESCRIPTION: This allows the user to enter the time/number of times (frequency) of the patient's current medications.

MEDICATION

0;1

POINTER TO MEDICATION FILE (#695)

INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""R"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 13, 1990
HELP-PROMPT: Enter the patient's current medications.

DESCRIPTION:

These are the patients current medications.

CROSS-REFERENCE: 701.0201^B

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

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

DOSAGE

0;2

FREE TEXT

DESCRIPTION:

This allows the user to enter the dosage of the patient's current medications.

FREQUENCY

0;3

FREE TEXT

DESCRIPTION:

This allows the user to enter the time/number of times (frequency) of the patient's current medications.