RCDPEWLD ;ALB/CLT - Continuation of routine RCDPEWL0 ;09 DEC 2016
Source file <RCDPEWLD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROV(RCSCR,RCSCR1,RCXM1,RC) | ;Get prov data from ERA (FILE 344.4) and claim (FILE 399)
|
|
| LKBOX | ;Get provider data from ELECTRONIC REMITTANCE ADVICE file (#344.4)
|
|
| CLAIM | ;Retrieve provider data from the claim
|
|
| LINESET | ;SET THE PRINT LINES
|
|
| NPICHK | ;CHECK THAT THE NPI RETURNED MATCHES THE ENTITY TYPE QUALIFIER
|
|
| EXPSET | ;SET THE PRINT LINE WITH THE ERROR AS DEFINED IN RCEXP
|
|
| PARAMS(RCQUIT) | ;PARAMETERS ENTRY CONTINUED FROM RCDPEWL0
|
|
| PARMSQ | ;
|
|
| PARAMS2() | ;EP from RCDPEWL0
; PRCA*4.5*317 - Moved due to routine size issues ; Input: None ; Returns: RCQUIT - 1 if user ^ or timed out, 0 otherwise |
|
| PAYMNT() | ; Payment Type (Zero/Payment or Both) Selection ; PRCA*4.5*321 this whole subroutine
; Input: ^TMP("RCERA_PARAMS") - Global array of preferred values (if any) ; Output: ^TMP("RCERA_PARAMS",$J,"RCPAYMNT") - ERA Posting Status filter ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| POSTSTAT() | ; ERA Posting Status (Posted/Unposted/Both) Selection
; Input: ^TMP("RCERA_PARAMS") - Global array of preferred values (if any) ; Output: ^TMP("RCERA_PARAMS",$J,"RCPOST")- ERA Posting Status filter ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| POSTMETH() | ||
| P1 | ||
| MATCHST() | ||
| M1 | ||
| CLAIMTYP() | ||
| PAYR() | ; Payer Selection
; Input: ^TMP("RCERA_PARAMS",$J) - Global array of preferred values (if any) ; Output: ^TMP("RCERA_PARAMS",$J,"RCTYPE") - ERA Posting Status filter ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| AUTOPST() | ; Auto-post Status (Marked/Partial/Complete/All) Selection
; Input: ^TMP("RCERA_PARAMS") - Global array of preferred values (if any) ; Output: ^TMP("RCERA_PARAMS",$J,"RCAPSTA") - Auto-post Status filter ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| A1 | ||
| VALA(INP) | ; Compare input auto-post status filter to other filters
; Input INP - Y value from ^DIR ; Output 1 = Valid 0 = Invalid |
|
| VALM(INP) | ; Compare input match type filter to other filters
; Input INP - Y value from ^DIR ; Output 1 = Valid 0 = Invalid |
|
| FILTER(IEN344P4) | ; Returns 1 if record in entry IEN344P4 in 344.4 passes
; the edits for the worklist selection of ERAs ; Parameters found in ^TMP("RCERA_PARAMS",$J) |
|
| FQ |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| ^IBA(355.93 - [#355.93] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| ^DGCR(399 - [#399] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
