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>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| OBR(SRCOBR) | ;Get fields from OBR segment. | |
| ORC(SRCORC) | ;Get fields from ORC segment. | |
| EN(MSG) | ;Entry point from protocol SR RECEIVE | |
| OBX(SRCOBX) | ;Get fields from OBX segment and set into SRC variables | |
| FN(X) | ;Return New Person Code give Name from HL-7 segment | |
| ACCT | ||
| ZSV(SRCZSV) | ;Get service from ZSV 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 |