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 ---[H[J[2J[HIB20P674 1183 printed Dec 13, 2024@02:04:28 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
