Global: ^MCAR(701

FileMan FileNo	FileMan Filename	Package
701	RHEUMATOLOGY	Medicine

Package	Total	Routines
Medicine	26	DIAGNOSIS ICD DIAGNOSIS IMAGE MCARORA MCARORB MCARORD MCARORE MCARORE1 MCARORF MCARORF1 MCARORH MCARORH1 MCARORH2 MCARORN MCARORP MCARORP1 MCARORQ MCOBRH MCOBRH1 MCOBRHA MCOBRHA1 MCPOS01G MCRH1 MCRH2 MEDICATION ^MCAR(701

Package	Total	Routines
Medicine	2	MCARP MCRH1

Package	Total	FileMan Files
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[11, #123.03(.01)]

Package	Total	FileMan Files
Medicine	3	MEDICAL PATIENT(#690)[1] MEDICATION(#695)[#701.0201(.01)] MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#701.0615(.01)]
Lab Service	2	LABORATORY TEST(#60)[614] LAB DATA(#63)[613]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#701.01(.01)]
Imaging	1	IMAGE(#2005)[#701.02005(.01)]
Kernel	1	NEW PERSON(#200)[314, 701]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]

Fields, Total: 232

Field #	Name	Loc	Type	Details
.01	DATE/TIME	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 09, 1991` HELP-PROMPT: `Enter the date and time for this procedure.` DESCRIPTION: `This field identifies the date and time that the data is first entered into the database or when the data was collected.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `701^B` `1)= S ^MCAR(701,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(701,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `701^AC^MUMPS` `1)= S MCARCDIE="^MCAR(701," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(701," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent rheumatology procedure for this patient.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `JUL 15, 1994` HELP-PROMPT: `Please select from patient list below.` DESCRIPTION: `This field identifies the patient in the medicine file.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` CROSS-REFERENCE: `701^C` `1)= S ^MCAR(701,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(701,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `701^AD^MUMPS` `1)= S MCARCDIE="^MCAR(701," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(701," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AD' index of the MEDICAL PATIENT file (#690) to record the most recent rheumatology procedure for this patient.` CROSS-REFERENCE: `701^AE^MUMPS` `1)= S $P(^MCAR(701,DA,7),"^")=$P(^DPT(X,0),"^",9)` `2)= S $P(^MCAR(701,DA,7),"^")=""` `This cross-reference moves the patient's social security number from the PATIENT file (#2) into the rheumatology record.`
1.1	SSN		COMPUTED	MUMPS CODE: `X ^DD(701,1.1,9.3) S X=$P(Y(701,1.1,201),U,9) S D0=Y(701,1.1,80)` `9.2 = S Y(701,1.1,80)=$S($D(D0):D0,1:""),Y(701,1.1,1)=$S($D(^MCAR(701,D0,0)):^(0),1:""),D0=$P(Y(701,1.1,1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(701,1.1,180)=$S($D(D0):D0,1:"")` `9.3 = X ^DD(701,1.1,9.2) S Y(701,1.1,101)=$S($D(^MCAR(690,D0,0)):^(0),1:""),D0=$P(Y(701,1.1,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(701,1.1,201)=$S($D(^DPT(D0,0)):^(0),1:"")` ALGORITHM: `1:.01:.09` LAST EDITED: `DEC 14, 1990` HELP-PROMPT: `Answer must be 9-10 characters in length.` DESCRIPTION: `This field identifies the SSN, which is computed.` CROSS-REFERENCE: `701^D` `1)= S ^MCAR(701,"D",$E(X,1,30),DA)=""` `2)= K ^MCAR(701,"D",$E(X,1,30),DA)`
2	BLURRED VISION	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a blurred vision in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced blurring of vision in the past 6 months.`
3	DIZZINESS	0;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced dizziness in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced dizziness in the past 6 months.`
4	DRY EYES	0;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a dry eyes in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced dry eyes in the past 6 months.`
5	DRY MOUTH	0;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a dry mouth in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced dry mouth in the past 6 months.`
6	FEVER	0;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a fever in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced fever in the past 6 months.`
7	HEADACHE	0;8	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a headache in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced headache in the past 6 months.`
8	HEARING DIFFICULTIES	0;9	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced hearing difficulties in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced hearing difficulties in the past 6 months.`
9	INCREASED SWEATING	0;10	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced increased sweating in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced increased sweating in the past 6 months.`
9.1	NIGHT SWEATS	1;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 25, 1991` HELP-PROMPT: `Enter 'Yes' or 'No' whether patient has experienced night sweats.` DESCRIPTION: `Indicates whether the condition of NIGHT Sweats exists.`
10	LOSS,CHANGE IN TASTE	0;11	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a lose or change in taste in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced loss, change in taste in the past 6 months.`
11	LOSS OF HAIR	0;12	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced loss of hair in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced loss of hair in the past 6 months.`
12	MOUTH SORES	0;13	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced mouth sores in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced mouth sores in the past 6 months.`
13	RED,IRRITATED EYES	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced red or irritated eyes in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced red, irritated eyes over the past 6 months.`
14	RINGING IN EARS	0;15	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a ringing in ears in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced ringing in ears during the past 6 months.`
15	SORE THROAT	0;16	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a sore throat in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced sore throat during the past 6 months.`
16	CHEST PAIN/TAKING DEEP BREATH	0;17	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced CHEST PAIN when taking a DEEP BREATH in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced chest pain/ taking deep breath during the past 6 months.`
17	SHORTNESS OF BREATH	0;18	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced shortness of breath in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced shortness of breath during the past 6 months.`
18	WHEEZING(ASTHMA)	0;19	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has been wheezing or had asthma in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced wheezing during the past 6 months.`
19	BLK/TARRY STOOL(NOT FROM IRON)	0;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has had black or tarry stool not coused from iron in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced black/tarry stool (not caused by iron ingestion) during the last 6 months.`
19.1	LIVER PROBLEMS	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `JUL 25, 1991` HELP-PROMPT: `Answer must be 1-18 characters in length.` DESCRIPTION: `Enter a brief description of liver disease.`
20	CONSTIPATION	0;21	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 05, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has expenienced constipation in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced constipation during the last 6 months.`
21	DIARRHEA(FREQUENT,WATERY)	0;22	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced diarrhea (frequent,explosive watery bowel movements, severe) in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced diarrhea in the last 6 months.`
22	DIFFICULTY SWALLOWING	0;23	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has had difficulty swallowing or feeling of food getting stuck in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced difficulty in swallowing in the last 6 months.`
23	GAS(FLATULENCE)	0;24	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has had frequent flatulence in the the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced gas in the last 6 months.`
24	HEARTBURN,INDIGESTION,BELCHING	0;25	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced heartburn, indigestion or belching in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced heartburn, indigestion, or belching in the last 6 months.`
25	JAUNDICE	0;26	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced jaundice in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced jaundice in the last 6 months.`
26	LOOSE/FREQUENT BOWEL(MILD)	0;27	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced loose or frequent bowel movement(mild) in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced loose/ frequent bowel in the last 6 months.`
27	LOSS OF APPETITE	0;28	SET	'1' FOR YES; '0' FOR NO; HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced loss of appetite in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced loss of appetite in the last 6 months.`
28	PAIN/CRAMPS LOWER ABDOMEN	0;29	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced pain or cramps in the lower abdomen(colon) in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced pain/ cramps in the lower abdomen in the last 6 months.`
29	PAIN/DISCOMFORT UPPER ABDOMEN	0;30	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced pain or discomfort in the upper abdomen(stomach) in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced pain/ discomfort in the upper abdomen in the last 6 months.`
30	VOMITING	0;31	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced vomiting in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced vomiting in the last 6 months.`
31	BLOOD IN URINE	0;32	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced blood in the urine in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced blood in the urine in the last 6 months.`
31.1	URINE PROTEIN	1;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 25, 1991` HELP-PROMPT: `Enter 'Yes' or 'No' whether the patient has had a history of urine protein.` DESCRIPTION: `Indicates whether the patient has had a history of urine protein.`
31.5	KIDNEY PROBLEMS	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `JUL 25, 1991` HELP-PROMPT: `Answer must be 1-18 characters in length.` DESCRIPTION: `Describes forms of kidney problems in the patient's history.`
31.8	OTHER	1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1) X` LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Answer must be 1-18 characters in length.` DESCRIPTION: `A brief description of a relevant condition which cannot be otherwise noted.`
32	BURNING ON URINATION	0;33	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a burning on urination in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced burning on urination in the last 6 months.`
33	PREGNANT	0;34	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient is pregnant.` DESCRIPTION: `Indicates whether the patient is pregnant.`
34	IRREGULAR PERIODS	0;35	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has had irregular period in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced irregular periods in the last 6 months.`
35	STIFF IN THE MORNING HOW LONG	0;36	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>24)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 07, 1991` HELP-PROMPT: `Type a Number between 1 and 24, 0 Decimal Digits` DESCRIPTION: `Indicates whether the patient experienced stiffness in the morning and how long in the last 6 months.`
36	JOINT PAIN	0;37	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced join pain in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced joint pain in the last 6 months.`
37	JOINT SWELLING	0;38	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced joint swelling in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced joint swelling in the last 6 months.`
38	LOW BACK PAIN	0;39	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced lower back pain in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced low back pain in the last 6 months.`
39	MUSCLE PAIN	0;40	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced muscle pain in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced muscle pain in the last 6 months.`
40	NECK PAIN	0;41	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced neck pain in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced neck pain in the last 6 months.`
41	NIGHT PAIN	0;42	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced night pain in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced night pain in the last 6 months.`
42	NUMBNESS OR TINGLING	0;43	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced numbness or tingling in hands or feet.` DESCRIPTION: `Indicates whether the patient experienced numbness or tingling in the last 6 months.`
43	SWELLING OF LEGS	0;44	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced swelling of legs in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced swelling of legs in the last 6 months.`
44	WEAKNESS OF MUSCLES	0;45	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced weakness of muscles in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced weakness of muscles experienced in the last 6 months.`
45	DEPRESSION	0;46	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced depression in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced depression in the last 6 months.`
46	INSOMNIA	0;47	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced insomnia in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced insomnia in the last 6 months.`
47	NERVOUSNESS	0;48	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced nervousness in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced nervousness in the last 6 months.`
48	SEIZURES OR CONVULSION	0;49	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has had a seizure or convulsion in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced seizures or convulsions in the last 6 months.`
49	TIREDNESS	0;50	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced tiredness the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced tiredness in the last 6 months.`
50	TROUBLE REMEMBERING/THINKING	0;51	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced trouble remembering or thinking in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced trouble remembering or thinking in the last 6 months.`
51	EASY BRUISING	0;52	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced easy bruising in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced easy bruising in the last 6 months.`
52	FACIAL SKIN TIGHTENING	0;53	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced facial skin tightening in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced facial skin tightening in the last 6 months.`
53	HIVES OR WELTS	0;54	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced hives or welts in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced hives or welts in the last 6 months.`
54	ITCHING	0;55	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced itching in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced itching in the last 6 months.`
55	RASH	0;56	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a rash in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced a rash in the last 6 months.`
56	RASH OVER CHEEKS	0;57	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced rash over cheeks in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced rash over cheeks in the last 6 months.`
57	SKIN COLOR CHANGE IN FINGER	0;58	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced red, white, and blue skin color change in fingers on exposure to cold or with emotional upset in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced skin color change in finger in the last 6 months.`
58	SUN SENSITIVITY	0;59	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced sun sensitivity, unusual skin reaction (not sunburn) in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced sun sensitivity in the last 6 months.`
59	DISCHARGE FROM PENIS	0;60	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced discharge from penis in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced discharge from the penis in the last 6 months.`
60	IMPOTENCE	0;61	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced impotence in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced impotence in the last 6 months.`
61	RASH/ULCERS ON PENIS	0;62	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has experienced a rash or ulcers on penis in the pass six(6) months.` DESCRIPTION: `Indicates whether the patient experienced rash/ ulcers on the penis in the last 6 months.`
62	HEIGHT	2;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>210)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 10 and 210 cm, 0 Decimal Digits` DESCRIPTION: `Indicates the patient's height in centimeters.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER`
63	WEIGHT	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>160)!(X<20)!(X?.E1"."2N.N) X` LAST EDITED: `AUG 20, 1990` HELP-PROMPT: `Type a Number between 20 and 160 kg, 1 Decimal Digit` DESCRIPTION: `Indicates the patient's weight in kilograms.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER`
64	SYSTOLIC PRESSURE	2;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>310)!(X<50)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 20, 1990` HELP-PROMPT: `Type a Number between 50 and 310 mmhg, 0 Decimal Digits` DESCRIPTION: `Indicates systolic blood pressure in millimeters of mercury.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
65	DIASTOLIC PRESSURE	2;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 08, 1990` HELP-PROMPT: `Type a Number between 1 and 300 mmhg, 0 Decimal Digits` DESCRIPTION: `Indicates diastolic pressure in millimeters of mercury.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
66	PULSE	2;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<20)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 20 and 200 /min., 0 Decimal Digits` DESCRIPTION: `Indicates pulse rate per minute.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
67	UVEITIS	2;6	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appopriately.` DESCRIPTION: `Indicates the presence of uveitis.`
67.5	UVEITIS/IRITIS	1;5	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of uveitis/iritis present.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
67.7	CONJUNCTIVITIS/EPISCLERITIS	1;6	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of conjunctivitis/episcleritis present.`
68	CATARACT	2;7	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the presence of a cataract.`
69	IRITIS	2;8	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the presence of iritis.`
70	ORAL ULCERS	2;9	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the patient has oral ulcers.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
71	RALES	2;10	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicate the degree of rales.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
72	PLEURAL RUB/CLINICAL PLEURISY	2;11	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of pleural rub.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
73	PLEURAL EFFUSION	2;12	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of pleural effusion.`
74	PERICARDIAL RUB/PERICARDITIS	2;13	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of pericardial rub.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
75	SYSTOLIC MURMUR	2;14	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of systolic murmur.`
76	DIASTOLIC MURMUR	2;15	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of diastolic murmur.`
77	LYMPH NODE ENLARGEMENT	2;16	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `DEC 30, 1993` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of lymph node enlargement.`
78	MUSCLE TENDERNESS	2;17	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of muscle tenderness.`
79	MUSCLE WEAKNESS-DISTAL	2;18	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of distal muscle weakness.`
80	HEPATOMEGALY	2;19	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of hepatomegaly.`
81	SPLENOMEGALY	2;20	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of splenomegaly.`
82	MUSCLE WEAKNESS-PROXIMAL	2;21	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of proximal muscle weakness.`
83	MUSCLE ATROPHY	2;22	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of muscle atrophy.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
84	PSYCHOSIS	2;23	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of psychosis.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
85	ORGANIC BRAIN SYNDROME	2;24	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of organic brain syndrome.`
86	MOTOR NEUROPATHY	2;25	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of motor neuropathy.`
87	SENSORY NEUROPATHY	2;26	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of sensory neuropathy.`
88	HELIOTROPE EYELIDS	2;27	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of heliotrope eyelids.`
89	RASH-MALAR	2;28	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of Rash-Malar.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
89.1	RASH-SLE,NON-MALAR	1;7	SET	'0' FOR NORMAL; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for normal, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of rash-sle, non-maler present.`
89.2	RASH-OTHER	1;8	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate or severe appropriately.` DESCRIPTION: `Indicates the degree of rash-other present.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
90	PSORIASIS	2;29	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of psoriasis.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
91	RASH-DISCOID	2;30	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of Rash-Discoid.`
92	RASH-JRA	2;31	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of Rash-JRA.`
93	PALPABLE PURPURA	2;32	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of palpable purpura.`
94	SCLERODACTYLY	2;33	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of sclerodactyly.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
95	SCLERODERMA-EXTREMITY	2;34	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of scleroderma of the extremity.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
96	SCLERODERMA-GENERALIZED	2;35	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of scleroderma, generalized.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
97	MORPHEA	2;36	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of morphea.`
98	TELANGIECTASIS	2;37	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of telangiectasis.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
99	CUTANEOUS VASCULTITIS	2;38	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of cutaneous vasculitis.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
100	PERIUNGAL ERYTHEMA	2;39	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of periungual erythema.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
101	KERATODERMIA BLENNORRHAGICA	2;40	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of keratodermia blennorrhagia.`
102	KNUCKLE ERYTHEMA	2;41	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of Knuckle erythema.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
103	DIGITAL ULCERS	2;42	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of digital ulcers.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
104	NAIL PITTING	2;43	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of nail pitting.`
105	SKIN ULCERS	2;44	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree skin ulcers.`
106	ERYTHEMA NODOSUM	2;45	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 11, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of erythema nodosum.`
107	CURRENT MEDICATION	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `DEC 20, 1990` HELP-PROMPT: `Answer must be 1-200 characters in length.` DESCRIPTION: `This field identifies the current medication.`
108	PRESCRIBED MEDICATIONS	4;0	WORD-PROCESSING #701.0108	LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Answer must be 1-200 characters in length.` DESCRIPTION: `This field identifies the prescribed medications.` LAST EDITED: `APR 05, 1991` HELP-PROMPT: `Enter prescribed medications, enter '?' for word processing help` DESCRIPTION: `This field identifies the prescribed medications.`
109	SYMMETRICAL ARTHRITIS	5;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has symmetrical arthritis.` DESCRIPTION: `This field identifies No indicates if the patient has symmetrical arthritis.`
110	DACTYLITIS	5;2	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of dactylitis.`
111	TOPHI	5;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has tophi.` DESCRIPTION: `This field identifies No indicates if the patient has tophi.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
112	SUB-CUTANEOUS NODULES	5;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has sub-cutaneous nodules.` DESCRIPTION: `This field identifies No indicates if the patient has sub-cutaneous nodules.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
112.5	SUBCUTANEOUS CALCIFICATIONS	1;9	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of subcutaneous calcifications presently found.`
113	SYNOVIAL (BAKER'S) CYST	5;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if patient has synovial cyst.` DESCRIPTION: `This field identifies No indicates if the patient has synovial (Baker's) cyst.`
114	HEEL PAIN	5;6	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of heel pain.`
115	TENOSYNOVITIS(TENDON RUBS)	5;7	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriatly.` DESCRIPTION: `Indicates the degree of impairment of tenosynovitis (tendon rubs)`
116	TEMPORAL ARTERY TENDERNESS	5;8	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderately, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of temporal artery tenderness.`
117	COSTOCHONDRITIS	5;9	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of costochondritis.`
118	GRIP STRENGTH-LEFT	5;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 300 mmHg, 0 Decimal Digits` DESCRIPTION: `Indicates left grip strength in millimeters of mercury.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
119	GRIP STRENGTH-RIGHT	5;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>300)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 300 mmHg, 0 Decimal Digits` DESCRIPTION: `Indicates right grip strength in millimeters of mercury.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
120	SCHOBER TEST (10 cm BASE)	5;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 20 cm, 0 Decimal Digits` DESCRIPTION: `Indicates the results of the Schober test (with a 10 cm base).`
121	CHEST EXPANSION	5;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>12)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 12 cm, 0 Decimal Digits` DESCRIPTION: `Indicates expansion of chest between 0 and 12 cm.`
122	OCCIPUT-WALL	5;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 20 cm, 0 Decimal Digits` DESCRIPTION: `Indicates occiput - wall between 0 and 20 cm.`
123	FINGER-TO-PALM CREASE-LEFT	5;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>22)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JUN 20, 1990` HELP-PROMPT: `Type a Number between 0 and 22.0 cm, 1 Decimal Digit` DESCRIPTION: `Indicates left finger-to-palm crease.`
124	FINGER-TO-PALM CREASE-RIGHT	5;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>22)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `JUN 20, 1990` HELP-PROMPT: `Type a Number between 0 and 22.0 cm, 1 Decimal Digit` DESCRIPTION: `Indicates right finger-to-palm crease.`
125	INTERINCISOR DISTANCE	5;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 20, 1990` HELP-PROMPT: `Type a Number between 0 and 60 mm, 0 Decimal Digits` DESCRIPTION: `Indicates interincisor distance, between 0 and 60 mm.`
126	SCHIRMER TEST	5;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>25)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 0 and 25 mm, 0 Decimal Digits` DESCRIPTION: `Indicates results of Schirmer test, between 0 and 25 mm.`
127	WALK TIME (50 FEET)	5;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<6)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Type a Number between 6 and 50 secs., 0 Decimal Digits` DESCRIPTION: `This field identifies the walk time of 50 feet between 6 and 50 seconds.`
128	FUNCTIONAL CLASS (ACR)	5;20	SET	'1' FOR NORMAL; '2' FOR ADEQUATE; '3' FOR LIMITED; '4' FOR INCAPACITATED; LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Enter 1, 2, 3, or 4 for normal, adequate, limited, incapacitated appropriately.` DESCRIPTION: `This field identifies the ACR functional class to indicate degree of impairment.`
129	DISEASE SEVERITY-PAT. ESTIMATE	5;21	SET	'1' FOR MB (MUCH BETTER); '2' FOR B (BETTER); '3' FOR S (SAME); '4' FOR W (WORSE); '5' FOR MW (MUCH WORSE); LAST EDITED: `AUG 21, 1990` HELP-PROMPT: `Enter 1,2,3,4, or 5 for Much Better, Better, Same, Worse, or Much Worse appropriately.` DESCRIPTION: `This field identifies the Pat. estimate of disease severity.`
130	FINGERS-DIP LEFT	5;22	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of fingers - dip left`
131	FINGERS-DIP RIGHT	5;23	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of fingers - dip right.`
132	FINGERS-PIP LEFT	5;24	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 19, 1990` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of fingers - pip left.`
133	FINGERS-PIP RIGHT	5;25	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of fingers - pip right.`
134	MCPS LEFT	5;26	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of MCPS LEFT.`
135	MCPS RIGHT	5;27	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of MCPS RIGHT.`
136	1ST CARPOMETACARPAL L	5;28	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `AUG 01, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of first carpometacarpal left.`
137	1ST CARPOMETACARPAL R	5;29	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `AUG 01, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of first carpometacarpal right.`
138	WRIST LEFT	5;30	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of wrist left.`
139	WRIST RIGHT	5;31	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of wrist right.`
140	ELBOW LEFT	5;32	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of elbow left.`
141	ELBOW RIGHT	5;33	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of elbow right.`
142	SHOULDER LEFT	5;34	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of shoulder left.`
143	SHOULDER RIGHT	5;35	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of shoulder right.`
144	STERNOCLAVICULAR LEFT	5;36	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of sternoclavicular left.`
145	STERNOCLAVICULAR RIGHT	5;37	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of sternoclavicular right.`
146	TMJ LEFT	5;38	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of TMJ left.`
147	TMJ RIGHT	5;39	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of TMJ right.`
148	HIP LEFT	5;40	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of hip left.`
149	HIP RIGHT	5;41	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of hip right.`
150	KNEE LEFT	5;42	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of knee left.`
151	KNEE RIGHT	5;43	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of knee right.`
152	ANKLE LEFT	5;44	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of ankle left.`
153	ANKLE RIGHT	5;45	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of ankle right.`
154	MTP LEFT	5;46	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of MTP left.`
155	MTP RIGHT	5;47	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of MTP right.`
156	TOES-PIP LEFT	5;48	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of toes - PIP left.`
157	TOES-PIP RIGHT	5;49	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of toes - PIP right.`
158	CERVICAL SPINE	5;50	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of cervical spine.`
159	LUMBAR SPINE	5;51	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of impairment of lumbar spine.`
160	COSTOCHONDRAL-LEFT	1;11	SET	'0' FOR NORMAL; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of costochondral disease(left).`
161	COSTOCHONDRAL-RIGHT	1;12	SET	'0' FOR NORMAL; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of costochondral disease(right).`
162	SACROILIAC-LEFT	1;13	SET	'0' FOR NORMAL; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of sacroiliac disease(left).`
163	SACROILIAC-RIGHT	1;14	SET	'0' FOR NORMAL; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUL 30, 1991` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of sacroiliac disease(right).`
164	THORACIC SPINE	1;15	SET	'0' FOR NONE; '1' FOR MILD; '2' FOR MODERATE; '3' FOR SEVERE; LAST EDITED: `JUN 01, 1994` HELP-PROMPT: `Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately.` DESCRIPTION: `Indicates the degree of Thoracic spine disease.`
201	MEDICATION	6;0	POINTER Multiple #701.0201	701.0201 DESCRIPTION: `These are the patient's current medications.` SCREEN: `S DIC("S")="I $D(^MCAR(697.5,""C"",""R"",+Y))"` EXPLANATION: `CHOOSE RHEUMATOLOGY MEDICATIONS ONLY`
295	BP-SYSTOLIC	8;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `This field identifies the patient's systolic blood pressure.`
296	BP-DIASTOLIC	8;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `This field identifies the patient's diastolic blood pressure.`
297	DISEASE ACTIVITY COMPOSITE	8;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Type a Number between 1 and 100, 0 Decimal Digits` DESCRIPTION: `Indicates the patients disease activity composite.`
298	DISEASE SEVERITY-PT. ESTIMATE	8;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `This field identifies the patient's estimate of the disease severity.`
299	DISEASE SEVERITY-MD ESTIMATE	8;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `This field identifies the clinician's estimate of the disease severity.`
300	PAINSCAL	8;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Indicates the pain scale.`
301	DISABILITY INDEX	8;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `Indicates the disability index.`
302	DRESSING AND GROOMING	8;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 0 Decimal Digits` DESCRIPTION: `Indicates the level of functionality for dressing and grooming.`
303	ARISING	8;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `Indicates the level of functionality for arising.`
304	EATING	8;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Indicates the level of functionality for eating.`
305	WALK	8;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Indicates the level of functionality for walking.`
306	HYGIENE	8;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 0 Decimal Digits` DESCRIPTION: `Indicates the level of functionality for hygiene.`
307	REACH	8;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Indicates the level of functionality for reaching.`
308	GRIP-ARA	8;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Indicates the level of functionality for ARA grip.`
309	ACTIVITIES	8;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 0 Decimal Digits` DESCRIPTION: `Indicates the level of functionality for activities.`
312	OCCUPATION	8;24	SET	'0' FOR NONE; '1' FOR PROFESSIONAL-TECH; '2' FOR FARMERS; '3' FOR MANAGERS; '4' FOR CLERICAL; '5' FOR SALES; '7' FOR OPERATIVES; '8' FOR SERVICE; '9' FOR FARM LABORERS; '10' FOR OTHER LABORERS; LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Select from list below.` DESCRIPTION: `This allows the user to enter occupation from a list of choices.`
313	CHART TYPE	8;25	SET	'0' FOR HAQ; '1' FOR UNMARKED, RDC VI, OR R; '2' FOR RDC VIII; '3' FOR RDC IX; '4' FOR RDC X; '5' FOR RDC XI (1985); '6' FOR DEATH INFORMATION; '7' FOR DISCHARGE SUMMARY; LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Select from list below.` DESCRIPTION: `This allows the user to select chart type for the patient.`
314	OBSERVER	8;26	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 28, 1995` HELP-PROMPT: `Enter the name of the provider who saw the patient` DESCRIPTION: `The provider who saw the patient.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `allow only care providers to be selected`
315	VISIT TYPE	8;27	SET	'0' FOR CLINIC (PRIOR RDC X; '1' FOR HOSPITAL; '2' FOR PHONE; '3' FOR MAIL; '4' FOR INITIAL-COMP; '5' FOR RETURN; '6' FOR COMP PT ASSESSOR; '7' FOR MAIL-OUTSIDE PHY RECO; '8' FOR MAIL-OTHER; '9' FOR TLI-RENAL VISIT; LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Select from list below.`
316	DEC NUMBER	8;28	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Type a Number between 0 and 50, 0 Decimal Digits` DESCRIPTION: `Data entry clerk number.`
317	VISIT NUMBER	8;29	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1990` HELP-PROMPT: `Type a Number between 0 and 1, 0 Decimal Digits` DESCRIPTION: `This field identifies sequentially numbered.`
318	LOST OR DEATH STATUS	9;1	SET	'0' FOR CLINIC ALIVE; '1' FOR CLINIC LOST; '2' FOR CLINIC DEAD; LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Enter appropriate code if patient is dead or lost from the VA files.` DESCRIPTION: `Is patient dead or lost from the VA files.`
319	DEATH DATE	9;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 25, 1990` HELP-PROMPT: `Enter date of death dd/mm/yy.` DESCRIPTION: `This allows the user to enter the death date of patient.`
321	AUTOPSY AVAILABLE	9;4	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 25, 1990` HELP-PROMPT: `Enter 'Yes' or 'No' if autopsy is available.` DESCRIPTION: `This field identifies enter yes or no if autopsy is available.`
322	CAUSE OF DEATH	9;5	SET	'1' FOR NOT RHEUM DIS; '2' FOR RHEUM DIS; '3' FOR RHEUM DIS SURGERY; '4' FOR RHEUM DIS DRUG TOXICITY; LAST EDITED: `JUL 07, 1994` HELP-PROMPT: `Choose from the list below.` DESCRIPTION: `This allows user to choose cause of death from list.`
326	NOTIFIED BY	9;6	SET	'1' FOR PHONE; '2' FOR LETTER; '3' FOR OBITUARY; '4' FOR OTHER; LAST EDITED: `JUN 27, 1990` HELP-PROMPT: `Enter 1, 2, 3, 4 for phone, letter, obituary or other appropriately.` DESCRIPTION: `This allows user to choose notification method by list.`
327	PERSON PROVIDING NOTIFICATION	9;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 27, 1990` HELP-PROMPT: `Enter the persons name who provided the notification, last name first.` DESCRIPTION: `This allows user to enter the person's name who provided the notification, last name first.`
328	DEATH NOTIFIED DATE	9;8	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 27, 1990` HELP-PROMPT: `Enter the date when notified.` DESCRIPTION: `This allows user to enter the date when notified.`
329	DISEASE SEVERITY-PHY. ESTIMATE	5;52	SET	'1' FOR MB (MUCH BETTER); '2' FOR B (BETTER); '3' FOR S (SAME); '4' FOR W (WORSE); '5' FOR MW (MUCH WORSE); LAST EDITED: `AUG 22, 1990` HELP-PROMPT: `Enter 1,2,3,4 or 5 for much better, better, same, worse, or much worse appropriately.` DESCRIPTION: `This allows the user to choose estimate from list.`
350	LOW WHITE BLOOD COUNT	10;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 'Yes' or 'No' whether patient has a history of low white blood count.` DESCRIPTION: `Indicates the condition of low white blood count.`
351	LOW PLATELETS	10;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 'Yes' or 'No' whether the patient has had a low platelet count.` DESCRIPTION: `Indicates the condition of low platelet count.`
352	LOW RED BLOOD COUNT	10;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 29, 1991` HELP-PROMPT: `Enter 'Yes' or 'No' whether the patient has had the condition of low red blood count.` DESCRIPTION: `Indicates the condition of low red blood count.`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `NOV 28, 1990` HELP-PROMPT: `Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures'.` DESCRIPTION: `This allows user to enter a summary of the procedure.`
601	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'N' FOR NORMAL; 'MI' FOR MILD ABNL; 'MO' FOR MOD ABNL; 'S' FOR SEV ABNL; LAST EDITED: `FEB 15, 1991` HELP-PROMPT: `Select from list below.` DESCRIPTION: `This allows user to choose summary code.`
602	QUESTDATE	0;63	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Enter question date.` DESCRIPTION: `This field identifies the date of the HAQ.`
603	HAQADMIN	0;64	SET	'0' FOR CLINIC INTERVIEW; '1' FOR HOSPITAL INTERVIEW; '2' FOR TELEPHONE; '3' FOR MAIL; LAST EDITED: `DEC 05, 1990` HELP-PROMPT: `Select from list below.`
604	QUESTYPE	0;65	SET	'1' FOR EVERY YEAR; '2' FOR EVERY 6 MONTHS; LAST EDITED: `DEC 05, 1990`
605	STUDY STATUS	0;66	SET	'0' FOR ONGOING; '1' FOR LOSS OF FUNDS; '2' FOR DEAD; '3' FOR WITHDRAWN FROM STUDY; '4' FOR DX CHANGED; '5' FOR NON-PART REFUSED; '6' FOR NON-PART NO RESPONSE; '7' FOR TEMP OUT OF STUDY; '8' FOR STEY RE-ENTRY; LAST EDITED: `SEP 13, 1994` HELP-PROMPT: `Select from list below.` DESCRIPTION: `This allows user to choose code of study status.`
606	DRUGSTY	0;67	SET	'1' FOR COHORT I; '2' FOR COHORT II; '3' FOR COHORT III; '4' FOR COHORT IV; '5' FOR COHORT V; '6' FOR COHORT VI; '7' FOR COHORT VII; '8' FOR COHORT VIII; LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Select from list below.` DESCRIPTION: `This field identifies a special field to identify patients who are participating in a drug research study.`
607	QUESTNUM	0;68	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>18)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 18, 0 Decimal Digits`
608	PMSVIS	0;69	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Enter 'NO' or 'YES'.`
609	RISE	0;70	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `DEC 06, 1990` HELP-PROMPT: `Type a Number between 0 and 3, 1 Decimal Digit` DESCRIPTION: `Summary score of HAQ questions about arising.`
610	NAUSEA	0;71	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 11, 1990` HELP-PROMPT: `Enter 0 for No and 1 for Yes if patient has Nausea.` DESCRIPTION: `This allows user to enter yes or no for presence of nausea.`
611	HISTORY NARRATIVE	11;0	WORD-PROCESSING #701.0611	DESCRIPTION: `This allows user to enter a history narrative.` LAST EDITED: `JAN 02, 1991` HELP-PROMPT: `Enter '??' for word processing commands.` DESCRIPTION: `This allows user to enter a history narrative.`
612	END SESSION	12;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `JAN 03, 1991` HELP-PROMPT: `Hit the RETURN key to end session.` DESCRIPTION: `This allows user to hit the RETURN key to end session.`
613	LABORATORY INFO	12;2	POINTER TO LAB DATA FILE (#63)	LAB DATA(#63) LAST EDITED: `JAN 10, 1991` HELP-PROMPT: `This file is a pointer to the Lab Data file (#63).` DESCRIPTION: `This allows user to enter laboratory information.`
614	LAB CHEM	12;3	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) LAST EDITED: `JAN 25, 1991` HELP-PROMPT: `This file is a pointer to the Laboratory Test File (#60).` DESCRIPTION: `This allows user to enter information to the laboratory test file.`
615	DIAGNOSIS	13;0	POINTER Multiple #701.0615	701.0615 DESCRIPTION: `This allows user to enter Diagnosis.`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #701.01	701.01 DESCRIPTION: `This field contains the ICD Diagnosis(es) for the procedure.`
701	PRIMARY PROVIDER	PROV;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 12, 1994` HELP-PROMPT: `Enter the Primary Provider.` DESCRIPTION: `This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` EXPLANATION: `Only allow Providers!`
900	PCC POINTER	PCC;1	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `MAY 17, 1996` DESCRIPTION: `This field is used to link the Medicine package results with the PCC Visit File for use by Queryman.` CROSS-REFERENCE: `701^APCE` `1)= S ^MCAR(701,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(701,"APCE",$E(X,1,30),DA)` `Pointer to the Visit file.`
1000	ORIFN	OR;1	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `JUL 09, 1991` HELP-PROMPT: `Enter the 'Consult Orders' internal file number.` DESCRIPTION: `This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package.`
1001	GMRCO	OR;2	POINTER TO REQUEST/CONSULTATION FILE (#123)	REQUEST/CONSULTATION(#123) LAST EDITED: `JUL 16, 1992` HELP-PROMPT: `Enter the 'Request/Consultation' internal file number.` DESCRIPTION: `This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package.`
1514	CREATION DATE	ES;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 01, 1993`
2005	IMAGE	2005;0	POINTER Multiple #701.02005	701.02005 DESCRIPTION: `This field points to an entry in the image file.`

Name	Field # of Occurrence
^%DT	.01+1, 319+1, 328+1, 602+1, 1514+1
^DIC	314+1, 701+1
Y^DIQ	ID1+1
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID1+1
^DD(701	1.1+1, 1.1OF9.3+1
^DPT - [#2]	ID1+1, 1(XREF 3S), 1.1OF9.3+1
^MCAR(690 - [#690]	1.1OF9.2+1, 1.1OF9.3+1
^MCAR(701 - [#701]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 1.1OF9.2+1, 1.1(XREF 1S), 1.1(XREF 1K), 900(XREF 1S) , 900(XREF 1K)

Name	Field # of Occurrence
^(0	ID1+1, 1.1OF9.2+1, 1.1OF9.3+1
^(7	IDZ0+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 319+1, 328+1, 602+1, 1514+1*
%I	ID1+1*!
>> C	ID1+1*
>> D0	1.1+1, 1.1OF9.2+1, 1.1OF9.3+1*
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K), 1.1(XREF 1S), 1.1(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC	ID1+1, 314+1!, 701+1!
DIC("S"	314+1, 314SCR+1, 701+1, 701SCR+1
>> DIE	314+1, 701+1
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, IDZ0+1, 1.1+1, 1.1OF9.2+1, 1.1OF9.3+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1.1+1, 1.1(XREF 1S), 1.1(XREF 1K), 19.1+1! , 31.5+1!, 31.8+1!, 35+1!, 62+1!, 63+1!, 64+1!, 65+1!, 66+1!, 107+1!, 118+1! , 119+1!, 120+1!, 121+1!, 122+1!, 123+1!, 124+1!, 125+1!, 126+1!, 127+1!, 295+1! , 296+1!, 297+1!, 298+1!, 299+1!, 300+1!, 301+1!, 302+1!, 303+1!, 304+1!, 305+1! , 306+1!, 307+1!, 308+1!, 309+1!, 314+1!, 316+1!, 317+1!, 319+1!, 327+1!, 328+1! , 600+1!, 602+1!, 607+1!, 609+1!, 612+1!, 701+1!, 900(XREF 1S), 900(XREF 1K), 1514+1!
>> Y	ID1+1, IDZ0+1, .01+1, 314+1, 319+1, 328+1, 602+1, 701+1, 1514+1
>> Y(701	1.1+1, 1.1OF9.2+1, 1.1OF9.3+1
Z	IDZ0+1*!

Customize PDF page

Package: Medicine

Global: ^MCAR(701

Information

Description

Directly Accessed By Routines, Total: 27

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 11

Fields, Total: 232

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: