RCDPESR1 ;ALB/TMP - Server interface to AR from Austin ;Jun 06, 2014@19:11:19
Source file <RCDPESR1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 2 | ^DIC ^DIK |
| Accounts Receivable | 1 | $$ZERO^RCDPESR9 |
| E Claims Management Engine | 1 | $$VALECME^BPSUTIL2 |
| Integrated Billing | 1 | $$RXBIL^IBNCPDPU |
| Kernel | 1 | ($$FMTE,$$NOW)^XLFDT |
| MailMan | 1 | (SENDMSG,ZAPSERV)^XMXAPI |
| Registration | 1 | $$SITE^VASITE |
| 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 |
|---|---|---|
| PERROR(RCERR,RCEMG,RCXMZ) | ; Process Errors - Send bulletin to mail group
; RCERR = Error text array ; RCEMG = name of the mail group to which these errors should be sent ; RCXMZ = internal entry # of the mailman msg ; RCTYPE = msg type, if known |
|
| OUTMSG(RCERR,RCXMZ) | ; Build message to send to Outlook address
; PRCA*4.5*349 - New subroutine ; RCERR = Error text array ; RCXMZ = internal entry # of the mailman msg |
|
| OUTERA(RAW,CT,RCMTXT) | ; Format ERA/EEOB for Outlook message
; PRCA*4.5*349 - New Subroutine ; RAW - Points to raw data from the message ; CT - (Passed by Reference) Current message text line count ; RCMTXT - Pointer to message text array |
|
| OUTEFT(RAW,CT,RCMTXT) | ; Format EFT for Outlook message
; PRCA*4.5*349 - New Subroutine ; PRCA*4.5*439 - Substantial changes to data in outlook message ; RAW - Points to raw data from the message ; CT - (Passed by Reference) Current message text line count ; RCMTXT - Pointer to message text array |
|
| EMFORM(CT,RCERR,RCXM,RCXMZ) | ; Format error msgs
; INPUT: ; CT = # of lines previously populated in error msg ; RCERR = array of errors ; RCXMZ = internal entry # of mailman msg |
|
| MASKPII(X) | ; Return a "05" field with PII masked for sending errors
; PRCA*4.5*349 - Subroutine added |
|
| EXTERR(RCERR,RCE) | ; Put error into error array
; Returns: (must be passed by reference) ; RCERR = specific error encountered, returned as 4 ; RCE = error text from the word processing field update error global |
|
| ERRUPD(RCGBL,RCD,RCTYPE,RCERR) | ; Set up global array to hold msg data
; RCGBL = name of the global or array where msg data is found ; RCD = array containing mail header data for the msg ; RCTYPE = type of msg (835ERA/835XFR/etc) ; RCERR = error array - text or reference to error tables below |
|
| DKILL(RCXMZ) | ; Delete server mail msg from postmaster mailbox
; RCXMZ = ien of mailman msg |
|
| TEMPDEL(DA) | ; Delete msg from temporary msg file
; DA = ien of the entry in file 344.5 |
|
| RESTMSG(RCD,RCARRAY,XMZ) | ; Read rest of msg, store in array
; RCD = last line # already in the msg ; RCARRAY = name of the array to store the data in ; XMZ = ien of the mailman msg |
|
| TAXERR(RCTYPE,RCINS,RCTID,RCCHG) | ; Send a bulletin for a bad tax id
; RCTYPE = "ERA" for an ERA record, "EFT" for an EFT record ; RCINS = name and id to identify the ins co ; RCTID = tax id sent in error ; RCCHG = code describing how correction was made ; 'E'=EPHRA, 'C'=Changed by looking at claim #'s |
|
| BILL(X,RCDT,RCIB) | ; Returns ien of bill in X or -1 if not valid
; RCDT = the Statement from date (used for Rx bills) ; and, if passed by reference, RCIB = 1 if an insurance bill |
|
| FMDT(X) | ; Format date (X) in YYYYMMDD to Fileman format
|
|
| ERROR | ; Top level error msgs for msgs
|
|
| ERROR2 | ; Error condition msgs for msgs
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.5 - [#344.5] | Classic Fileman Calls |
| ^PRCA(430 - [#430] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | BILL+12 |
| ^RCD(340 - [#340] | BILL+13 |
| ^RCY(344.5 - [#344.5] | TEMPDEL+5 |
| ^TMP("RCERR" | OUTMSG+5, OUTMSG+12, OUTMSG+19, OUTMSG+21, OUTMSG+25, EMFORM+11, EMFORM+17, EMFORM+25, EMFORM+27, EMFORM+28 , ERRUPD+11!, ERRUPD+14*, ERRUPD+15*, ERRUPD+16*, ERRUPD+21*, ERRUPD+24*, ERRUPD+26, ERRUPD+28*, ERRUPD+31*, ERRUPD+32* , ERRUPD+33*, ERRUPD+36*, ERRUPD+37*, ERRUPD+38* |
| ^TMP("RCMSG" | OUTMSG+6, EMFORM+12 |
| ^TMP("RCMSGH" | ERRUPD+32, ERRUPD+37 |
| ^TMP("RCRAW" | PERROR+27!, ERRUPD+35, ERRUPD+38 |
| Name | Line Occurrences |
|---|---|
| $$MASKPII | OUTERA+16 |
| EMFORM | PERROR+17 |
| OUTEFT | OUTMSG+21 |
| OUTERA | OUTMSG+25 |
| OUTMSG | PERROR+26 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EMFORM+28 |
| ^("TEXT" | EMFORM+25 |
| ^("TYPE" | OUTMSG+12, EMFORM+17, ERRUPD+26* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AMT | OUTEFT+5~, OUTEFT+18*, OUTEFT+21, OUTEFT+24 |
| ARRAY | BILL+3~, BILL+11 |
| ARRAY("ECME" | BILL+10* |
| ARRAY("FILLDT" | BILL+10* |
| CT | PERROR+5~, PERROR+7*, PERROR+9*, PERROR+17, OUTMSG+4~, OUTMSG+9*, OUTMSG+10*, OUTMSG+11*, OUTMSG+12, OUTMSG+14* , OUTMSG+15, OUTMSG+17*, OUTMSG+18*, OUTMSG+19*, OUTMSG+21, OUTMSG+25, OUTERA~, OUTERA+14*, OUTERA+16*, OUTEFT~ , OUTEFT+29*, OUTEFT+30*, OUTEFT+33*, OUTEFT+36*, EMFORM~, EMFORM+14*, EMFORM+15*, EMFORM+16*, EMFORM+17, EMFORM+19* , EMFORM+20*, EMFORM+22*, EMFORM+24*, EMFORM+25*, EMFORM+27*, EMFORM+28*, ERRUPD+8~, ERRUPD+12*, ERRUPD+24*, ERRUPD+28* , ERRUPD+31*, ERRUPD+32*, ERRUPD+33*, ERRUPD+36*, ERRUPD+37*, ERRUPD+38* |
| DA | TEMPDEL~, TEMPDEL+5 |
| DATA | OUTEFT+5~, OUTEFT+9*, OUTEFT+10, OUTEFT+11, OUTEFT+12, OUTEFT+13, OUTEFT+14, OUTEFT+18, OUTEFT+20, OUTEFT+22 , OUTEFT+23 |
| DATA("EFT" | OUTEFT+17*, OUTEFT+19*, OUTEFT+20*, OUTEFT+21*, OUTEFT+22*, OUTEFT+23*, OUTEFT+32, OUTEFT+33 |
| DATA("HEAD" | OUTEFT+11*, OUTEFT+12*, OUTEFT+13*, OUTEFT+25*, OUTEFT+28, OUTEFT+29 |
| DIC | BILL+3~, BILL+7* |
| DIC(0 | BILL+7* |
| DIK | TEMPDEL+3~, TEMPDEL+4* |
| DUZ | PERROR+22~*, OUTMSG+30~*, TAXERR+16~* |
| DUZ(0 | PERROR+22*, OUTMSG+30*, TAXERR+16* |
| EFTCNT | OUTEFT+5~, OUTEFT+7*, OUTEFT+15, OUTEFT+16*, OUTEFT+17, OUTEFT+19*, OUTEFT+20*, OUTEFT+21*, OUTEFT+22*, OUTEFT+23* |
| EFTTOT | OUTEFT+5~, OUTEFT+7*, OUTEFT+24*, OUTEFT+25 |
| I | OUTERA+5~, OUTERA+9*, OUTERA+10, OUTERA+11, OUTEFT+5~, OUTEFT+8*, OUTEFT+9, MASKPII+2~, MASKPII+6*, MASKPII+7 |
| J | OUTERA+5~, OUTERA+7*, OUTERA+8 |
| LN | OUTERA+5~, OUTERA+8*, OUTERA+10 |
| OUTXFRM | OUTERA+5~, OUTERA+12*, OUTERA+13 |
| Q | EXTERR+4~, EXTERR+6* |
| RAW | OUTERA~, OUTERA+6, OUTERA+7, OUTERA+8, OUTERA+15, OUTERA+16, OUTEFT~, OUTEFT+6, OUTEFT+8, OUTEFT+9 , OUTEFT+35, OUTEFT+36 |
| RC | OUTERA+5~, OUTERA+11*, OUTERA+12, OUTERA+14 |
| RCARRAY | RESTMSG~, RESTMSG+5 |
| RCCHG | TAXERR~, TAXERR+11 |
| RCCT | TAXERR+7~, TAXERR+8*, TAXERR+9*, TAXERR+10*, TAXERR+11*, TAXERR+12* |
| RCD | ERRUPD~, RESTMSG~, RESTMSG+5* |
| RCD("DATE" | ERRUPD+14 |
| RCD("SUBJ" | ERRUPD+16 |
| RCDAT | OUTERA+5~, OUTERA+10*, OUTERA+13*, OUTERA+14 |
| RCDT | BILL~, BILL+10 |
| RCDXM | TAXERR+7~ |
| RCDXM( | TAXERR+9*, TAXERR+10*, TAXERR+11*, TAXERR+12* |
| RCE | EXTERR~, EXTERR+5*, EXTERR+6*, ERRUPD+8~, ERRUPD+20*, ERRUPD+21, ERRUPD+23*, ERRUPD+24 |
| RCE("DIERR" | EXTERR+6 |
| RCEMG | PERROR~, PERROR+9, PERROR+11, PERROR+12*, PERROR+13*, PERROR+14 |
| RCERR | PERROR~, PERROR+17, PERROR+26, OUTMSG~, EMFORM~, EMFORM+24, EXTERR~, EXTERR+5*, ERRUPD~, ERRUPD+10 , ERRUPD+18, ERRUPD+19 |
| RCERR( | EMFORM+27, ERRUPD+23 |
| RCGBL | ERRUPD~, ERRUPD+25, ERRUPD+28, ERRUPD+30, ERRUPD+33 |
| RCIB | BILL~, BILL+4*, BILL+13* |
| RCINS | TAXERR~, TAXERR+9 |
| RCMTXT | OUTMSG+4~, OUTERA~, OUTERA+6, OUTERA+14, OUTERA+16, OUTEFT~, OUTEFT+6, OUTEFT+29, OUTEFT+30, OUTEFT+33 , OUTEFT+36 |
| RCREF | OUTERA+5~, OUTERA+11* |
| RCTID | TAXERR~, TAXERR+10 |
| RCTYPE | ERRUPD~, ERRUPD+15, ERRUPD+25*, ERRUPD+26, TAXERR~, TAXERR+9, TAXERR+17 |
| RCXM | PERROR+5~, PERROR+17, OUTMSG+4~, EMFORM~ |
| RCXM( | PERROR+9*, OUTMSG+10*, OUTMSG+12*, OUTMSG+15*, OUTMSG+17*, OUTMSG+18*, OUTMSG+19*, EMFORM+15*, EMFORM+17*, EMFORM+20* , EMFORM+22*, EMFORM+24*, EMFORM+25*, EMFORM+27*, EMFORM+28* |
| RCXMZ | PERROR~, PERROR+17, PERROR+26, OUTMSG~, OUTMSG+17, EMFORM~, EMFORM+22, DKILL~, DKILL+3 |
| RCZ | EXTERR+4~, EXTERR+6* |
| TDATE | OUTMSG+4~, OUTMSG+5*, OUTMSG+15, EMFORM+9~, EMFORM+11*, EMFORM+20 |
| TTIME | EMFORM+9~, EMFORM+11*, EMFORM+20 |
| TTYPE | OUTMSG+4~, OUTMSG+6*, OUTMSG+12, OUTMSG+20, OUTMSG+24, EMFORM+9~, EMFORM+12*, EMFORM+17 |
| U | OUTERA+10, OUTERA+12, OUTERA+14, OUTEFT+10, OUTEFT+11, OUTEFT+12, OUTEFT+13, OUTEFT+14, OUTEFT+18, OUTEFT+20 , OUTEFT+22, OUTEFT+23, MASKPII+4, MASKPII+5, MASKPII+7, ERRUPD+25, BILL+13 |
| X | OUTERA+5~, OUTERA+13*, MASKPII~, MASKPII+3, MASKPII+4*, MASKPII+5, MASKPII+7*, MASKPII+8, TEMPDEL+3~, BILL~ , BILL+5*, BILL+6*, FMDT~, FMDT+1, FMDT+2*, FMDT+3 |
| XMB | PERROR+5~, TAXERR+7~ |
| XMBODY | PERROR+5~, PERROR+20*, PERROR+23, OUTMSG+4~, OUTMSG+7*, OUTMSG+31, TAXERR+7~, TAXERR+14*, TAXERR+17 |
| XMDUZ | PERROR+5~, PERROR+19*, OUTMSG+4~, OUTMSG+27* |
| >> XMER | RESTMSG+5 |
| XMERR | PERROR+5~, TAXERR+7~ |
| XMFULL | PERROR+5~, TAXERR+7~ |
| XMINSTR | PERROR+5~, TAXERR+7~ |
| >> XMREC | RESTMSG+5 |
| >> XMRG | RESTMSG+5 |
| XMSUBJ | PERROR+5~, PERROR+20*, PERROR+23, OUTMSG+4~, OUTMSG+27*, OUTMSG+31 |
| XMTO | PERROR+5~, PERROR+23, OUTMSG+4~, OUTMSG+31, TAXERR+7~, TAXERR+17 |
| XMTO( | PERROR+9*, PERROR+16 |
| XMTO("" | PERROR+16 |
| XMTO("I:" | PERROR+14* |
| XMTO("I:G.RCD | PE PAYMENTS EXCEPTIONS" , PERROR+16*, PE PAYMENTS" , TAXERR+14* |
| XMTO("vha835payerinquiry@domain.ext" | OUTMSG+28* |
| XMTYPE | PERROR+5~, TAXERR+7~ |
| XMZ | PERROR+5~, PERROR+23, OUTMSG+4~, OUTMSG+31, RESTMSG~, TAXERR+7~, TAXERR+17 |
| Y | OUTERA+5~, OUTERA+13, TEMPDEL+3~, BILL+3~, BILL+9, BILL+11*, BILL+12, BILL+13, BILL+14 |
| Y(0 | BILL+12*, BILL+13 |
| Z | PERROR+5~, PERROR+16*, OUTERA+5~, OUTERA+15*, OUTERA+16, OUTEFT+5~, OUTEFT+28*, OUTEFT+29, OUTEFT+32*, OUTEFT+33 , OUTEFT+35*, OUTEFT+36, EMFORM+9~, EMFORM+27*, EMFORM+28*, ERRUPD+8~, ERRUPD+19*, ERRUPD+23*, BILL+3~, BILL+5* , BILL+9, BILL+10 |
| Z0 | ERRUPD+8~, ERRUPD+23* |
| Z1 | ERRUPD+8~, ERRUPD+27*, ERRUPD+28* |
| Z2 | ERRUPD+8~, ERRUPD+33*, ERRUPD+38* |
| Name | Field # of Occurrence |
|---|---|
| $T(@RCREF | OUTERA+11 |
| $T(@Z | ERRUPD+20 |
| $T(ERROR+2 | PERROR+9 |
| $T(ERROR+RCE | ERRUPD+24 |
