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