IB20P674.m

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

 ;;2.0;Integrated Billing;**674**;Mar 20, 1995;Build 4

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

 Q

 ;

POSTINIT ;Post Install for IB*2.0*674

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

 D TSKPUSH  ; add/edit the nightly task

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

 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","IBUC MULTI FAC COPAY SYNCH","B")

 ;

 I IBMULTI D  Q

 . N FDA,MESS,TSTAMP

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

 . D FILE^DIE("","FDA","MESS")

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

 ;

 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","IBUC 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 ---IB20P674   1183     printed  Apr 09, 2024@21:27:29                                                                                                                                                                                                    Page 2

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

 +1       ;;2.0;Integrated Billing;**674**;Mar 20, 1995;Build 4

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

 +3        QUIT 

 +4       ;

POSTINIT  ;Post Install for IB*2.0*674

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

 +2       ; add/edit the nightly task

           DO TSKPUSH

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

 +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","IBUC MULTI FAC COPAY SYNCH","B")

 +6       ;

 +7        IF IBMULTI

               Begin DoDot:1

 +8                NEW FDA,MESS,TSTAMP

 +9                SET FDA(19.2,+IBMULTI_",",11)=DUZ

 +10               DO FILE^DIE("","FDA","MESS")

 +11               DO MES^XPDUTL("Updated Nightly Copay Synch ... ")

               End DoDot:1

               QUIT 

 +12      ;

 +13       IF 'IBMULTI

               Begin DoDot:1

 +14               NEW FDA,IENROOT,MESS,TSTAMP

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

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

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

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

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

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

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

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

               End DoDot:1

               QUIT 

 +22       QUIT