TIUPS297.m

TIUPS297 ;BPOIFO/EL - Post-Install for TIU MAINT MENU Cleanup ;4/29/2016

 ;;1.0;TEXT INTEGRATION UTILITIES;**297**;JUN 20, 1997;Build 40

 ;

 ; This routine will use the following IA:

 ; #1157 - $$ADD^XPDMENU (SUPPORTED)

 Q

 ;

OPTFIX ; Fixed Synonym and Display in OPTION NAME

 N TIUDIS,TIUFLG,TIUMENU,TIUOPT,TIUSYN

 S (TIUDIS,TIUFLG,TIUMENU,TIUOPT,TIUSYN)=""

 S TIUMENU="TIU IRM MAINTENANCE MENU"

 S TIUOPT="TIU ACTIVE TITLE CLEANUP"

 S (TIUSYN,TIUDIS)=6

 S TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 S TIUOPT="TIU MAP TITLES MENU"

 S (TIUSYN,TIUDIS)=8

 S TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 S TIUOPT="TIU TEXT EVENT EDIT"

 S (TIUSYN,TIUDIS)=9

 S TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUPS297   751     printed  Apr 09, 2024@21:46:05                                                                                                                                                                                                     Page 2

TIUPS297  ;BPOIFO/EL - Post-Install for TIU MAINT MENU Cleanup ;4/29/2016

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**297**;JUN 20, 1997;Build 40

 +2       ;

 +3       ; This routine will use the following IA:

 +4       ; #1157 - $$ADD^XPDMENU (SUPPORTED)

 +5        QUIT 

 +6       ;

OPTFIX    ; Fixed Synonym and Display in OPTION NAME

 +1        NEW TIUDIS,TIUFLG,TIUMENU,TIUOPT,TIUSYN

 +2        SET (TIUDIS,TIUFLG,TIUMENU,TIUOPT,TIUSYN)=""

 +3        SET TIUMENU="TIU IRM MAINTENANCE MENU"

 +4        SET TIUOPT="TIU ACTIVE TITLE CLEANUP"

 +5        SET (TIUSYN,TIUDIS)=6

 +6        SET TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 +7        SET TIUOPT="TIU MAP TITLES MENU"

 +8        SET (TIUSYN,TIUDIS)=8

 +9        SET TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 +10       SET TIUOPT="TIU TEXT EVENT EDIT"

 +11       SET (TIUSYN,TIUDIS)=9

 +12       SET TIUFLG=$$ADD^XPDMENU(TIUMENU,TIUOPT,TIUSYN,TIUDIS)

 +13       QUIT 

 +14      ;