STANDARD DATA DICTIONARY #701 -- RHEUMATOLOGY FILE 3/24/25 PAGE 1 STORED IN ^MCAR(701, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3) DATA NAME GLOBAL DATA ELEMENT TITLE LOCATION TYPE ----------------------------------------------------------------------------------------------------------------------------------- This file stores data on Rheumatology visits. DD ACCESS: @ AUDIT ACCESS: @ IDENTIFIED BY: MEDICAL PATIENT (#1)[R] "Z0": I $D(^(7)),$P(^(7),U,1) S Z=Y,Y=$P(^(7),U,1) W " ",Y S Y=Z K Z POINTED TO BY: RESULT field (#11) of the REQUEST/CONSULTATION File (#123) ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File (#123) CROSS REFERENCED BY: DATE/TIME(AC), MEDICAL PATIENT(AD), MEDICAL PATIENT(AE), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), SSN(D) 701,.01 DATE/TIME 0;1 DATE (Required) 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. 701,1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required) 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. 701,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) 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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 701,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 701,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 701,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 701,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 701,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. 701,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 701,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. 701,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. 701,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. 701,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 701,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 701,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 701,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. 701,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 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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 701,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 701,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. 701,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. 701,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. 701,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. 701,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 701,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. 701,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 701,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 701,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. 701,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. 701,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. 701,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 701,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 701,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 701,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. 701,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 701,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 701,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 701,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. 701,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 701,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 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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 701,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 701,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. 701,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. 701,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. 701,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) 701,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. 701,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. 701,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 701,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 701,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). 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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). 701,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). 701,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). 701,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). 701,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. 701,201 MEDICATION 6;0 POINTER Multiple #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 701.0201,.01 MEDICATION 0;1 POINTER TO MEDICATION FILE (#695) (Multiply asked) INPUT TRANSFORM: S DIC("S")="I $D(^MCAR(695,""C"",""R"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X LAST EDITED: DEC 13, 1990 HELP-PROMPT: Enter the patient's current medications. DESCRIPTION: These are the patients current medications. SCREEN: S DIC("S")="I $D(^MCAR(695,""C"",""R"",+Y))" EXPLANATION: CHOOSE RHEUMATOLOGY MEDICATION ENTRIES ONLY CROSS-REFERENCE: 701.0201^B 1)= S ^MCAR(701,DA(1),6,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(701,DA(1),6,"B",$E(X,1,30),DA) 701.0201,1 DOSAGE 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X LAST EDITED: DEC 13, 1990 HELP-PROMPT: Answer must be 1-10 characters in length. DESCRIPTION: This allows the user to enter the dosage of the patient's current medications. 701.0201,2 FREQUENCY 0;3 FREE TEXT INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X LAST EDITED: DEC 13, 1990 HELP-PROMPT: Answer must be 2-10 characters in length. DESCRIPTION: This allows the user to enter the time/number of times (frequency) of the patient's current medications. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,314 OBSERVER 8;26 POINTER TO NEW PERSON FILE (#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 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,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. 701,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required) 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. 701,601 SUMMARY .2;1 SET (Required) '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. 701,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. 701,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. 701,604 QUESTYPE 0;65 SET '1' FOR EVERY YEAR; '2' FOR EVERY 6 MONTHS; LAST EDITED: DEC 05, 1990 701,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. 701,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. 701,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 701,608 PMSVIS 0;69 SET '0' FOR NO; '1' FOR YES; LAST EDITED: DEC 06, 1990 HELP-PROMPT: Enter 'NO' or 'YES'. 701,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. 701,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. 701,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. 701,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. 701,613 LABORATORY INFO 12;2 POINTER TO LAB DATA FILE (#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. 701,614 LAB CHEM 12;3 POINTER TO LABORATORY TEST FILE (#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. 701,615 DIAGNOSIS 13;0 POINTER Multiple #701.0615 DESCRIPTION: This allows user to enter Diagnosis. 701.0615,.01 DIAGNOSIS 0;1 POINTER TO MEDICAL DIAGNOSIS/ICD CODES FILE (#697.5) (Multiply asked) INPUT TRANSFORM:S DIC("S")="I $D(^MCAR(697.5,""A.RHEUM"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.RHEUM" D ^DIC K DIC S D IC=DIE,X=+Y K:Y<0 X LAST EDITED: JAN 03, 1992 HELP-PROMPT: Enter the Medical Diagnosis or ICD Code, pointer to file (#697.5). DESCRIPTION: This allows user to enter Diagnosis. SCREEN: S DIC("S")="I $D(^MCAR(697.5,""A.RHEUM"",$P(^MCAR(697.5,+Y,0),U),+Y))",D="A.RHEUM" EXPLANATION: CHOOSE RHEUMATOLOGY DIAGNOSES ONLY EXECUTABLE HELP:Q:$D(DJJ) N DO S X="?",DIC(0)="X",DIC="^MCAR(697.5,",D="A.RHEUM" D MIX^DIC1 S D=-1 CROSS-REFERENCE:701.0615^B 1)= S ^MCAR(701,DA(1),13,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(701,DA(1),13,"B",$E(X,1,30),DA) CROSS-REFERENCE:701.0615^AC^MUMPS 1)= D SET^MCRH2 2)= D KILL^MCRH2 This X-Ref sets the ICD node for Queryman searches. 701.0615,1 DATE OF SYMPTOM 0;2 DATE (Required) INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X LAST EDITED: APR 17, 1991 HELP-PROMPT: Enter the date this diagnosis was made DESCRIPTION: This allows the user to enter the date this diagnosis was made. 701,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #701.01 DESCRIPTION: This field contains the ICD Diagnosis(es) for the procedure. 701.01,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked) LAST EDITED: MAR 10, 1993 DESCRIPTION: This field contains an ICD Diagnosis for the procedure. CROSS-REFERENCE: 701.01^B 1)= S ^MCAR(701,DA(1),"ICD","B",$E(X,1,30),DA)="" 2)= K ^MCAR(701,DA(1),"ICD","B",$E(X,1,30),DA) 701.01,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X LAST EDITED: JAN 02, 1992 HELP-PROMPT: Answer must be 1-80 characters in length. 701,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#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! 701,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#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. 701,1000 ORIFN OR;1 POINTER TO ORDER FILE (#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. 701,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#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. 701,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 701,2005 IMAGE 2005;0 POINTER Multiple #701.02005 DESCRIPTION: This field points to an entry in the image file. 701.02005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked) LAST EDITED: MAY 14, 1991 DESCRIPTION: This field points to an object in the image file. CROSS-REFERENCE: 701.02005^B 1)= S ^MCAR(701,DA(1),2005,"B",$E(X,1,30),DA)="" 2)= K ^MCAR(701,DA(1),2005,"B",$E(X,1,30),DA) FILES POINTED TO FIELDS ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01) IMAGE (#2005) IMAGE:IMAGE (#.01) LAB DATA (#63) LABORATORY INFO (#613) LABORATORY TEST (#60) LAB CHEM (#614) MEDICAL DIAGNOSIS/ICD CODES (#697.5) DIAGNOSIS:DIAGNOSIS (#.01) MEDICAL PATIENT (#690) MEDICAL PATIENT (#1) MEDICATION (#695) MEDICATION:MEDICATION (#.01) NEW PERSON (#200) OBSERVER (#314) PRIMARY PROVIDER (#701) ORDER (#100) ORIFN (#1000) REQUEST/CONSULTATION (#123) GMRCO (#1001) VISIT (#9000010) PCC POINTER (#900) INPUT TEMPLATE(S): MCRHBACKINFO AUG 26, 1990@21:37 USER #0 MCRHBRIEF MAR 09, 1993@13:29 USER #0 MCRHBRLINE MAR 09, 1993@13:31 USER #0 MCRHDEATH AUG 07, 1991@15:42 USER #0 MCRHDIAG JAN 14, 1992@13:00 USER #0 MCRHHAQ AUG 07, 1991@15:38 USER #0 MCRHHIST AUG 06, 1991@12:19 USER #0 MCRHNARR JAN 03, 1991@14:03 USER #0 MCRHPHYS JUL 07, 1994@09:07 USER #0 PRINT TEMPLATE(S): MCRHBACK SEP 06, 2002@13:47 USER #0 ^MCARORB @ MCRHBRPR MAY 13, 1996@12:40 USER #0 ^MCOBRH @ MCRHBRPR1 MAY 13, 1996@12:42 USER #0 ^MCOBRHA @ MCRHDEATH MAY 13, 1996@12:42 USER #0 ^MCARORD @ MCRHHAQ MAY 13, 1996@12:43 USER #0 ^MCARORQ @ MCRHHIST MAY 13, 1996@12:45 USER #0 ^MCARORH @ MCRHLAB MAY 13, 1996@12:47 USER #0 ^MCARORL @ MCRHNARR MAY 13, 1996@12:48 USER #0 ^MCARORN @ MCRHPHYS MAY 13, 1996@12:51 USER #0 ^MCARORF @ MCRHPHYS1 MAY 13, 1996@12:54 USER #0 ^MCARORP @ MCRHPHYS2 JUN 26, 1996@09:42 USER #0 ^MCARORE @ MCRHPROG FEB 02, 2012@16:40 USER #0 ^MCARORA @ SORT TEMPLATE(S): FORM(S)/BLOCK(S):