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

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

@@ -1 @@
-HLTPCK2B ;OIFO-O/RJH - Message Header Validation (Con't) ;10/04/2007  16:00
- ;;1.6;HEALTH LEVEL SEVEN;**120,133,122**;Oct 13, 1995;Build 14
+HLTPCK2B ;OIFO-O/RJH - Message Header Validation (Con't) ;09/13/2006
+ ;;1.6;HEALTH LEVEL SEVEN;**120,133**;Oct 13, 1995;Build 13
  ;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -23 +23 @@
  . S X=$G(^HLMA(ARY("MTIENS"),0)),ARY("EIDS")=$P(X,U,8),ARY("ACK")=$P(X,U,10)
  . ;if no subscriber protocol then response msg. is invalid
- . ;
- . ; patch HL*1.6*122 start
- . ; comment out the following code: for patch 109- dynamic addressing
- . ; I ('ARY("EIDS")) S:(ERR="") ERR="Invalid Message Control ID in MSA Segment - No Subscr. IEN in 773" Q
+ . I ('ARY("EIDS")) S:(ERR="") ERR="Invalid Message Control ID in MSA Segment - No Subscr. IEN in 773" Q
  . ;get message text ien in file 772 and server protocol, 'EID'
  . S ARY("MTIEN")=+X,X=$G(^HL(772,+X,0)),ARY("EID")=$P(X,U,10)
  . I ('ARY("EID")) S:(ERR="") ERR="Event Protocol not found" Q
- . ; D EVENT^HLUTIL1(ARY("EIDS"),"770,773",.HLN)
- . I ARY("EIDS") D EVENT^HLUTIL1(ARY("EIDS"),"770,773",.HLN)
- . ; patch HL*1.6*122 end
+ . D EVENT^HLUTIL1(ARY("EIDS"),"770,773",.HLN)
  ;
  ;Find Server Protocol - based on sending application, message type,