IB20P671.m

IB20P671 ;/Albany - IB*2.0*671 POST INSTALL;02/04/20 2:10pm

 ;;2.0;Integrated Billing;**671**;Mar 20, 1995;Build 13

 ;Per VA Directive 6402, this routine should not be modified.

 Q

 ;

POSTINIT ;Post Install for IB*2.0*671

 D BMES^XPDUTL(" >>  Starting the Post-Initialization routine for IB*2.0*671")

 D TSKPUSH  ; add the nightly task

 D TPFUS    ; fix Third Party Follow-up summary report

 D BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*671")

 Q

 ;

TSKPUSH ; task the  routine as a Night Job using TaskMan.

 ;

 N DIC,DLAYGO,TSTAMP,X,Y

 D MES^XPDUTL("Tasking Nightly Copay Synch ... ")

 ;

 I $$FIND1^DIC(19.2,,"B","IBUC MULTI FAC COPAY SYNCH","B") D MES^XPDUTL(" Already scheduled") Q  ; don't overwrite existing schedule

 S (DLAYGO,DIC)=19.2,DIC(0)="L"

 S X="IBUC MULTI FAC COPAY SYNCH"

 S TSTAMP=$$FMADD^XLFDT($$NOW^XLFDT(),1),$P(TSTAMP,".",2)="0200"

 S DIC("DR")="2////"_TSTAMP_";6////D@2AM"

 D ^DIC

 Q

 ; Update the IBSEL parameter

TPFUS ; fix value of input variable for 3rd Party Follow-Up Summary

 ; ibsel = 5 is for all types

 N IBDA,IBDM,IBSEL,IBNM,IBIVA,DA,DIE,DR,X,Y

 S IBSEL="5,"

 S IBDM="IB DM EXTRACT REPORTS"

 S IBNM="THIRD PARTY FOLLOW-UP SUMMARY"

 S IBDA=$O(^IBE(351.7,"B",IBNM,0))

 I 'IBDA D MES^XPDUTL("  >>> "_IBNM_" of "_IBDM_" not found") Q

 S IBIVA=$O(^IBE(351.7,IBDA,1,"B","IBSEL",0))

 I 'IBIVA D MES^XPDUTL("  >>> Input variable IBSEL of "_IBNM_" not found") Q

 I $P($G(^IBE(351.7,IBDA,1,IBIVA,0)),U,2)=IBSEL D  Q 

 . D MES^XPDUTL("  >>> Value of input variable IBSEL of "_IBNM_" already")

 . D MES^XPDUTL("      updated in the "_IBDM_" file (#351.7)")

 S DA(1)=IBDA,DA=IBIVA

 S DIE="^IBE(351.7,"_DA(1)_",1,",DR=".02////"_IBSEL D ^DIE

 D MES^XPDUTL("  >>> Updating value of input variable IBSEL of "_IBNM)

 D MES^XPDUTL("      in the "_IBDM_" file (#351.7)")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P671   1858     printed  Apr 09, 2024@21:14:42                                                                                                                                                                                                    Page 2

IB20P671  ;/Albany - IB*2.0*671 POST INSTALL;02/04/20 2:10pm

 +1       ;;2.0;Integrated Billing;**671**;Mar 20, 1995;Build 13

 +2       ;Per VA Directive 6402, this routine should not be modified.

 +3        QUIT 

 +4       ;

POSTINIT  ;Post Install for IB*2.0*671

 +1        DO BMES^XPDUTL(" >>  Starting the Post-Initialization routine for IB*2.0*671")

 +2       ; add the nightly task

           DO TSKPUSH

 +3       ; fix Third Party Follow-up summary report

           DO TPFUS

 +4        DO BMES^XPDUTL(" >>  End of the Post-Initialization routine for IB*2.0*671")

 +5        QUIT 

 +6       ;

TSKPUSH   ; task the  routine as a Night Job using TaskMan.

 +1       ;

 +2        NEW DIC,DLAYGO,TSTAMP,X,Y

 +3        DO MES^XPDUTL("Tasking Nightly Copay Synch ... ")

 +4       ;

 +5       ; don't overwrite existing schedule

           IF $$FIND1^DIC(19.2,,"B","IBUC MULTI FAC COPAY SYNCH","B")

               DO MES^XPDUTL(" Already scheduled")

               QUIT 

 +6        SET (DLAYGO,DIC)=19.2

           SET DIC(0)="L"

 +7        SET X="IBUC MULTI FAC COPAY SYNCH"

 +8        SET TSTAMP=$$FMADD^XLFDT($$NOW^XLFDT(),1)

           SET $PIECE(TSTAMP,".",2)="0200"

 +9        SET DIC("DR")="2////"_TSTAMP_";6////D@2AM"

 +10       DO ^DIC

 +11       QUIT 

 +12      ; Update the IBSEL parameter

TPFUS     ; fix value of input variable for 3rd Party Follow-Up Summary

 +1       ; ibsel = 5 is for all types

 +2        NEW IBDA,IBDM,IBSEL,IBNM,IBIVA,DA,DIE,DR,X,Y

 +3        SET IBSEL="5,"

 +4        SET IBDM="IB DM EXTRACT REPORTS"

 +5        SET IBNM="THIRD PARTY FOLLOW-UP SUMMARY"

 +6        SET IBDA=$ORDER(^IBE(351.7,"B",IBNM,0))

 +7        IF 'IBDA

               DO MES^XPDUTL("  >>> "_IBNM_" of "_IBDM_" not found")

               QUIT 

 +8        SET IBIVA=$ORDER(^IBE(351.7,IBDA,1,"B","IBSEL",0))

 +9        IF 'IBIVA

               DO MES^XPDUTL("  >>> Input variable IBSEL of "_IBNM_" not found")

               QUIT 

 +10       IF $PIECE($GET(^IBE(351.7,IBDA,1,IBIVA,0)),U,2)=IBSEL

               Begin DoDot:1

 +11               DO MES^XPDUTL("  >>> Value of input variable IBSEL of "_IBNM_" already")

 +12               DO MES^XPDUTL("      updated in the "_IBDM_" file (#351.7)")

               End DoDot:1

               QUIT 

 +13       SET DA(1)=IBDA

           SET DA=IBIVA

 +14       SET DIE="^IBE(351.7,"_DA(1)_",1,"

           SET DR=".02////"_IBSEL

           DO ^DIE

 +15       DO MES^XPDUTL("  >>> Updating value of input variable IBSEL of "_IBNM)

 +16       DO MES^XPDUTL("      in the "_IBDM_" file (#351.7)")

 +17       QUIT 

 +18      ;