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

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

@@ -1 @@
-HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm ;07/10/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,131,134,137**;Oct 13, 1995;Build 21
+HLOFILER ;ALB/CJM- Passes messages on the incoming queue to the applications - 10/4/94 1pm ;03/28/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**126,131,134**;Oct 13, 1995;Build 30
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -115 +115 @@
  D DEQUE()
  ;
- ;may need to change the status to Error
+ ;may need to change the status to Application Error
  D
  .N NODE,RAPP,SAPP,FS,CS,REP,ESCAPE,SUBCOMP,HDR,DIR,NOW
@@ -121 +121 @@
  .S NODE=$G(^HLB(MSGIEN,0))
  .Q:NODE=""
- .Q:$P(NODE,"^",20)="ER"
- .S $P(NODE,"^",20)="ER",$P(NODE,"^",21)="APPLICATION ROUTINE ERROR"
+ .Q:$P(NODE,"^",20)="AE"
+ .S $P(NODE,"^",20)="AE",$P(NODE,"^",21)="APPLICATION ROUTINE ERROR"
  .S DIR=$S($E($P(NODE,"^",4))="I":"IN",1:"OUT")
  .I $P(NODE,"^",9) K ^HLB("AD",DIR,$P(NODE,"^",9),MSGIEN)
@@ -138 +138 @@
  .I RAPP="" S RAPP="UNKNOWN"
  .S SAPP=$$DESCAPE^HLOPRS1($P($P(HDR,FS,3),CS),FS,CS,SUBCOMP,REP,ESCAPE)
- .S ^HLB("ERRORS",RAPP,NOW,MSGIEN)=""
+ .S ^HLB("ERRORS","AE",RAPP,NOW,MSGIEN)=""
  .D COUNT^HLOESTAT(DIR,RAPP,SAPP,"UNKNOWN")
  ;