source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGMSCMTL.m@ 770

Last change on this file since 770 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 625 bytes
RevLine 
[613]1RGMSCMTL ;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)
5PARSE2(RGTRM,RGRTN,RGMIN) ;
6 Q $$PARSE2^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)
7 ; Parse term into component words
8PARSE(RGTRM,RGRTN,RGMIN) ;
9 Q $$PARSE^RGUTMTL(.RGTRM,.RGRTN,.RGMIN)
10 ; Create/delete an MTL cross reference for term
11XREF(RGRT,RGTRM,RGDA,RGDEL) ;
12 D XREF^RGUTMTL(.RGRT,.RGTRM,.RGDA,.RGDEL)
13 Q
14 ; Lookup a term in an MTL index
15LKP(RGRT,RGTRM,RGRTN,RGABR) ;
16 Q $$LKP^RGUTMTL(.RGRT,.RGTRM,.RGRTN,.RGABR)
Note: See TracBrowser for help on using the repository browser.