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

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

@@ -1 @@
-HLOSRVR2 ;ALB/CJM-HL7 - HLO Server ;07/20/2007
- ;;1.6;HEALTH LEVEL SEVEN;**131,137**;Oct 13, 1995;Build 21
- ;Per VHA Directive 2004-038, this routine should not be modified.
+HLOSRVR2 ;ALB/CJM-HL7 - Sends an application ack over an open connection, for original mode ;02/04/2004
+ ;;1.6;HEALTH LEVEL SEVEN;**131**;Oct 13, 1995;Build 10
  ;
 NEWMSG(HLCSTATE,HLMSTATE,HDR) ;
@@ -49 +48 @@
  S HLMSTATE("MSA",2)=HLMSTATE("ID")
  Q
+ ;
+ACKNOW(MSG,ERROR) ;
+ ;Sends the messge immediately if there is an open connection, otherwise
+ ;will return an error.
+ ;
+ N $ETRAP,$ESTACK S $ETRAP="G ERROR^HLOSRVR2"
+ N SENT
+ S SENT=0,ERROR=""
+ I '$G(HLCSTATE("CONNECTED")) D
+ .S ERROR="NOT CONNECTED"
+ .S MSG("STATUS")="TF"
+ E  S MSG("STATUS")="SU"
+ S:'$G(MSG("DT/TM CREATED")) MSG("DT/TM CREATED")=$$NOW^XLFDT
+ S MSG("STATUS","PURGE")=$$FMADD^XLFDT(MSG("DT/TM CREATED"),$S($G(HLCSTATE("ERROR PURGE")):HLCSTATE("ERROR PURGE"),1:7))
+ D
+ .I $G(MSG("UNSTORED LINES")),'$$SAVEMSG^HLOF777(.MSG) S ERROR="$$SAVE^HLOF777 FAILED!" Q
+ .I '$$SAVEMSG^HLOF778(.MSG) S ERROR="$$SAVE^HLOF778 FAILED!" Q
+ .Q:MSG("STATUS")'="SU"
+ .I '$$WRITEMSG^HLOCLNT1(.HLCSTATE,.MSG) S ERROR="TRANSMISSION FAILURE" Q
+ .S SENT=1
+ .D COUNT^HLOSTAT(.HLCSTATE,ACK("HDR","RECEIVING APPLICATION"),ACK("HDR","SENDING APPLICATION"),ACK("HDR","MESSAGE TYPE")_"~"_ACK("HDR","EVENT"))
+ ;
+END ;
+ I 'SENT,MSG("STATUS")="SU",$G(MSG("IEN")) D
+ .Q:'$D(^HLB(MSG("IEN"),0))
+ .S MSG("STATUS")="TF"
+ .S MSG("STATUS","ERROR TEXT")=ERROR
+ .S $P(^HLB(MSG("IEN"),0),"^",20)=MSG("STATUS")
+ .S $P(^HLB(MSG("IEN"),0),"^",21)=MSG("STATUS","ERROR TEXT")
+ .S ^HLB("ERRORS","TF",$S($L($G(MSG("HDR","RECEIVING APPLICATION"))):MSG("HDR","RECEIVING APPLICATION"),1:"UNKNOWN"),MSG("DT/TM CREATED"),IEN)=""
+ ;
+ Q SENT
+ ;
+ERROR ;error trap for ACKNOW
+ S SENT=0,ERROR="TRANSMISSION FAILURE:"_$P($ECODE,",",1,2)
+ S $ETRAP="D UNWIND^%ZTER"
+ ;
+ ;don't log some common errors
+ I ($ECODE["READ")!($ECODE["NOTOPEN")!($ECODE["DEVNOTOPN")!($ECODE["WRITE")!($ECODE["OPENERR") D
+ .;nothing!
+ E  D
+ .D ^%ZTER
+ G END^HLOSRVR2
+ Q