RCDPEWL7 ;ALB/TMK/KML - EDI LOCKBOX WORKLIST ERA DISPLAY SCREEN ;Jun 06, 2014@19:11:19
Source file <RCDPEWL7.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(RCSORT) | ; Build list with sort criteria
; RCSORT = the sort levels to use to display the data in ^ pieces ; piece 1 = the codes for the first level sort (sort code;null or -) ; piece 2 = the codes for the second level sort ; sort code is the type of data to sort by;- indicates reverse order |
|
| EXTRACT(RCSRT1,RCSRT2,RCT) | ; Extract the data
; RCSRT1 = data value at 1st sort level ; RCSRT2 = data value at 2nd sort level ; RCT = running entry counter - returned if passed by ref |
|
| STA(RCZ) | ;Determine auto-post status and if marked for auto-post
; Input - RCZ = ERA ien ; Output - "" = UNPOSTED ; "A" = COMPLETE ; "P" = PARTIAL ; "M" = MARKED |
|
| MATCHDT(RCEFT,FORMAT) | ;EP
; Get the Date the ERA was matched ; Input: RCEFT - IEN for file 344.31 ; FORMAT - (Optional) date format for second parameter of FMTE^XLFDT (Defaults to 2DZ) ; Returns: External date when the ERA was matched or "" |
|
| SL(Y,SORT) | ; Returns data for sort level from entry Y in file 344.4
; SORT = the sort data in ';' delimited pieces ; pc 1 = code for sort data ; pc 2 = the order requested (- or null) |
|
| SLQ | ||
| INIT | ; Entry point for List template to build the display of ERAs
|
|
| HDR | ; Header for ERA Worklist (List user Current Screen View selections)
; Input: ^TMP("RCERA_PARAMS",$J) ; Output: VALMHDR |
|
| FNL | ; -- Clean up list
|
|
| SET(X,RCSEQ,RCSEQ1) | ; -- set arrays
; X = the data to set into the global ; RCSEQ = the selectable line # ; RCSEQ1 = the ien of the entry in file 344.4 |
|
| ENTERWL | ; Enter the worklist with an ERA
|
|
| SEL() | ; Select an ERA from the ERA list
|
|
| WL(RCERA) | ; Enter worklist
|
|
| WL1 | ; retest to make sure this ERA does not have an exception
|
|
| WLD | ;
|
|
| WLQ | ;
|
|
| PRERA | ; View/Print ERA from ERA list menu
|
|
| BAT(RCERA) | ; Select batch, if needed
; Returns 1 if batch selected OK or no batch needed ; RCERA = ien of entry in file 344.49 |
|
| BATQ | ||
| PAYTYPE(IEN,TYPE) | ; EP - New way to tell if a payer is pharamcy, Tricare or medical - Added for PRCA*4.5*321
; Input: IEN - Internal entry number of an ERA (#344.4) ; TYPE="P" - Pharmacy, "T" - Tricare, "M" - Medical, "C" - CHAMPVA ; ("M" is neither pharmacy nor Tricare nor CHAMPVA) ; Return: 1 - Payer on ERA matches the TYPE ; 0 - Payer on ERA does not match the type. Or can't find payer. |
|
| PAYFLAGS(IEN,FLAG) | ; EP - Return the pharmacy and tricare flags for an ERA
; Input: IEN - Internal entry number of an ERA (#344.4) ; Return: 1 - Payer found ; 0 - Can't find payer. ; Variable FLAG passed by reference to return values of the pharmacy, Tricare, and CHAMPVA flags. |
|
| HELP | ; list manager help
|
| 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 |
|
| 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 |
|---|---|
| 344.314 | GET1^DIQ |
| ^RCY(344.4 - [#344.4] | EXTERNAL^DILFD, GET1^DIQ |
| 344.41 | GET1^DIQ |
| ^RCY(344.6 - [#344.6] | GET1^DIQ |
