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

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

@@ -1 @@
-HLOCNRT ;DAOU/ALA-Generate HL7 Optimized Message ;07/24/2007
- ;;1.6;HEALTH LEVEL SEVEN;**126,132,134,137**;Oct 13, 1995;Build 21
+HLOCNRT ;DAOU/ALA-Generate HL7 Optimized Message ;03/15/2007
+ ;;1.6;HEALTH LEVEL SEVEN;**126,132,134**;Oct 13, 1995;Build 30
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -17 +17 @@
  ;   ARYTYP = The array where HL7 message resides
  ;   HLP = Additional HL7 message parameters (optional, pass by reference)
- ;        These optional subscripts to HLP are supported for input:
- ;             "APP ACK RESPONSE" = <tag^routine> to call when the app ack is received
- ;             "CONTPTR"
+ ;        These optional subscripts to HLL are supported for input:
  ;             "SECURITY"
- ;             "SEQUENCE QUEUE" - queue used to maintain the order of the messages via application acks.  If used, the application MUST specify that both an accept ack and application ack be returned. 
+ ;              "CONTPTR"
+ ;              "APP ACK RESPONSE" = <tag^routine> to call when the app ack is received
  ;        
  ;   HLL  (optional, pass by reference) Additional message recipients being dynamically added
@@ -51 +50 @@
  . I $G(HLP("CONTPTR"))'="" S APPARMS("CONTINUATION POINTER")=HLP("CONTPTR")
  . I $G(HLP("QUEUE"))'="" S APPARMS("QUEUE")=HLP("QUEUE")
- . I $G(HLP("SEQUENCE QUEUE"))'="" S APPARMS("SEQUENCE QUEUE")=HLP("SEQUENCE QUEUE")
  . I $G(HLP("APP ACK RESPONSE"))'="" S APPARMS("APP ACK RESPONSE")=HLP("APP ACK RESPONSE")
  ;