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+59, EBSUMMARY+62 |
| GETS^DIQ | EBSUMMARY+43, EBSUMMARY+69 |
| $$X12^IBCNERP2 | EBSUMMARY+50 |
| $$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+54, EBSUMMARY+104 |
| 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+37, EBSUMMARY+66, ISMCARE+3 |
| ^IBE(350.9 - [#350.9] | ISMCARE+4 |
| ^IBE(365.011 - [#365.011] | EBSUMMARY+95 |
| ^IBE(365.014 - [#365.014] | EBSUMMARY+76 |
| ^IBE(365.026 - [#365.026] | EBSUMMARY+101 |
| ^TMP("EBSUMEUT2" | EBSUMMARY+35!, EBSUMMARY+117, EBSUMMARY+121*, 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+119* |
| ARRAY("MISSING_EFFDT" | EBSUMMARY+109* |
| ARRAY("OHI" | EBSUMMARY+89* |
| ARRAY(0 | EBSUMMARY+124 |
| ARRAY(1 | EBSUMMARY+125*, EBSUMMARY+127* |
| 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+119, EBSUMMARY+125, EBSUMMARY+127 |
| 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+45~, EBSUMMARY+50* |
| DR | SAVETQ+2~, SAVETQ+3*, SST+5~, SST+9*, RSP+5~, RSP+6*, BUFF+6~, BUFF+7* |
| DTQUAL | EBSUMMARY+32~, EBSUMMARY+101*, EBSUMMARY+102, EBSUMMARY+103, EBSUMMARY+106, EBSUMMARY+107 |
| DTYP | EBSUMMARY+45~, EBSUMMARY+49* |
| EB | EBSUMMARY+68! |
| EB( | EBSUMMARY+71, EBSUMMARY+72, EBSUMMARY+76, EBSUMMARY+86, EBSUMMARY+95, EBSUMMARY+100, EBSUMMARY+101, EBSUMMARY+104 |
| EBCNT | EBSUMMARY+32~, EBSUMMARY+66*, EBSUMMARY+67, EBSUMMARY+71, EBSUMMARY+119 |
| ELGBENINFO | EBSUMMARY+32~, EBSUMMARY+95*, EBSUMMARY+96, EBSUMMARY+109, EBSUMMARY+117, EBSUMMARY+119, EBSUMMARY+121 |
| ERROR | EBSUMMARY+68! |
| EXT | BADMSG~, BADMSG+25, BADMSG+45, BADMSG+56, BADMSG+74 |
| EXTELIG | EBSUMMARY+32~, EBSUMMARY+86*, EBSUMMARY+89, EBSUMMARY+93 |
| 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+72*, EBSUMMARY+73*, EBSUMMARY+74 |
| >> 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+114*, EBSUMMARY+117, EBSUMMARY+121 |
| HLDT | EBSUMMARY+32~, EBSUMMARY+98*, EBSUMMARY+105*, EBSUMMARY+106*, EBSUMMARY+107*, EBSUMMARY+109, EBSUMMARY+111, EBSUMMARY+112*, EBSUMMARY+114, EBSUMMARY+119 |
| >> 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+45~, EBSUMMARY+50*, EBSUMMARY+51, EBSUMMARY+56, EBSUMMARY+57 |
| IBB | EBSUMMARY+45~, EBSUMMARY+47*, EBSUMMARY+48*, EBSUMMARY+49, EBSUMMARY+50, EBSUMMARY+52 |
| IBBERR | EBSUMMARY+33~, EBSUMMARY+43! |
| IBCHK | EBSUMMARY+33~, EBSUMMARY+43! |
| IBCHK( | EBSUMMARY+44, EBSUMMARY+48, EBSUMMARY+49, EBSUMMARY+50, EBSUMMARY+52 |
| IBEFFDT | EBSUMMARY+33~, EBSUMMARY+62*, EBSUMMARY+114 |
| IBEINFO | EBSUMMARY+33~ |
| IBELGINF | EBSUMMARY+33~, EBSUMMARY+39*, EBSUMMARY+74*, EBSUMMARY+125, EBSUMMARY+127 |
| IBL | EBSUMMARY+45~ |
| IBNOTCOV | EBSUMMARY+33~ |
| IBNOTDT | EBSUMMARY+33~ |
| IBNOTTYP | EBSUMMARY+33~ |
| IBOK | EBSUMMARY+45~, EBSUMMARY+47*, EBSUMMARY+48, EBSUMMARY+57*, EBSUMMARY+99*, EBSUMMARY+100, EBSUMMARY+105*, EBSUMMARY+107* |
| IBP | EBSUMMARY+45~, EBSUMMARY+46!, EBSUMMARY+47* |
| IBPB | EBSUMMARY+45~, EBSUMMARY+46!, EBSUMMARY+47* |
| IBPEDT | EBSUMMARY+33~, EBSUMMARY+39* |
| IBPIEN | ISMCARE+2~, ISMCARE+3*, ISMCARE+5 |
| IBSPDT | EBSUMMARY+33~, EBSUMMARY+39*, EBSUMMARY+56*, EBSUMMARY+57*, EBSUMMARY+59*, EBSUMMARY+60*, EBSUMMARY+112, EBSUMMARY+125 |
| IBSUSCT | EBSUMMARY+33~, EBSUMMARY+39* |
| IBTDT | EBSUMMARY+45~, EBSUMMARY+52*, EBSUMMARY+53, EBSUMMARY+54 |
| IBTDT1 | EBSUMMARY+45~, EBSUMMARY+54*, EBSUMMARY+55, EBSUMMARY+56, EBSUMMARY+57 |
| IBVIENS | EBSUMMARY+34~, EBSUMMARY+67*, EBSUMMARY+69, EBSUMMARY+71, EBSUMMARY+72, EBSUMMARY+76, EBSUMMARY+86, EBSUMMARY+95, EBSUMMARY+99 |
| 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+76*, EBSUMMARY+91, EBSUMMARY+117, EBSUMMARY+119, EBSUMMARY+121 |
| MWNRIEN | ISMCARE+2~, ISMCARE+4*, ISMCARE+5 |
| MWNRTYP | EBSUMMARY+34~, EBSUMMARY+64*, EBSUMMARY+102, EBSUMMARY+103, EBSUMMARY+105, EBSUMMARY+111, EBSUMMARY+125 |
| 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+37, EBSUMMARY+43, EBSUMMARY+59, EBSUMMARY+62, EBSUMMARY+64, EBSUMMARY+66, EBSUMMARY+67, ISMCARE~, ISMCARE+3 |
| SEG | BADMSG+20~, BADMSG+22* |
| SOI | EBSUMMARY~, EBSUMMARY+119, EBSUMMARY+125, EBSUMMARY+127 |
| 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+76, EBSUMMARY+95, EBSUMMARY+101, EBSUMMARY+119, EBSUMMARY+125, EBSUMMARY+127, ISMCARE+3, ISMCARE+4 |
| X | SAVETQ+2~, SST+5~, RSP+5~, BUFF+6~ |
| XXDT | EBSUMMARY+34~, EBSUMMARY+104*, EBSUMMARY+105, EBSUMMARY+106, EBSUMMARY+107 |
| ZIEN | EBSUMMARY+34~, EBSUMMARY+99*, EBSUMMARY+100*, EBSUMMARY+101, EBSUMMARY+104 |