BPSJHLT ;BHAM ISC/LJF - HL7 Process Incoming MFN Messages ;05-NOV-2003
Source file <BPSJHLT.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 |
|---|---|---|
| PKY(PKYNM,PKYROOT,ADD) | ;Lookup ien or add using PKYNM
|
|
| EN(HL) | ; Entry Point
|
|
| FAKEREC(REF) | ; Setup a fake Record ID (Set ID)
|
|
| ERRMSG(SPECIAL,SEG,REQFLDS,BPSJSEG) | ;
|
| Name | Field # of Occurrence |
|---|---|
| APPACK^BPSJACK | EN+193 |
| DGAPPACK^BPSJACK | EN+21 |
| SPAR^BPSJUTL | EN+40 |
| $$DECODE^BPSJZPR | EN+111, EN+151 |
| EN^BPSJZPR | EN+49 |
| INITZPRS^BPSJZPR | EN+15 |
| ^DIC | PKY+5 |
| FILE^DICN | PKY+6 |
| FILE^DID | EN+71 |
| ^DIE | EN+136, EN+170, EN+176, EN+178, EN+180 |
| ^DIK | EN+184 |
| $$ROOT^DILFD | EN+16 |
| $$VFILE^DILFD | EN+83 |
| ERR^IBCNRHLU | EN+160 |
| HLT^IBCNRHLU | EN+96, EN+142 |
| MFK^IBCNRHLU | EN+163 |
| $$NOW^XLFDT | EN+101 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPSF(9002313.92 - [#9002313.92] | EN+120, EN+122!, EN+187*, EN+188*, EN+190!, EN+191* |
| ^TMP($J | EN+13!, EN+39, EN+120*, EN+154*, EN+156*, EN+157*, EN+165!, EN+167, EN+183, EN+187 , EN+188, EN+191, EN+195!, FAKEREC+6*, FAKEREC+10*, FAKEREC+15, FAKEREC+16*, FAKEREC+19*, FAKEREC+20*, ERRMSG+8* , ERRMSG+13* |
| Name | Line Occurrences |
|---|---|
| $$PKY | EN+114, EN+127, EN+129, EN+154 |
| ERRMSG | EN+64, EN+99, EN+104, EN+116, EN+131, EN+148 |
| FAKEREC | EN+48 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADD | PKY~, PKY+2*, PKY+5, PKY+6 |
| AIEN | EN+7~ |
| APIEN | EN+7~ |
| >> APP | EN+35, EN+53, EN+80, EN+138, EN+159 |
| APPACK | EN+2~, EN+193 |
| APPACK("MFA" | EN+24*, EN+25*, EN+102*, EN+106*, EN+109*, EN+110*, EN+119*, EN+168* |
| APPACK("MFI" | EN+26*, EN+66*, EN+67*, EN+68, EN+72*, EN+73*, EN+76* |
| APPACK("MSA" | EN+22*, EN+23* |
| BPSETID | EN+4~, EN+46*, EN+48 |
| BPSFILE | EN+5~, EN+16*, EN+49, EN+71, EN+72 |
| >> BPSFILE1 | EN+35 |
| >> BPSFLN1 | EN+35, EN+82, EN+83 |
| BPSJACT | EN+2~, EN+18*, EN+102*, EN+103, EN+172*, EN+173*, EN+174*, EN+175*, EN+176 |
| BPSJADT | EN+2~, EN+18*, EN+101* |
| BPSJCNT | EN+5~, EN+125*, EN+126 |
| BPSJDEVN | EN+5~, EN+126*, EN+127, EN+129 |
| BPSJNAME | EN+6~, EN+74! |
| BPSJNAME("NAME" | EN+73 |
| BPSJPKY | EN+2~, EN+18*, EN+109*, EN+110, EN+111*, EN+114, EN+152, EN+154 |
| BPSJPROD | EN+6~, EN+18*, EN+155*, EN+174, EN+175 |
| BPSJROOT | EN+2~, EN+16*, EN+49, EN+114, EN+127, EN+129, EN+134, EN+154, EN+170, EN+176 , EN+178, EN+180, EN+184 |
| BPSJSEG | EN+3~, EN+39!, EN+40, EN+49, EN+54, EN+64, EN+81, EN+99, EN+140, EN+148 , ERRMSG~ |
| BPSJSEG( | ERRMSG+8 |
| BPSJSEG(1 | EN+40 |
| BPSJSEG(2 | EN+46, EN+58, EN+66, EN+67, EN+87, EN+102, FAKEREC+4* |
| BPSJSEG(3 | EN+106 |
| BPSJSEG(4 | EN+61, EN+76, EN+151 |
| BPSJSEG(5 | EN+90, EN+109, EN+156 |
| BPSJSEG(6 | EN+93, EN+157 |
| BPSJSEG(8 | EN+155 |
| BPSZPRER | EN+2~ |
| C | EN+7~, ERRMSG+1~, ERRMSG+2*, ERRMSG+5, ERRMSG+6 |
| CMIEN | EN+7~ |
| CS | EN+5~, EN+11*, EN+66, EN+67 |
| D | EN+7~ |
| D0 | EN+7~ |
| DA | PKY+1~, EN+134!*, EN+170*, EN+176*, EN+178*, EN+180*, EN+184* |
| DATA | EN+7~ |
| DATAAP | EN+8~ |
| DATABPS | EN+8~ |
| DATACM | EN+8~ |
| DATAMFK | EN+7~ |
| DATAMFK("MFE-1" | EN+87* |
| DATAMFK("MFE-4" | EN+90* |
| DATAMFK("MFE-5" | EN+93* |
| DATAMFK("MFI-1" | EN+58* |
| DATAMFK("MFI-3" | EN+61* |
| DATE | EN+8~ |
| DI | EN+8~ |
| DIC | PKY+1~, PKY+4* |
| DIC(0 | PKY+5*, PKY+6* |
| DIE | PKY+1~, EN+134!*, EN+170*, EN+176*, EN+178*, EN+180* |
| DIK | EN+6~, EN+184* |
| DINUM | PKY+1~ |
| DLAYGO | PKY+1~, PKY+6* |
| DO | PKY+1~ |
| DR | EN+134!, EN+135*, EN+169*, EN+176*, EN+178*, EN+180* |
| DTOUT | PKY+1~ |
| DUOUT | PKY+1~ |
| EPHARM | EN+8~, EN+163 |
| ERRFLAG | EN+3~, EN+37*, EN+38, EN+45, EN+82*, EN+83*, EN+160!, ERRMSG+15* |
| FCNT | ERRMSG+1~, ERRMSG+6* |
| FIELD | ERRMSG+1~, ERRMSG+6*, ERRMSG+8 |
| FIELDNO | EN+8~ |
| FILE | EN+3~, EN+35* |
| FILENO | EN+8~ |
| FLN | EN+3~, EN+35* |
| FNO | ERRMSG+1~, ERRMSG+5*, ERRMSG+6 |
| FS | EN+5~, EN+10* |
| HCT | EN+3~, EN+37*, EN+38, EN+39*, EN+40, EN+139 |
| HL | EN~, EN+40, EN+193 |
| HL("APAT" | EN+163 |
| HL("ECH" | EN+11 |
| HL("FS" | EN+10 |
| HL("MID" | EN+23 |
| I | EN+8~ |
| IBCNACT | EN+7~ |
| IBSEG | EN+7~, EN+54!*, EN+81!*, EN+140!* |
| IEN | EN+7~ |
| IX | FAKEREC+1~, FAKEREC+4*, FAKEREC+5, FAKEREC+8, FAKEREC+15, FAKEREC+20 |
| MAXRX | EN+4~, EN+37* |
| MCT | EN+3~, EN+37* |
| MGRP | EN+8~ |
| MSG | EN+3~ |
| MSG(1 | EN+82*, EN+83* |
| NAFLG | EN+3~, EN+37* |
| NCPDPCK | EN+5~, EN+17*, EN+157 |
| NCPDPVER | EN+5~, EN+18*, EN+157*, EN+178 |
| NPFLG | EN+3~, EN+37* |
| PKYNM | PKY~, PKY+2, PKY+4 |
| PKYROOT | PKY~, PKY+2, PKY+4, PKY+6 |
| PSHTVER | EN+5~, EN+18*, EN+156*, EN+180 |
| PSIEN | EN+2~, EN+49, EN+114*, EN+116, EN+118, EN+120, EN+122, EN+125, EN+127*, EN+128* , EN+129*, EN+131, EN+134, EN+170, EN+176, EN+178, EN+180, EN+181, EN+183, EN+184 , EN+187, EN+188, EN+190, EN+191, EN+193 |
| RBCNT | EN+4~, EN+122*, EN+189*, EN+190, EN+191 |
| RBEND | EN+4~, EN+17*, EN+122, EN+189 |
| RBSTART | EN+4~, EN+17*, EN+122, EN+189 |
| RCODE | EN+4~ |
| REF | FAKEREC~, FAKEREC+3*, FAKEREC+4, FAKEREC+6, FAKEREC+10, FAKEREC+16, FAKEREC+19, FAKEREC+20 |
| REQFLDS | ERRMSG~, ERRMSG+2*, ERRMSG+5, ERRMSG+6, ERRMSG+13 |
| SEG | EN+3~, EN+40*, EN+43, EN+51, EN+78, EN+142, EN+145, ERRMSG~, ERRMSG+2*, ERRMSG+8 , ERRMSG+13 |
| SPECIAL | ERRMSG~, ERRMSG+2*, ERRMSG+3, ERRMSG+11, ERRMSG+15 |
| TCH | EN+6~, EN+111, EN+151! |
| TCH("\E\" | EN+30* |
| TCH("\F\" | EN+29* |
| TCH("\R\" | EN+29* |
| TCH("\T\" | EN+30* |
| U | EN+103 |
| X | PKY+1~, PKY+4* |
| Y | PKY+1~, PKY+7 |
| ZPRCNT | EN+4~, EN+37*, EN+46*, EN+48 |
| ZPRS | EN+3~, EN+15 |
| ZPSNNAME | EN+4~, EN+18*, EN+151*, EN+152*, EN+154, EN+169 |