- 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 Mar 13, 2025@21:49:19 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 ;
