RCDPEAD5 ;TAS/CJE - 1ST PARTY AUTO DECREASE ; 6/27/19 2:43pm
Source file <RCDPEAD5.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 |
|---|---|---|
| OFFSET(IEN344) | ; EP - PROCESS^RCDPRPL3 - First Party Auto Decrease for manually posted claims.
|
|
| EN2(RCBILL,RCTYP3,IENS344,RCPAID) | ; Check one third party claim from the receipt for copay offsets
; Inputs : RCBILL - Internal entry number of 3rd party bill in files 399 and 430 ; RCTYP3 - Type of claim for RCBILL to match vs copay ; IENS344 - Internal entry numbers for subfile 344.01 in format nnn,nnnnnnn, ; RCPAID - Amount paid on the 3rd party claim on this receipt transaction ; and therefore avaialble for offset of copays. |
|
| TYPES(RETURN) | ; Create array of specific AR EVENT TYPES that we included
|
|
| QUEUE(IEN350,IEN399,IENS344) | ; Place the charge in a queue from processing at a later date
; Input: IEN350 - Internal entry number of charge from IB ACTION file #350 ; IEN399 - Internal entry number of third party bill from file 399 or 430 ; IENS344 - Internal entry numbers of subfile 344.01 in format nnn,nnnnnnn, ; Output: New entry in file #344.74 |
| Name | Field # of Occurrence |
|---|---|
| FILE^DIE | OFFSET+38 |
| UPDATE^DIE | QUEUE+12 |
| $$GET1^DIQ | OFFSET+2, OFFSET+4, OFFSET+7, OFFSET+30, EN2+12, EN2+13, EN2+18, EN2+22, EN2+25 |
| ^IBR | EN2+23 |
| $$TYP^IBRFN | OFFSET+22 |
| RELBILL^IBRFN | OFFSET+27 |
| $$PREPAY^RCDPEAD3 | EN2+20 |
| $$PROCESS^RCDPEAD3 | EN2+28 |
| $$TYPE^RCDPEAD3 | EN2+15 |
| $$NOW^XLFDT | OFFSET+37, QUEUE+10 |
| FileNo | Call Tags |
|---|---|
| ^RC(342 - [#342] | GET1^DIQ |
| ^RCY(344 - [#344] | GET1^DIQ |
| 344.01 | GET1^DIQ |
| ^IB - [#350] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | OFFSET+20 |
| ^PRCA(430 - [#430] | OFFSET+24 |
| ^RCY(344 - [#344] | OFFSET+15, OFFSET+17 |
| ^TMP("IBRBF" | OFFSET+26!, OFFSET+29, OFFSET+33!, EN2+11 |
| Name | Line Occurrences |
|---|---|
| EN2 | OFFSET+31 |
| QUEUE | EN2+20 |
| TYPES | OFFSET+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLAIM | OFFSET+16~, OFFSET+18*, OFFSET+19, OFFSET+20, OFFSET+21 |
| DFN | EN2+7~, EN2+22* |
| FDA | OFFSET+1~, OFFSET+36!, QUEUE+6~ |
| FDA( | QUEUE+8*, QUEUE+9*, QUEUE+10*, QUEUE+11* |
| FDA(344 | OFFSET+37* |
| IBDUZ | EN2+7~, EN2+21* |
| IBNOS | EN2+7~, EN2+21* |
| IBSEQNO | EN2+7~, EN2+21* |
| IEN01 | OFFSET+1~, OFFSET+14*, OFFSET+15*, OFFSET+17, OFFSET+30, OFFSET+31 |
| IEN344 | OFFSET~, OFFSET+4, OFFSET+7, OFFSET+15, OFFSET+17, OFFSET+30, OFFSET+31, OFFSET+37 |
| IEN350 | QUEUE~, QUEUE+8 |
| IEN399 | QUEUE~, QUEUE+9 |
| IENS | QUEUE+6~, QUEUE+7*, QUEUE+8, QUEUE+9, QUEUE+10, QUEUE+11 |
| IENS344 | EN2~, EN2+20, QUEUE~, QUEUE+11 |
| J | OFFSET+1~, OFFSET+11* |
| QUIT | EN2+7~, EN2+8*, EN2+11, EN2+28* |
| RCBAL3RD | EN2+7~, EN2+10*, EN2+28 |
| RCBILL | OFFSET+16~, OFFSET+21*, OFFSET+22, OFFSET+24, OFFSET+27, OFFSET+29, OFFSET+31, EN2~, EN2+11, EN2+16 , EN2+20, EN2+28 |
| RCDATE | OFFSET+1~, OFFSET+7*, OFFSET+8 |
| RCGROUP | EN2+7~, EN2+13*, EN2+14, EN2+15 |
| RCLST | EN2+7~ |
| RCLST( | EN2+16* |
| RCPAID | OFFSET+16~, OFFSET+30*, OFFSET+31, EN2~, EN2+10, EN2+28 |
| RCSUB | EN2+7~, EN2+9*, EN2+11*, EN2+12, EN2+13, EN2+16, EN2+18, EN2+20, EN2+21, EN2+22 , EN2+25, EN2+28 |
| RCTYP3 | OFFSET+16~, OFFSET+22*, OFFSET+31, EN2~, EN2+15 |
| RCTYPE | OFFSET+1~, OFFSET+4*, OFFSET+5, OFFSET+6, EN2+7~, EN2+12*, EN2+14, EN2+15 |
| REC | OFFSET+16~, OFFSET+17*, OFFSET+18 |
| RETURN | TYPES~ |
| RETURN("CASH | PAYMENT" , TYPES+1* |
| RETURN("CHAMPVA" | TYPES+2* |
| RETURN("CHECK | /MO PAYMENT" , TYPES+3* |
| RETURN("CREDI | T CARD PAYMENT" , TYPES+4* |
| RETURN("EDI L | OCKBOX" , TYPES+5* |
| RETURN("LOCKBOX" | TYPES+6* |
| RETURN("OGC-CHK" | TYPES+7* |
| RETURN("OGC-EFT" | TYPES+8* |
| RETURN("REGIO | NAL COUNSEL PAYMENT" , TYPES+9* |
| RETURN("TDA P | AYMENT" , TYPES+10* |
| STAT | OFFSET+1~ |
| STAT( | OFFSET+11* |
| STATUS | EN2+7~, EN2+18*, EN2+19, EN2+25*, EN2+26 |
| TYPES | OFFSET+1~, OFFSET+3 |
| TYPES( | OFFSET+6 |
| U | OFFSET+24 |
