EAS1106P.m

EAS1106P ;ALB/PWC - VFA PROJECT POST-INSTALL ; 9/5/12 5:55pm

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**106**;MAR 15,2001;Build 28

EN ; SET MENU OPTIONS OUT OF ORDER

 D OUT,DEL

 Q

OUT N OPTION,TEXT

 D BMES^XPDUTL("The following menu options for Means Test letters and reports have been placed out of order by this installation.")

 S OPTION="",TEXT="Disabled by the VFA project. Do not use."

 F OPTION="EAS MT AUTO LETTERS MENU","EAS MT LETTERS SEARCH","EAS MT RETURNED","EAS MT PRINT MENU","EAS MT 60 DAY LETTER PRINT","EAS MT 30 DAY LETTER PRINT" D PRINT

 F OPTION="EAS MT 0 DAY LETTER PRINT","EAS MT REPRINT LETTERS","EAS MT REPRINT SINGLE LETTER","EAS MT REPORT OF CONTACT","EAS MT UES OVERRIDE" D PRINT

 F OPTION="EAS MT REPORT MENU","EAS MT PENDING LETTERS","EAS MT SUMMARY REPORT","EAS MT STATISTICS SUMMARY","EAS MT UNRETURNED LETTERS","EAS MT APPT EXPIRATION RPT","EAS MT EXPIRATIONS" D PRINT

 F OPTION="EAS MT UE STATUS","EAS MT SETUP MENU","EAS MT PARAMETERS","EAS MT PROHIBIT EDIT","EAS MT LETTERS EDIT","EAS MT TEST LETTER","EAS MT CLEAR IN USE FLAG" D PRINT

 ; SET BACKGROUND JOBS OUT OF ORDER

 F OPTION="EAS MT LETTERS BG PRINT","EAS MT LETTERS BG SEARCH","EAS MT EXPIRATION BG PRINT" D PRINT

 Q

PRINT ; PRINT OUT OF ORDER MENU OPTIONS

 D OUT^XPDMENU(OPTION,TEXT)

 D BMES^XPDUTL("["_OPTION_"]")

 Q

DEL ; CHECK TO SEE IF EAS MT AUTO LETTERS MENU IS ON ANY SUBMENUS AND DELETE

 N OPIEN,ITEM,OPNM,ITEMNM

 S OPIEN=$O(^DIC(19,"B","EAS MT AUTO LETTERS MENU","")) Q:OPIEN=""

 S ITEM="" F  S ITEM=$O(^DIC(19,"AD",OPIEN,ITEM)) Q:ITEM=""  D

 . S OPNM=$$GET1^DIQ(19,OPIEN,.01),ITEMNM=$$GET1^DIQ(19,ITEM,.01)

 . D DELETE^XPDMENU(ITEMNM,OPNM)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EAS1106P   1669     printed  Apr 09, 2024@21:00:15                                                                                                                                                                                                    Page 2

EAS1106P  ;ALB/PWC - VFA PROJECT POST-INSTALL ; 9/5/12 5:55pm

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**106**;MAR 15,2001;Build 28

EN        ; SET MENU OPTIONS OUT OF ORDER

 +1        DO OUT

           DO DEL

 +2        QUIT 

OUT        NEW OPTION,TEXT

 +1        DO BMES^XPDUTL("The following menu options for Means Test letters and reports have been placed out of order by this installation.")

 +2        SET OPTION=""

           SET TEXT="Disabled by the VFA project. Do not use."

 +3        FOR OPTION="EAS MT AUTO LETTERS MENU","EAS MT LETTERS SEARCH","EAS MT RETURNED","EAS MT PRINT MENU","EAS MT 60 DAY LETTER PRINT","EAS MT 30 DAY LETTER PRINT"

               DO PRINT

 +4        FOR OPTION="EAS MT 0 DAY LETTER PRINT","EAS MT REPRINT LETTERS","EAS MT REPRINT SINGLE LETTER","EAS MT REPORT OF CONTACT","EAS MT UES OVERRIDE"

               DO PRINT

 +5        FOR OPTION="EAS MT REPORT MENU","EAS MT PENDING LETTERS","EAS MT SUMMARY REPORT","EAS MT STATISTICS SUMMARY","EAS MT UNRETURNED LETTERS","EAS MT APPT EXPIRATION RPT","EAS MT EXPIRATIONS"

               DO PRINT

 +6        FOR OPTION="EAS MT UE STATUS","EAS MT SETUP MENU","EAS MT PARAMETERS","EAS MT PROHIBIT EDIT","EAS MT LETTERS EDIT","EAS MT TEST LETTER","EAS MT CLEAR IN USE FLAG"

               DO PRINT

 +7       ; SET BACKGROUND JOBS OUT OF ORDER

 +8        FOR OPTION="EAS MT LETTERS BG PRINT","EAS MT LETTERS BG SEARCH","EAS MT EXPIRATION BG PRINT"

               DO PRINT

 +9        QUIT 

PRINT     ; PRINT OUT OF ORDER MENU OPTIONS

 +1        DO OUT^XPDMENU(OPTION,TEXT)

 +2        DO BMES^XPDUTL("["_OPTION_"]")

 +3        QUIT 

DEL       ; CHECK TO SEE IF EAS MT AUTO LETTERS MENU IS ON ANY SUBMENUS AND DELETE

 +1        NEW OPIEN,ITEM,OPNM,ITEMNM

 +2        SET OPIEN=$ORDER(^DIC(19,"B","EAS MT AUTO LETTERS MENU",""))

           if OPIEN=""

               QUIT 

 +3        SET ITEM=""

           FOR 

               SET ITEM=$ORDER(^DIC(19,"AD",OPIEN,ITEM))

               if ITEM=""

                   QUIT 

               Begin DoDot:1

 +4                SET OPNM=$$GET1^DIQ(19,OPIEN,.01)

                   SET ITEMNM=$$GET1^DIQ(19,ITEM,.01)

 +5                DO DELETE^XPDMENU(ITEMNM,OPNM)

               End DoDot:1

 +6        QUIT