Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FBFHLX2

FBFHLX2.m

Go to the documentation of this file.
  1. FBFHLX2 ;DSS/LJF - VISTA FEE 5010 UPGRADE ;4/4/2011
  1. ;;3.5;FEE BASIS;**122**;JAN 30, 1995;Build 8
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. TIME(FBTYPE,FBDTG,FBFTRACK) ;
  1. N FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER ; set by $$INIT
  1. N FBFDA,FBFJOB,FBSTFLAG,FBFPURGE,FBFXTMP,FBF2RDTH
  1. S FBTYPE=$G(FBTYPE),FBDTG=+$G(FBDTG),ZTSK=+$G(ZTSK),FBFTRACK=1 I 'FBDTG Q
  1. K ZTDTH
  1. I '$$INIT^FBMON K FBFTRACK Q
  1. ;
  1. I FBTYPE="START" D Q
  1. . I $$FACTIVE^FBMON(.FBFTRACK) D:'ZTSK INFORM^FBMON(1,FBFTRACK("START"),FBFTRACK("END"),FBFTRACK("STATE")) Q
  1. . ;
  1. . S FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBDTG D FILE^DIE("","FBFDA") K FBFDA
  1. . S ^XTMP("FBFHLX",0)=$$FMADD^XLFDT(FBDTG,3)_U_FBDTG_U_" FB FPPS TRANSMIT active process status."
  1. . S ^XTMP("FBFHLX","IEN")=$H_"^0^INIT^"
  1. . S FBFTRACK=0
  1. ;
  1. I FBTYPE="END" D
  1. . K ^XTMP("FBFHLX")
  1. . S FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBDTG D FILE^DIE("","FBFDA") K FBFDA
  1. Q
  1. ;
  1. SETITIME(FBSTRT,FBEND) ; Set specific times to FB TRANSMIT START & FB TRANSMIT END
  1. N FBFDA,FBFENFLD,FBFPARIX,FBFPROOT,FBFSTFLD,FBFINTER ; set by $$INIT
  1. I '$$INIT^FBMON Q
  1. S FBSTRT=$G(FBSTRT,$$NOW^XLFDT),FBEND=$G(FBEND,$$NOW^XLFDT)
  1. I FBSTRT,FBEND
  1. 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
  1. I I $$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)<5,$$FMDIFF^XLFDT(FBEND,$$FMADD^XLFDT($$NOW^XLFDT,-4),1)>0
  1. E Q
  1. S FBFDA(FBFPROOT,FBFPARIX,FBFSTFLD)=FBSTRT
  1. S FBFDA(FBFPROOT,FBFPARIX,FBFENFLD)=FBEND
  1. D FILE^DIE("","FBFDA") K FBFDA
  1. Q
  1. ;
  1. ;FBFHLX2