- 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 Jan 18, 2025@03:36:31 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