RCDPEM8 ;OIFO-BAYPINES/PJH - EOB MOVE/COPY BULLETINS ;Jun 06, 2014@19:11:19
Source file <RCDPEM8.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 |
|---|---|---|
| EN | ; Main entry point for Moved/Copied EOB bulletins
|
|
| EOBSCAN | ;Scan EOB
|
|
| INACTIVE(CDATE) | ;Search for any bill that is not ACTIVE
|
|
| CHECK(IEN430) | ;Check claim status in AR
|
|
| SAVE(CDATE,EOBIEN,IEN101,EOBCNT,CNT) | ;Put the data into the ^TMP global
; INPUTS: EOBIEN = ien of the EOB ; IEN101 = ien of individual copy ; EOBCNT = count of EOB found ; CNT = count of claims within transaction ; RETURNS : Builds each entry in the ^TMP global |
|
| SAVE1 | ;Save unformatted bill details into ^TMP
|
|
| BULLETIN | ;Create bulletins only if moved/copied EOB found
|
|
| EOBL(DET) | ;Format EOB line
|
| FileNo | Call Tags |
|---|---|
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
| ^DGCR(399 - [#399] | EXTERNAL^DILFD |
| ^PRCA(430 - [#430] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | SAVE1+5, SAVE1+9 |
| ^IBM(361.1 - [#361.1] | EOBSCAN+5, EOBSCAN+12, EOBSCAN+15, INACTIVE+3, INACTIVE+5, INACTIVE+6, INACTIVE+11, SAVE+10, SAVE+14 |
| ^PRCA(430 - [#430] | SAVE1+3 |
| ^TMP( | EN+6!, EN+18!, SAVE1+29*, BULLETIN+4, BULLETIN+27, BULLETIN+29, BULLETIN+31 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | BULLETIN+2~ |
| BEXT | SAVE+7~, SAVE1+3*, SAVE1+29 |
| BIEN | SAVE+7~, SAVE+12*, SAVE+22~, SAVE+23*, SAVE1+3, SAVE1+5, SAVE1+9, SAVE1+15, SAVE1+25 |
| BILL | EOBL+1~, EOBL+2*, EOBL+7 |
| BLANK | BULLETIN+2~, BULLETIN+23*, BULLETIN+38 |
| CBILL | INACTIVE+1~, INACTIVE+11*, INACTIVE+13 |
| CDATE | EOBSCAN+1~, EOBSCAN+3*, EOBSCAN+5*, EOBSCAN+7, EOBSCAN+9, EOBSCAN+12, EOBSCAN+15, EOBSCAN+17, INACTIVE~, INACTIVE+3 , INACTIVE+5, SAVE~, SAVE1+27 |
| CNT | EOBSCAN+1~, EOBSCAN+11*, EOBSCAN+14*, EOBSCAN+17, SAVE~, SAVE+23*, SAVE1+29, BULLETIN+2~, BULLETIN+28*, BULLETIN+29* , BULLETIN+31, BULLETIN+33 |
| CNT1 | BULLETIN+2~, BULLETIN+26*, BULLETIN+35*, BULLETIN+36*, BULLETIN+37*, BULLETIN+38*, BULLETIN+39 |
| DATE | SAVE+7~, SAVE1+27*, SAVE1+29 |
| DET | BULLETIN+3~, BULLETIN+31*, BULLETIN+33, BULLETIN+36, BULLETIN+37, EOBL~, EOBL+2, EOBL+3 |
| DONE | EOBSCAN+1~ |
| DOS | SAVE+7~, SAVE1+9*, SAVE1+29, EOBL+1~, EOBL+2*, EOBL+11 |
| DUZ | BULLETIN+43 |
| EOBCNT | EN+4~, EN+8*, EOBSCAN+11*, EOBSCAN+17, SAVE~, SAVE1+29, BULLETIN+13, BULLETIN+26*, BULLETIN+27*, BULLETIN+29 , BULLETIN+31, BULLETIN+33 |
| EOBIEN | EOBSCAN+1~, EOBSCAN+11*, EOBSCAN+12*, EOBSCAN+15, EOBSCAN+17, SAVE~, SAVE+10, SAVE+14 |
| FBILL | INACTIVE+1~, INACTIVE+8*, INACTIVE+9 |
| FOUND | INACTIVE+1~, INACTIVE+2*, INACTIVE+3, INACTIVE+5, INACTIVE+9*, INACTIVE+13*, INACTIVE+14 |
| GLB | BULLETIN+2~, BULLETIN+4*, BULLETIN+8, BULLETIN+10, BULLETIN+11, BULLETIN+12, BULLETIN+13, BULLETIN+14, BULLETIN+15, BULLETIN+16 , BULLETIN+17, BULLETIN+35, BULLETIN+36, BULLETIN+37, BULLETIN+38, BULLETIN+39, BULLETIN+43, BULLETIN+46 |
| IEN101 | EOBSCAN+1~, EOBSCAN+15*, EOBSCAN+17, SAVE~, SAVE+14 |
| IEN430 | CHECK~, CHECK+1 |
| LINE | BULLETIN+3~, BULLETIN+33*, BULLETIN+34*, BULLETIN+35 |
| MODE | SAVE+8~, SAVE+16*, SAVE+21 |
| NOW | EOBSCAN+1~, EOBSCAN+3*, EOBSCAN+7 |
| ORIG | SAVE+8~, SAVE+16*, SAVE+21, SAVE+23 |
| OUTPUT | EOBL+1~, EOBL+7*, EOBL+9*, EOBL+11*, EOBL+13*, EOBL+15 |
| PATIEN | SAVE+7~, SAVE1+5*, SAVE1+7 |
| PATIENT | EOBL+1~, EOBL+2*, EOBL+5*, EOBL+9 |
| PATNAM | SAVE+7~, SAVE1+7*, SAVE1+29 |
| PAYER | EOBL+1~, EOBL+3*, EOBL+13 |
| PEXT | SAVE+7~, SAVE1+13*, SAVE1+15*, SAVE1+17*, SAVE1+23*, SAVE1+29 |
| PIEN | SAVE+7~, SAVE1+11*, SAVE1+13 |
| PSQ | SAVE+7~, SAVE1+19*, SAVE1+21 |
| PSQEXT | SAVE+7~, SAVE1+21*, SAVE1+23 |
| RCPROG | EN+4~, EN+6*, EN+18, SAVE1+29, BULLETIN+27, BULLETIN+29, BULLETIN+31 |
| RCPROG1 | BULLETIN+2~, BULLETIN+4* |
| REC0 | SAVE+7~, SAVE+10*, SAVE+12, SAVE1+11, SAVE1+19 |
| REC101 | INACTIVE+1~, INACTIVE+6*, INACTIVE+8, SAVE+8~, SAVE+14*, SAVE+16 |
| SBJ | BULLETIN+2~, BULLETIN+9*, BULLETIN+43 |
| SP | EOBL+1~, EOBL+2*, EOBL+7, EOBL+9, EOBL+11 |
| STAT | SAVE+7~, SAVE1+25*, SAVE1+29 |
| SUB | INACTIVE+1~, INACTIVE+2*, INACTIVE+3*, INACTIVE+5, INACTIVE+6, INACTIVE+11, BULLETIN+2~ |
| SUB101 | INACTIVE+1~, INACTIVE+4*, INACTIVE+5*, INACTIVE+6 |
| SUBHDR | BULLETIN+2~, BULLETIN+20*, BULLETIN+33 |
| SUBHDR1 | BULLETIN+2~, BULLETIN+21*, BULLETIN+33 |
| SUBHDR2 | BULLETIN+2~, BULLETIN+22*, BULLETIN+34 |
| U | INACTIVE+8, INACTIVE+11, SAVE+12, SAVE+16, SAVE1+3, SAVE1+5, SAVE1+9, SAVE1+11, SAVE1+19, SAVE1+29 , BULLETIN+33, BULLETIN+37, EOBL+2, EOBL+3 |
| XMDUZ | BULLETIN+42~, BULLETIN+43*, BULLETIN+45 |
| XMINSTR | BULLETIN+42~, BULLETIN+45 |
| XMINSTR("FROM" | BULLETIN+44* |
| XMSUB | BULLETIN+42~, BULLETIN+43*, BULLETIN+45 |
| XMTEXT | BULLETIN+42~, BULLETIN+43*, BULLETIN+45 |
| XMY | BULLETIN+42~, BULLETIN+45 |
| XMY("I:G.RCDP | E MOVE COPY" , BULLETIN+43* |
