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 ---[H[J[2J[HFBFHLX2 1628 printed Dec 13, 2024@01:58:27 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
