FBFHLX2.m

FBFHLX2 ;DSS/LJF - VISTA FEE 5010 UPGRADE ;4/4/2011

 ;;3.5;FEE BASIS;**122**;JAN 30, 1995;Build 8

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

 ;

TIME(FBTYPE,FBDTG,FBFTRACK) ;

 N FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER  ; set by $$INIT

 N FBFDA,FBFJOB,FBSTFLAG,FBFPURGE,FBFXTMP,FBF2RDTH

 S FBTYPE=$G(FBTYPE),FBDTG=+$G(FBDTG),ZTSK=+$G(ZTSK),FBFTRACK=1  I 'FBDTG Q

 K ZTDTH

 I '$$INIT^FBMON K FBFTRACK Q

 ;

 I FBTYPE="START" D  Q

 . I $$FACTIVE^FBMON(.FBFTRACK) D:'ZTSK INFORM^FBMON(1,FBFTRACK("START"),FBFTRACK("END"),FBFTRACK("STATE")) Q

 . ;

 . S FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBDTG D FILE^DIE("","FBFDA") K FBFDA

 . S ^XTMP("FBFHLX",0)=$$FMADD^XLFDT(FBDTG,3)_U_FBDTG_U_" FB FPPS TRANSMIT active process status."

 . S ^XTMP("FBFHLX","IEN")=$H_"^0^INIT^"

 . S FBFTRACK=0

 ;

 I FBTYPE="END" D

 . K ^XTMP("FBFHLX")

 . S FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBDTG D FILE^DIE("","FBFDA") K FBFDA

 Q

 ;

SETITIME(FBSTRT,FBEND) ; Set specific times to FB TRANSMIT START & FB TRANSMIT END

 N FBFDA,FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER  ; set by $$INIT

 I '$$INIT^FBMON Q

 S FBSTRT=$G(FBSTRT,$$NOW^XLFDT),FBEND=$G(FBEND,$$NOW^XLFDT)

 I FBSTRT,FBEND

 I  I $$FMDIFF^XLFDT(FBSTRT,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)<5,$$FMDIFF^XLFDT(FBSTRT,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)>0  ;from now, up to 4 days ago

 I  I $$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)<5,$$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)>0

 E  Q

 S FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBSTRT

 S FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBEND

 D FILE^DIE("","FBFDA") K FBFDA

 Q

 ;

 ;FBFHLX2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBFHLX2   1628     printed  Apr 09, 2024@21:00:23                                                                                                                                                                                                     Page 2

FBFHLX2   ;DSS/LJF - VISTA FEE 5010 UPGRADE ;4/4/2011

 +1       ;;3.5;FEE BASIS;**122**;JAN 30, 1995;Build 8

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

 +4       ;

TIME(FBTYPE,FBDTG,FBFTRACK) ;

 +1       ; set by $$INIT

           NEW FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER

 +2        NEW FBFDA,FBFJOB,FBSTFLAG,FBFPURGE,FBFXTMP,FBF2RDTH

 +3        SET FBTYPE=$GET(FBTYPE)

           SET FBDTG=+$GET(FBDTG)

           SET ZTSK=+$GET(ZTSK)

           SET FBFTRACK=1

           IF 'FBDTG

               QUIT 

 +4        KILL ZTDTH

 +5        IF '$$INIT^FBMON

               KILL FBFTRACK

               QUIT 

 +6       ;

 +7        IF FBTYPE="START"

               Begin DoDot:1

 +8                IF $$FACTIVE^FBMON(.FBFTRACK)

                       if 'ZTSK

                           DO INFORM^FBMON(1,FBFTRACK("START"),FBFTRACK("END"),FBFTRACK("STATE"))

                       QUIT 

 +9       ;

 +10               SET FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBDTG

                   DO FILE^DIE("","FBFDA")

                   KILL FBFDA

 +11               SET ^XTMP("FBFHLX",0)=$$FMADD^XLFDT(FBDTG,3)_U_FBDTG_U_" FB FPPS TRANSMIT active process status."

 +12               SET ^XTMP("FBFHLX","IEN")=$HOROLOG_"^0^INIT^"

 +13               SET FBFTRACK=0

               End DoDot:1

               QUIT 

 +14      ;

 +15       IF FBTYPE="END"

               Begin DoDot:1

 +16               KILL ^XTMP("FBFHLX")

 +17               SET FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBDTG

                   DO FILE^DIE("","FBFDA")

                   KILL FBFDA

               End DoDot:1

 +18       QUIT 

 +19      ;

SETITIME(FBSTRT,FBEND) ; Set specific times to FB TRANSMIT START & FB TRANSMIT END

 +1       ; set by $$INIT

           NEW FBFDA,FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER

 +2        IF '$$INIT^FBMON

               QUIT 

 +3        SET FBSTRT=$GET(FBSTRT,$$NOW^XLFDT)

           SET FBEND=$GET(FBEND,$$NOW^XLFDT)

 +4        IF FBSTRT

               IF FBEND

 +5       ;from now, up to 4 days ago

          IF $TEST

               IF $$FMDIFF^XLFDT(FBSTRT,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)<5

                   IF $$FMDIFF^XLFDT(FBSTRT,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)>0

 +6       IF $TEST

               IF $$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)<5

                   IF $$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)>0

 +7       IF '$TEST

               QUIT 

 +8        SET FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBSTRT

 +9        SET FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBEND

 +10       DO FILE^DIE("","FBFDA")

           KILL FBFDA

 +11       QUIT 

 +12      ;

 +13      ;FBFHLX2