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 ---[H[J[2J[HIBY779PO 1109 printed Aug 26, 2025@22:51:34 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
