IBCNINS ;AITC/TAZ - NIGHTLY INSURANCE PROCESS ;11/23/20 12:46p.m.
;;2.0;INTEGRATED BILLING;**687,771**;21-MAR-94;Build 26
;;Per VA Directive 6402, this routine should not be modified.
;
Q
;
EN ;Main Entry Point for Nightly Process
;
; Checking for non-human users
D CHKPER
;
; Process Nightly IIU Cleanup if IIU is Nationally Enabled.
I $$GET1^DIQ(350.9,"1,",53.01,"I")="Y" D NIGHT^IBCNIUHL
;
; Purge IIU File (#365.19) honoring the parameters in file (#350.9)
D EN^IBCNIUK
;
; Process Nightly eIV Process
D EN^IBCNEDE
;
; Send Daily Buffer Report email - Summary Version from production sites only
I $$PROD^XUPROD(1) D DBR^IBCNOR2
;
ENQ ;Exit
Q
;
;-------------------------------------------------------
CHKPER ;
; Check for the existence of the New Person (#200) entries listed below.
; Send a mailman message to "VHAeInsuranceRapidResponse@domain.ext" if any are missing.
; Entries to check: "INTERFACE,IB IIU", "INTERFACE,IB EIV", "AUTOUPDATE,IBEIV"
N IBAUTO,IBEIV,IBIIU,WKDT,IBMCT,MSG,MGRP,IBXMY
;
S IBIIU=+$$FIND1^DIC(200,,"MX","INTERFACE,IB IIU")
S IBAUTO=+$$FIND1^DIC(200,,"MX","AUTOUPDATE,IBEIV"),IBEIV=+$$FIND1^DIC(200,,"MX","INTERFACE,IB EIV")
I IBIIU,IBAUTO,IBEIV Q
;
S WKDT=$$SITE^VASITE()
S MSG(1)="Missing EIV New Person entries, for station "_$P(WKDT,U,3)_":"_$P(WKDT,U,2)
S MSG(2)="-------------------------------------------------------------------------------"
S IBMCT=2
I 'IBIIU S MSG(IBMCT)="Entry for 'INTERFACE,IB IIU' is missing",IBMCT=IBMCT+1
I 'IBAUTO S MSG(IBMCT)="Entry for 'AUTOUPDATE,IBEIV' is missing",IBMCT=IBMCT+1
I 'IBEIV S MSG(IBMCT)="Entry for 'INTERFACE,IB EIV' is missing",IBMCT=IBMCT+1
S MSG(IBMCT)="-------------------------------------------------------------------------------"
S MGRP=$$MGRP^IBCNEUT5()
;
; Check for production account and made sure eInsurance mailgroup is self documenting
I $$PROD^XUPROD(1) S IBXMY("VHAeInsuranceRapidResponse@domain.ext")=""
D MSG^IBCNEUT5(MGRP,"Missing eInsurance New Person entries ("_$P(WKDT,U,3)_")","MSG(",,.IBXMY) ;sends to postmaster if IBXMY is empty
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCNINS 2139 printed Sep 02, 2024@19:01:06 Page 2
IBCNINS ;AITC/TAZ - NIGHTLY INSURANCE PROCESS ;11/23/20 12:46p.m.
+1 ;;2.0;INTEGRATED BILLING;**687,771**;21-MAR-94;Build 26
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 QUIT
+5 ;
EN ;Main Entry Point for Nightly Process
+1 ;
+2 ; Checking for non-human users
+3 DO CHKPER
+4 ;
+5 ; Process Nightly IIU Cleanup if IIU is Nationally Enabled.
+6 IF $$GET1^DIQ(350.9,"1,",53.01,"I")="Y"
DO NIGHT^IBCNIUHL
+7 ;
+8 ; Purge IIU File (#365.19) honoring the parameters in file (#350.9)
+9 DO EN^IBCNIUK
+10 ;
+11 ; Process Nightly eIV Process
+12 DO EN^IBCNEDE
+13 ;
+14 ; Send Daily Buffer Report email - Summary Version from production sites only
+15 IF $$PROD^XUPROD(1)
DO DBR^IBCNOR2
+16 ;
ENQ ;Exit
+1 QUIT
+2 ;
+3 ;-------------------------------------------------------
CHKPER ;
+1 ; Check for the existence of the New Person (#200) entries listed below.
+2 ; Send a mailman message to "VHAeInsuranceRapidResponse@domain.ext" if any are missing.
+3 ; Entries to check: "INTERFACE,IB IIU", "INTERFACE,IB EIV", "AUTOUPDATE,IBEIV"
+4 NEW IBAUTO,IBEIV,IBIIU,WKDT,IBMCT,MSG,MGRP,IBXMY
+5 ;
+6 SET IBIIU=+$$FIND1^DIC(200,,"MX","INTERFACE,IB IIU")
+7 SET IBAUTO=+$$FIND1^DIC(200,,"MX","AUTOUPDATE,IBEIV")
SET IBEIV=+$$FIND1^DIC(200,,"MX","INTERFACE,IB EIV")
+8 IF IBIIU
IF IBAUTO
IF IBEIV
QUIT
+9 ;
+10 SET WKDT=$$SITE^VASITE()
+11 SET MSG(1)="Missing EIV New Person entries, for station "_$PIECE(WKDT,U,3)_":"_$PIECE(WKDT,U,2)
+12 SET MSG(2)="-------------------------------------------------------------------------------"
+13 SET IBMCT=2
+14 IF 'IBIIU
SET MSG(IBMCT)="Entry for 'INTERFACE,IB IIU' is missing"
SET IBMCT=IBMCT+1
+15 IF 'IBAUTO
SET MSG(IBMCT)="Entry for 'AUTOUPDATE,IBEIV' is missing"
SET IBMCT=IBMCT+1
+16 IF 'IBEIV
SET MSG(IBMCT)="Entry for 'INTERFACE,IB EIV' is missing"
SET IBMCT=IBMCT+1
+17 SET MSG(IBMCT)="-------------------------------------------------------------------------------"
+18 SET MGRP=$$MGRP^IBCNEUT5()
+19 ;
+20 ; Check for production account and made sure eInsurance mailgroup is self documenting
+21 IF $$PROD^XUPROD(1)
SET IBXMY("VHAeInsuranceRapidResponse@domain.ext")=""
+22 ;sends to postmaster if IBXMY is empty
DO MSG^IBCNEUT5(MGRP,"Missing eInsurance New Person entries ("_$PIECE(WKDT,U,3)_")","MSG(",,.IBXMY)
+23 QUIT