HLCSTCP2 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;08/04/2011 16:27
Source file <HLCSTCP2.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| Name | Field # of Occurrence |
|---|---|
| CLOSE^%ZISTCP | HLCSTCP2+34, QUE+104, DCSEND+31, CC+2 |
| $$OS^%ZOSV | HLCSTCP2+16 |
| $$PARAM^HLCS2 | QUE+41 |
| DEQUE^HLCSREP | DONE+4, CHKMSG+10 |
| $$STOP^HLCSTCP | HLCSTCP2+20, HLCSTCP2+21, HLCSTCP2+29, HLCSTCP2+31 |
| LLCNT^HLCSTCP | QUE+17, QUE+29, QUE+63, QUE+79, QUE+101, DCSEND+12, DCSEND+16 |
| MON^HLCSTCP | HLCSTCP2+23, HLCSTCP2+26, HLCSTCP2+32, QUE+4, QUE+35, QUE+52, DCSEND+28, CC+1 |
| $$READ^HLCSTCP1 | QUE+98, DCSEND+21 |
| OPENA^HLCSTCP3 | OPEN+10 |
| ERROR^HLCSTCP4 | ERROR |
| RDERR^HLCSTCP4 | RDERR |
| STATUS^HLTF0 | QUE+50, DCSEND+11, DONE+2, CHKMSG+8, CHKMSG+21 |
| $$MSA^HLTP3 | QUE+73 |
| $$RSP^HLTP31 | QUE+106 |
| $$P^HLTPCK2 | QUE+69, QUE+71, QUE+75 |
| $$HTE^XLFDT | QUE+42 |
| $$NOW^XLFDT | QUE+56, QUE+60, QUE+112, DCSEND+9, DCSEND+15, DCSEND+25 |
| SETUP^XQALERT | QUE+43 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | HLCSTCP2+15, HLCSTCP2+16, OPEN+8 |
| ^HL(772 - [#772] | QUE+23, QUE+25 |
| ^HLCS(870 - [#870] | QUE+42, QUE+49* |
| ^HLMA - [#773] | QUE+8, QUE+23, QUE+31, QUE+56*, QUE+60*, QUE+65*, QUE+67, QUE+73, QUE+77, QUE+112* , DCSEND+9*, DCSEND+15*, DCSEND+25*, CHKMSG+6, CHKMSG+18, WRITE+14, WRITE+16, WRITE+19 |
| ^HLMA("AC" | HLCSTCP2+29, QUE+6, QUE+14, QUE+15!, QUE+16, DONE+7 |
| ^ORD(101 - [#101] | QUE+77 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | HLCSTCP2+27~, HLCSTCP2+29* |
| COUNT | QUE+24~, QUE+25* |
| CRCOUNT | WRITE+8~, WRITE+9*, WRITE+47*, WRITE+49*, WRITE+51* |
| ERR | DONE~, DONE+2 |
| ERRMSG | DONE~, DONE+2 |
| HL | QUE+2~ |
| HLAR | WRITE+8~, WRITE+21*, WRITE+23*, WRITE+24 |
| HLARR | QUE+2~ |
| >> HLCSOUT | HLCSTCP2+21, HLCSTCP2+30*, QUE+47* |
| HLDA | WRITE~, WRITE+14, WRITE+16, WRITE+19 |
| HLDA2 | WRITE+8~, WRITE+16* |
| HLDBACK | QUE+95~*, DCSEND+6~* |
| HLDOM | OPEN+9~ |
| >> HLDP | HLCSTCP2+10, HLCSTCP2+29, QUE+6, QUE+14, QUE+15, QUE+16, QUE+17, QUE+29, QUE+42, QUE+49 , QUE+63, QUE+79, QUE+101, DCSEND+12, DCSEND+16, DONE+4, DONE+7, CHKMSG+10 |
| >> HLDRETR | QUE+34 |
| >> HLDRETR("CLOSE" | QUE+104 |
| >> HLDWAIT | QUE+85 |
| >> HLERROR | DCSEND+10, DCSEND+11, DCSEND+26, DCSEND+27, DCSEND+29*, CHKMSG+7*, CHKMSG+8, WRITE+15* |
| HLHDR | QUE+2~ |
| HLI | QUE+2~, QUE+8*, QUE+13, QUE+23, QUE+25, CHKMSG~, CHKMSG+21, WRITE+8~, WRITE+21*, WRITE+23* , WRITE+24*, OPEN+9~ |
| HLIP | OPEN+9~ |
| HLJ | QUE+2~, QUE+8*, QUE+13, QUE+67!*, QUE+69, QUE+71, QUE+75 |
| HLJ(1 | QUE+75 |
| HLMSA | QUE+2~ |
| HLMSG | HLCSTCP2+8~, HLCSTCP2+10*, HLCSTCP2+21, QUE+6*, QUE+8, QUE+14, QUE+15, QUE+16, QUE+18*, QUE+23 , QUE+29*, QUE+31, QUE+50, QUE+56, QUE+57, QUE+60, QUE+61, QUE+63*, QUE+65, QUE+67 , QUE+73, QUE+77, QUE+112, DCSEND+9, DCSEND+10, DCSEND+11, DCSEND+15, DCSEND+25, DONE+2, DONE+4 , DONE+7*, CHKMSG+6, CHKMSG+8, CHKMSG+10, CHKMSG+18, CHKMSG+21 |
| HLN | QUE+2~, QUE+106 |
| HLN("ACAT" | QUE+71*, QUE+73*, QUE+75*, QUE+81 |
| HLN("ACKTIME" | QUE+65*, QUE+95 |
| HLN("APAT" | QUE+71*, QUE+73*, QUE+75*, QUE+81, QUE+115 |
| HLN("ECH" | QUE+69* |
| HLN("EID" | QUE+77* |
| HLN("MID" | QUE+71*, QUE+75* |
| HLN("SAN" | QUE+69* |
| HLN("TYPE" | QUE+71*, QUE+75 |
| >> HLOS | OPEN+8 |
| >> HLP("ACKTIME" | DCSEND+6 |
| HLPORT | HLCSTCP2+8~, HLCSTCP2+34!, QUE+104!, DCSEND+31!, OPEN+3, CC+2! |
| HLPORTA | OPEN+9~ |
| >> HLPRIO | DONE+7 |
| HLREREAD | QUE+2~, QUE+92, QUE+93*, QUE+102*, QUE+113*, QUE+125*, QUE+127* |
| HLRESLT | QUE+2~, QUE+123 |
| HLRESP | QUE+2~, QUE+98*, QUE+100, QUE+106, DCSEND+21*, DCSEND+26, DCSEND+29 |
| HLRETMG | HLCSTCP2+8~, HLCSTCP2+10*, QUE+37, QUE+41* |
| >> HLRETRA | QUE+34, QUE+37, QUE+42, QUE+45, QUE+49 |
| HLRETRM | QUE+2~, QUE+31*, QUE+61*, QUE+65 |
| HLRETRY | HLCSTCP2+8~, HLCSTCP2+10*, QUE+6*, QUE+34, QUE+61*, DONE+7* |
| HLTCP | QUE+2~, QUE+8*, QUE+61* |
| HLTCPI | QUE+2~, QUE+61* |
| >> HLTCPLNK | HLCSTCP2+20, HLCSTCP2+25 |
| >> HLTCPLNK("IOF" | WRITE+43, WRITE+47, WRITE+51, WRITE+56 |
| HLTCPO | HLCSTCP2+8~, HLCSTCP2+10* |
| >> HLTCPRET | HLCSTCP2+29 |
| HLTMBUF | QUE+3~, DCSEND+4~ |
| IO | WRITE+22, WRITE+56, WRITE+58, OPEN+3*, OPEN+4 |
| >> IO(0 | HLCSTCP2+16*, HLCSTCP2+17, WRITE+58 |
| LENGTH | WRITE+29~, WRITE+30*, WRITE+34, WRITE+37, WRITE+40* |
| LINENO | WRITE+8~, WRITE+21*, WRITE+26, WRITE+52* |
| POP | HLCSTCP2+8~ |
| ST | DONE~, DONE+2 |
| U | QUE+31, QUE+41, QUE+42, QUE+49, QUE+65, QUE+77, QUE+123, CHKMSG+8 |
| X | QUE+2~, QUE+75*, QUE+77*, QUE+106*, QUE+108, QUE+113, QUE+122, CHKMSG+3~, CHKMSG+18*, CHKMSG+21 , WRITE+8~, WRITE+24*, WRITE+26*, WRITE+30, WRITE+39*, WRITE+40, WRITE+47, WRITE+49, WRITE+54*, WRITE+56 , CC~, CC+1 |
| X1 | WRITE+35~, WRITE+39*, WRITE+43 |
| XQA | QUE+39~ |
| XQA("G." | QUE+42* |
| XQAID | QUE+39~ |
| XQAMSG | QUE+39~, QUE+42* |
| XQAOPT | QUE+39~ |
| XQAROU | QUE+39~ |
| Z | QUE+2~, QUE+39~, QUE+41*, QUE+42, QUE+73*, QUE+75* |
