Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCDPEWL0

Package: Accounts Receivable

Routine: RCDPEWL0


Information

RCDPEWL0 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEWL0.m>

Entry Points

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 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 preferred view on file
; 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
; 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 use their preferred view
; Input: None
; Returns: 1 - Use preferred view
; 0 - Don't use 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 - 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, 344.4
SPLITQ
PRTERA ; EP from menu option View/Print ERA
; View the selected ERA in listman template
; Input: RCSCR - IEN of ERA to be viewed
PRERA ; RCSCR is assumed to be defined
PRERA1 ; Option entry
VPERA(RCSCR,RCERADET,LSTMGR,RCAUDIT) ; 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) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Select parameters for displaying the list of ERAs"
  • Line Location: PARAMS+58
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKUVW+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SAVEPVW+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DTR1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DTR1+14
Function Call: WRITE
  • Prompt: !!,"Select the entry that has a line you need to Split/Edit",!
  • Line Location: SPLIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+19
Function Call: WRITE
  • Prompt: !!,"Line "_Y_" does NOT exist - TRY AGAIN",!
  • Line Location: SPLIT+30
Function Call: WRITE
  • Prompt: !!,"Line "_Y_" has been used in a DISTRIBUTE ADJ action and can't be edited",!
  • Line Location: SPLIT+31
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task # "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: PRERA1+12
Function Call: WRITE
  • Prompt: !!,"***TASK STOPPED BY USER***"
  • Line Location: VPERA+72
Function Call: WRITE
  • Prompt: !,$G(^TMP($J,"RC_SUMALL",Z))
  • Line Location: VPERA+76
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?5,"EDI LOCKBOX WORKLIST - ERA DETAIL",?55,$$FMTE^XLFDT(DT,2),?70,"Page: ",RCPG,!,$TR($J("",IOM)," ","=")
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GETS^DIQ
344.41 GETS^DIQ
344.42 GETS^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call