RCTASFH1 ;AITC/CJE - Receive FHIR message for ePayments 835 EFT/ERA
Source file <RCTASFH1.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 |
|---|---|---|
| FILERR(ARG,RCTYPE,RCERR,ERRMSG) | ; File an error
; Inputs : ARG - Array of FHIR data passed into VistaLink ; RCTYPE - type of msg (835ERA/835EFT/etc.) ; RCERR - Line used in ^RCSPESR1 to get error text ; ERRMSG - Error message from PARSE^RCTASFH |
|
| CLEAN | ; Clean up temp globals and variables
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | FILERR+18 |
| ^TMP("RCERR" | CLEAN+1! |
| ^TMP("RCFHIR" | FILERR+24*, FILERR+25*, CLEAN+2! |
| ^TMP("RCRAW" | FILERR+16*, FILERR+18*, FILERR+22*, CLEAN+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARG | FILERR~, FILERR+24 |
| ARG( | FILERR+15, FILERR+16 |
| ERRMSG | FILERR~, FILERR+10, FILERR+25 |
| GLOB | FILERR+6~, FILERR+20*, FILERR+21*, FILERR+22 |
| K | FILERR+6~, FILERR+14*, FILERR+15*, FILERR+16 |
| RCD | FILERR+6~, FILERR+27 |
| RCD("DATE" | FILERR+9* |
| RCD("MSG#" | FILERR+11*, FILERR+29 |
| RCD("SUBJ" | FILERR+10* |
| RCERR | FILERR~, FILERR+27, FILERR+29 |
| RCGBL | FILERR+6~, FILERR+8*, FILERR+27 |
| RCOUNT | FILERR+6~, FILERR+14*, FILERR+16*, FILERR+18*, FILERR+22* |
| RCTYPE | FILERR~, FILERR+27 |
