source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR225.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 339 bytes
Line 
1TIUPR225 ; ISL/JER - Pre-install for TIU*1*225 ; 04/23/2007
2 ;;1.0;TEXT INTEGRATION UTILITIES;**225**;Jun 20, 1997;Build 13
3 ;
4MAIN ; control subroutine
5 D REMLOINC
6 Q
7REMLOINC ; Remove "LOINC" x-ref on file 8925.1
8 N TIUOUT
9 D BMES^XPDUTL("REMOVING ""LOINC"" CROSS-REFERENCE ON FILE 8925.1")
10 D DELIX^DDMOD(8925.1,1501,1,"K","TIUOUT")
11 Q
Note: See TracBrowser for help on using the repository browser.