Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOF778.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/HLOF778.m (modified) (2 diffs)

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

@@ -1 @@
-HLOF778 ;ALB/CJM-HL7 - Saving messages to file 778 ;07/10/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,134,137**;Oct 13, 1995;Build 21
+HLOF778 ;ALB/CJM-HL7 - Saving messages to file 778 ;03/15/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**126,134**;Oct 13, 1995;Build 30
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -142 +142 @@
  .S $P(^HLB(IEN,3,SUBIEN,0),"^",4)=$G(ACKTO("ACK BY"))
  .S $P(^HLB(IEN,3,SUBIEN,0),"^",5)=STATUS
- I (STATUS="ER"),'SKIP D
+ I (STATUS="AE"),'SKIP D
  .N APP
- .S APP=HLMSTATE("HDR","RECEIVING APPLICATION")
+ .S APP=HLMSTATE("HDR","SENDING APPLICATION")
  .I APP="" S APP="UNKNOWN"
- .S ^HLB("ERRORS",APP,$$NOW^XLFDT,ACKTO("IEN"))=""
+ .S ^HLB("ERRORS","AE",APP,$$NOW^XLFDT,ACKTO("IEN"))=""
  .;don't count the error - the app ack was already counted as an error.
  .D COUNT^HLOESTAT("IN",$G(HLMSTATE("HDR","RECEIVING APPLICATION")),$G(HLMSTATE("HDR","SENDING APPLICATION")),$S(HLMSTATE("BATCH"):"BATCH",1:$G(HLMSTATE("HDR","MESSAGE TYPE"))),$G(HLMSTATE("HDR","EVENT")))