12 lines
339 B
Mathematica
12 lines
339 B
Mathematica
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
|