Routine: RCDPEAA1

Name	Comments	DBIA/ICR reference
EN	; Main entry point
ENQ
INIT	; EP Listman Template - RCDPE APAR EEOB LIST
HDR	;
EXIT	; -- Clean up list ; PRCA4.5321 - Start modified code block
PARAMS(SOURCE)	; Retrieve/Edit/Save View Parameters for APAR EEOB Worklist ; Input: SOURCE - "MO" - Called from Menu Option ; "CV" - Called from Change View action ; Output: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - P1^P2^P3 Where: ; P1- All Payers/Range of Payers ; ("A": All/"R":Range of Payers) ; P2- START WITH PAYER (e.g.,'AET') ; (Range Limited Only) ; P3- GO TO PAYER (e.g.,'AETZ') ; (Range Limited Only) ; ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCMEDRX")- (M)edical, (P)harmacy, or (B) ; ; ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"SORT") - P1^P2 Where ; P1 - Sort Type ; "N" - Payer Name ; "P" - Posted Amount ; "R" - Auto-Post Reject Reason ; "U" - Unposted Amount ; P2 - H - Highest to Lowest Amount ; L - Lowest to Highest Amount ; ""- If P1="N" or "P" ; Returns: 1 if user ^ arrowed or timed out, 0 otherwise
GETWLPVW(RCXPAR)
PVWSAVE(RCXPAR)	; Save a copy of the preferred view on file ; PRCA4.5317 added subroutine ; Input: RCXPAR - array of preferred view setting for the user ; Output: ^TMP("RCERA_PVW") - a copy of the preferred settings
PREFVW(SOURCE,RCXPAR)	; Checks to see if the user has a preferred view ; PRCA4.5317 added subroutine ; When source is 'CV', checks to see if the preferred view is being used ; Input: SOURCE - 'MO' - When called from the Lockbox menu ; option ; 'CV' - When called from the Change View ; action ; RCXPAR - Array of preferred view values ; ^TMP("RCDPE_APAR_EEOB_PARAMS")- Global array of currently in use defaults ; ^TMP("RCDPE_APAR_PVW",$J) - Global array of preferred view settings
PAYR()	; Payer Selection ; Input: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - Current payer selection setting ; Output: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - Updated payer selection setting ; RCQUIT=1 if user ^ or timed out ; Returns: 1 if user ^ arrowed or time out
MORP()	; Ask for Medical or Pharmacy, Tricare, CHAMPVA (Or All) ; Input: None ; Returns: 1 if user ^ arrowed or timed out, 0 otherwise
SORT()	; Ask for Sort - Payer, Dollar, Date, Trace Number ; Input: None ; Returns: 1 if user ^ arrowed or timed out, 0 otherwise
HTOL()	; Ask for how dollar amounts should be sorted - either highest to ; lowest amount or lowest to highest amount ; Input: None ; Returns: -1 - if user ^ arrowed or timed out ; H - Highest to Lowest ; L - Lowest to Highest
DATEORD()	; Ask how creation date should be sorted - ascending or descending ; Input: None ; Returns: -1 - if user ^ arrowed or timed out ; H - Descending (Highest to lowest) ; L - Ascending (Lowest to Highest)
SAVEPVW()	; Option to save as User Preferred View ; PRCA4.5317 added subroutine ; Input: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J) - Global array of current worklist settings ; Output Current worklist settings set as preferred view (potentially) ; ^TMP("RCDPE_APAR_PVW",$J) - Global array of preferred view settings ; Returns: 1 - User ^ arrowed or timed out, 0 otherwise
FILTER(RCDA)	; Returns 1 if record in entry 344.4 passes ; the edits for the APAR worklist selection of EEOBs ; Parameters found in ^TMP("RCDPE_APAR_EEOB_PARAMS",$J) ; ; Input: RCDA - Internal IEN OF 344.4 ; Returns: 1 if the ERA Record passes filters, 0 otherwise ; PRCA4.5321 - Start modified code block
ENTEREOB	; EP Protocol action - RCDPE APAR SELECT EEOB ; Enter the APAR EEOB SCRATCHPAD
SEL()	; Select an item from the APAR list of EEOBs ; Input: None ; Returns: RCIENS - Internal IENs A1^A2^A3 Where: ; A1 - IEN for in file 344.49 ; A2 - IEN for subfile 344.491 ; A3 - Selectable line item from listman screen
CV	; ; Change View action for APAR pick list

Name

Comments

DBIA/ICR reference

EN

; Main entry point

ENQ

INIT

