Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: TIUPR225

TIUPR225.m

Go to the documentation of this file.

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

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")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPR225   350     printed  Nov 22, 2024@17:53:26                                                                                                                                                                                                     Page 2

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