- HLEMEP ;ALB/CJM-HL7 - Purge Monitor Events ;02/04/2004
- ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
- ;
- PURGE ;
- N NOW,WHEN,EVENT,ERROR
- S NOW=$$NOW^XLFDT
- S WHEN=0
- D START^HLEVAPI(.VAR)
- ;
- ;delete the old events
- F S WHEN=$O(^HLEV(776.4,"AJ",WHEN)) Q:'WHEN Q:WHEN>NOW D
- .S EVENT=0
- .F S EVENT=$O(^HLEV(776.4,"AJ",WHEN,EVENT)) Q:'EVENT D
- ..I '$$DELETE^HLEMU(776.4,EVENT,.ERROR),'$D(^HLEV(776.4,EVENT,0)) K ^HLEV(776.4,"AJ",WHEN,EVENT)
- ;
- ;delete the old statistics
- N STATS,SITE,TYPE,YEAR,MONTH,DAY,CUTMONTH,CUTDAY,CUTHOUR
- S STATS="^HLEV(776.4,""AF"")"
- S SITE=0
- ;
- ;these determine the timeframes within which to delete the old statistics
- S CUTMONTH=$E($$FMADD^XLFDT(DT,-65),1,5)
- S CUTDAY=$P($$FMADD^XLFDT(DT,-8),".")
- S CUTHOUR=$$FMADD^XLFDT(NOW,-2)
- ;
- F S SITE=$O(@STATS@(SITE)) Q:'SITE D
- .S TYPE=0
- .F S TYPE=$O(@STATS@(SITE,TYPE)) Q:'TYPE D
- ..S YEAR=""
- ..F S YEAR=$O(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR)) Q:'YEAR D
- ...S MONTH=""
- ...F S MONTH=$O(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH)) Q:(MONTH="") D
- ....I ((YEAR-1700)_$$PAD2(MONTH))<CUTMONTH D
- .....K @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH)
- ....E D
- .....S DAY=""
- .....F S DAY=$O(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY)) Q:(DAY="") D
- ......I ((YEAR-1700)_$$PAD2(MONTH)_$$PAD2(DAY))<CUTDAY D
- .......K @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY)
- ......E D
- .......S HOUR=0
- .......F S HOUR=$O(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY,"HOUR",HOUR)) Q:(HOUR="") Q:((YEAR-1700)_$$PAD2(MONTH)_$$PAD2(DAY)_"."_$$PAD2(HOUR))>CUTHOUR D
- ........K @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY,"HOUR",HOUR)
- ;
- ;
- D CHECKOUT^HLEVAPI
- K ^TMP("HLEVFLAG",$J)
- Q
- ;
- INPERSON ;entry point for running in the foreground
- S ^TMP("HLEVFLAG",$J)="STOP"
- D PURGE
- Q
- PAD2(STRING) ;
- ; pads a number on the left with '0', to a length of 2
- Q $$RJ^XLFSTR(STRING,2,"0")
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLEMEP 2035 printed Mar 13, 2025@21:02:06 Page 2
- HLEMEP ;ALB/CJM-HL7 - Purge Monitor Events ;02/04/2004
- +1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
- +2 ;
- PURGE ;
- +1 NEW NOW,WHEN,EVENT,ERROR
- +2 SET NOW=$$NOW^XLFDT
- +3 SET WHEN=0
- +4 DO START^HLEVAPI(.VAR)
- +5 ;
- +6 ;delete the old events
- +7 FOR
- SET WHEN=$ORDER(^HLEV(776.4,"AJ",WHEN))
- if 'WHEN
- QUIT
- if WHEN>NOW
- QUIT
- Begin DoDot:1
- +8 SET EVENT=0
- +9 FOR
- SET EVENT=$ORDER(^HLEV(776.4,"AJ",WHEN,EVENT))
- if 'EVENT
- QUIT
- Begin DoDot:2
- +10 IF '$$DELETE^HLEMU(776.4,EVENT,.ERROR)
- IF '$DATA(^HLEV(776.4,EVENT,0))
- KILL ^HLEV(776.4,"AJ",WHEN,EVENT)
- End DoDot:2
- End DoDot:1
- +11 ;
- +12 ;delete the old statistics
- +13 NEW STATS,SITE,TYPE,YEAR,MONTH,DAY,CUTMONTH,CUTDAY,CUTHOUR
- +14 SET STATS="^HLEV(776.4,""AF"")"
- +15 SET SITE=0
- +16 ;
- +17 ;these determine the timeframes within which to delete the old statistics
- +18 SET CUTMONTH=$EXTRACT($$FMADD^XLFDT(DT,-65),1,5)
- +19 SET CUTDAY=$PIECE($$FMADD^XLFDT(DT,-8),".")
- +20 SET CUTHOUR=$$FMADD^XLFDT(NOW,-2)
- +21 ;
- +22 FOR
- SET SITE=$ORDER(@STATS@(SITE))
- if 'SITE
- QUIT
- Begin DoDot:1
- +23 SET TYPE=0
- +24 FOR
- SET TYPE=$ORDER(@STATS@(SITE,TYPE))
- if 'TYPE
- QUIT
- Begin DoDot:2
- +25 SET YEAR=""
- +26 FOR
- SET YEAR=$ORDER(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR))
- if 'YEAR
- QUIT
- Begin DoDot:3
- +27 SET MONTH=""
- +28 FOR
- SET MONTH=$ORDER(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH))
- if (MONTH="")
- QUIT
- Begin DoDot:4
- +29 IF ((YEAR-1700)_$$PAD2(MONTH))<CUTMONTH
- Begin DoDot:5
- +30 KILL @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH)
- End DoDot:5
- +31 IF '$TEST
- Begin DoDot:5
- +32 SET DAY=""
- +33 FOR
- SET DAY=$ORDER(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY))
- if (DAY="")
- QUIT
- Begin DoDot:6
- +34 IF ((YEAR-1700)_$$PAD2(MONTH)_$$PAD2(DAY))<CUTDAY
- Begin DoDot:7
- +35 KILL @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY)
- End DoDot:7
- +36 IF '$TEST
- Begin DoDot:7
- +37 SET HOUR=0
- +38 FOR
- SET HOUR=$ORDER(@STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY,"HOUR",HOUR))
- if (HOUR="")
- QUIT
- if ((YEAR-1700)_$$PAD2(MONTH)_$$PAD2(DAY)_"."_$$PAD2(HOUR))>CUTHOUR
- QUIT
- Begin DoDot:8
- +39 KILL @STATS@(SITE,TYPE,"RECEIVED","YEAR",YEAR,"MONTH",MONTH,"DAY",DAY,"HOUR",HOUR)
- End DoDot:8
- End DoDot:7
- End DoDot:6
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +40 ;
- +41 ;
- +42 DO CHECKOUT^HLEVAPI
- +43 KILL ^TMP("HLEVFLAG",$JOB)
- +44 QUIT
- +45 ;
- INPERSON ;entry point for running in the foreground
- +1 SET ^TMP("HLEVFLAG",$JOB)="STOP"
- +2 DO PURGE
- +3 QUIT
- PAD2(STRING) ;
- +1 ; pads a number on the left with '0', to a length of 2
- +2 QUIT $$RJ^XLFSTR(STRING,2,"0")
- +3 ;