; EP Listman Template - RCDPE APAR EEOB LIST

HDR

;

EXIT

; -- Clean up list
; PRCA*4.5*321 - Start modified code block

PARAMS(SOURCE)

; Retrieve/Edit/Save View Parameters for APAR EEOB Worklist
; Input: SOURCE - "MO" - Called from Menu Option
; "CV" - Called from Change View action
; Output: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - P1^P2^P3 Where:
; P1- All Payers/Range of Payers
; ("A": All/"R":Range of Payers)
; P2- START WITH PAYER (e.g.,'AET')
; (Range Limited Only)
; P3- GO TO PAYER (e.g.,'AETZ')
; (Range Limited Only)
; ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCMEDRX")- (M)edical, (P)harmacy, or (B)
;
; ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"SORT") - P1^P2 Where
; P1 - Sort Type
; "N" - Payer Name
; "P" - Posted Amount
; "R" - Auto-Post Reject Reason
; "U" - Unposted Amount
; P2 - H - Highest to Lowest Amount
; L - Lowest to Highest Amount
; ""- If P1="N" or "P"
; Returns: 1 if user ^ arrowed or timed out, 0 otherwise

GETWLPVW(RCXPAR)

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,RCXPAR)

; 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 Lockbox menu
; option
; 'CV' - When called from the Change View
; action
; RCXPAR - Array of preferred view values
; ^TMP("RCDPE_APAR_EEOB_PARAMS")- Global array of currently in use defaults
; ^TMP("RCDPE_APAR_PVW",$J) - Global array of preferred view settings

PAYR()

; Payer Selection
; Input: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - Current payer selection setting
; Output: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J,"RCPAYR") - Updated payer selection setting
; RCQUIT=1 if user ^ or timed out
; Returns: 1 if user ^ arrowed or time out

MORP()

; Ask for Medical or Pharmacy, Tricare, CHAMPVA (Or All)
; Input: None
; Returns: 1 if user ^ arrowed or timed out, 0 otherwise

SORT()

; Ask for Sort - Payer, Dollar, Date, Trace Number
; Input: None
; Returns: 1 if user ^ arrowed or timed out, 0 otherwise

HTOL()

; Ask for how dollar amounts should be sorted - either highest to
; lowest amount or lowest to highest amount
; Input: None
; Returns: -1 - if user ^ arrowed or timed out
; H - Highest to Lowest
; L - Lowest to Highest

DATEORD()

; Ask how creation date should be sorted - ascending or descending
; Input: None
; Returns: -1 - if user ^ arrowed or timed out
; H - Descending (Highest to lowest)
; L - Ascending (Lowest to Highest)

SAVEPVW()

; Option to save as User Preferred View
; PRCA*4.5*317 added subroutine
; Input: ^TMP("RCDPE_APAR_EEOB_PARAMS",$J) - Global array of current worklist settings
; Output Current worklist settings set as preferred view (potentially)
; ^TMP("RCDPE_APAR_PVW",$J) - Global array of preferred view settings
; Returns: 1 - User ^ arrowed or timed out, 0 otherwise

FILTER(RCDA)

; Returns 1 if record in entry 344.4 passes
; the edits for the APAR worklist selection of EEOBs
; Parameters found in ^TMP("RCDPE_APAR_EEOB_PARAMS",$J)
;
; Input: RCDA - Internal IEN OF 344.4
; Returns: 1 if the ERA Record passes filters, 0 otherwise
; PRCA*4.5*321 - Start modified code block

ENTEREOB

; EP Protocol action - RCDPE APAR SELECT EEOB
; Enter the APAR EEOB SCRATCHPAD

SEL()

; Select an item from the APAR list of EEOBs
; Input: None
; Returns: RCIENS - Internal IENs A1^A2^A3 Where:
; A1 - IEN for in file 344.49
; A2 - IEN for subfile 344.491
; A3 - Selectable line item from listman screen

CV

;
; Change View action for APAR pick list

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAYR+16
Function Call: WRITE	Prompt: !,"Names you select here will be the payer names from the ERA, NOT the INS File" Line Location: PAYR+22
Function Call: WRITE	Prompt: ! Line Location: PAYR+27
Function Call: WRITE	Prompt: ! Line Location: PAYR+37
Function Call: WRITE	Prompt: ! Line Location: SORT+14
Function Call: WRITE	Prompt: ! Line Location: HTOL+14
Function Call: WRITE	Prompt: ! Line Location: DATEORD+13
Function Call: WRITE	Prompt: ! Line Location: SAVEPVW+8

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEAA1

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call