IBY494PO ;ALB/ESG - Post Install for IB patch 494 ;7-Jan-2013
;;2.0;INTEGRATED BILLING;**494**;21-MAR-94;Build 11
;;Per VHA Directive 2004-038, this routine should not be modified.
;
; ePharmacy Operating Rules - IB patch 494 post install
;
EN ; entry point
N XPDIDTOT
S XPDIDTOT=4
D SMR(1) ; 1. remove Shared Matches Report option/task/routine
D OPT(2) ; 2. remove options from the IB e-Pharmacy Menu
D NON(3) ; 3. remove the Non Covered Drugs functionality
D TRI(4) ; 4. Remove decommissioned TRICARE menu options
;
EX ; exit point
Q
;
SMR(IBXPD) ; remove Shared Matches Report option/task/routine
N DA,DIC,DO,X,Y,Z,DIK,OPTNAME,OPTIEN,OSIEN,DEL
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Removing ePharmacy Shared Matches Report functionality ... ")
;
S OPTNAME="IBCNR SHARED MATCHES RPT TASK" ; this is the option to be removed
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been removed.") G SMRX
;
K Z D OPTSTAT^XUTMOPT(OPTNAME,.Z) ; obtain the option schedule in file 19.2 if one exists
;
I '$O(Z("")) D MES^XPDUTL(" No Scheduled Tasks found for option ["_OPTNAME_"].")
;
I $O(Z("")) D
. N SCH
. D MES^XPDUTL(" Scheduled Task found for option ["_OPTNAME_"].")
. S SCH=0 F S SCH=$O(Z(SCH)) Q:'SCH D
.. N ZTSK,IBTSK
.. S (ZTSK,IBTSK)=+$P($G(Z(SCH)),U,1) Q:'ZTSK
.. D DQ^%ZTLOAD ; unschedule task IA 10063
.. I $G(ZTSK(0)) D MES^XPDUTL(" TaskManager scheduled task #"_IBTSK_" has been unscheduled.")
.. I '$G(ZTSK(0)) D MES^XPDUTL(" TaskManager scheduled task #"_IBTSK_" is invalid.")
.. K ZTSK
.. S ZTSK=IBTSK
.. D KILL^%ZTLOAD ; delete task IA 10063
.. I $G(ZTSK(0)) D MES^XPDUTL(" TaskManager task #"_IBTSK_" has been deleted.")
.. I '$G(ZTSK(0)) D MES^XPDUTL(" TaskManager task #"_IBTSK_" is invalid.")
.. Q
. Q
;
; remove the entries from file 19.2 option scheduling file
I '$O(^DIC(19.2,"B",OPTIEN,0)) D MES^XPDUTL(" No data in OPTION SCHEDULING file for option ["_OPTNAME_"].")
S OSIEN=0 F S OSIEN=$O(^DIC(19.2,"B",OPTIEN,OSIEN)) Q:'OSIEN D
. N DIK,DA
. S DIK="^DIC(19.2,",DA=OSIEN D ^DIK
. D MES^XPDUTL(" Option ["_OPTNAME_"] removed from OPTION SCHEDULING file.")
. Q
;
; remove the option from the main Option file (file 19)
S DIK="^DIC(19,",DA=OPTIEN D ^DIK
D MES^XPDUTL(" Option ["_OPTNAME_"] removed from the system.")
;
; remove the routine
S X="IBCNRSM",DEL=$G(^%ZOSF("DEL")) I DEL'="" X DEL ; DBIA 10096
D MES^XPDUTL(" Routine IBCNRSM removed from the system.")
;
SMRX ;
D MES^XPDUTL(" Done.")
D UPDATE^XPDID(IBXPD)
Q
;
OPT(IBXPD) ; remove options from the IB parent menu e-Pharmacy Menu [IBCNR E-PHARMACY MENU]
N CHMP,RES
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Removing ECME options from the IB e-Pharmacy parent menu ... ")
;
F CHMP="IBCNR EDIT HIPAA NCPDP FLAG","IBCNR EDIT NCPDP PROCESSOR","IBCNR EDIT PAYER","IBCNR EDIT PBM" D
. S RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU",CHMP)
. I RES D MES^XPDUTL(" Menu Option ["_CHMP_"] successfully removed!") Q
. D MES^XPDUTL(" Menu Option ["_CHMP_"] has already been removed.")
. Q
;
OPTX ;
D MES^XPDUTL(" Done.")
D UPDATE^XPDID(IBXPD)
Q
;
NON(IBXPD) ; Remove the IB non covered drugs functionality
N RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Removing IB Drugs Non-Covered Functionality ... ")
;
; remove the report from the parent IB menu (2.7.4.1)
S RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU","IB DRUGS NON COVERED REPORT")
I RES D MES^XPDUTL(" Menu Option [IB DRUGS NON COVERED REPORT] successfully removed from parent menu!")
I 'RES D MES^XPDUTL(" Menu Option [IB DRUGS NON COVERED REPORT] was already removed from parent menu.")
;
; remove the menu option from the system (2.7.4.2)
S OPTNAME="IB DRUGS NON COVERED REPORT" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove the IB site parameter data and fields (2.7.4.5 and 2.7.4.6)
S DIE=350.9,DA=1,DR="11.02///@" D ^DIE ; delete 11.02 data
S DIK="^DD(350.9,",DA=11.02,DA(1)=350.9 D ^DIK ; delete 11.02 field
S DIU=350.912,DIU(0)="DS" D EN^DIU2 ; delete NON COVERED REJECT CODES 350.912 subfile (data and DD)
D MES^XPDUTL(" Data removed from the IB Site Parameter file.")
;
; remove the 366.16 data file (2.7.4.7)
S DIU=366.16,DIU(0)="DT" D EN^DIU2 ; delete file 366.16 data and DD
D MES^XPDUTL(" Data removed from IB NDC NON COVERED BY PLAN file #366.16.")
;
; remove the obsolete routines from the system (2.7.4.10)
S DEL=$G(^%ZOSF("DEL"))
I DEL'="" F X="IBNCDNC","IBNCDNC1" X DEL
D MES^XPDUTL(" 2 Routines removed from the system (IBNCDNC and IBNCDNC1).")
;
NONX ;
D MES^XPDUTL(" Done.")
D UPDATE^XPDID(IBXPD)
Q
;
TRI(IBXPD) ; Remove decommissioned TRICARE menu options
N RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("-------------")
D MES^XPDUTL("Removing decommissioned TRICARE menu options ... ")
;
; IB TRICARE ENGINE START
S RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE START")
I RES D MES^XPDUTL(" Menu Option [IB TRICARE ENGINE START] successfully removed from parent menu!")
I 'RES D MES^XPDUTL(" Menu Option [IB TRICARE ENGINE START] was already removed from parent menu.")
;
; remove the routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE ENGINE START" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; IB TRICARE ENGINE STOP
S RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE STOP")
I RES D MES^XPDUTL(" Menu Option [IB TRICARE ENGINE STOP] successfully removed from parent menu!")
I 'RES D MES^XPDUTL(" Menu Option [IB TRICARE ENGINE STOP] was already removed from parent menu.")
;
; remove the routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE ENGINE STOP" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; IB TRICARE MENU
S RES=$$DELETE^XPDMENU("IB BILLING CLERK MENU","IB TRICARE MENU")
I RES D MES^XPDUTL(" Menu Option [IB TRICARE MENU] successfully removed from parent menu!")
I 'RES D MES^XPDUTL(" Menu Option [IB TRICARE MENU] was already removed from parent menu.")
;
; remove the menu option from the system (2.7.5.1)
S OPTNAME="IB TRICARE MENU" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove IB TRICARE REVERSE routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE REVERSE" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove IB TRICARE RESUBMIT routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE RESUBMIT" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove IB TRICARE REJECT routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE REJECT" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove IB TRICARE TRANSMISSION routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE TRANSMISSION" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
;
; remove IB TRICARE DEL REJECT routine option from the system (2.7.5.1)
S OPTNAME="IB TRICARE DEL REJECT" ; this is the option to be deleted
S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME) ; this should be the ien to file 19 for this option
I 'OPTIEN D MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
TRIX ;
D MES^XPDUTL(" Done.")
D UPDATE^XPDID(IBXPD)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY494PO 10071 printed Nov 22, 2024@17:44:20 Page 2
IBY494PO ;ALB/ESG - Post Install for IB patch 494 ;7-Jan-2013
+1 ;;2.0;INTEGRATED BILLING;**494**;21-MAR-94;Build 11
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 ;
+4 ; ePharmacy Operating Rules - IB patch 494 post install
+5 ;
EN ; entry point
+1 NEW XPDIDTOT
+2 SET XPDIDTOT=4
+3 ; 1. remove Shared Matches Report option/task/routine
DO SMR(1)
+4 ; 2. remove options from the IB e-Pharmacy Menu
DO OPT(2)
+5 ; 3. remove the Non Covered Drugs functionality
DO NON(3)
+6 ; 4. Remove decommissioned TRICARE menu options
DO TRI(4)
+7 ;
EX ; exit point
+1 QUIT
+2 ;
SMR(IBXPD) ; remove Shared Matches Report option/task/routine
+1 NEW DA,DIC,DO,X,Y,Z,DIK,OPTNAME,OPTIEN,OSIEN,DEL
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Removing ePharmacy Shared Matches Report functionality ... ")
+5 ;
+6 ; this is the option to be removed
SET OPTNAME="IBCNR SHARED MATCHES RPT TASK"
+7 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+8 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been removed.")
GOTO SMRX
+9 ;
+10 ; obtain the option schedule in file 19.2 if one exists
KILL Z
DO OPTSTAT^XUTMOPT(OPTNAME,.Z)
+11 ;
+12 IF '$ORDER(Z(""))
DO MES^XPDUTL(" No Scheduled Tasks found for option ["_OPTNAME_"].")
+13 ;
+14 IF $ORDER(Z(""))
Begin DoDot:1
+15 NEW SCH
+16 DO MES^XPDUTL(" Scheduled Task found for option ["_OPTNAME_"].")
+17 SET SCH=0
FOR
SET SCH=$ORDER(Z(SCH))
if 'SCH
QUIT
Begin DoDot:2
+18 NEW ZTSK,IBTSK
+19 SET (ZTSK,IBTSK)=+$PIECE($GET(Z(SCH)),U,1)
if 'ZTSK
QUIT
+20 ; unschedule task IA 10063
DO DQ^%ZTLOAD
+21 IF $GET(ZTSK(0))
DO MES^XPDUTL(" TaskManager scheduled task #"_IBTSK_" has been unscheduled.")
+22 IF '$GET(ZTSK(0))
DO MES^XPDUTL(" TaskManager scheduled task #"_IBTSK_" is invalid.")
+23 KILL ZTSK
+24 SET ZTSK=IBTSK
+25 ; delete task IA 10063
DO KILL^%ZTLOAD
+26 IF $GET(ZTSK(0))
DO MES^XPDUTL(" TaskManager task #"_IBTSK_" has been deleted.")
+27 IF '$GET(ZTSK(0))
DO MES^XPDUTL(" TaskManager task #"_IBTSK_" is invalid.")
+28 QUIT
End DoDot:2
+29 QUIT
End DoDot:1
+30 ;
+31 ; remove the entries from file 19.2 option scheduling file
+32 IF '$ORDER(^DIC(19.2,"B",OPTIEN,0))
DO MES^XPDUTL(" No data in OPTION SCHEDULING file for option ["_OPTNAME_"].")
+33 SET OSIEN=0
FOR
SET OSIEN=$ORDER(^DIC(19.2,"B",OPTIEN,OSIEN))
if 'OSIEN
QUIT
Begin DoDot:1
+34 NEW DIK,DA
+35 SET DIK="^DIC(19.2,"
SET DA=OSIEN
DO ^DIK
+36 DO MES^XPDUTL(" Option ["_OPTNAME_"] removed from OPTION SCHEDULING file.")
+37 QUIT
End DoDot:1
+38 ;
+39 ; remove the option from the main Option file (file 19)
+40 SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
+41 DO MES^XPDUTL(" Option ["_OPTNAME_"] removed from the system.")
+42 ;
+43 ; remove the routine
+44 ; DBIA 10096
SET X="IBCNRSM"
SET DEL=$GET(^%ZOSF("DEL"))
IF DEL'=""
XECUTE DEL
+45 DO MES^XPDUTL(" Routine IBCNRSM removed from the system.")
+46 ;
SMRX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO UPDATE^XPDID(IBXPD)
+3 QUIT
+4 ;
OPT(IBXPD) ; remove options from the IB parent menu e-Pharmacy Menu [IBCNR E-PHARMACY MENU]
+1 NEW CHMP,RES
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Removing ECME options from the IB e-Pharmacy parent menu ... ")
+5 ;
+6 FOR CHMP="IBCNR EDIT HIPAA NCPDP FLAG","IBCNR EDIT NCPDP PROCESSOR","IBCNR EDIT PAYER","IBCNR EDIT PBM"
Begin DoDot:1
+7 SET RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU",CHMP)
+8 IF RES
DO MES^XPDUTL(" Menu Option ["_CHMP_"] successfully removed!")
QUIT
+9 DO MES^XPDUTL(" Menu Option ["_CHMP_"] has already been removed.")
+10 QUIT
End DoDot:1
+11 ;
OPTX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO UPDATE^XPDID(IBXPD)
+3 QUIT
+4 ;
NON(IBXPD) ; Remove the IB non covered drugs functionality
+1 NEW RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Removing IB Drugs Non-Covered Functionality ... ")
+5 ;
+6 ; remove the report from the parent IB menu (2.7.4.1)
+7 SET RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU","IB DRUGS NON COVERED REPORT")
+8 IF RES
DO MES^XPDUTL(" Menu Option [IB DRUGS NON COVERED REPORT] successfully removed from parent menu!")
+9 IF 'RES
DO MES^XPDUTL(" Menu Option [IB DRUGS NON COVERED REPORT] was already removed from parent menu.")
+10 ;
+11 ; remove the menu option from the system (2.7.4.2)
+12 ; this is the option to be deleted
SET OPTNAME="IB DRUGS NON COVERED REPORT"
+13 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+14 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+15 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+16 ;
+17 ; remove the IB site parameter data and fields (2.7.4.5 and 2.7.4.6)
+18 ; delete 11.02 data
SET DIE=350.9
SET DA=1
SET DR="11.02///@"
DO ^DIE
+19 ; delete 11.02 field
SET DIK="^DD(350.9,"
SET DA=11.02
SET DA(1)=350.9
DO ^DIK
+20 ; delete NON COVERED REJECT CODES 350.912 subfile (data and DD)
SET DIU=350.912
SET DIU(0)="DS"
DO EN^DIU2
+21 DO MES^XPDUTL(" Data removed from the IB Site Parameter file.")
+22 ;
+23 ; remove the 366.16 data file (2.7.4.7)
+24 ; delete file 366.16 data and DD
SET DIU=366.16
SET DIU(0)="DT"
DO EN^DIU2
+25 DO MES^XPDUTL(" Data removed from IB NDC NON COVERED BY PLAN file #366.16.")
+26 ;
+27 ; remove the obsolete routines from the system (2.7.4.10)
+28 SET DEL=$GET(^%ZOSF("DEL"))
+29 IF DEL'=""
FOR X="IBNCDNC","IBNCDNC1"
XECUTE DEL
+30 DO MES^XPDUTL(" 2 Routines removed from the system (IBNCDNC and IBNCDNC1).")
+31 ;
NONX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO UPDATE^XPDID(IBXPD)
+3 QUIT
+4 ;
TRI(IBXPD) ; Remove decommissioned TRICARE menu options
+1 NEW RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
+2 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
+3 DO MES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Removing decommissioned TRICARE menu options ... ")
+5 ;
+6 ; IB TRICARE ENGINE START
+7 SET RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE START")
+8 IF RES
DO MES^XPDUTL(" Menu Option [IB TRICARE ENGINE START] successfully removed from parent menu!")
+9 IF 'RES
DO MES^XPDUTL(" Menu Option [IB TRICARE ENGINE START] was already removed from parent menu.")
+10 ;
+11 ; remove the routine option from the system (2.7.5.1)
+12 ; this is the option to be deleted
SET OPTNAME="IB TRICARE ENGINE START"
+13 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+14 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+15 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+16 ;
+17 ; IB TRICARE ENGINE STOP
+18 SET RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE STOP")
+19 IF RES
DO MES^XPDUTL(" Menu Option [IB TRICARE ENGINE STOP] successfully removed from parent menu!")
+20 IF 'RES
DO MES^XPDUTL(" Menu Option [IB TRICARE ENGINE STOP] was already removed from parent menu.")
+21 ;
+22 ; remove the routine option from the system (2.7.5.1)
+23 ; this is the option to be deleted
SET OPTNAME="IB TRICARE ENGINE STOP"
+24 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+25 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+26 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+27 ;
+28 ; IB TRICARE MENU
+29 SET RES=$$DELETE^XPDMENU("IB BILLING CLERK MENU","IB TRICARE MENU")
+30 IF RES
DO MES^XPDUTL(" Menu Option [IB TRICARE MENU] successfully removed from parent menu!")
+31 IF 'RES
DO MES^XPDUTL(" Menu Option [IB TRICARE MENU] was already removed from parent menu.")
+32 ;
+33 ; remove the menu option from the system (2.7.5.1)
+34 ; this is the option to be deleted
SET OPTNAME="IB TRICARE MENU"
+35 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+36 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+37 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+38 ;
+39 ; remove IB TRICARE REVERSE routine option from the system (2.7.5.1)
+40 ; this is the option to be deleted
SET OPTNAME="IB TRICARE REVERSE"
+41 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+42 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+43 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+44 ;
+45 ; remove IB TRICARE RESUBMIT routine option from the system (2.7.5.1)
+46 ; this is the option to be deleted
SET OPTNAME="IB TRICARE RESUBMIT"
+47 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+48 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+49 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+50 ;
+51 ; remove IB TRICARE REJECT routine option from the system (2.7.5.1)
+52 ; this is the option to be deleted
SET OPTNAME="IB TRICARE REJECT"
+53 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+54 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+55 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+56 ;
+57 ; remove IB TRICARE TRANSMISSION routine option from the system (2.7.5.1)
+58 ; this is the option to be deleted
SET OPTNAME="IB TRICARE TRANSMISSION"
+59 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+60 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+61 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
+62 ;
+63 ; remove IB TRICARE DEL REJECT routine option from the system (2.7.5.1)
+64 ; this is the option to be deleted
SET OPTNAME="IB TRICARE DEL REJECT"
+65 ; this should be the ien to file 19 for this option
SET OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)
+66 IF 'OPTIEN
DO MES^XPDUTL(" The option ["_OPTNAME_"] has already been deleted.")
+67 IF OPTIEN
SET DIK="^DIC(19,"
SET DA=OPTIEN
DO ^DIK
DO MES^XPDUTL(" Option ["_OPTNAME_"] deleted from the system.")
TRIX ;
+1 DO MES^XPDUTL(" Done.")
+2 DO UPDATE^XPDID(IBXPD)
+3 QUIT
+4 ;
