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 |