IB20P701 ;SLC/RM - POST INSTALL ROUTINE FOR IB*2.0*701 ; April 12, 2021@2:21 pm
;;2.0;INTEGRATED BILLING;**701**;March 21, 1994;Build 12
;;Per VA Directive 6402, this routine should not be modified.
;
;External References Supported by ICR# Type
;------------------- ----------------- ----------
; $$DELETE^XPDMENU 1157 Supported
; $$LKOPT^XPDMENU 1157 Supported
; BMES^XPDUTL 10141 Supported
; MES^XPDUTL 10141 Supported
;
Q
;
DELOPT ; Remove option 'DG OTH FSM ELIG. CHANGE REPORT' from 'IB OUTPUT PATIENT REPORT MENU'
N CHECK,MENU,OPTION,DA,DIK
D BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
D MES^XPDUTL(" ")
D MES^XPDUTL(" Removing Option DG OTH FSM ELIG. CHANGE REPORT from")
D MES^XPDUTL(" IB OUTPUT PATIENT REPORT MENU...")
D MES^XPDUTL(" ")
S MENU="IB OUTPUT PATIENT REPORT MENU"
S OPTION="DG OTH FSM ELIG. CHANGE REPORT"
I '+$$LKOPT^XPDMENU(MENU) D MES^XPDUTL(" "_MENU_" does not exist.") Q
I '+$$LKOPT^XPDMENU(OPTION) D MES^XPDUTL(" "_OPTION_" does not exist.") Q
;
S CHECK=$$DELETE^XPDMENU(MENU,OPTION)
I CHECK D
. D MES^XPDUTL(" Successfully removed DG OTH FSM ELIG. CHANGE REPORT from")
. D MES^XPDUTL(" IB OUTPUT PATIENT REPORT MENU...")
E D
. D MES^XPDUTL(" DG OTH FSM ELIG. CHANGE REPORT menu option does not exist")
. D MES^XPDUTL(" in IB OUTPUT PATIENT REPORT MENU...")
. D MES^XPDUTL(" NO ACTION TAKEN.")
D MES^XPDUTL(" ")
D MES^XPDUTL(" >> End of the Post-Initialization routine ...")
D MES^XPDUTL(" ")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIB20P701 1665 printed Dec 13, 2024@02:04:37 Page 2
IB20P701 ;SLC/RM - POST INSTALL ROUTINE FOR IB*2.0*701 ; April 12, 2021@2:21 pm
+1 ;;2.0;INTEGRATED BILLING;**701**;March 21, 1994;Build 12
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;External References Supported by ICR# Type
+5 ;------------------- ----------------- ----------
+6 ; $$DELETE^XPDMENU 1157 Supported
+7 ; $$LKOPT^XPDMENU 1157 Supported
+8 ; BMES^XPDUTL 10141 Supported
+9 ; MES^XPDUTL 10141 Supported
+10 ;
+11 QUIT
+12 ;
DELOPT ; Remove option 'DG OTH FSM ELIG. CHANGE REPORT' from 'IB OUTPUT PATIENT REPORT MENU'
+1 NEW CHECK,MENU,OPTION,DA,DIK
+2 DO BMES^XPDUTL(" >> Starting the Post-Initialization routine ...")
+3 DO MES^XPDUTL(" ")
+4 DO MES^XPDUTL(" Removing Option DG OTH FSM ELIG. CHANGE REPORT from")
+5 DO MES^XPDUTL(" IB OUTPUT PATIENT REPORT MENU...")
+6 DO MES^XPDUTL(" ")
+7 SET MENU="IB OUTPUT PATIENT REPORT MENU"
+8 SET OPTION="DG OTH FSM ELIG. CHANGE REPORT"
+9 IF '+$$LKOPT^XPDMENU(MENU)
DO MES^XPDUTL(" "_MENU_" does not exist.")
QUIT
+10 IF '+$$LKOPT^XPDMENU(OPTION)
DO MES^XPDUTL(" "_OPTION_" does not exist.")
QUIT
+11 ;
+12 SET CHECK=$$DELETE^XPDMENU(MENU,OPTION)
+13 IF CHECK
Begin DoDot:1
+14 DO MES^XPDUTL(" Successfully removed DG OTH FSM ELIG. CHANGE REPORT from")
+15 DO MES^XPDUTL(" IB OUTPUT PATIENT REPORT MENU...")
End DoDot:1
+16 IF '$TEST
Begin DoDot:1
+17 DO MES^XPDUTL(" DG OTH FSM ELIG. CHANGE REPORT menu option does not exist")
+18 DO MES^XPDUTL(" in IB OUTPUT PATIENT REPORT MENU...")
+19 DO MES^XPDUTL(" NO ACTION TAKEN.")
End DoDot:1
+20 DO MES^XPDUTL(" ")
+21 DO MES^XPDUTL(" >> End of the Post-Initialization routine ...")
+22 DO MES^XPDUTL(" ")
+23 QUIT
+24 ;
