source:
WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR225.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 339 bytes |
Line | |
---|---|
1 | TIUPR225 ; ISL/JER - Pre-install for TIU*1*225 ; 04/23/2007 |
2 | ;;1.0;TEXT INTEGRATION UTILITIES;**225**;Jun 20, 1997;Build 13 |
3 | ; |
4 | MAIN ; control subroutine |
5 | D REMLOINC |
6 | Q |
7 | REMLOINC ; 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.