IBCEF78 ;ALB/WCJ - Provider ID functions ;13 May 2007
Source file <IBCEF78.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AWAY | ||
| PAYERIDS(IBXIEN,IBRET) | ; This function returns all the PAYER IDS for the current and other insurance(s)
; |
|
| PRIPAYID(IBXIEN,IBXRET) | ; Primary Payer IDs
; Incoming: ; IBXIEN = IEN for File # 399 ; IBXRET = Return Array for Qualifiers and IDs |
|
| SECPAYID(IBXIEN,IBXRET) | ; This returns all of the secondary payer IDs from file #36
; for the insurance companies on a given claim ; ; Incoming: ; IBXIEN = IEN for File # 399 ; IBXRET = Return Array for Qualifiers and IDs |
|
| SPIDS(INS,FT) | ;
; FT = FORM TYPE (2 PROFESSIONAL 3 INSTITUTIONAL) ; INS = INSURANCE COMPANY (FILE #36) IEN ; Returns String (^ delimited) ; [1] = QUAL 1 ; [2] = PAYER ID 1 ; [3] = QUAL 2 ; [4] = PAYER ID 2 |
|
| HPID(IBXIEN) | ; Determine HPID for current payer.
; MRD;IB*2.0*516 - Added HPID. |
|
| CLEANUP(IBRET) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | HPID+5 |
| ^DIC(36 - [#36] | SPIDS+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| C | SECPAYID+11~, SECPAYID+13*, SECPAYID+14 |
| DATA | SPIDS+10~, SPIDS+12*, SPIDS+16, SPIDS+17*, SPIDS+20, SPIDS+21*, SPIDS+22*, SPIDS+23*, SPIDS+25 |
| FT | SECPAYID+11~, SECPAYID+13*, SECPAYID+14, SPIDS~, SPIDS+12 |
| I | PRIPAYID+9~, PRIPAYID+19*, PRIPAYID+20, PRIPAYID+21 |
| IBHPID | HPID+3~, HPID+5*, HPID+6 |
| IBRET | PAYERIDS~, PAYERIDS+2, PAYERIDS+3, CLEANUP~ |
| IBRET("CI_HPID" | CLEANUP+1! |
| IBRET("CI_PID" | CLEANUP+1! |
| IBRET("CI_PSIDS" | CLEANUP+1! |
| IBRET("OI_HPID" | CLEANUP+1! |
| IBRET("OI_PID" | CLEANUP+1! |
| IBRET("OI_PSIDS" | CLEANUP+1! |
| IBSEQ | HPID+3~, HPID+4*, HPID+5 |
| IBXIEN | PAYERIDS~, PAYERIDS+2, PAYERIDS+3, PRIPAYID~, PRIPAYID+10, PRIPAYID+14, PRIPAYID+18, SECPAYID~, SECPAYID+12, SECPAYID+13 , HPID~, HPID+4, HPID+5 |
| IBXRET | PRIPAYID~, SECPAYID~ |
| IBXRET( | SECPAYID+14* |
| IBXRET("CI_HPID" | PRIPAYID+15* |
| IBXRET("CI_PID" | PRIPAYID+11* |
| IBXRET("OI_HPID" | PRIPAYID+21* |
| IBXRET("OI_PID" | PRIPAYID+20* |
| IBZ | SECPAYID+11~ |
| IBZ( | SECPAYID+12*, SECPAYID+14 |
| INS | SPIDS~, SPIDS+8, SPIDS+12 |
| PCE | SPIDS+10~, SPIDS+15*, SPIDS+16, SPIDS+17 |
| RET | PRIPAYID+9~, PRIPAYID+10*, PRIPAYID+11, PRIPAYID+14*, PRIPAYID+15, PRIPAYID+17*, PRIPAYID+18 |
| RET( | PRIPAYID+20, PRIPAYID+21 |
| U | PRIPAYID+11, PRIPAYID+15, PRIPAYID+20, PRIPAYID+21, SPIDS+12, SPIDS+16, SPIDS+17, SPIDS+20, SPIDS+21, SPIDS+22 , SPIDS+23, HPID+5 |
| Z | SECPAYID+11~, SECPAYID+12*, SECPAYID+14* |
| Z0 | SECPAYID+11~, SECPAYID+13*, SECPAYID+14* |
