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