- 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 Feb 18, 2025@23:42:17 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
