Global: ^MCAR(701

FileMan FileNo	FileMan Filename	Package
701	RHEUMATOLOGY	Medicine

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

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: