IBCE837I ;EDE/JWS - OUTPUT FOR 837 FHIR TRANSMISSION ;5/23/18 10:48am
Source file <IBCE837I.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RES(RES) | ;Set resource name correctly
|
|
| Q | ;
|
|
| FINISH | ; enclose message in '[ ]' when a Bundle
|
|
| END | ; enclose message in '[ ]'
|
|
| GET(RESULT,ARG) | ;RPC - EDICLAIMS; get list of claims to transmit
|
|
| TESTING | ;
|
|
| REC(REC) | ;check to see which records are repeating
|
|
| SETD | ; update ^TMP global
|
|
| UP | ;increment CT
|
|
| SETCLM(IBIEN,IBQ,RSUB) | ; set the FHIR 837 claim for submission
|
|
| SETSUB(IBIEN,IBVAL,IBFLD) | ; clear the resubmission flag
|
|
| TEST(IBIEN364) | ; return test flag
|
|
| REMCLM(IB364) | ; clear the FHIR 837 claim for submission
|
|
| REMCLM1(IB364) | ;;JWS;IB*2.0*665v17;EBILL-2241;11/2/21;found at Miami; again at Miami 12/3/21 (similar at Tongus, Orlando, West Palm) - bad entry in 364 file
|
|
| TEST608(IBIEN364) | ;return claim test flag;flag only for conditional inclusion of COB info on claim data
|
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| IBTAS 837 EDICLAIMS | GET |
| FileNo | Call Tags |
|---|---|
| ^IBA(364 - [#364] | Classic Fileman Calls, GET1^DIQ |