* MAJOR-FMT-CLASS
*   INDICATES THE MAJOR SUBLANGUAGE CLASSES WHICH PARTICIPATE
*   IN CENTRAL SLOTS -- PSTATE-DATA, PSTATE-SUBJ, TREATMENT, METHOD
*   AND TEST-INFO OF FORMAT4 -- OF FORMATS.
LIST MAJOR-FMT-CLASS =
    H-NEG, H-MODAL,
    H-ALLERGY, H-CHEM, [H-CELLTYPE, H-NOCLASS,]
    H-DIAG, H-DEVMED, H-INDIC, H-RESP, H-DESCR, H-NORMAL,
    E-WV, E-EKGPROC, E-LEAD, E-AX, E-INTVL [EKG],
    H-TXPROC, H-TXCLIN, H-TXSPEC, H-TXRES, H-TXVAR,
    H-TTSURG, H-TTCOMP, H-TTGEN, H-TTMED, H-TTMODE,
    H-PT, H-PTAREA, H-PTLOC, H-PTMEAS, H-PTPART, H-PTFUNC,
    H-TMBEG, H-TMEND, H-TMLOC, H-TMDUR, H-TMPREP, H-TMREP, [*970917*]
    H-PTSPEC, H-ORG.
LIST FORMAT-EQUIV-CLASS  =
     (H-INDIC, H-DIAG, H-ALLERGY, H-DESCR, H-RESULT),
     (H-PTFUNC, [H-GROW,] H-PTMEAS).
LIST TIME-MOD-NODES =
     H-TTGEN,H-PTVERB,H-TTCOMP,H-VTEST,H-CONN,H-TXSPEC,H-TXVAR,[H-GROW,]
     H-TXCLIN, H-PTFUNC, H-PTMEAS, H-TXRES, H-INDIC,H-TXPROC,E-EKGPROC,
    [H-BEH,] H-PTDESCR, H-DIAG, VBE, VHAVE, H-SHOW, H-TTMED,H-ORG,
     H-INST,[H-DOCTOR,]H-NORMAL, H-AMT, H-NEG, NUNIT, QNUMBER,
     H-RECORD, H-RESULT, H-BECONN.
