IBCE837ACCU ;EDE/JWS - ACC consume X12 claim data ;
Source file <IBCE837ACCU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| D(XD) | ;file diagnosis codes
|
|
| VAL(IBX12) | ;function to call to re-try validation/auto-bill creation / auto-transmit
; IBX12 - ien to file 364.9 |
|
| 20 | ;LOOP 20
|
|
| 22 | ;LOOP 22
|
|
| NEXT | ;
|
|
| DT(FIELD) | ;
|
|
| CHKINS(IBPATIEN,IBDOS,IBFT,IBINSNAME) | ;
; IBPATIEN = patient IEN pointer ; IBDOS = date of service from 1st service line item in X12 claim ; IBFT = vista form type, 2=Prof, 3=Inst, 7=Dental ; IBINSNAME = return ins name value |
|
| CHK35593(IBPNPI,IBPT1,IBSLINE) | ;
; IBPNPI=NPI to look for ; IBPT1=provider type ; 85=billing provider ; DN=referring provider ; 82=rendering provider ; 77=service facility ; DQ=supervising provider ; 71=attending provider ; 72=operating physician ; ZZ=other operating physician ; DD=assistant surgeon ; IBSLINE=service line number, if provider is at the line level |
|
| TOC(IBINS) | ;
|
|
| PCP(IBPATIEN,IBFT) | ;swap primary care physician or billing provider
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBA(355.93 - [#355.93] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBA(362.3 - [#362.3] | Classic Fileman Calls |
| 364.96 | GET1^DIQ |
