RCDPEM8 ;OIFO-BAYPINES/PJH - EOB MOVE/COPY BULLETINS ;Jun 06, 2014@19:11:19
Source file <RCDPEM8.m>
| 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 |
