Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOPURGE.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• HEALTH_LEVEL_SEVEN-HL/HLOPURGE.m (modified) (4 diffs)

FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOPURGE.m

@@ -1 @@
-HLOPURGE ;IRMFO-ALB/CJM - Purging Old Messages;03/24/2004  14:43 ;07/25/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,134,136,137**;Oct 13, 1995;Build 21
+HLOPURGE ;IRMFO-ALB/CJM - Purging Old Messages;03/24/2004  14:43 ;04/30/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**126,134,136**;Oct 13, 1995;Build 9
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -28 +28 @@
  Q
 OLD778 ;
- N OLD,START,END,APP,TYPE,TODAY,PARMS
+ N OLD,START,END,APP,TYPE,TODAY
  S TODAY=$$DT^XLFDT
  S OLD=$$FMADD^XLFDT(TODAY,-45)
@@ -58 +58 @@
  ;
  ;also kill old errors left lying around
- D SYSPARMS^HLOSITE(.PARMS)
- S OLD=$$FMADD^XLFDT($$DT^XLFDT,-PARMS("ERROR PURGE"))
- S APP=""
- F  S APP=$O(^HLB("ERRORS",APP)) Q:APP=""  D
- .N TIME
+ F TYPE="TF","AE","SE" S APP="" F  S APP=$O(^HLB("ERRORS",TYPE,APP)) Q:APP=""  D
+ .N TIME,PARMS
+ .D SYSPARMS^HLOSITE(.PARMS)
+ .S OLD=$$FMADD^XLFDT($$DT^XLFDT,-PARMS("ERROR PURGE"))
  .S TIME=0
- .F  S TIME=$O(^HLB("ERRORS",APP,TIME)) Q:'TIME  Q:TIME>OLD  K ^HLB("ERRORS",APP,TIME)
+ .F  S TIME=$O(^HLB("ERRORS",TYPE,APP,TIME)) Q:'TIME  Q:TIME>OLD  K ^HLB("ERRORS",TYPE,APP,TIME)
  Q
 OLD777 ;
@@ -102 +101 @@
  ;if an error status,take care of the "ERRORS" x-ref
  I MSG("STATUS")'="",MSG("STATUS")'="SU",MSG("BODY") D
- .K ^HLB("ERRORS",RAPP,MSG("DT/TM CREATED"),MSGIEN)
- .I MSG("STATUS")="ER" D
+ .N APP
+ .S APP=$S(MSG("STATUS")="TF":SAPP,1:RAPP)
+ .K ^HLB("ERRORS",MSG("STATUS"),APP,MSG("DT/TM CREATED"),MSGIEN)
+ .I MSG("STATUS")="AE" D
  ..N SUB
  ..S SUB=MSGIEN_"^"
- ..K ^HLB("ERRORS",RAPP,MSG("DT/TM CREATED"),SUB)
- ..F  S SUB=$O(^HLB("ERRORS",RAPP,MSG("DT/TM CREATED"),SUB)) Q:SUB=""  Q:+SUB'=MSGIEN  K ^HLB("ERRORS",RAPP,MSG("DT/TM CREATED"),SUB)
+ ..K ^HLB("ERRORS","AE",APP,MSG("DT/TM CREATED"),SUB)
+ ..F  S SUB=$O(^HLB("ERRORS","AE",APP,MSG("DT/TM CREATED"),SUB)) Q:SUB=""  Q:+SUB'=MSGIEN  K ^HLB("ERRORS","AE",APP,MSG("DT/TM CREATED"),SUB)
  ;
  ;kill the whole-file xrefs for the message ien within a batch