Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBY494PO

IBY494PO.m

Go to the documentation of this file. 
  1. IBY494PO ;ALB/ESG - Post Install for IB patch 494 ;7-Jan-2013
  1.  ;;2.0;INTEGRATED BILLING;**494**;21-MAR-94;Build 11
  1.  ;;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ;
  1.  ; ePharmacy Operating Rules - IB patch 494 post install
  1.  ;
  1. EN ; entry point
  1.  N XPDIDTOT
  1.  S XPDIDTOT=4
  1.  D SMR(1)              ; 1. remove Shared Matches Report option/task/routine
  1.  D OPT(2)              ; 2. remove options from the IB e-Pharmacy Menu
  1.  D NON(3)              ; 3. remove the Non Covered Drugs functionality
  1.  D TRI(4)              ; 4. Remove decommissioned TRICARE menu options
  1.  ;
  1. EX ; exit point
  1.  Q
  1.  ;
  1. SMR(IBXPD) ; remove Shared Matches Report option/task/routine
  1.  N DA,DIC,DO,X,Y,Z,DIK,OPTNAME,OPTIEN,OSIEN,DEL
  1.  D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1.  D MES^XPDUTL("-------------")
  1.  D MES^XPDUTL("Removing ePharmacy Shared Matches Report functionality ... ")
  1.  ;
  1.  S OPTNAME="IBCNR SHARED MATCHES RPT TASK"    ; this is the option to be removed
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)           ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been removed.") G SMRX
  1.  ;
  1.  K Z D OPTSTAT^XUTMOPT(OPTNAME,.Z)            ; obtain the option schedule in file 19.2 if one exists
  1.  ;
  1.  I '$O(Z("")) D MES^XPDUTL("  No Scheduled Tasks found for option ["_OPTNAME_"].")
  1.  ;
  1.  I $O(Z("")) D
  1.  . N SCH
  1.  . D MES^XPDUTL("  Scheduled Task found for option ["_OPTNAME_"].")
  1.  . S SCH=0 F  S SCH=$O(Z(SCH)) Q:'SCH  D
  1.  .. N ZTSK,IBTSK
  1.  .. S (ZTSK,IBTSK)=+$P($G(Z(SCH)),U,1) Q:'ZTSK
  1.  .. D DQ^%ZTLOAD    ; unschedule task IA 10063
  1.  .. I $G(ZTSK(0)) D MES^XPDUTL("  TaskManager scheduled task #"_IBTSK_" has been unscheduled.")
  1.  .. I '$G(ZTSK(0)) D MES^XPDUTL("  TaskManager scheduled task #"_IBTSK_" is invalid.")
  1.  .. K ZTSK
  1.  .. S ZTSK=IBTSK
  1.  .. D KILL^%ZTLOAD    ; delete task IA 10063
  1.  .. I $G(ZTSK(0)) D MES^XPDUTL("  TaskManager task #"_IBTSK_" has been deleted.")
  1.  .. I '$G(ZTSK(0)) D MES^XPDUTL("  TaskManager task #"_IBTSK_" is invalid.")
  1.  .. Q
  1.  . Q
  1.  ;
  1.  ; remove the entries from file 19.2 option scheduling file
  1.  I '$O(^DIC(19.2,"B",OPTIEN,0)) D MES^XPDUTL("  No data in OPTION SCHEDULING file for option ["_OPTNAME_"].")
  1.  S OSIEN=0 F  S OSIEN=$O(^DIC(19.2,"B",OPTIEN,OSIEN)) Q:'OSIEN  D
  1.  . N DIK,DA
  1.  . S DIK="^DIC(19.2,",DA=OSIEN D ^DIK
  1.  . D MES^XPDUTL("  Option ["_OPTNAME_"] removed from OPTION SCHEDULING file.")
  1.  . Q
  1.  ;
  1.  ; remove the option from the main Option file (file 19)
  1.  S DIK="^DIC(19,",DA=OPTIEN D ^DIK
  1.  D MES^XPDUTL("  Option ["_OPTNAME_"] removed from the system.")
  1.  ;
  1.  ; remove the routine
  1.  S X="IBCNRSM",DEL=$G(^%ZOSF("DEL")) I DEL'="" X DEL    ; DBIA 10096
  1.  D MES^XPDUTL("  Routine IBCNRSM removed from the system.")
  1.  ;
  1. SMRX ;
  1.  D MES^XPDUTL(" Done.")
  1.  D UPDATE^XPDID(IBXPD)
  1.  Q
  1.  ;
  1. OPT(IBXPD) ; remove options from the IB parent menu e-Pharmacy Menu  [IBCNR E-PHARMACY MENU]
  1.  N CHMP,RES
  1.  D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1.  D MES^XPDUTL("-------------")
  1.  D MES^XPDUTL("Removing ECME options from the IB e-Pharmacy parent menu ... ")
  1.  ;
  1.  F CHMP="IBCNR EDIT HIPAA NCPDP FLAG","IBCNR EDIT NCPDP PROCESSOR","IBCNR EDIT PAYER","IBCNR EDIT PBM" D
  1.  . S RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU",CHMP)
  1.  . I RES D MES^XPDUTL("  Menu Option ["_CHMP_"] successfully removed!") Q
  1.  . D MES^XPDUTL("  Menu Option ["_CHMP_"] has already been removed.")
  1.  . Q
  1.  ;
  1. OPTX ;
  1.  D MES^XPDUTL(" Done.")
  1.  D UPDATE^XPDID(IBXPD)
  1.  Q
  1.  ;
  1. NON(IBXPD) ; Remove the IB non covered drugs functionality
  1.  N RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
  1.  D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1.  D MES^XPDUTL("-------------")
  1.  D MES^XPDUTL("Removing IB Drugs Non-Covered Functionality ... ")
  1.  ;
  1.  ; remove the report from the parent IB menu (2.7.4.1)
  1.  S RES=$$DELETE^XPDMENU("IBCNR E-PHARMACY MENU","IB DRUGS NON COVERED REPORT")
  1.  I RES D MES^XPDUTL("  Menu Option [IB DRUGS NON COVERED REPORT] successfully removed from parent menu!")
  1.  I 'RES D MES^XPDUTL("  Menu Option [IB DRUGS NON COVERED REPORT] was already removed from parent menu.")
  1.  ;
  1.  ; remove the menu option from the system (2.7.4.2)
  1.  S OPTNAME="IB DRUGS NON COVERED REPORT"      ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)           ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove the IB site parameter data and fields (2.7.4.5 and 2.7.4.6)
  1.  S DIE=350.9,DA=1,DR="11.02///@" D ^DIE           ; delete 11.02 data
  1.  S DIK="^DD(350.9,",DA=11.02,DA(1)=350.9 D ^DIK   ; delete 11.02 field
  1.  S DIU=350.912,DIU(0)="DS" D EN^DIU2              ; delete NON COVERED REJECT CODES 350.912 subfile (data and DD)
  1.  D MES^XPDUTL("  Data removed from the IB Site Parameter file.")
  1.  ;
  1.  ; remove the 366.16 data file (2.7.4.7)
  1.  S DIU=366.16,DIU(0)="DT" D EN^DIU2        ; delete file 366.16 data and DD
  1.  D MES^XPDUTL("  Data removed from IB NDC NON COVERED BY PLAN file #366.16.")
  1.  ;
  1.  ; remove the obsolete routines from the system (2.7.4.10)
  1.  S DEL=$G(^%ZOSF("DEL"))
  1.  I DEL'="" F X="IBNCDNC","IBNCDNC1" X DEL
  1.  D MES^XPDUTL("  2 Routines removed from the system (IBNCDNC and IBNCDNC1).")
  1.  ;
  1. NONX ;
  1.  D MES^XPDUTL(" Done.")
  1.  D UPDATE^XPDID(IBXPD)
  1.  Q
  1.  ;
  1. TRI(IBXPD) ; Remove decommissioned TRICARE menu options
  1.  N RES,OPTNAME,OPTIEN,DA,DR,DIK,DIU,DIE,DEL,X
  1.  D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
  1.  D MES^XPDUTL("-------------")
  1.  D MES^XPDUTL("Removing decommissioned TRICARE menu options ... ")
  1.  ;
  1.  ; IB TRICARE ENGINE START
  1.  S RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE START")
  1.  I RES D MES^XPDUTL("  Menu Option [IB TRICARE ENGINE START] successfully removed from parent menu!")
  1.  I 'RES D MES^XPDUTL("  Menu Option [IB TRICARE ENGINE START] was already removed from parent menu.")
  1.  ;
  1.  ; remove the routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE ENGINE START"      ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; IB TRICARE ENGINE STOP
  1.  S RES=$$DELETE^XPDMENU("IB SITE MGR MENU","IB TRICARE ENGINE STOP")
  1.  I RES D MES^XPDUTL("  Menu Option [IB TRICARE ENGINE STOP] successfully removed from parent menu!")
  1.  I 'RES D MES^XPDUTL("  Menu Option [IB TRICARE ENGINE STOP] was already removed from parent menu.")
  1.  ;
  1.  ; remove the routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE ENGINE STOP"       ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; IB TRICARE MENU
  1.  S RES=$$DELETE^XPDMENU("IB BILLING CLERK MENU","IB TRICARE MENU")
  1.  I RES D MES^XPDUTL("  Menu Option [IB TRICARE MENU] successfully removed from parent menu!")
  1.  I 'RES D MES^XPDUTL("  Menu Option [IB TRICARE MENU] was already removed from parent menu.")
  1.  ;
  1.  ; remove the menu option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE MENU"              ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove IB TRICARE REVERSE routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE REVERSE"           ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove IB TRICARE RESUBMIT routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE RESUBMIT"          ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove IB TRICARE REJECT routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE REJECT"            ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove IB TRICARE TRANSMISSION routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE TRANSMISSION"      ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1.  ;
  1.  ; remove IB TRICARE DEL REJECT routine option from the system (2.7.5.1)
  1.  S OPTNAME="IB TRICARE DEL REJECT"        ; this is the option to be deleted
  1.  S OPTIEN=+$$LKOPT^XPDMENU(OPTNAME)       ; this should be the ien to file 19 for this option
  1.  I 'OPTIEN D MES^XPDUTL("  The option ["_OPTNAME_"] has already been deleted.")
  1.  I OPTIEN S DIK="^DIC(19,",DA=OPTIEN D ^DIK D MES^XPDUTL("  Option ["_OPTNAME_"] deleted from the system.")
  1. TRIX ;
  1.  D MES^XPDUTL(" Done.")
  1.  D UPDATE^XPDID(IBXPD)
  1.  Q
  1.  ;