Routine: TIUPS263

TIUPS263 ; SLC/MAM - Post-Install for 263 ;09/09/13  17:08

 ;;1.0;TEXT INTEGRATION UTILITIES;**263**;Jun 20, 1997;Build 16

 ;  Post Installation Routine for patch TIU*1.0*263

MAIN ; Disables TIU Problem Link Protocols

 N PROTNM1,PROTNM2,PROTNM3,PROTNM4,TIUPROT,TIUPIEN,TIUERR,TIUFDA,TIUMSG

 S PROTNM1="TIU ACTION LINK TO PROBLEMS",PROTNM2="TIU ACTION MENU LINK TO PROBLEM"

 S PROTNM3="TIU ACTION SELECT PROBLEM",PROTNM4="TIU BROWSE ACTION LINK TO PROBLEM"

 F TIUPROT=PROTNM1,PROTNM2,PROTNM3,PROTNM4 D

 . S TIUPIEN=$$FIND1^DIC(101,"","X",TIUPROT,"B")

 . I 'TIUPIEN S TIUERR="   **ERROR** Unable to locate Protocol "_TIUPROT D BMES^XPDUTL(TIUERR) Q

 . S TIUFDA(101,TIUPIEN_",",2)="Disabled; use CPRS GUI."

 . D FILE^DIE("K","TIUFDA","TIUMSG")

 . I $D(TIUMSG) S TIUERR="   **ERROR** Unable to disable Protocol "_TIUPROT D BMES^XPDUTL(TIUERR) Q

 . D BMES^XPDUTL("Protocol "_TIUPROT_" successfully disabled.")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS263   927     printed  Dec 13, 2024@02:44:21                                                                                                                                                                                                     Page 2

TIUPS263  ; SLC/MAM - Post-Install for 263 ;09/09/13  17:08

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**263**;Jun 20, 1997;Build 16

 +2       ;  Post Installation Routine for patch TIU*1.0*263

 +3       ;

MAIN      ; Disables TIU Problem Link Protocols

 +1        NEW PROTNM1,PROTNM2,PROTNM3,PROTNM4,TIUPROT,TIUPIEN,TIUERR,TIUFDA,TIUMSG

 +2        SET PROTNM1="TIU ACTION LINK TO PROBLEMS"

           SET PROTNM2="TIU ACTION MENU LINK TO PROBLEM"

 +3        SET PROTNM3="TIU ACTION SELECT PROBLEM"

           SET PROTNM4="TIU BROWSE ACTION LINK TO PROBLEM"

 +4        FOR TIUPROT=PROTNM1,PROTNM2,PROTNM3,PROTNM4

               Begin DoDot:1

 +5                SET TIUPIEN=$$FIND1^DIC(101,"","X",TIUPROT,"B")

 +6                IF 'TIUPIEN

                       SET TIUERR="   **ERROR** Unable to locate Protocol "_TIUPROT

                       DO BMES^XPDUTL(TIUERR)

                       QUIT

 +7                SET TIUFDA(101,TIUPIEN_",",2)="Disabled; use CPRS GUI."

 +8                DO FILE^DIE("K","TIUFDA","TIUMSG")

 +9                IF $DATA(TIUMSG)

                       SET TIUERR="   **ERROR** Unable to disable Protocol "_TIUPROT

                       DO BMES^XPDUTL(TIUERR)

                       QUIT

 +10               DO BMES^XPDUTL("Protocol "_TIUPROT_" successfully disabled.")

               End DoDot:1

 +11       QUIT

TIUPS263.m