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 Dec 13, 2024@02:35:05 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 ;;
