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 ---[H[J[2J[HEAS1106P 1669 printed Dec 13, 2024@01:53:02 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
