Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEAA1

Package: Accounts Receivable

Routine: RCDPEAA1


Information

RCDPEAA1 ;ALB/KML - AUTO POST AWAITING RESOLUTION (APAR) - LIST OF UNPOSTED EEOBS ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEAA1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
List Manager 4 EN^VALM  FULL^VALM1  CLEAN^VALM10  EN^VALM2  
Accounts Receivable 3 BLD^RCDPEAA4  ($$ISTYPE,$$RTYPE)^RCDPEU1  $$ASKUVW^RCDPEWL0  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$LJ,$$RJ,$$UP)^XLFSTR  
Toolkit 1 (EN,GETLST)^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Accounts Receivable 5 RCDPE APAR  RCDPE APAR CHANGE VIEW  RCDPE APAR EEOB LIST  RCDPE APAR SELECT EEOB  RCDPEAA2  
Kernel 1 ^ORD(101  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ FILTER+16
^DIR PAYR+17, PAYR+28, PAYR+37, SORT+15, HTOL+15, DATEORD+14, SAVEPVW+11
BLD^RCDPEAA4 INIT+20
$$ISTYPE^RCDPEU1 FILTER+25
$$RTYPE^RCDPEU1 MORP+6
$$ASKUVW^RCDPEWL0 PARAMS+35
EN^VALM EN+7, ENTEREOB+6
FULL^VALM1 INIT+9, SEL+7, CV+2
CLEAN^VALM10 INIT+9
EN^VALM2 SEL+8
$$LJ^XLFSTR HDR+14, HDR+15, HDR+18
$$RJ^XLFSTR HDR+16, HDR+19
$$UP^XLFSTR FILTER+17
EN^XPAR SAVEPVW+16, SAVEPVW+18, SAVEPVW+20
GETLST^XPAR GETWLPVW+8

Interaction Calls

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
Routine Call
  • DIR
  • Line Location:
    • PAYR+17
    • PAYR+28
    • PAYR+37
    • SORT+15
    • HTOL+15
    • DATEORD+14
    • SAVEPVW+11
Routine Call
  • VALM
  • Line Location:
    • EN+7
    • ENTEREOB+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.4 - [#344.4] INIT+15
^TMP( INIT+11!, INIT+23, INIT+24*
^TMP("RCDPE-APAR_EEOB_WL" EXIT+4!
^TMP("RCDPE-APAR_EEOB_WLDX" INIT+11!, EXIT+4!, SEL+13
^TMP("RCDPE_APAR_EEOB_PARAMS" HDR+2, HDR+3, HDR+8, HDR+10, EXIT+3!, PARAMS+40*, GETWLPVW+7!, GETWLPVW+12*, GETWLPVW+14*, GETWLPVW+17*
, PREFVW+18, PREFVW+19, PREFVW+20, PAYR+7, PAYR+20*, PAYR+31!, PAYR+39*, MORP+4, MORP+8*, SORT+4
, SORT+18*, SORT+23*, HTOL+7, DATEORD+6, SAVEPVW+15, SAVEPVW+17, SAVEPVW+19, SAVEPVW+24, FILTER+10, FILTER+11
, FILTER+12, FILTER+13
^TMP("RCDPE_APAR_PVW" EXIT+2!, PARAMS+40, PVWSAVE+5!, PVWSAVE+11*, PVWSAVE+12*, PVWSAVE+13*, PREFVW+16, PREFVW+17, PREFVW+18, PREFVW+19
, PREFVW+20, SAVEPVW+23!, SAVEPVW+24*
^TMP($J INIT+10!, INIT+18*, INIT+20, EXIT+5!

Label References

Name Line Occurrences
$$DATEORD SORT+22
$$FILTER INIT+17
$$HTOL SORT+21
$$MORP PARAMS+46
$$PARAMS EN+5
$$PAYR PARAMS+48
$$PREFVW PARAMS+31
$$SAVEPVW PARAMS+52
$$SEL ENTEREOB+4
$$SORT PARAMS+50
GETWLPVW PARAMS+25
HDR CV+3
INIT ENTEREOB+5, ENTEREOB+7, CV+3
PARAMS CV+2
PVWSAVE GETWLPVW+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DEF MORP+3~, MORP+4*, MORP+5*, MORP+6, SORT+3~, SORT+4*, SORT+5*, SORT+8, HTOL+6~, HTOL+7*
, HTOL+8*, HTOL+11, DATEORD+5~, DATEORD+6*, DATEORD+7*, DATEORD+10
DIR PAYR+5~, PAYR+9!, PAYR+23!, PAYR+33!, PAYR+37!, SORT+3~, HTOL+6~, DATEORD+5~, SAVEPVW+6~, SAVEPVW+7!
DIR("?" PAYR+13*, PAYR+14*, PAYR+24*, PAYR+34*, SORT+9*, SORT+10*, SORT+11*, SORT+12*, SORT+13*, HTOL+12*
, HTOL+13*, DATEORD+11*, DATEORD+12*
DIR("A" PAYR+11*, PAYR+25*, PAYR+35*, SORT+7*, HTOL+10*, DATEORD+9*, SAVEPVW+10*
DIR("B" PAYR+12*, PAYR+15*, PAYR+26*, PAYR+36*, SORT+8*, HTOL+11*, DATEORD+10*, SAVEPVW+9*
DIR(0 PAYR+10*, PAYR+25*, PAYR+35*, SORT+6*, HTOL+9*, DATEORD+8*, SAVEPVW+9*
DIROUT PAYR+5~, SAVEPVW+6~
DIRUT PAYR+5~, SORT+3~, HTOL+6~, DATEORD+5~, SAVEPVW+6~
DTOUT PAYR+5~, PAYR+18, PAYR+29, PAYR+38, SORT+3~, SORT+16, HTOL+6~, HTOL+16, DATEORD+5~, DATEORD+15
, SAVEPVW+6~, SAVEPVW+13
DUOUT PAYR+5~, PAYR+18, PAYR+29, PAYR+38, SORT+3~, SORT+16, HTOL+6~, HTOL+16, DATEORD+5~, DATEORD+15
, SAVEPVW+6~, SAVEPVW+13
DUZ SAVEPVW+16, SAVEPVW+18, SAVEPVW+20
FDTTM INIT+6~
LINE HDR+1~, HDR+14*, HDR+15*, HDR+16*, HDR+18*, HDR+19*, HDR+21
OK FILTER+7~, FILTER+8*, FILTER+15, FILTER+21*, FILTER+25*, FILTER+26
P1 INIT+6~, INIT+7*, INIT+10, INIT+18, INIT+20, SORT+3~, SORT+20*, SORT+21, SORT+22, SORT+23
, HTOL+6~, DATEORD+5~
P2 INIT+6~, INIT+7*, INIT+10, INIT+20
RCAPAR INIT+6~, INIT+7*, EXIT+7!
RCAUTOPDF PAYR+5~
RCDA INIT+6~, INIT+13*, INIT+14, INIT+15*, INIT+16, INIT+17, INIT+18, FILTER~, FILTER+16, FILTER+25
, ENTEREOB+2~, SEL+6~, SEL+9*
RCDA1 ENTEREOB+2~
RCDRLIM PAYR+5~
RCECME FILTER+7~
RCERATYP FILTER+7~, FILTER+13*, FILTER+24, FILTER+25
RCERROR PAYR+5~, SAVEPVW+16, SAVEPVW+18, SAVEPVW+20
RCIEN FILTER+7~
RCIENS ENTEREOB+2~, ENTEREOB+4*, ENTEREOB+5
RCITEMS SEL+6~, SEL+9*, SEL+13*, SEL+14
RCMDRX HDR+1~, HDR+3*, HDR+4
RCPAYFR FILTER+7~, FILTER+11*, FILTER+20
RCPAYR HDR+1~, HDR+2*, HDR+5, PAYR+5~, PAYR+19*, PAYR+20, PAYR+21, PAYR+39, FILTER+7~, FILTER+10*
, FILTER+15
RCPAYR("FROM" PAYR+32*, PAYR+36, PAYR+39
RCPAYRDF PAYR+5~, PAYR+7*, PAYR+15, PAYR+26
RCPAYTO FILTER+7~, FILTER+12*, FILTER+20
RCPROG EN+1~, EN+3*, INIT+6~, INIT+8*, INIT+10, INIT+11, INIT+20, INIT+23, INIT+24
RCQ PAYR+6~, MORP+6*, MORP+7, MORP+8
RCQUIT EN+1~, EN+2*, EN+5*, EN+6, PARAMS+22~, PARAMS+23*, PARAMS+36*, PARAMS+44, PARAMS+46*, PARAMS+47
, PARAMS+48*, PARAMS+49, PARAMS+50*, PARAMS+51, PARAMS+52*, PARAMS+53, PAYR+8*, PAYR+18*, PAYR+21, PAYR+30*
, PAYR+38*
RCSEQ SEL+6~, SEL+9*, SEL+10, SEL+11*, SEL+12, SEL+13
RCTYPEDF PAYR+6~
RCXPAR PARAMS+22~, PARAMS+25, GETWLPVW~, GETWLPVW+8, GETWLPVW+9, PVWSAVE~, PREFVW~, PAYR+5~
RCXPAR("ALL_PAYERS/RANGE_OF_PAYERS" GETWLPVW+9, GETWLPVW+11, PVWSAVE+7, PVWSAVE+11
RCXPAR("MEDICAL/PHARMACY" GETWLPVW+13, PVWSAVE+8, PVWSAVE+12
RCXPAR("SORT" GETWLPVW+16, PVWSAVE+9, PVWSAVE+13
SORT HDR+1~, HDR+8*, HDR+9, HDR+11
SOURCE PARAMS~, PARAMS+25, PARAMS+31, PARAMS+32, PREFVW~, PREFVW+16
U HDR+5, FILTER+10, FILTER+11, FILTER+12, SEL+13
USEPVW PARAMS+22~, PARAMS+23*, PARAMS+35*, PARAMS+36, PARAMS+37, PARAMS+43
>> VALMBCK ENTEREOB+3*, CV+3*
>> VALMBG CV+3*
>> VALMCNT INIT+25*
>> VALMHDR(1 HDR+6*
>> VALMHDR(2 HDR+13*
>> VALMHDR(3 HDR+21*
VALMY SEL+6~
VALMY( SEL+11
X HDR+1~, HDR+5*, HDR+6, HDR+9*, HDR+11*, HDR+12*, HDR+13, PAYR+6~, SORT+3~, HTOL+6~
, DATEORD+5~, SAVEPVW+6~, ENTEREOB+2~
XQORM ENTEREOB+2~
>> XQORNOD(0 SEL+8
XX PARAMS+22~, PARAMS+31*, PARAMS+32, GETWLPVW+6~, GETWLPVW+11*, GETWLPVW+12, GETWLPVW+13*, GETWLPVW+14, GETWLPVW+16*, GETWLPVW+17
, PAYR+6~, SORT+3~, SORT+20*, SORT+21*, SORT+22*, SORT+23, SAVEPVW+6~, SAVEPVW+15*, SAVEPVW+16, SAVEPVW+17*
, SAVEPVW+18, SAVEPVW+19*, SAVEPVW+20, FILTER+7~, FILTER+16*, FILTER+17*, FILTER+20
Y HDR+1~, HDR+4*, HDR+6, HDR+10*, HDR+11, HDR+12, PAYR+6~, PAYR+19, PAYR+20, PAYR+32
, PAYR+39, SORT+3~, SORT+17, SORT+18, SORT+20, HTOL+6~, HTOL+17, DATEORD+5~, DATEORD+16*, DATEORD+17
, SAVEPVW+6~, SAVEPVW+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All