Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: HLCSTCP2

Package: Health Level Seven

Routine: HLCSTCP2


Information

HLCSTCP2 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/04/2011 16:27

Source Information

Source file <HLCSTCP2.m>

Entry Points

Name Comments DBIA/ICR reference
EXIT
QUE ; -- Check "OUT" queue for processing IF there is a message do it
; and then check the link if it open or not
DCSEND ;direct connect
; Set up error trap
DONE(ST,ERR,ERRMSG) ;set status to complete
CHKMSG(HLI) ;check status of message and update if not cancelled
WRITE(HLDA) ; write message in HL7 format
; HLDA - ien of message in 773
; - start block $C(11)
; - end block $C(28)
; - record separator $C(13)
OPEN() ; -- Open TCP/IP device (Client)
RDERR
ERROR
CC(X) ;cleanup and close

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: WRITE+23
Function Call: WRITE
  • Prompt: X,!
  • Line Location: WRITE+28
Function Call: WRITE
  • Prompt: X1,@IOF
  • Line Location: WRITE+42
Function Call: WRITE
  • Prompt: X1,@HLTCPLNK("IOF")
  • Line Location: WRITE+43
Function Call: WRITE
  • Prompt: X,@HLTCPLNK("IOF")
  • Line Location: WRITE+47
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: WRITE+49
Function Call: WRITE
  • Prompt: @HLTCPLNK("IOF")
  • Line Location: WRITE+51
Function Call: WRITE
  • Prompt: X,!
  • Line Location: WRITE+55
Function Call: WRITE
  • Prompt: X,@HLTCPLNK("IOF")
  • Line Location: WRITE+56
Info |  Source |  Entry Points |  Interaction Calls