Routine: TIUPR112

TIUPR112 ; SLC/JER - PRE-Install for TIU*1*112;09/12/2003

 ;;1.0;Text Integration Utilities;**112**;Jun 20, 1997

MAIN ; Control subroutine

 N TEXT,TIUNAME,TIUDA,TIUDT,TIULIST

 S (TIUNAME,TIUDA,TIUDT)=0

 F  S TIUNAME=$O(^PXD(811.8,"B",TIUNAME)) Q:TIUNAME=""  F  S TIUDT=$O(^PXD(811.8,"B",TIUNAME,TIUDT)) Q:TIUDT=""  F  S TIUDA=$O(^PXD(811.8,"B",TIUNAME,TIUDT,TIUDA)) Q:TIUDA=""  D

 . I TIUNAME["TIU*1*112" S TIULIST(TIUDA)=""

 S TEXT=" Removing Reminders Exchange File Entry from prior install..."

 D BMES^XPDUTL(TEXT)

 D DELETE^PXRMEXU1(.TIULIST)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPR112   561     printed  Apr 09, 2024@21:41:47                                                                                                                                                                                                     Page 2

TIUPR112  ; SLC/JER - PRE-Install for TIU*1*112;09/12/2003

 +1       ;;1.0;Text Integration Utilities;**112**;Jun 20, 1997

MAIN      ; Control subroutine

 +1        NEW TEXT,TIUNAME,TIUDA,TIUDT,TIULIST

 +2        SET (TIUNAME,TIUDA,TIUDT)=0

 +3        FOR

               SET TIUNAME=$ORDER(^PXD(811.8,"B",TIUNAME))

               if TIUNAME=""

                   QUIT

FOR

                   SET TIUDT=$ORDER(^PXD(811.8,"B",TIUNAME,TIUDT))

                   if TIUDT=""

                       QUIT

FOR

                       SET TIUDA=$ORDER(^PXD(811.8,"B",TIUNAME,TIUDT,TIUDA))

                       if TIUDA=""

                           QUIT

                       Begin DoDot:1

 +4                        IF TIUNAME["TIU*1*112"

                               SET TIULIST(TIUDA)=""

                       End DoDot:1

 +5        SET TEXT=" Removing Reminders Exchange File Entry from prior install..."

 +6        DO BMES^XPDUTL(TEXT)

 +7        DO DELETE^PXRMEXU1(.TIULIST)

 +8        QUIT

TIUPR112.m