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 ---[H[J[2J[HTIUPS297 751 printed Dec 13, 2024@02:44:25 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 ;
