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

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

@@ -1 @@
-HLOAPI2 ;ALB/CJM-HL7 - Developer API's for sending application acks ;07/30/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,131,133,134,137**;Oct 13, 1995;Build 21
+HLOAPI2 ;ALB/CJM-HL7 - Developer API's for sending application acks ;12/11/2006
+ ;;1.6;HEALTH LEVEL SEVEN;**126,131,133,134**;Oct 13, 1995;Build 30
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -66 +66 @@
  .S ACK("HDR","RECEIVING APPLICATION")=$G(HLMSTATE("HDR","SENDING APPLICATION"))
  .F I=1:1:3 S ACK("HDR","RECEIVING FACILITY",I)=$G(HLMSTATE("HDR","SENDING FACILITY",I))
- .S ACK("ACK TO","STATUS")=$S(PARMS("ACK CODE")="AA":"SU",1:"ER")
+ .S ACK("ACK TO","STATUS")=$S(PARMS("ACK CODE")="AA":"SU",1:"AE")
  .S ACK("ACK TO")=$G(HLMSTATE("HDR","MESSAGE CONTROL ID"))
  .S ACK("ACK TO","IEN")=HLMSTATE("IEN")
@@ -117 +117 @@
  I LEN>20 S ERROR="QUEUE PARAMETER IS MAX 20 LENGTH",PARMS("QUEUE")=$E(PARMS("QUEUE"),1,20)
  I 'LEN S PARMS("QUEUE")="DEFAULT"
- D
- .N APPIEN
- .I $G(PARMS("SENDING APPLICATION"))="" D  Q
- ..S ERROR="SENDING APPLICATION IS REQUIRED"
- ..S PARMS("SENDING APPLICATION")=""
- .E  D  Q:'APPIEN
- ..S APPIEN=$$GETIEN^HLOAPP(PARMS("SENDING APPLICATION"))
- ..I 'APPIEN S ERROR="SENDING APPLICATION NOT FOUND IN THE HLO APPLICATION REGISTRY"
- .I $L($G(PARMS("SEQUENCE QUEUE"))) D
- ..I ($L(PARMS("SEQUENCE QUEUE"))>30) S ERROR="SEQUENCE QUEUE NAME > 30 CHARACTERS" Q
- ..I PARMS("SEQUENCE QUEUE")["^" S ERROR="SEQUENCE QUEUE NAME MAY NOT CONTAIN '^'" Q
- ..I $G(PARMS("APP ACK TYPE"))'="AL" S ERROR="SEQUENCE QUEUES REQUIRE AN APPLICATION ACKNOWLEDGMENT" Q
- ..I $G(PARMS("ACCEPT ACK TYPE"))'="AL" S ERROR="SEQUENCE QUEUES REQUIRE AN ACCEPT ACKNOWLEDGMENT" Q
+ I $G(PARMS("SENDING APPLICATION"))="" D
+ .S ERROR="SENDING APPLICATION IS REQUIRED"
+ .S PARMS("SENDING APPLICATION")=""
+ E  D
+ .I '$D(^HLD(779.2,"C",PARMS("SENDING APPLICATION"))) S ERROR="SENDING APPLICATION NOT FOUND IN THE HLO APPLICATION REGISTRY"
  ;
  ;move parameters into HLMSTATE
@@ -140 +132 @@
  S @SARY@("FAILURE RESPONSE")=$G(PARMS("FAILURE RESPONSE"))
  S @SARY@("QUEUE")=PARMS("QUEUE")
- S @SARY@("SEQUENCE QUEUE")=$G(PARMS("SEQUENCE QUEUE"))
  Q:$L(ERROR) 0
  Q 1
- ;
  ;
 SETCODE(SEG,VALUE,FIELD,COMP,REP) ;
@@ -165 +155 @@
  S @VAR=9,SEG(FIELD,REP,COMP,SUB)=$G(VALUE("ORIGINAL TEXT"))
  Q
- ;
-CHKWHO(HLMSTATE,WHOTO,ERROR) ;
- N RETURN,I
- S RETURN=1
- I '$$CHECKWHO^HLOASUB1(.WHOTO,.RETURN,.ERROR) S RETURN=0
- ;
- ;move parameters into HLMSTATE
- S HLMSTATE("STATUS","LINK IEN")=$G(RETURN("LINK IEN"))
- S HLMSTATE("STATUS","LINK NAME")=$G(RETURN("LINK NAME"))
- S HLMSTATE("STATUS","PORT")=$P($G(RETURN("RECEIVING FACILITY",2)),":",2)
- S HLMSTATE("HDR","RECEIVING APPLICATION")=$G(RETURN("RECEIVING APPLICATION"))
- F I=1:1:3 S HLMSTATE("HDR","RECEIVING FACILITY",I)=$G(RETURN("RECEIVING FACILITY",I))
- Q RETURN