- IBY702PO ;AITC/TAZ - Post-Installation for IB patch 702; MAY 11, 2021
- ;;2.0;INTEGRATED BILLING;**702**;MAR 21,1994;Build 53
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; ICR #4677 for the usage of CREATE^XUSAP.
- ; ICR #1157 for the usage of $$ADD^XPDMENU
- Q
- ;
- POST ; POST-INSTALL
- N IBINSTLD,IBXPD,PRODENV,SITE,SITENAME,SITENUM,XPDIDTOT
- S XPDIDTOT=6
- S SITE=$$SITE^VASITE,SITENAME=$P(SITE,U,2),SITENUM=$P(SITE,U,3)
- ;
- S PRODENV=$$PROD^XUPROD(1) ; 1=Production Environment, 0=Test Environment
- S IBINSTLD=0 ; all commands will run, regardless of install status
- D MES^XPDUTL("")
- ;
- D ADDPROXY(1) ; Create "ICB,IB NOINS" in file New Person (#200)
- ;
- D DEFAU(2) ;Default field #350.9,51.34 to 180
- ;
- D OPAR(3) ; add inactive and ambiguous rpts to menus
- ;
- D OPTR(4) ; remove menu option IBCNE POTENTIAL NEW INS FOUND
- ;
- D PIUPD(5) ;Remove report options from the Patient Insurance Menu.
- ;
- D SITEREG(6,SITENUM) ; Send site registration message to FSC
- ;
- D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
- D MES^XPDUTL("POST-Install for IB*2.0*702 Completed.")
- Q
- ;============================
- ;
- ADDPROXY(IBXPD) ;Add APPLICATION PROXY user to file 200. Supported by IA#4677.
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- D MES^XPDUTL("-------------")
- D MES^XPDUTL("Adding entry 'ICB,IB NOINS' to the New Person file (#200)")
- N IEN200
- S IEN200=$$CREATE^XUSAP("ICB,IB NOINS","")
- I +IEN200=0 D MES^XPDUTL("........'ICB,IB NOINS' already exists.")
- I +IEN200>0 D MES^XPDUTL("........'ICB,IB NOINS' added.")
- I IEN200<0 D MES^XPDUTL("........ERROR: 'ICB,IB NOINS' NOT added.")
- Q
- ;
- DEFAU(IBXPD) ;Default field 350.9,51.34 to 180
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- D MES^XPDUTL("-------------")
- D MES^XPDUTL("Set default for field EIV NO GRP NUM A/U (#350.9,51.34) ... ")
- ;
- N IBDFDA,DATA,DAYS,MSG
- S DAYS=$$GET1^DIQ(350.9,"1,",51.34)
- I DAYS'="" S MSG="EIV NO GRP NUM A/U is already set." G DEFAUQ
- S IBDFDA=1
- S DATA(51.34)=180
- D UPD^IBDFDBS(350.9,.IBDFDA,.DATA)
- S MSG="EIV NO GRP NUM A/U default set to 180."
- DEFAUQ ;
- D MES^XPDUTL(MSG)
- ;
- Q
- ;
- SITEREG(IBXPD,SITENUM) ; send site registration message to FSC
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- D MES^XPDUTL("-------------")
- D MES^XPDUTL("Send eIV site registration message to FSC ... ")
- ;
- I '$$PROD^XUPROD(1) D MES^XPDUTL("N/A - Not a production account - No site registration message sent") G SITEREGQ
- I SITENUM=358 D MES^XPDUTL("Current Site is MANILA - NO eIV site registration message sent") G SITEREGQ
- D ^IBCNEHLM
- D MES^XPDUTL("eIV site registration message was successfully sent")
- ;
- SITEREGQ ;
- Q
- ;
- ;
- OPAR(IBXPD) ; add inactive and imbiguous reports to menus
- ;
- S IBXPD=$G(IBXPD)
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_$G(XPDIDTOT))
- D MES^XPDUTL("-------------")
- D BMES^XPDUTL("Add report options: IBCNE IIV INACTIVE POLICY RPT and ")
- D MES^XPDUTL(" IBCNE IIV AMBIGUOUS POLICY RPT")
- D MES^XPDUTL("To Menus: IBCN INS RPTS and ")
- D MES^XPDUTL(" IBCNE IIV MENU")
- D BMES^XPDUTL(" ")
- ;
- ; ICR #1157 for the usage of $$ADD^XPDMENU
- ; ICR #10141 for the usage of $$INSTALDT^XPDUTL
- ;
- N IBMENU,IBNAM,IBOER,IBRET,IBSYN,IBCHK
- S IBOER="",IBCHK=""
- ;is the patch installed
- I +IBINSTLD D S IBOER=2 G OPARQ
- . D MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Not running step")
- . D BMES^XPDUTL(" ")
- ;
- ; IBCNE IIV INACTIVE POLICY RPT
- ; IBCNE IIV AMBIGUOUS POLICY RPT
- ; IBCN INS RPTS
- ; IBCNE IIV MENU
- ;
- S IBOER=0 F IBMENU="IBCN INS RPTS","IBCNE IIV MENU" D
- . F IBNAM="IBCNE IIV INACTIVE POLICY RPT","IBCNE IIV AMBIGUOUS POLICY RPT" D
- .. S IBSYN=$S(IBNAM["INACTIVE":"IP",1:"AR")
- .. ;
- .. S IBRET=$$ADD^XPDMENU(IBMENU,IBNAM,IBSYN)
- .. ;
- .. I IBRET D MES^XPDUTL("Option: "_IBNAM_" added to menu: "_IBMENU) Q
- .. S IBOER=1 D MES^XPDUTL("Not able to add Option: "_IBNAM_" to menu: "_IBMENU)
- ;
- OPARQ ; option remove end point
- I IBOER'=2 D BMES^XPDUTL("Add report options to menus was"_($S('IBOER:"",1:" not"))_" successful")
- Q
- ;
- OPTR(IBXPD) ; Remove menu option IBCNE POTENTIAL NEW INS FOUND
- ;
- S IBXPD=$G(IBXPD)
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_$G(XPDIDTOT))
- D MES^XPDUTL("-------------")
- D MES^XPDUTL("Remove option: IBCNE POTENTIAL NEW INS FOUND from Select Menus ")
- D BMES^XPDUTL(" ")
- ;
- ; ICR #1157 for the usage of $$DELETE^XPDMENU
- ; ICR #10141 for the usage of $$INSTALDT^XPDUTL
- ;
- N IBMENU,IBNAM,IBOER,IBRET,IBCHK
- S (IBOER,IBCHK)=""
- ;is the patch installed
- I +IBINSTLD D S IBOER=2 G OPTRQ
- . D MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Not running step")
- . D BMES^XPDUTL(" ")
- ;
- ; IBCNE POTENTIAL NEW INS FOUND (to be removed)
- ; IBCN INS RPTS
- ; IBCNE IIV MENU
- ;
- ;
- S IBOER=0,IBNAM="IBCNE POTENTIAL NEW INS FOUND"
- F IBMENU="IBCN INS RPTS","IBCNE IIV MENU" D
- . ;
- . S IBRET=$$DELETE^XPDMENU(IBMENU,IBNAM)
- . ;
- . I IBRET D BMES^XPDUTL("Option: "_IBNAM_" removed from menu: "_IBMENU) Q
- . S IBOER=1 D BMES^XPDUTL("Not able to remove Option: "_IBNAM_" from menu: "_IBMENU)
- ;
- OPTRQ ; option remove end point
- ;
- I IBOER'=2 D BMES^XPDUTL("Option: IBCNE POTENTIAL NEW INS FOUND was"_($S('IBOER:"",1:" not"))_" removed from Select menus")
- Q
- ;
- ;ICR 1157 allows calls to XPDMENU
- PIUPD(IBXPD) ; Update the Patient Insurance (PI) Menu
- ;
- N CNT,DEL,OPTION
- D BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- D MES^XPDUTL("-------------")
- D MES^XPDUTL("Removing options from Patient Insurance (PI) Menu ... ")
- ;
- I +IBINSTLD D S IBOER=2 G PIUPDQ
- . D MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Options previously removed.")
- ;
- F CNT=1:1 S OPTION=$P($T(OPTLIST+CNT),";;",2) Q:OPTION="" D
- . S DEL=$$DELETE^XPDMENU("IBCN INSURANCE MGMT MENU",OPTION)
- . D MES^XPDUTL(OPTION_" was "_$S('DEL:"not ",1:"")_"removed.")
- PIUPDQ ; Exit PIUPD
- D MES^XPDUTL("Removing options from Patient Insurance (PI) Menu Complete.")
- Q
- ;
- OPTLIST ; List of options to remove from Patient Insurance Menu
- ;;IBCN LIST INACTIVE INS W/PAT
- ;;IBCN LIST NEW NOT VER
- ;;IBCN LIST PLANS BY INS CO
- ;;IBCN POL W/NO EFF DATE REPORT
- ;;IBCN ID DUP INSURANCE ENTRIES
- ;;IBCN NO COVERAGE VERIFIED
- ;;IBCN PT W/WO INSURANCE REPORT
- ;;IBCN INS PLANS MISSING DATA
- ;;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY702PO 6389 printed Feb 19, 2025@00:01:33 Page 2
- IBY702PO ;AITC/TAZ - Post-Installation for IB patch 702; MAY 11, 2021
- +1 ;;2.0;INTEGRATED BILLING;**702**;MAR 21,1994;Build 53
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; ICR #4677 for the usage of CREATE^XUSAP.
- +5 ; ICR #1157 for the usage of $$ADD^XPDMENU
- +6 QUIT
- +7 ;
- POST ; POST-INSTALL
- +1 NEW IBINSTLD,IBXPD,PRODENV,SITE,SITENAME,SITENUM,XPDIDTOT
- +2 SET XPDIDTOT=6
- +3 SET SITE=$$SITE^VASITE
- SET SITENAME=$PIECE(SITE,U,2)
- SET SITENUM=$PIECE(SITE,U,3)
- +4 ;
- +5 ; 1=Production Environment, 0=Test Environment
- SET PRODENV=$$PROD^XUPROD(1)
- +6 ; all commands will run, regardless of install status
- SET IBINSTLD=0
- +7 DO MES^XPDUTL("")
- +8 ;
- +9 ; Create "ICB,IB NOINS" in file New Person (#200)
- DO ADDPROXY(1)
- +10 ;
- +11 ;Default field #350.9,51.34 to 180
- DO DEFAU(2)
- +12 ;
- +13 ; add inactive and ambiguous rpts to menus
- DO OPAR(3)
- +14 ;
- +15 ; remove menu option IBCNE POTENTIAL NEW INS FOUND
- DO OPTR(4)
- +16 ;
- +17 ;Remove report options from the Patient Insurance Menu.
- DO PIUPD(5)
- +18 ;
- +19 ; Send site registration message to FSC
- DO SITEREG(6,SITENUM)
- +20 ;
- +21 ; Displays the 'Done' message and finishes the progress bar
- DO MES^XPDUTL("")
- +22 DO MES^XPDUTL("POST-Install for IB*2.0*702 Completed.")
- +23 QUIT
- +24 ;============================
- +25 ;
- ADDPROXY(IBXPD) ;Add APPLICATION PROXY user to file 200. Supported by IA#4677.
- +1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- +2 DO MES^XPDUTL("-------------")
- +3 DO MES^XPDUTL("Adding entry 'ICB,IB NOINS' to the New Person file (#200)")
- +4 NEW IEN200
- +5 SET IEN200=$$CREATE^XUSAP("ICB,IB NOINS","")
- +6 IF +IEN200=0
- DO MES^XPDUTL("........'ICB,IB NOINS' already exists.")
- +7 IF +IEN200>0
- DO MES^XPDUTL("........'ICB,IB NOINS' added.")
- +8 IF IEN200<0
- DO MES^XPDUTL("........ERROR: 'ICB,IB NOINS' NOT added.")
- +9 QUIT
- +10 ;
- DEFAU(IBXPD) ;Default field 350.9,51.34 to 180
- +1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- +2 DO MES^XPDUTL("-------------")
- +3 DO MES^XPDUTL("Set default for field EIV NO GRP NUM A/U (#350.9,51.34) ... ")
- +4 ;
- +5 NEW IBDFDA,DATA,DAYS,MSG
- +6 SET DAYS=$$GET1^DIQ(350.9,"1,",51.34)
- +7 IF DAYS'=""
- SET MSG="EIV NO GRP NUM A/U is already set."
- GOTO DEFAUQ
- +8 SET IBDFDA=1
- +9 SET DATA(51.34)=180
- +10 DO UPD^IBDFDBS(350.9,.IBDFDA,.DATA)
- +11 SET MSG="EIV NO GRP NUM A/U default set to 180."
- DEFAUQ ;
- +1 DO MES^XPDUTL(MSG)
- +2 ;
- +3 QUIT
- +4 ;
- SITEREG(IBXPD,SITENUM) ; send site registration message to FSC
- +1 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- +2 DO MES^XPDUTL("-------------")
- +3 DO MES^XPDUTL("Send eIV site registration message to FSC ... ")
- +4 ;
- +5 IF '$$PROD^XUPROD(1)
- DO MES^XPDUTL("N/A - Not a production account - No site registration message sent")
- GOTO SITEREGQ
- +6 IF SITENUM=358
- DO MES^XPDUTL("Current Site is MANILA - NO eIV site registration message sent")
- GOTO SITEREGQ
- +7 DO ^IBCNEHLM
- +8 DO MES^XPDUTL("eIV site registration message was successfully sent")
- +9 ;
- SITEREGQ ;
- +1 QUIT
- +2 ;
- +3 ;
- OPAR(IBXPD) ; add inactive and imbiguous reports to menus
- +1 ;
- +2 SET IBXPD=$GET(IBXPD)
- +3 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_$GET(XPDIDTOT))
- +4 DO MES^XPDUTL("-------------")
- +5 DO BMES^XPDUTL("Add report options: IBCNE IIV INACTIVE POLICY RPT and ")
- +6 DO MES^XPDUTL(" IBCNE IIV AMBIGUOUS POLICY RPT")
- +7 DO MES^XPDUTL("To Menus: IBCN INS RPTS and ")
- +8 DO MES^XPDUTL(" IBCNE IIV MENU")
- +9 DO BMES^XPDUTL(" ")
- +10 ;
- +11 ; ICR #1157 for the usage of $$ADD^XPDMENU
- +12 ; ICR #10141 for the usage of $$INSTALDT^XPDUTL
- +13 ;
- +14 NEW IBMENU,IBNAM,IBOER,IBRET,IBSYN,IBCHK
- +15 SET IBOER=""
- SET IBCHK=""
- +16 ;is the patch installed
- +17 IF +IBINSTLD
- Begin DoDot:1
- +18 DO MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Not running step")
- +19 DO BMES^XPDUTL(" ")
- End DoDot:1
- SET IBOER=2
- GOTO OPARQ
- +20 ;
- +21 ; IBCNE IIV INACTIVE POLICY RPT
- +22 ; IBCNE IIV AMBIGUOUS POLICY RPT
- +23 ; IBCN INS RPTS
- +24 ; IBCNE IIV MENU
- +25 ;
- +26 SET IBOER=0
- FOR IBMENU="IBCN INS RPTS","IBCNE IIV MENU"
- Begin DoDot:1
- +27 FOR IBNAM="IBCNE IIV INACTIVE POLICY RPT","IBCNE IIV AMBIGUOUS POLICY RPT"
- Begin DoDot:2
- +28 SET IBSYN=$SELECT(IBNAM["INACTIVE":"IP",1:"AR")
- +29 ;
- +30 SET IBRET=$$ADD^XPDMENU(IBMENU,IBNAM,IBSYN)
- +31 ;
- +32 IF IBRET
- DO MES^XPDUTL("Option: "_IBNAM_" added to menu: "_IBMENU)
- QUIT
- +33 SET IBOER=1
- DO MES^XPDUTL("Not able to add Option: "_IBNAM_" to menu: "_IBMENU)
- End DoDot:2
- End DoDot:1
- +34 ;
- OPARQ ; option remove end point
- +1 IF IBOER'=2
- DO BMES^XPDUTL("Add report options to menus was"_($SELECT('IBOER:"",1:" not"))_" successful")
- +2 QUIT
- +3 ;
- OPTR(IBXPD) ; Remove menu option IBCNE POTENTIAL NEW INS FOUND
- +1 ;
- +2 SET IBXPD=$GET(IBXPD)
- +3 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_$GET(XPDIDTOT))
- +4 DO MES^XPDUTL("-------------")
- +5 DO MES^XPDUTL("Remove option: IBCNE POTENTIAL NEW INS FOUND from Select Menus ")
- +6 DO BMES^XPDUTL(" ")
- +7 ;
- +8 ; ICR #1157 for the usage of $$DELETE^XPDMENU
- +9 ; ICR #10141 for the usage of $$INSTALDT^XPDUTL
- +10 ;
- +11 NEW IBMENU,IBNAM,IBOER,IBRET,IBCHK
- +12 SET (IBOER,IBCHK)=""
- +13 ;is the patch installed
- +14 IF +IBINSTLD
- Begin DoDot:1
- +15 DO MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Not running step")
- +16 DO BMES^XPDUTL(" ")
- End DoDot:1
- SET IBOER=2
- GOTO OPTRQ
- +17 ;
- +18 ; IBCNE POTENTIAL NEW INS FOUND (to be removed)
- +19 ; IBCN INS RPTS
- +20 ; IBCNE IIV MENU
- +21 ;
- +22 ;
- +23 SET IBOER=0
- SET IBNAM="IBCNE POTENTIAL NEW INS FOUND"
- +24 FOR IBMENU="IBCN INS RPTS","IBCNE IIV MENU"
- Begin DoDot:1
- +25 ;
- +26 SET IBRET=$$DELETE^XPDMENU(IBMENU,IBNAM)
- +27 ;
- +28 IF IBRET
- DO BMES^XPDUTL("Option: "_IBNAM_" removed from menu: "_IBMENU)
- QUIT
- +29 SET IBOER=1
- DO BMES^XPDUTL("Not able to remove Option: "_IBNAM_" from menu: "_IBMENU)
- End DoDot:1
- +30 ;
- OPTRQ ; option remove end point
- +1 ;
- +2 IF IBOER'=2
- DO BMES^XPDUTL("Option: IBCNE POTENTIAL NEW INS FOUND was"_($SELECT('IBOER:"",1:" not"))_" removed from Select menus")
- +3 QUIT
- +4 ;
- +5 ;ICR 1157 allows calls to XPDMENU
- PIUPD(IBXPD) ; Update the Patient Insurance (PI) Menu
- +1 ;
- +2 NEW CNT,DEL,OPTION
- +3 DO BMES^XPDUTL(" STEP "_IBXPD_" of "_XPDIDTOT)
- +4 DO MES^XPDUTL("-------------")
- +5 DO MES^XPDUTL("Removing options from Patient Insurance (PI) Menu ... ")
- +6 ;
- +7 IF +IBINSTLD
- Begin DoDot:1
- +8 DO MES^XPDUTL("Patch IB*2.0*702 has been previously installed. Options previously removed.")
- End DoDot:1
- SET IBOER=2
- GOTO PIUPDQ
- +9 ;
- +10 FOR CNT=1:1
- SET OPTION=$PIECE($TEXT(OPTLIST+CNT),";;",2)
- if OPTION=""
- QUIT
- Begin DoDot:1
- +11 SET DEL=$$DELETE^XPDMENU("IBCN INSURANCE MGMT MENU",OPTION)
- +12 DO MES^XPDUTL(OPTION_" was "_$SELECT('DEL:"not ",1:"")_"removed.")
- End DoDot:1
- PIUPDQ ; Exit PIUPD
- +1 DO MES^XPDUTL("Removing options from Patient Insurance (PI) Menu Complete.")
- +2 QUIT
- +3 ;
- OPTLIST ; List of options to remove from Patient Insurance Menu
- +1 ;;IBCN LIST INACTIVE INS W/PAT
- +2 ;;IBCN LIST NEW NOT VER
- +3 ;;IBCN LIST PLANS BY INS CO
- +4 ;;IBCN POL W/NO EFF DATE REPORT
- +5 ;;IBCN ID DUP INSURANCE ENTRIES
- +6 ;;IBCN NO COVERAGE VERIFIED
- +7 ;;IBCN PT W/WO INSURANCE REPORT
- +8 ;;IBCN INS PLANS MISSING DATA
- +9 ;;