| 1 | RGMSCMTL ;CAIRO/DKM - Multi-term lookup support ;04-Sep-1998 11:26;DKM
 | 
|---|
| 2 |  ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
 | 
|---|
| 3 |  ;=================================================================
 | 
|---|
| 4 |  ; Parse term into component words (KWIC)
 | 
|---|
| 5 | PARSE2(RGTRM,RGRTN,RGMIN) ;
 | 
|---|
| 6 |  Q $$PARSE2^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)
 | 
|---|
| 7 |  ; Parse term into component words
 | 
|---|
| 8 | PARSE(RGTRM,RGRTN,RGMIN) ;
 | 
|---|
| 9 |  Q $$PARSE^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)
 | 
|---|
| 10 |  ; Create/delete an MTL cross reference for term
 | 
|---|
| 11 | XREF(RGRT,RGTRM,RGDA,RGDEL) ;
 | 
|---|
| 12 |  D XREF^RGUTMTL(.RGRT,.RGTRM,.RGDA,.RGDEL)
 | 
|---|
| 13 |  Q
 | 
|---|
| 14 |  ; Lookup a term in an MTL index
 | 
|---|
| 15 | LKP(RGRT,RGTRM,RGRTN,RGABR) ;
 | 
|---|
| 16 |  Q $$LKP^RGUTMTL(.RGRT,.RGTRM,.RGRTN,.RGABR)
 | 
|---|