RGMSCMTL.m

RGMSCMTL ;CAIRO/DKM - Multi-term lookup support ;04-Sep-1998 11:26;DKM

 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999

 ;=================================================================

 ; Parse term into component words (KWIC)

PARSE2(RGTRM,RGRTN,RGMIN) ;

 Q $$PARSE2^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)

 ; Parse term into component words

PARSE(RGTRM,RGRTN,RGMIN) ;

 Q $$PARSE^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)

 ; Create/delete an MTL cross reference for term

XREF(RGRT,RGTRM,RGDA,RGDEL) ;

 D XREF^RGUTMTL(.RGRT,.RGTRM,.RGDA,.RGDEL)

 Q

 ; Lookup a term in an MTL index

LKP(RGRT,RGTRM,RGRTN,RGABR) ;

 Q $$LKP^RGUTMTL(.RGRT,.RGTRM,.RGRTN,.RGABR)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RGMSCMTL   641     printed  Apr 09, 2024@20:48:15                                                                                                                                                                                                     Page 2

RGMSCMTL  ;CAIRO/DKM - Multi-term lookup support ;04-Sep-1998 11:26;DKM

 +1       ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999

 +2       ;=================================================================

 +3       ; Parse term into component words (KWIC)

PARSE2(RGTRM,RGRTN,RGMIN) ;

 +1        QUIT $$PARSE2^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)

 +2       ; Parse term into component words

PARSE(RGTRM,RGRTN,RGMIN) ;

 +1        QUIT $$PARSE^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)

 +2       ; Create/delete an MTL cross reference for term

XREF(RGRT,RGTRM,RGDA,RGDEL) ;

 +1        DO XREF^RGUTMTL(.RGRT,.RGTRM,.RGDA,.RGDEL)

 +2        QUIT 

 +3       ; Lookup a term in an MTL index

LKP(RGRT,RGTRM,RGRTN,RGABR) ;

 +1        QUIT $$LKP^RGUTMTL(.RGRT,.RGTRM,.RGRTN,.RGABR)