IBY743PO ;AITC/TAZ - Post-Installation for IB patch 743; NOV 08, 2022
;;2.0;INTEGRATED BILLING;**743**;MAR 21,1994;Build 18
;;Per VA Directive 6402, this routine should not be modified.
;
; Reference to ^XPDUTL in ICR #10141
Q
;
POST ; POST-INSTALL
N IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
; total number of work items
S XPDIDTOT=2
;
S SITE=$$SITE^VASITE,SITENAME=$P(SITE,U,2),SITENUM=$P(SITE,U,3)
;
S IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*743","")
D MES^XPDUTL("")
;
D ORPHAN(1) ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
;
D NONVER(2) ;Clean up Non-Verified extract data in Site Parameter file (350.9)
;
D MES^XPDUTL("") ; Displays the 'Done' message and finishes the progress bar
D BMES^XPDUTL("POST-Install for IB*2.0*743 Completed.")
Q
;============================
;
ORPHAN(IBXPD,SITENUM) ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
;
S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
D BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL("Check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans ")
D MES^XPDUTL("-------------")
N IBMES,IBSTAT
D BMES^XPDUTL("Queueing 'IB - eIV TQ Orphan Check' to run at 8pm")
S IBMES="",IBSTAT=$$BGORPHAN^IBCNEUT7
S IBMES=IBMES_$P(IBSTAT,U,2)
D BMES^XPDUTL(IBMES)
Q
;
NONVER(IBXPD) ;Clean up Non-Verified extract data in Site Parameter file (350.9)
;
N IBIEN
S IBXPD=$G(IBXPD),XPDIDTOT=$G(XPDIDTOT)
D BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
D MES^XPDUTL(";Clean up Non-Verified extract data in Site Parameter file (350.9)")
D MES^XPDUTL("-------------")
N IBMES,IBSTAT
; Get IEN of Non-Verified Extract from "B" xref
S IBIEN=$O(^IBE(350.9,1,51.17,"B",3,"")) I 'IBIEN G NONVERQ
; Kill Non-Verified Extract Node
K ^IBE(350.9,1,51.17,IBIEN)
; Kill Non-Verified Extract Cross Reference
K ^IBE(350.9,1,51.17,"B",3)
NONVERQ ;
D MES^XPDUTL("Clean up of Non-Verified extract data in Site Parameter file (350.9) - Complete")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY743PO 2040 printed Dec 13, 2024@02:35:20 Page 2
IBY743PO ;AITC/TAZ - Post-Installation for IB patch 743; NOV 08, 2022
+1 ;;2.0;INTEGRATED BILLING;**743**;MAR 21,1994;Build 18
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; Reference to ^XPDUTL in ICR #10141
+5 QUIT
+6 ;
POST ; POST-INSTALL
+1 NEW IBINSTLD,IBXPD,SITE,SITENAME,SITENUM,XPDIDTOT
+2 ; total number of work items
+3 SET XPDIDTOT=2
+4 ;
+5 SET SITE=$$SITE^VASITE
SET SITENAME=$PIECE(SITE,U,2)
SET SITENUM=$PIECE(SITE,U,3)
+6 ;
+7 SET IBINSTLD=$$INSTALDT^XPDUTL("IB*2.0*743","")
+8 DO MES^XPDUTL("")
+9 ;
+10 ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
DO ORPHAN(1)
+11 ;
+12 ;Clean up Non-Verified extract data in Site Parameter file (350.9)
DO NONVER(2)
+13 ;
+14 ; Displays the 'Done' message and finishes the progress bar
DO MES^XPDUTL("")
+15 DO BMES^XPDUTL("POST-Install for IB*2.0*743 Completed.")
+16 QUIT
+17 ;============================
+18 ;
ORPHAN(IBXPD,SITENUM) ; check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans
+1 ;
+2 SET IBXPD=$GET(IBXPD)
SET XPDIDTOT=$GET(XPDIDTOT)
+3 DO BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
+4 DO MES^XPDUTL("Check IIV TRANSMISSION QUEUE File (#365.1) for 'TRANSMITTED' orphans ")
+5 DO MES^XPDUTL("-------------")
+6 NEW IBMES,IBSTAT
+7 DO BMES^XPDUTL("Queueing 'IB - eIV TQ Orphan Check' to run at 8pm")
+8 SET IBMES=""
SET IBSTAT=$$BGORPHAN^IBCNEUT7
+9 SET IBMES=IBMES_$PIECE(IBSTAT,U,2)
+10 DO BMES^XPDUTL(IBMES)
+11 QUIT
+12 ;
NONVER(IBXPD) ;Clean up Non-Verified extract data in Site Parameter file (350.9)
+1 ;
+2 NEW IBIEN
+3 SET IBXPD=$GET(IBXPD)
SET XPDIDTOT=$GET(XPDIDTOT)
+4 DO BMES^XPDUTL("STEP "_IBXPD_" of "_XPDIDTOT)
+5 DO MES^XPDUTL(";Clean up Non-Verified extract data in Site Parameter file (350.9)")
+6 DO MES^XPDUTL("-------------")
+7 NEW IBMES,IBSTAT
+8 ; Get IEN of Non-Verified Extract from "B" xref
+9 SET IBIEN=$ORDER(^IBE(350.9,1,51.17,"B",3,""))
IF 'IBIEN
GOTO NONVERQ
+10 ; Kill Non-Verified Extract Node
+11 KILL ^IBE(350.9,1,51.17,IBIEN)
+12 ; Kill Non-Verified Extract Cross Reference
+13 KILL ^IBE(350.9,1,51.17,"B",3)
NONVERQ ;
+1 DO MES^XPDUTL("Clean up of Non-Verified extract data in Site Parameter file (350.9) - Complete")
+2 QUIT
