Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: HLOT

HLOT.m

Go to the documentation of this file.
  1. HLOT ;IRMFO-ALB/CJM - Services provided by the transport layer;03/24/2004 14:43 ;02/18/2011
  1. ;;1.6;HEALTH LEVEL SEVEN;**126,131,139,146,155**;Oct 13, 1995;Build 4
  1. ;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. ;**NOTE: tags of the format ZB* are used by the client-trace debugging tool and should not be removed
  1. ;
  1. READHDR(HLCSTATE,HDR) ;
  1. ZB10 N SUCCESS,SEG
  1. N MCODE
  1. S HLCSTATE("MESSAGE ENDED")=0
  1. ;**START P139 CJM
  1. S HLCSTATE("MESSAGE STARTED")=0
  1. ;**END P139
  1. S MCODE="S SUCCESS=$$"_HLCSTATE("READ HEADER")_"(.HLCSTATE,.HDR)"
  1. X MCODE
  1. ;**START P139 CJM
  1. I SUCCESS S HLCSTATE("MESSAGE STARTED")=1
  1. ;**END P139
  1. ZB11 Q SUCCESS
  1. ;
  1. READSEG(HLCSTATE,SEG) ;
  1. ZB12 N RETURN
  1. N MCODE
  1. S MCODE="S RETURN=$$"_HLCSTATE("READ SEGMENT")_"(.HLCSTATE,.SEG)"
  1. X MCODE
  1. ZB13 Q RETURN
  1. ;
  1. OPEN(HLCSTATE) ;
  1. N MCODE
  1. S HLCSTATE("CONNECTED")=0
  1. Q:'$L(HLCSTATE("OPEN"))
  1. I $G(HLCSTATE("LINK","SINGLE THREADED")) D Q:HLCSTATE("LOCK FAILED")
  1. .S HLCSTATE("LOCK FAILED")=0
  1. .L +^HLO("OPEN LINK",HLCSTATE("LINK","NAME")_":"_HLCSTATE("LINK","PORT")):5
  1. .I '$T S HLCSTATE("LOCK FAILED")=1 D
  1. ..Q:'HLCSTATE("LOCK FAILED")
  1. ZB27 ..;
  1. ..;
  1. ;
  1. S MCODE="D "_HLCSTATE("OPEN")_"(.HLCSTATE)"
  1. X MCODE
  1. I $G(HLCSTATE("LINK","SINGLE THREADED")),'HLCSTATE("CONNECTED") L -^HLO("OPEN LINK",HLCSTATE("LINK","NAME")_":"_HLCSTATE("LINK","PORT"))
  1. Q
  1. ;
  1. CLOSE(HLCSTATE) ;
  1. N MCODE
  1. S MCODE="D "_HLCSTATE("CLOSE")_"(.HLCSTATE)"
  1. X MCODE
  1. I $G(HLCSTATE("LINK","SINGLE THREADED")) L -^HLO("OPEN LINK",HLCSTATE("LINK","NAME")_":"_HLCSTATE("LINK","PORT"))
  1. ;
  1. S HLCSTATE("CONNECTED")=0
  1. Q
  1. ;
  1. WRITESEG(HLCSTATE,SEG) ;
  1. ZB14 N RETURN
  1. N MCODE
  1. S MCODE="S RETURN=$$"_HLCSTATE("WRITE SEGMENT")_"(.HLCSTATE,.SEG)"
  1. X MCODE
  1. ZB15 Q RETURN
  1. ;
  1. WRITEHDR(HLCSTATE,HDR) ;
  1. ZB16 N SUCCESS
  1. N MCODE
  1. S MCODE="S SUCCESS=$$"_HLCSTATE("WRITE HEADER")_"(.HLCSTATE,.HDR)"
  1. X MCODE
  1. ZB17 Q SUCCESS
  1. ;
  1. ENDMSG(HLCSTATE) ;
  1. ZB18 N RETURN
  1. N MCODE
  1. S MCODE="S RETURN=$$"_HLCSTATE("END MESSAGE")_"(.HLCSTATE)"
  1. X MCODE
  1. ZB19 Q RETURN