TIUPR225 ; ISL/JER - Pre-install for TIU*1*225 ; 04/23/2007
 ;;1.0;TEXT INTEGRATION UTILITIES;**225**;Jun 20, 1997;Build 13
 ;
MAIN ; control subroutine
 D REMLOINC
 Q
REMLOINC ; Remove "LOINC" x-ref on file 8925.1
 N TIUOUT
 D BMES^XPDUTL("REMOVING ""LOINC"" CROSS-REFERENCE ON FILE 8925.1")
 D DELIX^DDMOD(8925.1,1501,1,"K","TIUOUT")
 Q