- 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 Feb 18, 2025@23:24:52 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