RCDPEWL0 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19
Source file <RCDPEWL0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PARAMS(SOURCE) | ; Retrieve/Edit/Save View Parameters for ERA Worklist
; Input: SOURCE - "MO" - Menu Option ; "CV" - Change View Action ; Output: Sort/Filtering Criteria for the worklist sent into ^TMP("RCERA_PARAMS",$J) ; ^TMP("RCERA_PARAMS",$J,"RCPOST") - ERA Posting Status ("P":Posted/"U":Unposted) ; ^TMP("RCERA_PARAMS",$J,"RCAUTOP")- Auto-Posting Queue ; ("A":Auto-Posting/"N":Non Auto-Posting/"B":Both) ; ^TMP("RCERA_PARAMS",$J,"RCAPSTA")- Auto-Posting Status ; PRCA*4.5*326 ; ("M":Marked/"P":Partial/"C":Complete/"A":All) ; ^TMP("RCERA_PARAMS",$J,"RCMATCH")- ERA Matching Status ("M":Matched/"U":Unmatched) ; ^TMP("RCERA_PARAMS",$J,"RCTYPE") - ERA Claim Type ("M":Medical/"P":Pharmacy/"B":Both) ; ^TMP("RCERA_PARAMS",$J,"RCDT") - A1^A2 Where: ; A1 - ERA Received EARLIEST DATE (Range Limited Only) ; A2 - ERA Received LATEST DATE (Range Limited Only) ; ^TMP("RCERA_PARAMS",$J,"RCPAYR") - B1^B2^B3 Where: ; B1 - All Payers/Range of Payers ; ("A": All/"R":Range of Payers) ; B2 - START WITH PAYER (e.g.,'AET') ; (Range Limited Only) ; B3 - GO TO PAYER (e.g.,'AETZ') (Range Limited Only) |
|
GETWLPVW(RCXPAR) | ; Retrieves the preferred view settings for the ERA worklist
; for the user ; Input: None ; Output: RCXPAR() - Array of preferred view sort/filter criteria ; ^TMP("RCERA_PARAMS",$J)- Global array of preferred view settings ; ^TMP("RCERA_PVW") - A copy of the preferred settings (if any) |
|
PVWSAVE(RCXPAR) | ; Save a copy of the preferred view on file
; PRCA*4.5*317 added subroutine ; Input: RCXPAR - array of preferred view setting for the user ; Output: ^TMP("RCERA_PVW") - a copy of the preferred settings |
|
PREFVW(SOURCE) | ; Checks to see if the user has a preferred view
; PRCA*4.5*317 added subroutine ; When source is 'CV', checks to see if the preferred view is being used ; Input: SOURCE - 'MO' - When called from the Worklist menu ; option ; 'CV' - When called from the Change View ; action |
|
ASKUVW() | ;EP from PARAMS^RCDPEWLA, PARAMS^RCDPEAA1
; Prompts the user to see if they want to use their preferred view ; PRCA*4.5*317 added function ; Input: None ; Returns: 1 - User wants to use their preferred view ; 0 - User does not want to use their preferred view ; -1 - User typed '^' |
|
SAVEPVW | ; Option to save as User Preferred View
; PRCA*4.5*317 added subroutine ; Input: ^TMP("RCERA_PARAMS") - Global array of current worklist settings ; Output Current worklist settings set as preferred view (potentially) |
|
DTR() | ; Date Range Selection
; Input: ^TMP("RCERA_PARAMS",$J,"RCDT") - Current selected Date Range (if any) ; Output: ^TMP("RCERA_PARAMS",$J,"RCDT") - Updated Selected Date Range ; Returns: 1 if user quit or timed out, 0 otherwise |
|
DTR1 | ;
|
|
DTRANGE(DEFFROM,DEFTO) | ; Asks for and returns a Date Range
; Input: DEFFROM - Default FROM date ; DEFTO - Default TO date |
|
SPLIT | ; Split line in ERA list
; input - RCSCR = ien of 344.49 and 344.4 |
|
SPLITQ | ||
PRTERA | ; EP from menu option View/Print ERA (VP) [RCDPE VIEW/PRINT ERA]
; View the selected ERA in a listman template ; Input: RCSCR - IEN of the ERA to be viewed |
|
PRERA | ; RCSCR is assumed to be defined
|
|
PRERA1 | ; Option entry
|
|
VPERA(RCSCR,RCERADET,LSTMGR) | ; Queued entry
; Input: RCSCR - IEN of ERA to be viewed (#344.4) ; RCERADET - 1 if inclusion of all EOB details from file 361.1 is ; desired, 0 if not ; LSTMGR - 1 display in list manager, 0 otherwise |
|
PRERAQ | ||
DOLSTMAN | ; Display the ERA Detail in a listman format
|
|
HDR(RCPG) | ;Report hdr
; RCPG = last page # |
|
ASK(RCSTOP) | ;
|
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 |
|