RCTASFH ;AITC/CJE - Receive FHIR message for ePayments 835 EFT/ERA
Source file <RCTASFH.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 |
|---|---|---|
| POST(RESULT,ARG) | ;Entry point to receive 835 EFT message from ARG array
; Input: ARG |
|
| ERRET | ; return here after error
|
|
| EXIT | ; Common exit point
|
|
| PARSEEFT(ARG) | ; Parse the incomming EFT Message
; Get the following fields that are needed to file the deposit info and the EFT detail |
|
| FHRTFM(FHRDATE,TIME) | ; Convert FHIR date to FileMan format
; Inputs FHRDATE - FHIR date/time in FHIR format ; TIME - Boolean flag to say if time should be included in the output |
|
| VALID(ARG) | ; Check for error conditions before filing. If invalid set return error code.
; Inputs : ARG - Arguments passed from VistALink containing JSON name value pairs. ; RETURNS : 1 - Message is valid ; 0^Error Description - Message is invalid |
|
| GENERR(TYPE) | ; Generate error in ^TMP("DIERR",$J) for testing purposes
|
|
| ERR | ; Error trap for parsing message.
|
|
| MRGTMP(ARG) | ; For DEV/TEST system only save the data to ^XTMP
|
|
| LOGFAIL(RCID) | ; Log lock failure to XTMP for tuning purposes
|
| Name | Field # of Occurrence |
|---|---|
| $$EC^%ZOSV | ERR+2 |
| ^%ZTER | ERR+5 |
| FILE^DIE | PARSEEFT+146 |
| UPDATE^DIE | PARSEEFT+96, PARSEEFT+129 |
| $$SUMEFT^RCDPESR3 | PARSEEFT+144 |
| FILERR^RCTASFH1 | PARSEEFT+66, PARSEEFT+107, PARSEEFT+133, PARSEEFT+137 |
| $$DT^XLFDT | PARSEEFT+127, LOGFAIL+3 |
| $$FMADD^XLFDT | LOGFAIL+6 |
| $$NOW^XLFDT | PARSEEFT+92 |
| ENCODE^XLFJSON | POST+8, ERRET+3 |
| $$GET^XPAR | PARSEEFT+36 |
| $$PROD^XUPROD | PARSEEFT+42 |
| RPC Name | Call Tags |
|---|---|
| RCTAS 835EFT | POST |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344 - [#344] | PARSEEFT+72 |
| ^RCY(344.3 - [#344.3] | PARSEEFT+61, PARSEEFT+70, PARSEEFT+76, PARSEEFT+77, PARSEEFT+81, PARSEEFT+82, PARSEEFT+103, PARSEEFT+110, PARSEEFT+134, PARSEEFT+147 , ERR+6, ERR+8 |
| ^TMP("DIERR" | PARSEEFT+80!, PARSEEFT+98, PARSEEFT+113!, PARSEEFT+131, PARSEEFT+142!, GENERR+1*, GENERR+2*, GENERR+3*, GENERR+4*, GENERR+5* |
| ^TMP("RCD835" | POST+5!, ERRET+1, EXIT+1!, ERR+4* |
| ^XTMP( | LOGFAIL+5, LOGFAIL+7*, LOGFAIL+8* |
| ^ZZCJE("EFT835" | MRGTMP+3, MRGTMP+4* |
| Name | Line Occurrences |
|---|---|
| $$FHRTFM | PARSEEFT+49, PARSEEFT+88 |
| $$PARSEEFT | POST+10 |
| $$VALID | PARSEEFT+51 |
| EXIT | POST+6 |
| GENERR | PARSEEFT+97, PARSEEFT+130 |
| LOGFAIL | PARSEEFT+67, PARSEEFT+108 |
| MRGTMP | PARSEEFT+46 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMOUNT | PARSEEFT+33~, PARSEEFT+55*, PARSEEFT+120, PARSEEFT+121 |
| ARG | POST~, POST+6, POST+10, PARSEEFT~, PARSEEFT+46, PARSEEFT+51, PARSEEFT+66, PARSEEFT+107, PARSEEFT+133, PARSEEFT+137 , VALID~, MRGTMP~, MRGTMP+4 |
| ARG("payer-identifier-value" | PARSEEFT+117, VALID+7 |
| ARG("payer-name" | PARSEEFT+116 |
| ARG("paymentnotice-amount" | PARSEEFT+55 |
| ARG("paymentnotice-created" | PARSEEFT+85 |
| ARG("paymentnotice-payment-identifier-value" | PARSEEFT+54 |
| ARG("paymentnotice-paymentdate" | PARSEEFT+48 |
| ARG("paymentnotice-pncdepositnumber" | PARSEEFT+50, VALID+5 |
| ARG("paymentnotice-pnctrackingnumber" | PARSEEFT+128 |
| D | FHRTFM+3~, FHRTFM+5*, FHRTFM+6*, FHRTFM+7, FHRTFM+13, FHRTFM+15 |
| DATE | PARSEEFT+33~ |
| DEBIT | PARSEEFT+33~, PARSEEFT+121*, PARSEEFT+122 |
| >> DILOCKTM | PARSEEFT+82 |
| ERRMSG | PARSEEFT+33~, PARSEEFT+38*, PARSEEFT+64*, PARSEEFT+65, PARSEEFT+66, PARSEEFT+76*, PARSEEFT+98*, PARSEEFT+101*, PARSEEFT+105, PARSEEFT+107 , PARSEEFT+131, PARSEEFT+132*, PARSEEFT+133, PARSEEFT+136, PARSEEFT+137 |
| ERROR | PARSEEFT+33~, PARSEEFT+59*, PARSEEFT+64*, PARSEEFT+65, PARSEEFT+76*, PARSEEFT+98*, PARSEEFT+101*, PARSEEFT+105, PARSEEFT+132*, PARSEEFT+136 |
| ERRSTAT | PARSEEFT+33~, PARSEEFT+39*, PARSEEFT+64*, PARSEEFT+65, PARSEEFT+66, PARSEEFT+67, PARSEEFT+76*, PARSEEFT+98*, PARSEEFT+101*, PARSEEFT+105 , PARSEEFT+107, PARSEEFT+108, PARSEEFT+131, PARSEEFT+132*, PARSEEFT+136 |
| FDA | PARSEEFT+33~, PARSEEFT+113!, PARSEEFT+142! |
| FDA( | PARSEEFT+87*, PARSEEFT+88*, PARSEEFT+89*, PARSEEFT+90*, PARSEEFT+91*, PARSEEFT+92*, PARSEEFT+93*, PARSEEFT+94*, PARSEEFT+95*, PARSEEFT+115* , PARSEEFT+116*, PARSEEFT+117*, PARSEEFT+118*, PARSEEFT+120*, PARSEEFT+122*, PARSEEFT+124*, PARSEEFT+125*, PARSEEFT+126*, PARSEEFT+127*, PARSEEFT+128* , PARSEEFT+144*, PARSEEFT+145* |
| FDATE | PARSEEFT+33~ |
| FHRDATE | PARSEEFT+33~, PARSEEFT+48*, PARSEEFT+49, PARSEEFT+85*, PARSEEFT+88, FHRTFM~, FHRTFM+5 |
| GLBO | POST+2~, POST+4*, POST+7, POST+8, ERRET+2, ERRET+3 |
| IENS | PARSEEFT+33~, PARSEEFT+84*, PARSEEFT+89, PARSEEFT+90, PARSEEFT+91, PARSEEFT+92, PARSEEFT+93, PARSEEFT+94, PARSEEFT+95, PARSEEFT+113! , PARSEEFT+114*, PARSEEFT+115, PARSEEFT+116, PARSEEFT+117, PARSEEFT+118, PARSEEFT+120, PARSEEFT+122, PARSEEFT+124, PARSEEFT+125, PARSEEFT+126 , PARSEEFT+127, PARSEEFT+128, PARSEEFT+142!, PARSEEFT+143*, PARSEEFT+144, PARSEEFT+145 |
| IENS(1 | PARSEEFT+83*, PARSEEFT+87, PARSEEFT+100, PARSEEFT+139 |
| >> IrisTestCase | PARSEEFT+44 |
| >> IrisTestCase("IEN3443" | PARSEEFT+102*, PARSEEFT+149 |
| >> IrisTestCase("IENS34431" | PARSEEFT+139*, PARSEEFT+149 |
| J | MRGTMP+1~, MRGTMP+3* |
| KEY3 | PARSEEFT+106~, PARSEEFT+109*, PARSEEFT+110, ERR+1~, ERR+7*, ERR+8 |
| LCNT | PARSEEFT+33~, PARSEEFT+59*, PARSEEFT+60* |
| LTRUE | PARSEEFT+33~, PARSEEFT+59*, PARSEEFT+60, PARSEEFT+62*, PARSEEFT+64 |
| PURGE | LOGFAIL+1~, LOGFAIL+6*, LOGFAIL+7 |
| RCCODE | ERR+1~, ERR+2*, ERR+3*, ERR+4 |
| RCDATE | LOGFAIL+1~ |
| RCDDAT | PARSEEFT+34~, PARSEEFT+49*, PARSEEFT+70, PARSEEFT+90, PARSEEFT+126 |
| RCDEPNO | PARSEEFT+34~, PARSEEFT+50*, PARSEEFT+70, PARSEEFT+89 |
| >> RCDPTT | PARSEEFT+43 |
| RCDUP | PARSEEFT+34~, PARSEEFT+72* |
| RCID | LOGFAIL~, LOGFAIL+2, LOGFAIL+8 |
| RCKEY | LOGFAIL+1~, LOGFAIL+4*, LOGFAIL+5, LOGFAIL+7, LOGFAIL+8 |
| RCKEY2 | LOGFAIL+1~ |
| RCLOCKTM | PARSEEFT+34~, PARSEEFT+36*, PARSEEFT+37*, PARSEEFT+61, PARSEEFT+76 |
| RCODE | PARSEEFT+34~, PARSEEFT+51*, PARSEEFT+52 |
| RCTDA | PARSEEFT+34~, PARSEEFT+59*, PARSEEFT+70*, PARSEEFT+73*, PARSEEFT+75, PARSEEFT+76, PARSEEFT+100*, PARSEEFT+101, PARSEEFT+102, PARSEEFT+109 , PARSEEFT+115, PARSEEFT+134, PARSEEFT+143, PARSEEFT+144, PARSEEFT+147, ERR+7 |
| RCTRACE | PARSEEFT+34~, PARSEEFT+54*, PARSEEFT+67, PARSEEFT+97, PARSEEFT+108, PARSEEFT+118, PARSEEFT+130 |
| RCTT | PARSEEFT+34~, PARSEEFT+40*, PARSEEFT+43*, PARSEEFT+97, PARSEEFT+130 |
| RCUNIT | PARSEEFT+34~, PARSEEFT+40*, PARSEEFT+44*, PARSEEFT+102, PARSEEFT+139, PARSEEFT+149 |
| RCX | PARSEEFT+34~, PARSEEFT+59*, PARSEEFT+81*, PARSEEFT+82*, PARSEEFT+83, PARSEEFT+109, ERR+7 |
| RDID | LOGFAIL+1~ |
| RESULT | POST~ |
| RESULT(1 | POST+8*, ERRET+3* |
| RETURN | POST+2~, POST+10*, ERRET+1*, ERRET+2, FHRTFM+3~, FHRTFM+7*, FHRTFM+13*, FHRTFM+15*, FHRTFM+16 |
| SH | MRGTMP+1~, MRGTMP+2*, MRGTMP+3*, MRGTMP+4, LOGFAIL+1~ |
| T | FHRTFM+3~, FHRTFM+5*, FHRTFM+9*, FHRTFM+10*, FHRTFM+11*, FHRTFM+12, FHRTFM+15 |
| TIME | FHRTFM~, FHRTFM+4*, FHRTFM+8 |
| TODAY | LOGFAIL+1~, LOGFAIL+3*, LOGFAIL+4, LOGFAIL+6, LOGFAIL+7 |
| TYPE | GENERR~, GENERR+3, GENERR+4 |
| U | PARSEEFT+70, PARSEEFT+72 |
| X | PARSEEFT+34~, VALID+4~, VALID+5*, VALID+6, VALID+7*, VALID+8 |
| Z | PARSEEFT+34~, PARSEEFT+59*, PARSEEFT+70*, PARSEEFT+72, PARSEEFT+73 |
| Z0 | PARSEEFT+34~, PARSEEFT+70*, PARSEEFT+72 |