* LIST FORMAT-LIST
*    CONTAINS CORRESPONDENCE BETWEEN SUBCLASS AND FORMAT SLOT.
*    SOME FORMAT SLOTS ARE APPLICABLE ONLY IF FORMAT IS A CERTAIN
*    TYPE. THEREFORE AN ENTRY ON FORMAT-LIST COULD BE
*    H-INDIC:(INDIC:(FORMAT5)), MEANING THAT AN LXR WHOSE CORE-SELATT
*    IS H-INDIC CORRESPONDS TO NODE INDIC IN FORMAT5. WHEN THE FORMAT
*    TYPE IS MISSING -- AS IN H-INST:(INST) -- THE SUBCLASS IS
*    TO BE FORMATTED REGARDLESS OF THE FORMAT TYPE ASSIGNED.
LIST FORMAT-LIST =
      FEM:(GENDER [FEMALE]),
      H-AGE:(AGE-MK),
      H-AMT:(QUANT),
      H-ALLERGY:(INDIC:(FORMAT5-ALG)),
      H-CONN:(VERB:(FORMAT5F,FORMAT5-EKG,FORMAT5-ALG,FORMAT5)),
      H-CHANGE:(EKG-MORPH:(FORMAT5-EKG)),
      H-CHANGE:(QUANT),
      H-CHANGE-MORE:(QUANT),
      H-CHANGE-LESS:(QUANT),
      H-CHANGE-SAME:(QUANT),
     [H-CELLTYPE:(QUALIFIERS:(FORMAT4,FORMAT5F,FORMAT5-EKG,]
     [                        FORMAT5,FORMAT5-ALG,FORMAT1-3)),]
      H-DESCR:(EKG-MORPH:(FORMAT5-EKG)),
      H-DESCR:(QUALIFIERS:(FORMAT4,FORMAT5F,FORMAT5,FORMAT5-EKG,
                           FORMAT1-3,FORMAT5-ALG,FORMAT13-MED)),
      E-EKGPROC:(PROCEDURE:(FORMAT5F,FORMAT5-EKG,FORMAT5)),
      E-LEAD:(IN-LEADS:(FORMAT5-EKG)),
      E-WV:(WAVE:(FORMAT5-EKG)),
      E-INTVL:(INTERVAL:(FORMAT5-EKG)),
      E-AX:(AXIS:(FORMAT5-EKG)),
      H-DEVMED:(PROCEDURE:(FORMAT5F,FORMAT5)),
      H-DEVMED:(MED-DEVICE:(FORMAT13-MED,FORMAT1-3)),
      H-DIAG:(DIAG:(FORMAT5F,FORMAT5-EKG,FORMAT5,FORMAT13-MED,FORMAT1-3,
                    FORMAT4,FORMAT5-ALG)),
      H-FAMILY:(FAMILY:(FORMAT5F), SUBJECT:(FORMAT5F)),
      H-GEOGR:(INST),
      H-INDIC:(INDIC:(FORMAT5F,FORMAT5,FORMAT13-MED,FORMAT1-3,FORMAT4,
                      FORMAT5-EKG,FORMAT5-ALG)),
      H-INST:(INST),
      H-NORMAL:(NORMAL),
      H-OBSERVE:(EXAMTEST:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5),
                 TESTRES:(FORMAT4)),
      H-ORG:(ORGANISM:(FORMAT4,FORMAT5-ALG)),
      H-PT:(SUBJECT:(FORMAT5F,FORMAT5-EKG,FORMAT5,FORMAT5-ALG,
                     FORMAT13-MED,FORMAT1-3)),
      H-PT:(PT:(FORMAT4,FORMAT0,FORMAT6)),
      H-PTDESCR:(PRECISIONS),
      H-PTFUNC:(PTFUNC:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5,
                        FORMAT13-MED,FORMAT1-3)),
      H-PTFUNC:(PTPART:(FORMAT4 [*GRI*])),
      H-PTLOC:(PTPART),
      H-PTMEAS:(PTMEAS:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5)),
      H-PTPART:(PTPART:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5,
                        FORMAT13-MED,FORMAT1-3,FORMAT4)),
      H-PTSPEC:(PTPART:(FORMAT4 [*GRI*])),
      H-PTAREA:(PTPART:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5,
                        FORMAT13-MED,FORMAT1-3,FORMAT4)),
      H-ETHNIC:(RACE),
      H-DIET:(INFLUENCE:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5,
                          FORMAT13-MED,FORMAT1-3)),
      H-RECORD:(PARAGR [* Consultation Note *]),
      H-RESP:(TXRES:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5)),
      H-RESP:(TTRES:(FORMAT13-MED,FORMAT1-3)),
      H-SHOW:(VERB:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5)),
     [H-TMREP:(PRECISIONS:(FORMAT5F,FORMAT5,FORMAT13-MED,FORMAT1-3)),]
     [H-TMDUR:(PRECISIONS:(FORMAT5F,FORMAT5,FORMAT13-MED,FORMAT1-3)),]
      H-TMDUR:(TM-PERIOD), [7.28.92]
      H-TMREP:(TM-REPETITION), [7.28.92]
      H-TTSURG:(SURG:(FORMAT1-3)),
      H-TTSURG:(SPEC-ACCESS:(FORMAT4)),
      H-TTSURG:(PROCEDURE:(FORMAT5)),
      H-TTCOMP:(COMP:(FORMAT13-MED,FORMAT1-3)),
      H-TTGEN:(VERB:(FORMAT4 [* check his thyroid function *])),
      H-TTGEN:(GEN:(FORMAT13-MED,FORMAT1-3,FORMAT5,FORMAT5F,
                    FORMAT5-EKG,FORMAT5-ALG)),
      H-TTMED:(MED:(FORMAT13-MED,FORMAT1-3,FORMAT5-ALG)),
      H-TTMODE:(MED:(FORMAT13-MED,FORMAT1-3)),
      H-TXCLIN:(EXAMTEST:(FORMAT5F,FORMAT5-EKG,FORMAT5)),
      H-TXPROC:(PROCEDURE:(FORMAT5F,FORMAT5-EKG,FORMAT5)),
      H-TXRES:(TESTRES:(FORMAT4)),
      H-TXRES:(EKG-MORPH:(FORMAT5-EKG)),
      H-TXRES:(TXRES:(FORMAT5F,FORMAT5)),
      H-TXSPEC:(TXSPEC:(FORMAT4)),
      H-TXVAR:(TXVAR:(FORMAT4)),
      MASC:(GENDER [MALE]), [*GRI*]
      'A2':(VERB:(FORMAT1-3)),
      'FOR':(VERB:(FORMAT5F,FORMAT5-ALG,FORMAT5-EKG,FORMAT5,
                   FORMAT13-MED,FORMAT1-3)),
      'POUR':(VERB:(FORMAT5F,FORMAT5-EKG,FORMAT5,
                   FORMAT13-MED,FORMAT1-3)).
