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):