IBCNINS.m

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 ---IBCNINS   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