IBCNEUT2 ;DAOU/DAC - eIV MISC. UTILITIES ; 06-JUN-2002
Source file <IBCNEUT2.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 |
|---|---|---|
| SAVETQ(IEN,TDT) | ; Update service date in TQ record
|
|
| SST(IEN,STAT) | ; Set the Transmission Queue Status
; Input parameters ; IEN = Internal entry number for the record ; STAT= Status IEN |
|
| RSP(IEN,STAT) | ; Set the Response File Status
; Input parameters ; IEN = Internal entry number for the record ; STAT= Status IEN |
|
| BUFF(BUFF,BNG) | ; Set error symbol into Buffer File
; Input Parameter ; BUFF = Buffer internal entry number ; BNG = Buffer Symbol IEN |
|
| BADMSG(EXT,QUERY) | ; Checks to see if the msg is allowed
; IB*713 Introduced this tag, checks for foreign characters as defined ; in FOREIGN^IBCNINSU. If foreign characters are encountered, some ; times the msg can't be created/sent via HL7. Other times, if you ; clear out the field with the foreign character you can still send ; the message. (Watch for the STOP variable.) ; This could be expanded in the future to check other scenarios that ; should stop the transmissions. |
|
| BADMSGX | ;Exit BADMSG
|
|
| EBSUMMARY(DFN,RIEN,SOI,ARRAY) | ; Added IB*806
|
|
| XEBSUM | ;
|
|
| ISMCARE(RIEN) | ;check if response is from eIV Medicare Payer defined in file 350.9
; new tag with IB*806 |
| Name | Field # of Occurrence |
|---|---|
| ^DIE | SAVETQ+4, SST+10, RSP+7, BUFF+8 |
| $$GET1^DIQ | EBSUMMARY+62, EBSUMMARY+65 |
| GETS^DIQ | EBSUMMARY+46, EBSUMMARY+72 |
| $$X12^IBCNERP2 | EBSUMMARY+53 |
| $$FOREIGN^IBCNINSU | BADMSG+26, BADMSG+27, BADMSG+29, BADMSG+30, BADMSG+35, BADMSG+36, BADMSG+37, BADMSG+41, BADMSG+46, BADMSG+48 , BADMSG+52, BADMSG+57, BADMSG+58, BADMSG+60, BADMSG+61, BADMSG+66, BADMSG+67, BADMSG+68, BADMSG+71, BADMSG+75 , BADMSG+80 |
| $$HL7TFM^XLFDT | EBSUMMARY+57, EBSUMMARY+107 |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.33 - [#355.33] | Classic Fileman Calls |
| ^IBCN(365 - [#365] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
| 365.02 | GETS^DIQ |
| ^IBCN(365.1 - [#365.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBCN(365 - [#365] | EBSUMMARY+40, EBSUMMARY+69, ISMCARE+3 |
| ^IBE(350.9 - [#350.9] | ISMCARE+4 |
| ^IBE(365.011 - [#365.011] | EBSUMMARY+98 |
| ^IBE(365.014 - [#365.014] | EBSUMMARY+79 |
| ^IBE(365.026 - [#365.026] | EBSUMMARY+104 |
| ^TMP("EBSUMEUT2" | EBSUMMARY+35!, EBSUMMARY+120, EBSUMMARY+124*, XEBSUM+2! |
| ^TMP("HLS" | BADMSG+22, BADMSGX+2*, BADMSGX+3*, BADMSGX+4* |
| Name | Field # of Occurrence |
|---|---|
| ^( | BADMSG+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | EBSUMMARY~, EBSUMMARY+35! |
| ARRAY( | EBSUMMARY+122* |
| ARRAY("MISSING_EFFDT" | EBSUMMARY+112* |
| ARRAY("OHI" | EBSUMMARY+92* |
| ARRAY(0 | EBSUMMARY+127 |
| ARRAY(1 | EBSUMMARY+128*, EBSUMMARY+130* |
| BNG | BUFF~, BUFF+4 |
| BUFF | BUFF~, BUFF+4, BUFF+7 |
| D | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| D0 | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| DA | SAVETQ+2~, SAVETQ+3*, SST+5~, SST+9*, RSP+5~, RSP+6*, BUFF+6~, BUFF+7* |
| DFN | EBSUMMARY~, EBSUMMARY+122, EBSUMMARY+128, EBSUMMARY+130 |
| DI | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| DIC | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| DIE | SAVETQ+2~, SAVETQ+3*, SST+5~, SST+9*, RSP+5~, RSP+6*, BUFF+6~, BUFF+7* |
| DISYS | BUFF+6~ |
| DQ | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| DQUAL | EBSUMMARY+48~, EBSUMMARY+53* |
| DR | SAVETQ+2~, SAVETQ+3*, SST+5~, SST+9*, RSP+5~, RSP+6*, BUFF+6~, BUFF+7* |
| DTQUAL | EBSUMMARY+32~, EBSUMMARY+104*, EBSUMMARY+105, EBSUMMARY+106, EBSUMMARY+109, EBSUMMARY+110 |
| DTYP | EBSUMMARY+48~, EBSUMMARY+52* |
| EB | EBSUMMARY+71! |
| EB( | EBSUMMARY+74, EBSUMMARY+75, EBSUMMARY+79, EBSUMMARY+89, EBSUMMARY+98, EBSUMMARY+103, EBSUMMARY+104, EBSUMMARY+107 |
| EBCNT | EBSUMMARY+32~, EBSUMMARY+69*, EBSUMMARY+70, EBSUMMARY+74, EBSUMMARY+122 |
| ELGBENINFO | EBSUMMARY+32~, EBSUMMARY+98*, EBSUMMARY+99, EBSUMMARY+112, EBSUMMARY+120, EBSUMMARY+122, EBSUMMARY+124 |
| ERROR | EBSUMMARY+71! |
| EXT | BADMSG~, BADMSG+25, BADMSG+45, BADMSG+56, BADMSG+74 |
| EXTELIG | EBSUMMARY+32~, EBSUMMARY+89*, EBSUMMARY+92, EBSUMMARY+96 |
| FLD | BADMSG+20~, BADMSG+35*, BADMSG+36*, BADMSG+37*, BADMSG+41*, BADMSG+52*, BADMSG+66*, BADMSG+67*, BADMSG+68*, BADMSG+71* , BADMSG+80* |
| FSCSTAT | EBSUMMARY+32~, EBSUMMARY+75*, EBSUMMARY+76*, EBSUMMARY+77 |
| >> GT1 | BADMSG+28, BADMSG+29, BADMSG+30, BADMSG+39, BADMSG+41*, BADMSG+59, BADMSG+60, BADMSG+61, BADMSG+69, BADMSG+71* , BADMSGX+4 |
| HCT | BADMSG+20~, BADMSG+21*, BADMSG+22*, BADMSGX+2*, BADMSGX+3*, BADMSGX+4* |
| HLDNDT | EBSUMMARY+32~, EBSUMMARY+117*, EBSUMMARY+120, EBSUMMARY+124 |
| HLDT | EBSUMMARY+32~, EBSUMMARY+101*, EBSUMMARY+108*, EBSUMMARY+109*, EBSUMMARY+110*, EBSUMMARY+112, EBSUMMARY+114, EBSUMMARY+115*, EBSUMMARY+117, EBSUMMARY+122 |
| >> HLFS | BADMSG+22, BADMSG+26, BADMSG+27, BADMSG+29, BADMSG+30, BADMSG+35, BADMSG+36, BADMSG+37, BADMSG+41, BADMSG+46 , BADMSG+48, BADMSG+52, BADMSG+57, BADMSG+58, BADMSG+60, BADMSG+61, BADMSG+66, BADMSG+67, BADMSG+68, BADMSG+71 , BADMSG+75, BADMSG+80 |
| IB3650 | ISMCARE+2~, ISMCARE+3* |
| IBA | EBSUMMARY+33~, EBSUMMARY+48~, EBSUMMARY+53*, EBSUMMARY+54, EBSUMMARY+59, EBSUMMARY+60 |
| IBB | EBSUMMARY+48~, EBSUMMARY+50*, EBSUMMARY+51*, EBSUMMARY+52, EBSUMMARY+53, EBSUMMARY+55 |
| IBBERR | EBSUMMARY+33~, EBSUMMARY+46! |
| IBCHK | EBSUMMARY+33~, EBSUMMARY+46! |
| IBCHK( | EBSUMMARY+47, EBSUMMARY+51, EBSUMMARY+52, EBSUMMARY+53, EBSUMMARY+55 |
| IBEFFDT | EBSUMMARY+33~, EBSUMMARY+65*, EBSUMMARY+117 |
| IBEINFO | EBSUMMARY+33~ |
| IBELGINF | EBSUMMARY+33~, EBSUMMARY+42*, EBSUMMARY+77*, EBSUMMARY+128, EBSUMMARY+130 |
| IBL | EBSUMMARY+48~ |
| IBNOTCOV | EBSUMMARY+33~ |
| IBNOTDT | EBSUMMARY+33~ |
| IBNOTTYP | EBSUMMARY+33~ |
| IBOK | EBSUMMARY+48~, EBSUMMARY+50*, EBSUMMARY+51, EBSUMMARY+60*, EBSUMMARY+102*, EBSUMMARY+103, EBSUMMARY+108*, EBSUMMARY+110* |
| IBP | EBSUMMARY+48~, EBSUMMARY+49!, EBSUMMARY+50* |
| IBPB | EBSUMMARY+48~, EBSUMMARY+49!, EBSUMMARY+50* |
| IBPEDT | EBSUMMARY+33~, EBSUMMARY+42* |
| IBPIEN | ISMCARE+2~, ISMCARE+3*, ISMCARE+5 |
| IBSPDT | EBSUMMARY+33~, EBSUMMARY+42*, EBSUMMARY+59*, EBSUMMARY+60*, EBSUMMARY+62*, EBSUMMARY+63*, EBSUMMARY+115, EBSUMMARY+128 |
| IBSUSCT | EBSUMMARY+33~, EBSUMMARY+42* |
| IBTDT | EBSUMMARY+48~, EBSUMMARY+55*, EBSUMMARY+56, EBSUMMARY+57 |
| IBTDT1 | EBSUMMARY+48~, EBSUMMARY+57*, EBSUMMARY+58, EBSUMMARY+59, EBSUMMARY+60 |
| IBVIENS | EBSUMMARY+34~, EBSUMMARY+70*, EBSUMMARY+72, EBSUMMARY+74, EBSUMMARY+75, EBSUMMARY+79, EBSUMMARY+89, EBSUMMARY+98, EBSUMMARY+102 |
| IEN | SAVETQ~, SAVETQ+3, SST~, SST+7, SST+9, RSP~, RSP+6 |
| >> IN1 | BADMSG+27, BADMSG+36*, BADMSG+37*, BADMSG+58, BADMSG+67*, BADMSG+68*, BADMSGX+3 |
| INSTYP | EBSUMMARY+34~, EBSUMMARY+79*, EBSUMMARY+94, EBSUMMARY+120, EBSUMMARY+122, EBSUMMARY+124 |
| MWNRIEN | ISMCARE+2~, ISMCARE+4*, ISMCARE+5 |
| MWNRTYP | EBSUMMARY+34~, EBSUMMARY+67*, EBSUMMARY+105, EBSUMMARY+106, EBSUMMARY+108, EBSUMMARY+114, EBSUMMARY+128 |
| MWNRTYPA | ISMCARE+2~, ISMCARE+4*, ISMCARE+5*, ISMCARE+6 |
| >> PID | BADMSG+26, BADMSG+35*, BADMSG+46, BADMSG+48, BADMSG+52*, BADMSG+57, BADMSG+66*, BADMSG+75, BADMSG+80*, BADMSGX+2 |
| QUERY | BADMSG~, BADMSG+45, BADMSG+56 |
| RIEN | EBSUMMARY~, EBSUMMARY+39, EBSUMMARY+40, EBSUMMARY+46, EBSUMMARY+62, EBSUMMARY+65, EBSUMMARY+67, EBSUMMARY+69, EBSUMMARY+70, ISMCARE~ , ISMCARE+3 |
| SEG | BADMSG+20~, BADMSG+22* |
| SOI | EBSUMMARY~, EBSUMMARY+122, EBSUMMARY+128, EBSUMMARY+130 |
| STAT | SST~, RSP~ |
| STOP | BADMSG+20~, BADMSG+21*, BADMSG+26*, BADMSG+27*, BADMSG+28, BADMSG+29*, BADMSG+30*, BADMSG+46*, BADMSG+48*, BADMSG+57* , BADMSG+58*, BADMSG+59, BADMSG+60*, BADMSG+61*, BADMSG+75*, BADMSGX+1, BADMSGX+5 |
| TDT | SAVETQ~, SAVETQ+3 |
| TMP | BADMSG+20~, EBSUMMARY+34~ |
| TMP( | BADMSG+22* |
| TMP("GT1" | BADMSGX+4 |
| TMP("IN1" | BADMSGX+3 |
| TMP("PID" | BADMSGX+2 |
| U | EBSUMMARY+79, EBSUMMARY+98, EBSUMMARY+104, EBSUMMARY+122, EBSUMMARY+128, EBSUMMARY+130, ISMCARE+3, ISMCARE+4 |
| X | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| XXDT | EBSUMMARY+34~, EBSUMMARY+107*, EBSUMMARY+108, EBSUMMARY+109, EBSUMMARY+110 |
| ZIEN | EBSUMMARY+34~, EBSUMMARY+102*, EBSUMMARY+103*, EBSUMMARY+104, EBSUMMARY+107 |