* SLOT-LIST: NODES IN FORMAT THAT ARE CHILDREN OF MAIN NODE-
*            PSTATE-DATA HAS INDIC,QUANT,DESCR,... UNDER IT.
LIST SLOT-LIST =
     MED-TR:(MED,RXDOSE,RXMANNER,RXFREQUENCY,VERB-TR),
     AGENTS:(MED,ORGANISM,ALLIFE),
     METHOD:(PROCEDURE,EXAMTEST),
     TREATMENT:(GEN,SURG,MED,COMP,MED-DEVICE),
     EKG-SUBJ:(WAVE,INTERVAL,AXIS),
     EKG-DATA:(QUANT,EKG-MORPH,DIAG,INDIC,NORMAL),
     PSTATE-SUBJ:(PT,FAMILY,PTPART,PTFUNC,PTMEAS[,SUBJ-OTHER]),
     PSTATE-DATA:(DIAG,INDIC,NORMAL,[DESCR,STATUS,]TTRES,TXRES,
                  INFLUENCE,QUALIFIERS,QUANT [,PTSTATE-OTHER]),
     RESULT:(DIAG,INDIC,TESTRES,ORGANISM,NORMAL,QUANT),
     PRECISIONS:(MORE-PREDS),
    [GENDER:(MALE,FEMALE)]
     TIME-QUALS:(TM-PERIOD,TM-REPETITION) [7.28.92].
* MODIFIER-LIST
*    LIST OF FORMAT MODIFIER, SUBCLASS CORRESPONDING TO THAT
*    MODIFIER, AND CORRESPONDING FORMAT SLOT IN MODIFIER.
*    AN LXR WHOSE CORE-SELATT IS H-TMBEG IS A TIME-ASP MODIFIER,
*    AND SHOULD BE ASSIGNED TO FORMAT SLOT BEG IN TIME-ASP.
LIST MODIFIER-LIST =
     TIME-QUAL: (H-TMDUR:(TM-PERIOD),H-TMREP:(TM-REPETITION)),
     EVENT-TIME: (H-TMLOC:(TPREP2), NTIME2:(TPREP2),
                  H-RECORD:(TPREP2)),
     MODS:(H-MODAL:(MODAL),
           H-NEG:(NEG)),
     TENSE:(H-VTENSE:(TENSE)),
     TIME-ASP:(H-TMBEG:(BEG),
               H-TMEND:(END)),
     Y-OF:(H-TRANSP:(Y-OF)).
* HOST-OF-MODIFIERS
*     for each modifier, lists format slots which can
*     have that particular modifier.
LIST HOST-OF-MODIFIERS =
   TIME-QUAL:(SENT-OP,VERB,VERB-MD,VERB-TR,EXAM-FUNC,PSTATE-DATA,
              EKG-DATA,
              EXAMTEST,TXRES,TTRES,TESTRES [?],STATUS,RESPONSE,
              BEG,INFLUENCE,CHANGE-MK,END,
              TEST-INFO,RESULT,MED,MODS,OBJECT), [*GRI*]
   EVENT-TIME:(SENT-OP,VERB,VERB-MD,VERB-TR,EXAM-FUNC,PSTATE-DATA,
               EKG-DATA,PROCEDURE [ECGs of 11/12/2001],
               EXAMTEST,TXRES,TTRES,TESTRES [?],STATUS,RESPONSE,
               BEG,INFLUENCE,CHANGE-MK,END,
               TEST-INFO,RESULT,MED,SURG,MODS,OBJECT),
   TIME-ASP:(SENT-OP,VERB,VERB-MD,VERB-TR,EXAMTEST,PSTATE-DATA,
             EKG-DATA,PTFUNC,PTMEAS,PTPART,TXRES,TTRES,TESTRES [?],
             BEG,INFLUENCE,CHANGE-MK,END,
             RESPONSE,STATUS,
             TEST-INFO,RESULT,MED,MODS,OBJECT),
   TENSE:(VERB,VERB-TR,VERB-MD [,SURG,MED,GEN,COMP]),
   MODS:(SENT-OP,VERB,VERB-MD,VERB-TR,EXAMTEST,PSTATE-DATA,
         EKG-DATA,STATUS,RESPONSE,
         TEST-INFO,RESULT,TIME-ASP,MODS,OBJECT,TXRES,TTRES,
         TESTRES [?]),
   BP-MOD:(MED,PROCEDURE,TXRES,TTRES,TESTRES,BP-MOD,DIAG,INDIC)
  [BP-MOD:(PSTATE-SUBJ,MED,TEST-INFO,BP-MOD,PSTATE-DATA,STATUS].
