TIUPR225.m

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

TIUPR225  ; ISL/JER - Pre-install for TIU*1*225 ; 04/23/2007

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**225**;Jun 20, 1997;Build 13

 +2       ;

MAIN      ; control subroutine

 +1        DO REMLOINC

 +2        QUIT 

REMLOINC  ; Remove "LOINC" x-ref on file 8925.1

 +1        NEW TIUOUT

 +2        DO BMES^XPDUTL("REMOVING ""LOINC"" CROSS-REFERENCE ON FILE 8925.1")

 +3        DO DELIX^DDMOD(8925.1,1501,1,"K","TIUOUT")

 +4        QUIT