* CONJ-EQUIV-CLASSES
*     A list used by the parsing grammar (rules appearing in WCONJ9)
*     to determine sublanguage semantic compatibility of conjuncts 
*     (two or more phrases joined by commas, "and", "or", nor",...).
*
*     The following assumptions apply:
*     A. An attribute is always conjunctionally equivalent
*        to itself (full list of attributes is found in
*        SUBLANGUAGE-ATTS list).
*        E.g. 'headache, fever and vomiting' each has identical
*             sublanguage attribute H-INDIC.
*     B. CONJ-EQUIV-CLASSES list is a list of all equivalence
*        classes appearing in sublists (shown below).
*        E.g. 'pain on upper surface and fingers'
*             (H-PTAREA and H-PTPART are conjunction equivalents
*     C. A computed attribute COMPUTED-ATT of a phrase is
*        used first to determine compatibility with its conjoined
*        phrase.  For example, 'fever and stiff neck' are judged
*        CONJ-EQUIVALENT because 'stiff neck' has
*        COMPUTED-ATT = H-INDIC. The lists N-COMP-ATT-LN and
*        N-COMP-ATT-RN contain the word class combinations that
*        that constitute COMPUTED-ATTs.
*
LIST CONJ-EQUIV-CLASSES =
  (H-CHANGE, H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME,
     H-TXRES, H-RESULT 
     [* creatinine increase H-CHANGE-MORE and MB of 12 H-RESULT *]),
  (H-CHEM, H-INDIC
     [* signs of black widow toxin and venomization *]),
  (H-TXRES, E-WV [* EKG revealed sinus rhythm with Q-waves *]),
  (H-TXRES, H-PTMEAS [* salt content and volume of water *]),
  (H-PTFUNC, H-PTPART [* sensory and motor exam *]),
  (H-PTFUNC, H-TTCOMP [* deficits in mobility and self-care *]),
  (H-PTFUNC, H-TXCLIN
     [* deep tendon reflexes, motor and sensory exam are intact *]),
  (H-PTPART, H-PTAREA, H-PTSPEC),
  (H-PT, H-RECORD),
  (H-PT, H-FAMILY [* according to the patient and his mother *]),
  (H-PTDESCR, H-FAMILY [* no change in Social Hx or Family Hx *]),
  (H-DIAG, H-PTDESCR, H-INDIC, H-RESULT, H-TXRES, H-ORG,
     H-RESP, H-DESCR, H-NORMAL 
     [* normal left vein H-NORMAL but occlusion H-INDIC of distal RCA *]),
  (H-INDIC, H-TTCOMP
     [* chest pain unassociated with SOB or radiation *]),
  (H-RESP, H-TTGEN, H-DIAG, H-TTMED
     [* pt's condition, instructions, diagnosis and medications *]),
  (H-INDIC, H-TXCLIN,
     H-RESULT [* pain profile, PE, normal lactate *]),
  (H-TTMED [* allergic to penicillin *], H-DIAG, H-CHEM, H-TXVAR,
     H-DIET
     [* denies reaction to bee stings, latex, iodine or shellfish *]),
  (H-DIAG, H-MODAL [* assessment and plan will be... *]),
  (H-DIAG, H-TTSURG [* status post MI, CABG *],
     H-RESULT [* including CABG and ejection fraction of 20 % *]),
  (H-VTEST, H-TXPROC [* blood sampling and biopsy *]),
  (H-TXCLIN, H-TXPROC [* ... exam and stress test *]),
  (H-TXCLIN, H-TTSURG [* refused surgery or workup *]),
  (H-TXCLIN, H-TTGEN [* examination and consult *]),
  (H-TMLOC, H-TXCLIN, H-TTGEN
     [* history, exam, and medical decision making *]),
  (H-TXPROC, H-RESP [* pleased with procedure and recuperation *]),
  (H-TXPROC, H-TXVAR [* no new ECG or enzyme changes *]),
  (H-TMLOC, H-TXPROC, H-TXRES
     [* his history, exercise tolerance test and EKG changes *]),
  (H-DEVMED, H-TXPROC [* his battery pack and leads *]),
  (H-DEVMED, H-TTGEN [* inhaler and peak flow self-monitoring *]),
  (H-DEVMED, H-TTMED [* IV steroids and nebulizers *]),
  (H-TXSPEC, H-TXVAR,H-TXPROC,H-PTSPEC,H-PTPART,H-ORG[,H-RESULT]),
  (H-TTCOMP, H-TTMED, H-TTSURG[, H-TTGEN, H-DEVMED]),
  (H-TTCOMP, H-TTGEN, H-TXPROC
     [* hospitalization, oxygenation, monitoring *]),
  (H-TTCOMP, H-TTSURG, H-DEVMED [* ...therapy, angioplasty, stent *]),
  (H-TTCOMP, H-INST [* physical therapy and nursing Home Health *]),
  (H-TTCOMP, H-DIET [* hydration and nutrition are adequate *]),
  (H-TTSURG, H-TXPROC 
            [* coronary angiography and cardiac catheterization *]),
  (H-TTSURG, H-DIAG [* left hip arthroplasty and Perth's disease *]),
  (NTIME1, NTIME2 [* last week and again yesterday *]),
  (H-TMBEG, H-CHANGE, H-TMEND, H-TMLOC, H-POST,
     H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME),
  (H-TMREP, H-TMDUR [* prolonged and desynchronized *]),
  (H-AMT, H-DESCR [* in severity and frequency *]),
  (NSENT1, NSENT2, NSENT3),
  (NSENT1,
     H-INDIC [* In view of the chest pain and the fact that... *]),
  (H-TTMED, H-CHEM, H-PTFUNC,
     H-TTCOMP [* relieved by drugs and sleep *]),
  (H-TMLOC, H-TXPROC [* by history and electrocardiagrams *]),
  (H-DESCR, H-PTLOC [* nondermatomal and poorly localizing *]),
  (H-TXCLIN, H-TXVAR [french]).
* N-COMP-ATT-LN
*      A list whose members are attributes of a head Noun N which can
*      take an LN COMPUTED-ATTRIBUTE; the resultant attribute(s) created
*      by the procedure WCOMP-ATT-LN using the list N-COMP-ATT-LN are 
*      assigned as attribute(s) of the head N. Each resultant attribute
*      will in turn have sub-attributes which are the classes in the
*      modifier (LN)> which cause the resultant COMPUTED-ATTRIBUTE.
*      
*      The resultant attribute 'TRANSP' means that the COMPUTED
*      ATTRIBUTE IS "transparent": it takes on the class of the word in
*      the modifier causing the COMPUTED ATTRIBUTE. For example, 
*      'H-PTPART' modified by 'H-INDIC' is "transparent", according to
*      the list N-COMP-ATT-LN, which has as a member
*      H-PTPART:(H-RESULT:(H-NEG, H-CHANGE),TRANSP:(H-INDIC, H-DIAG)).
*      For e.g. 'stiff neck' where 'stiff' is H-INDIC and 'neck'
*      is H-PTPART, the procedure will assign the COMPUTED-ATT = H-INDIC
*      to the head Noun 'neck' due to the H-INDIC modifier in LN.
*      Note the attribute H-RESULT, which is not a lexical attribute of
*      any word but is the resultant COMPUTED-ATTRIBUTE for certain
*      word class combinations, e.g. a PTPART word modified by H-NEG
*      or H-CHANGE, as in 'no stools' or 'change in lung'.
LIST N-COMP-ATT-LN =
H-PTMEAS:(H-RESULT:(H-AMT,H-EVID,H-NORMAL [* normal AP diameter *],
                    NUNIT, H-CHANGE, 
                    H-CHANGE-MORE [* increased AP diameter *], 
                    H-CHANGE-LESS, H-CHANGE-SAME),
          H-INDIC:(H-INDIC), H-DIAG:(H-DIAG)),
H-PTFUNC:(H-RESULT:(H-AMT,H-EVID,H-DESCR,H-TXRES,H-CHANGE,
                   H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME,
                    NUNIT),
          H-INDIC:(H-NEG,H-INDIC,H-TMDUR [* rapid heart rate *],
                   H-TMLOC [* delayed closure *]),
          H-NORMAL:(H-NORMAL),
          H-DIAG:(H-DIAG),
          H-TTSURG:(H-TTSURG)),
H-PTPART:(H-RESULT:(H-CHANGE,H-DESCR [* black stool *],
                    QNUMBER [* 2+ carotids *],H-CHANGE-MORE,
                    H-CHANGE-LESS [* decreased cartilage *],
                    H-CHANGE-SAME, H-RESP ),
          H-NORMAL:(H-NORMAL),
          H-INDIC:(H-INDIC, H-TMDUR [* rapid heart *],
                   H-NEG [* false lumen *],
                   H-EVID [* true lumen *]),
          H-TXRES:(H-TXRES),
          H-DIAG:(H-DIAG)),
H-PTAREA:(H-RESULT:(H-CHANGE,H-RESP,
                    H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME),
          H-PTPART:(H-PTPART), H-NORMAL:(H-NORMAL),H-INDIC:(H-INDIC),
                    H-DIAG:(H-DIAG)),
H-PTSPEC:(H-TXRES:(H-TXRES)),
H-CHANGE:(H-RESULT:(H-PTFUNC,H-PTMEAS,H-TXCLIN,H-PT,H-FAMILY,
                 H-NEG [* no change *], H-PTPART,H-PTAREA,H-PTLOC),
                 TRANSP:(H-INDIC,H-DIAG, H-TTMED,H-TTCOMP,H-TTGEN,
                 H-RESP)),
H-CHANGE-MORE:(H-RESULT:(H-PTFUNC,H-PTMEAS,H-TXCLIN,H-PT,H-FAMILY,
                 H-NEG [* no increase *],[H-PTPART,]H-PTAREA,H-PTLOC),
                 TRANSP:(H-INDIC,H-DIAG, H-TTMED,H-TTCOMP,H-TTGEN,
                 H-RESP)),
H-CHANGE-LESS:(H-RESULT:(H-PTFUNC,H-PTMEAS,H-TXCLIN,H-PT,H-FAMILY,
                 H-NEG [* no decrease *],[H-PTPART,]H-PTAREA,H-PTLOC),
                 TRANSP:(H-INDIC,H-DIAG, H-TTMED,H-TTCOMP,H-TTGEN,
                 H-RESP)),
H-CHANGE-SAME:(H-RESULT:(H-PTFUNC,H-PTMEAS,H-TXCLIN,H-PT,H-FAMILY,
                 H-NEG [* not the same *],[H-PTPART,]H-PTAREA,H-PTLOC),
                 TRANSP:(H-INDIC,H-DIAG, H-TTMED,H-TTCOMP,H-TTGEN,
                 H-RESP)),
NUNIT:(H-AMT:(H-CHANGE-LESS,H-CHANGE-MORE [* to a lesser degree *])),
H-EVID:(TRANSP),
H-INDIC:(H-INDIC:(H-NEG)[for ambiguous 'no growth' prefer H-INDIC],
         H-DIAG:(H-ORG [* herpes_viral infection 8/23/01 Dave *])),
H-ORG:(H-RESULT:(H-NORMAL [* normal flora *])),
H-DIET:(H-TTCOMP:(H-NEG [* no eggs in diet *])),
H-RESP:(H-RESP:(H-TMEND)),
H-TMEND:(H-RESULT:(H-PTMEAS,H-PTFUNC,H-TXCLIN),TRANSP),
H-TMLOC:(H-INDIC:(H-INDIC [* with prior smoking history *])),
[H-TMLOC:(H-RESULT:(H-NEG,H-NORMAL)),no significant medical history]
H-TMDUR:(H-RESULT:(H-PTFUNC),H-INDIC:(H-INDIC [* syncopal episode *]),
         H-TTMED:(H-TTMED)),
H-TRANSP:(TRANSP),
H-TTGEN:(H-TTSURG:(H-TTSURG [* surgical back_up *]),
         H-TXPROC:(H-TXPROC [* angiographic evaluation *])),
H-TXCLIN:(H-TMLOC:(H-TMLOC),
          H-RESULT:(H-NORMAL [* normal physical exam *])),
H-TXPROC:(H-RESULT:(QNUMBER), H-NORMAL:(H-NORMAL), H-INDIC:(H-INDIC)
          [H-TXRES:(H-TXRES) 'a 2d echo']),
H-TXSPEC:(H-RESULT:(H-ORG,QNUMBER,H-INDIC),
          H-TXRES:(H-TXRES)),
H-TXVAR:(H-RESULT:(H-TXRES,H-ORG,QNUMBER,H-NEG,H-AMT,H-CHANGE,H-NORMAL,
                   H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME,
                   NUNIT [* 1% eosinophils *]),
         H-INDIC:(H-INDIC)).
* N-COMP-ATT-NPOS
*      NPOS-N COMPUTED ATTRIBUTE MUST USE THIS LIST RATHER THAN GENERAL
*      N-COMP-ATT-LN.  THIS LIST IS USED IN WCOMP-ATT-LN$NPOS.
LIST N-COMP-ATT-NPOS =
 H-TTSURG:(H-TTSURG:
             (H-DEVMED [* stent placement, defibrillator insertion *]
[* resolve H-TTSURG/H-PTAREA pacemaker insertion vs biceps insertion *])),
 H-TTCOMP:(H-TTMED:
             (H-TTMED [* oxygen therapy - resolve H-TTMED/H-TXVAR *])),
 H-TXSPEC:(H-TXSPEC:
             (H-PTPART [* blood culture - resolve H-PTPART/H-INDIC *])),
 H-PTFUNC:(H-INDIC:(H-INDIC [* plaque formation *])),
 H-INDIC:(H-DIAG:(H-ORG [* herpes infection 8/23/01 Dave *])),
 H-TMLOC:(H-DIAG:(H-DIAG [* hepatitis history rbhiv *])),
 H-CHANGE:(H-RESULT:(H-PTFUNC,H-PTMEAS,[H-PTPART,][ H-PT,]
                     E-INTVL [* ST segment changes *], 
                     H-TXCLIN,[H-FAMILY,]H-PTAREA,H-PTLOC),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,H-TTCOMP,H-TTGEN, H-RESP)),
 H-CHANGE-MORE:(H-RESULT:(H-PTFUNC,H-PTMEAS,[H-PTPART,][ H-PT,]
                          E-INTVL [* ST elevation *], 
                          H-TXCLIN, [H-FAMILY,]H-PTAREA,H-PTLOC),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,H-TTCOMP,H-TTGEN, H-RESP)),
 H-CHANGE-LESS:(H-RESULT:(H-PTFUNC,H-PTMEAS,[H-PTPART,][ H-PT,]
                          E-INTVL [* ST depression *], 
                          H-TXCLIN,[H-FAMILY,]H-PTAREA,H-PTLOC),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,H-TTCOMP,H-TTGEN, H-RESP)),
 H-CHANGE-SAME:(H-RESULT:(H-PTFUNC,H-PTMEAS,[H-PTPART,][ H-PT,]
                     H-TXCLIN,[H-FAMILY,]H-PTAREA,H-PTLOC),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,H-TTCOMP,H-TTGEN, H-RESP)),
  H-TRANSP:(TRANSP),
  H-TTMED:(H-TXVAR:(H-PTPART [* serum dilantin *])),
  H-TTCOMP:(H-TTMED:(H-TTMED [* heparin protocol *])),
  H-PTAREA:(H-PTPART:(H-PTPART)).
* N-COMP-ATT-RN
*      The RN COMPUTED ATTRIBUTE falls into two groups:
*          1.  COMPUTED ATTRIBUTE
*              In the case of the RN COMPUTED ATTRIBUTE, the head noun
*              of the N + RN structure that may result in a COMPUTED
*              ATTRIBUTE appears first, followed by a ':', which is
*              followed in parentheses by the resultant; the resultant
*              in turn is followed by a ':' and in parentheses the 
*              word classes such that, if one occurs as the core of the
*              RN adjunct, will cause the COMPUTED ATTRIBUTE to be created 
*              with that word class as its value. For example, H-CHANGE in
*              the list N-COMP-ATT-RN has the entry
*                 H-CHANGE:(H-RESULT:(H-PTAREA,H-PTFUNC,...))
*              which meanS that H-CHANGE combined with an RN with
*              H-PTAREA oR H-PTFUNC as head will give an H-RESULT LNR.
*          2.  TRANSPARENT (abbreviated 'TRANSP')
*              A word having this subattribute takes on the attribute
*              of whatever head noun is in the right adjunct, provided
*              that head noun is on the 'TRANSP' list.
*          3.  BOTH COMPUTED AND TRANSPARENT ATTRIBUTES
*              A word may have both COMPUTED ATTRIBUTEs for certain
*              RN's and be transparent with respect to the
*              remainging attributes on the TRANSP list; for example,
*              for H-CHANGE, the entry
*                 H-CHANGE:(H-RESULT:(H-PTAREA,H-PTFUNC),TRANSP)
*              means that H-CHANGE with an H-PTAREA or H-PTFUNC word as
*              head noun of an RN adjunct would give an H-RESULT LNR, 
*              but with (e.g.) H-TTGEN or H-TTCOMP comparably placed
*              would give an H-TTGEN or H-TTCOMP LNR.
*
LIST N-COMP-ATT-RN =
  H-AMT:(H-RESULT:(H-NORMAL,H-INDIC,H-DIAG,H-TTCOMP,H-PTFUNC,
                   H-PTMEAS,H-TXVAR,H-TXRES)),
  H-CHANGE:(H-RESULT:(H-TXCLIN,H-TXVAR [* aucun movement enzymatique *]),
            H-INDIC:(H-PT, H-PTAREA,H-PTFUNC [* no change in vision *],
                     H-PTLOC,H-PTMEAS,H-PTPART),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,H-TTCOMP,H-TTGEN,H-RESP)),
  H-CHANGE-MORE:(H-RESULT:(H-PT,
                      H-PTAREA,H-PTFUNC,H-PTLOC,H-PTMEAS,H-PTPART,
                      H-TXCLIN,H-TXVAR [* aucun movement enzymatique *]),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,
                    H-TTCOMP,H-TTGEN,H-RESP)),
  H-CHANGE-LESS:(H-RESULT:(H-PT,
                      H-PTAREA,H-PTFUNC,H-PTLOC,H-PTMEAS,H-PTPART,
                      H-TXCLIN,H-TXVAR [* aucun movement enzymatique *]),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,
                    H-TTCOMP,H-TTGEN,H-RESP)),
  H-CHANGE-SAME:(H-RESULT:(H-PT,
                      H-PTAREA,H-PTFUNC,H-PTLOC,H-PTMEAS,H-PTPART,
                      H-TXCLIN,H-TXVAR [* aucun movement enzymatique *]),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED,
                    H-TTCOMP,H-TTGEN,H-RESP)),
  H-EVID:(TRANSP:
              (H-INDIC [* evidence of bibasilar atelectasis *])),
  H-FAMILY:(H-DIAG:
              (H-DIAG [* denies family hx of CAD; family_hx=H-FAMILY *])),
  H-INST:(H-INST:(H-PTPART)),
  H-MODAL:(TRANSP),
  H-NEG:(H-RESULT:(H-NORMAL,H-INDIC,H-DIAG,H-PTFUNC,H-PTMEAS,H-RESULT),
         H-TTCOMP:(H-DIET [* elimination of eggs from diet *]),
         TRANSP),
  H-NORMAL:(H-RESULT:(H-PTPART [* vierge de toute cicatrice *])),
  H-NULL:(TRANSP:(H-INDIC)) [* signs of infection *],
  H-PTAREA:(H-DEVMED:(H-DEVMED),
            TRANSP:(H-INDIC,H-DIAG,H-RESP)),
  H-PTFUNC:(H-RESULT:(H-NORMAL,H-INDIC,
                      H-CHANGE [* JVP raised *],NUNIT,H-AMT,
                      H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME,
                      QNUMBER [,NTIME1])),
  H-PTMEAS:(H-RESULT:(NUNIT,H-NORMAL,H-AMT)),
  H-PTPART:(H-RESULT:(H-DESCR,H-TTSURG,QNUMBER)
            [* arm with redness; knees post surgery; carotids 2+ *],
            TRANSP:(H-INDIC,H-DIAG,H-NORMAL,H-RESP)),
  H-PTSPEC:(TRANSP:(H-TXRES,H-ORG)),
  H-RECORD:(TRANSP:(H-INDIC,H-DIAG [* record of arrhythmia *])),
  H-TMBEG:(H-RESULT:(H-PTFUNC [* reprise du transit *]),
            TRANSP:(H-INDIC,H-DIAG,H-TTMED, H-TTSURG,
                    H-TTCOMP,H-TTGEN,H-RESP)),
  H-TMEND:(H-INDIC:(H-PTFUNC),
           H-RESULT:(H-INDIC,H-DIAG [* disappearance of fever *]),
           TRANSP:(H-TTMED, H-TTSURG, H-TTCOMP,H-TTGEN,
                   H-RESP)),
  H-TMLOC:(H-INDIC:(H-PTPART [* cardiac history *]),
           TRANSP:(H-TTMED,H-TTSURG,H-TTCOMP,
                   H-ORG [* history of salmonella *],
           [H-TTGEN,morning after admission/=H-TTGEN 9/30/98]
                   H-INDIC,H-DIAG,H-RESP)),
  H-TMDUR:(TRANSP:(H-INDIC,H-DIAG,H-TTGEN,H-RESP,H-TTMED, H-TTSURG,
                    H-TTCOMP [* a course of irradiation *]),
            H-TTMED:( H-DEVMED [* a period of bronchodilators *]),
            H-TMLOC:(NTIME1 [* during the course of the day *])),
  H-TRANSP:(TRANSP),
  H-TTGEN:(H-TXPROC:(H-TXPROC [* review of chest xray *])),
  H-TXCLIN:(H-RESULT:(H-TXRES,H-NORMAL)),
  H-TXPROC:(H-RESULT:(H-TXRES,H-NORMAL,H-INDIC
            [* swallowing study markedly abnormal for solid foods *])),
  H-TXSPEC:(H-RESULT:(QNUMBER,H-AMT,NUNIT,H-NORMAL)),
  H-TXRES:(TRANSP:(H-INDIC [* image de lithiase *])),
  H-TXVAR:(H-RESULT:(QNUMBER,H-AMT,NUNIT,H-TXRES,H-ORG,H-NORMAL,
                     H-CHANGE-MORE, H-CHANGE-LESS, H-CHANGE-SAME,
                     H-INDIC, H-CHANGE)),
  H-AMT:(H-INDIC:(H-INDIC [* 2-3 ounces QN=H-AMT of alcohol H-INDIC *])),
  NUNIT:(H-INDIC:(H-INDIC [* moderate degree of hypoxia *]),
         H-TTMED:(H-TTMED)).
