SRCHL7A ;BIR/SJA - RECEIVE HL-7 CONSULTS MESSAGE, PARSE INTO COMPONENTS AND CALL PFSS GET ACCOUNT API ;12/17/04 05:10 PM
Source file <SRCHL7A.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 |
|---|---|---|
| ORC(SRCORC) | ;Get fields from ORC segment.
|
|
| OBR(SRCOBR) | ;Get fields from OBR segment.
|
|
| ZSV(SRCZSV) | ;Get service from ZSV segment
|
|
| OBX(SRCOBX) | ;Get fields from OBX segment and set into SRC variables
|
|
| EN(MSG) | ;Entry point from protocol SR RECEIVE
|
|
| ACCT | ||
| FN(X) | ;Return New Person Code give Name from HL-7 segment
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123.5 - [#123.5] | GET1^DIQ |
| ^VA(200 - [#200] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | EN+9 |
| ^DIC(40.7 - [#40.7] | OBX+17 |
| ^SRO(137.45 - [#137.45] | OBX+10, OBX+17 |
| Name | Line Occurrences |
|---|---|
| $$FN | OBX+8, OBX+9 |
| OBR | EN+17 |
| OBX | EN+21 |
| ORC | EN+15 |
| ZSV | EN+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | OBX+7* |
| DIC | FN+2!* |
| DIC(0 | FN+2* |
| >> II | OBX+12*, OBX+15* |
| LN | OBX+6*, OBX+12, OBX+15, EN+3~ |
| MSG | EN~ |
| MSG( | OBX+3, OBX+6, OBX+12, OBX+15, EN+8, EN+12 |
| SRC99C | OBR+4*, OBR+5, EN+3~ |
| SRCARFN | EN+3~, ACCT*, ACCT+1 |
| SRCATN | OBR+14*, EN+3~ |
| SRCDG1 | EN+3~, ACCT |
| SRCDG1(1 | OBX+13*, EN+7*, EN+23 |
| SRCDIV | EN+3~, EN+9*, ACCT |
| SRCINTR | OBR+17*, EN+3~ |
| SRCMSG | ORC+3, OBX+3*, OBX+4, EN+3~, EN+7*, EN+8*, EN+9, EN+11*, EN+12*, EN+13 , EN+15, EN+17, EN+20, EN+21 |
| SRCNOD | EN+3~, EN+7*, EN+8*, EN+11*, EN+12*, EN+21 |
| SRCOBR | OBR~, OBR+4, OBR+6, OBR+12, OBR+14, OBR+15, OBR+17, EN+4~ |
| SRCOBX | OBX~, OBX+3, OBX+6, OBX+12, OBX+15, EN+4~ |
| SRCODT | ORC+6*, OBR+12*, OBR+13*, EN+4~ |
| SRCOID | OBX+4*, OBX+5, EN+4~ |
| SRCORC | ORC~, ORC+4, ORC+5, ORC+6 |
| SRCORNP | ORC+5*, EN+4~ |
| SRCOTXT | ZSV+3*, EN+4~ |
| SRCPNM | EN+4~ |
| SRCPR1 | EN+4~, ACCT |
| SRCPR1(4 | OBX+16*, EN+7*, EN+23 |
| >> SRCPV1 | ACCT |
| >> SRCPV1(17 | OBX+8*, EN+7* |
| >> SRCPV1(18 | OBX+17* |
| >> SRCPV1(2 | OBX+18* |
| >> SRCPV1(3 | OBX+17* |
| >> SRCPV1(7 | OBX+9*, EN+7* |
| SRCPV2 | EN+4~, ACCT |
| SRCPV2(8 | OBX+7*, EN+7*, EN+23 |
| SRCQT | ORC+3*, OBR+5*, OBR+11*, EN+4~, EN+11*, EN+12, EN+16, EN+17*, EN+18 |
| SRCRATSN | EN+5~ |
| SRCRB | EN+5~ |
| SRCRF | OBX+6*, OBX+7, OBX+8, OBX+9, OBX+10, OBX+11, OBX+12, OBX+14, OBX+15, EN+5~ |
| SRCRF( | OBX+6* |
| SRCRFL | OBX+6*, OBX+7, OBX+8, OBX+9, OBX+10, OBX+12*, OBX+13, OBX+15*, OBX+16, EN+5~ |
| SRCSEND | EN+5~, EN+9* |
| SRCSS | OBR+5*, OBR+7*, OBR+8*, OBR+10*, OBR+11, EN+5~, EN+17, EN+22, EN+25 |
| SRCSST | OBR+6*, OBR+7, EN+5~ |
| SRCSTDT | OBR+15*, OBR+16*, EN+5~ |
| SRCSURG | EN+5~, ACCT |
| SRCSURG(2 | OBX+17*, EN+7*, EN+23 |
| SRCTRLC | ORC+4*, EN+6~, EN+25 |
| SRCZSS | ZSV+1*, EN+6~ |
| SRCZSV | ZSV~, ZSV+1, ZSV+3 |
| SRDFN | EN+6~, ACCT |
| SRDOP | OBX+7*, EN+6~ |
| SRX | OBX+10*, OBX+17, EN+5~ |
| X | OBX+7*, FN~, FN+1 |
| Y | OBX+7, EN+6~, FN+3 |
