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

IBY702PO.m

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