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

IBY743PO.m

Go to the documentation of this file.
  1. IBY743PO ;AITC/TAZ - Post-Installation for IB patch 743; NOV 08, 2022
  1. ;;2.0;INTEGRATED BILLING;**743**;MAR 21,1994;Build 18
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; Reference to ^XPDUTL in ICR #10141
  1. Q
  1. ;
  1. POST ; POST-INSTALL
  1. N IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
  1. ; total number of work items
  1. S XPDIDTOT=2
  1. ;
  1. S SITE=$$SITE^VASITE,SITENAME=$P(SITE,U,2),SITENUM=$P(SITE,U,3)
  1. ;
  1. S IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*743","")
  1. D MES^XPDUTL("")
  1. ;
  1. D ORPHAN(1) ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
  1. ;
  1. D NONVER(2) ;Clean up Non-Verified extract data in Site Parameter file (350.9)
  1. ;
  1. D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
  1. D BMES^XPDUTL("POST-Install for IB*2.0*743 Completed.")
  1. Q
  1. ;============================
  1. ;
  1. ORPHAN(IBXPD,SITENUM) ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
  1. ;
  1. S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
  1. D BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
  1. D MES^XPDUTL("Check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans ")
  1. D MES^XPDUTL("-------------")
  1. N IBMES,IBSTAT
  1. D BMES^XPDUTL("Queueing 'IB - eIV TQ Orphan Check' to run at 8pm")
  1. S IBMES="",IBSTAT=$$BGORPHAN^IBCNEUT7
  1. S IBMES=IBMES_$P(IBSTAT,U,2)
  1. D BMES^XPDUTL(IBMES)
  1. Q
  1. ;
  1. NONVER(IBXPD) ;Clean up Non-Verified extract data in Site Parameter file (350.9)
  1. ;
  1. N IBIEN
  1. S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
  1. D BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
  1. D MES^XPDUTL(";Clean up Non-Verified extract data in Site Parameter file (350.9)")
  1. D MES^XPDUTL("-------------")
  1. N IBMES,IBSTAT
  1. ; Get IEN of Non-Verified Extract from "B" xref
  1. S IBIEN=$O(^IBE(350.9,1,51.17,"B",3,"")) I 'IBIEN G NONVERQ
  1. ; Kill Non-Verified Extract Node
  1. K ^IBE(350.9,1,51.17,IBIEN)
  1. ; Kill Non-Verified Extract Cross Reference
  1. K ^IBE(350.9,1,51.17,"B",3)
  1. NONVERQ ;
  1. D MES^XPDUTL("Clean up of Non-Verified extract data in Site Parameter file (350.9) - Complete")
  1. Q