IBY779PO.m

IBY779PO ;WCJ/EDE - IB*2.0*779 POST INSTALL;01/04/24 2:10pm

 ;;2.0;Integrated Billing;**779**;Mar 20, 1995;Build 7

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

 Q

 ;

EN ;Post Install for IB*2.0*779

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

 D TSKPUSH  ; add the nightly task

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

 Q

 ;

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

 ;

 N IBMULTI

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

 ;

 S IBMULTI=$$FIND1^DIC(19.2,,"B","IBMH MULTI FAC COPAY SYNCH","B")

 ;

 I IBMULTI D  Q

 . D MES^XPDUTL("Nothing to see here folks (it awas already scheduled)  ... ")

 ;

 I 'IBMULTI D  Q

 . N FDA,IENROOT,MESS,TSTAMP

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

 . S FDA(19.2,"+1,",.01)=$$FIND1^DIC(19,,"B","IBMH MULTI FAC COPAY SYNCH")

 . S FDA(19.2,"+1,",2)=TSTAMP

 . S FDA(19.2,"+1,",6)="D@2AM"

 . S FDA(19.2,"+1,",11)=DUZ

 . D UPDATE^DIE("","FDA","IENROOT","MESS")

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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY779PO   1109     printed  Mar 13, 2025@21:40:40                                                                                                                                                                                                    Page 2

IBY779PO  ;WCJ/EDE - IB*2.0*779 POST INSTALL;01/04/24 2:10pm

 +1       ;;2.0;Integrated Billing;**779**;Mar 20, 1995;Build 7

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

 +3        QUIT 

 +4       ;

EN        ;Post Install for IB*2.0*779

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

 +2       ; add the nightly task

           DO TSKPUSH

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

 +4        QUIT 

 +5       ;

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

 +1       ;

 +2        NEW IBMULTI

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

 +4       ;

 +5        SET IBMULTI=$$FIND1^DIC(19.2,,"B","IBMH MULTI FAC COPAY SYNCH","B")

 +6       ;

 +7        IF IBMULTI

               Begin DoDot:1

 +8                DO MES^XPDUTL("Nothing to see here folks (it awas already scheduled)  ... ")

               End DoDot:1

               QUIT 

 +9       ;

 +10       IF 'IBMULTI

               Begin DoDot:1

 +11               NEW FDA,IENROOT,MESS,TSTAMP

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

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

 +13               SET FDA(19.2,"+1,",.01)=$$FIND1^DIC(19,,"B","IBMH MULTI FAC COPAY SYNCH")

 +14               SET FDA(19.2,"+1,",2)=TSTAMP

 +15               SET FDA(19.2,"+1,",6)="D@2AM"

 +16               SET FDA(19.2,"+1,",11)=DUZ

 +17               DO UPDATE^DIE("","FDA","IENROOT","MESS")

 +18               DO MES^XPDUTL("Added Nightly Copay Synch ... ")

               End DoDot:1

               QUIT 

 +19       QUIT