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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RCDPEWL7

Package: Accounts Receivable

Routine: RCDPEWL7


Information

RCDPEWL7 ;ALB/TMK/KML - EDI LOCKBOX WORKLIST ERA DISPLAY SCREEN ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEWL7.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Accounts Receivable 11 $$UNBAL^RCDPEAP1  $$UP^RCDPEARL  DISP^RCDPEWL  PRERA^RCDPEWL0  $$MATCHDT^RCDPEWL7  ($$HASADJ,SELBAT)^RCDPEWL8  $$CTEEOB^RCDPEWLB  $$FILTER^RCDPEWLD  
($$AGEDEFTS,$$XCEPT,EXCDENY)^RCDPEWLP  $$WLF^RCDPEWLZ  $$FMSSTAT^RCDPUREC  
VA FileMan 4 WAIT^DICD  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
List Manager 3 ($$SETSTR,FULL,PAUSE)^VALM1  CLEAN^VALM10  EN^VALM2  
Kernel 2 ($$READ,INITKB,RESETKB)^XGF  $$FMTE^XLFDT  

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: 13

Package Total Caller Graph
Accounts Receivable 12 RCDPE ERA LIST VIEW ERA  RCDPE WORKLIST ERA LIST  RCDPE WORKLIST ERA SELECT  RCDPEDA2  RCDPEDAR  RCDPEM2  RCDPEWL  RCDPEWL7  
RCDPEWL8  RCDPEWLD  RCDPEWLP  RCDPRU  
Kernel 1 ^ORD(101  

Entry Points

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

External References

Name Field # of Occurrence
WAIT^DICD INIT+19
$$EXTERNAL^DILFD EXTRACT+23
$$GET1^DIQ EXTRACT+25, STA+8, STA+12, STA+21, MATCHDT+11, PAYFLAGS+7, PAYFLAGS+9, PAYFLAGS+17, PAYFLAGS+21, PAYFLAGS+22
, PAYFLAGS+23
^DIR WL1+10, WL1+14, BAT+12, BAT+19, BAT+25, BAT+29
$$UNBAL^RCDPEAP1 EXTRACT+26
$$UP^RCDPEARL SL+18
DISP^RCDPEWL WLD+1
PRERA^RCDPEWL0 PRERA+3
$$MATCHDT^RCDPEWL7 EXTRACT+8
$$HASADJ^RCDPEWL8 BAT+9
SELBAT^RCDPEWL8 BAT+21, BAT+30
$$CTEEOB^RCDPEWLB EXTRACT+21
$$FILTER^RCDPEWLD BLD+9, INIT+28
$$AGEDEFTS^RCDPEWLP WL1+20
$$XCEPT^RCDPEWLP EXTRACT+9, WL1+3
EXCDENY^RCDPEWLP WL1+3
$$WLF^RCDPEWLZ EXTRACT+11
$$FMSSTAT^RCDPUREC EXTRACT+12
$$SETSTR^VALM1 HDR+16, HDR+25, HDR+30, HDR+44, HDR+48
FULL^VALM1 SEL+2, HELP+1
PAUSE^VALM1 HELP+13
CLEAN^VALM10 INIT+6
EN^VALM2 SEL+3
$$READ^XGF INIT+21
INITKB^XGF INIT+20
RESETKB^XGF INIT+25
$$FMTE^XLFDT EXTRACT+17, EXTRACT+18, EXTRACT+25, MATCHDT+13, HDR+10, HDR+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"SEARCHING, PLEASE STANDBY (PRESS '^' TO QUIT SEARCH)",!!
  • Line Location: INIT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WL1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: WL1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WL1+14
Function Call: WRITE
  • Prompt: !
  • Line Location: BAT+12
Function Call: WRITE
  • Prompt: !
  • Line Location: BAT+19
Function Call: WRITE
  • Prompt: !!,"AT LEAST 1 BATCH WITHIN THIS ERA IS CURRENTLY IN USE",!,"AT THIS TIME, YOU CAN ONLY ACCESS INDIVIDUAL BATCHES",!
  • Line Location: BAT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: BAT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: BAT+29
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"ePay Electronic Remittance Advice Status"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"The following ERA Status indicators may appear to the left of ERA number:",!
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !," '-' = No scratchpad."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !," 'x' = EXC exceptions exist."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !," 'c' = No-pay ERA with auto-decrease CARCs."
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !," 'A' = Auto-post complete."
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !," 'P' = Auto-post partially completed."
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !," 'M' = Marked for Auto-post, waiting processing."
  • Line Location: HELP+12
Routine Call
  • DIR
  • Line Location:
    • WL1+10
    • WL1+14
    • BAT+12
    • BAT+19
    • BAT+25
    • BAT+29

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCY(344.31 - [#344.31] EXTRACT+7, EXTRACT+12, MATCHDT+8
^RCY(344.4 - [#344.4] EXTRACT+6, STA+20, SL+7, INIT+15, INIT+27, WL1+6, WLQ+1, BAT+7, BAT+28
^RCY(344.49 - [#344.49] EXTRACT+15, WL1+8, BAT+6, BAT+13, BAT+17
^RCY(344.6 - [#344.6] PAYFLAGS+15
^TMP("RCBATCH_SELECTED" BAT+4!
^TMP("RCDPE-ERA_WL" BLD+10!, INIT+7!, INIT+34, INIT+35*, INIT+37!, FNL+1!, SET+4*, SET+5*
^TMP("RCDPE-ERA_WLDX" BLD+8, BLD+10!, INIT+7!, INIT+37!, FNL+1!, SET+6*, SEL+5
^TMP("RCERA_PARAMS" BLD+24*, INIT+11, HDR+7, HDR+13, HDR+20, HDR+22, HDR+28, HDR+35, HDR+37, HDR+45
, FNL+1!, ENTERWL+2
^TMP($J BLD+7, BLD+9*, BLD+14, BLD+17, BLD+20, BLD+22, BLD+23!, EXTRACT+5, INIT+7!, INIT+28*
, INIT+32, INIT+37!, FNL+1!

Label References

Name Line Occurrences
$$PAYFLAGS PAYTYPE+9
$$PAYTYPE WL1+1, WL1+19
$$SEL ENTERWL+1, PRERA+2
$$SL BLD+9, INIT+28
$$STA EXTRACT+10
BATQ BAT+6
BLD INIT+32, ENTERWL+2
EXTRACT BLD+14, BLD+17, BLD+20
SET BLD+22, EXTRACT+16, EXTRACT+19, EXTRACT+22, EXTRACT+30, EXTRACT+31
SLQ SL+9, SL+11, SL+14, SL+17, SL+20
WL ENTERWL+1
WLD WL1+16
WLQ WL1+15

Naked Globals

Name Field # of Occurrence
^( BLD+8
^("RCDT" INIT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUTOCOMP EXTRACT+4~, EXTRACT+10*, EXTRACT+15
DA WL+4~
DAT SL+5~, SL+7*, SL+12*, SL+15*, SL+18*, SL+21*, SLQ
DIE WL+4~
DIR INIT+5~, WL+4~, WL1+10!, WL1+14!, BAT+3~, BAT+12!, BAT+19!, BAT+25!, BAT+29!
DIR("A" WL1+10*, WL1+13*, BAT+11*, BAT+12*, BAT+19*, BAT+25*, BAT+29*
DIR(0 WL1+10*, WL1+13*, BAT+12*, BAT+19*, BAT+25*, BAT+29*
DR WL+4~
DT INIT+11
DTOUT INIT+5~, INIT+22, WL+4~, BAT+3~, BAT+26
DUOUT INIT+5~, INIT+24, WL+4~, BAT+3~, BAT+26
FIRST EXTRACT+4~
FLAG PAYTYPE+7~, PAYTYPE+9, PAYFLAGS~
FLAG("C" PAYTYPE+12, PAYTYPE+13, PAYFLAGS+23*
FLAG("P" PAYTYPE+10, PAYTYPE+13, PAYFLAGS+21*
FLAG("T" PAYTYPE+11, PAYTYPE+13, PAYFLAGS+22*
FORMAT MATCHDT~, MATCHDT+7*, MATCHDT+13
I WL+4~, WL1+22*
IEN PAYTYPE~, PAYTYPE+9, PAYFLAGS~, PAYFLAGS+7, PAYFLAGS+9
IENS MATCHDT+6~, MATCHDT+10*, MATCHDT+11
IOF HELP+3
MATCH STA+18~, STA+19*, STA+20, STA+21*, STA+22
MDT EXTRACT+4~, EXTRACT+8*, EXTRACT+25*, EXTRACT+27
OK BAT+15~, BAT+17*, BAT+18
PAYNAME PAYFLAGS+16~, PAYFLAGS+17*, PAYFLAGS+18
PREVENT WL+4~, WL1+6*, WL1+21*, WL1+22*, WL1+23
QFLG INIT+5~, INIT+21*, INIT+23
RC0 EXTRACT+4~, EXTRACT+6*, EXTRACT+12, EXTRACT+15, EXTRACT+17, EXTRACT+18, EXTRACT+21, EXTRACT+23, SL+5~, SL+7*
, SL+12, SL+15, SL+18, SL+21, INIT+5~, INIT+27*, WL+4~, WL1+6*, WL1+7, WL1+12
, BAT+3~, BAT+7*, BAT+16, BAT+24
RCADJ BAT+3~, BAT+8*, BAT+10*, BAT+16, BAT+24
RCARC EXTRACT+4~, EXTRACT+11*, EXTRACT+15
RCDA SEL+1~, SEL+5*
RCDTFR INIT+5~, INIT+11*, INIT+13
RCDTTO INIT+5~, INIT+11*, INIT+15
RCEFT EXTRACT+4~, EXTRACT+7*, EXTRACT+8, EXTRACT+12, EXTRACT+13, MATCHDT~, MATCHDT+5, MATCHDT+8, MATCHDT+10, INIT+5~
RCERA SEL+4*, SEL+5*, SEL+7, WL~, WL+5, WL1+1, WL1+3, WL1+6, WL1+8, WL1+19
, WL1+20, WLD+1, WLQ+1, BAT~, BAT+6, BAT+7, BAT+9, BAT+13, BAT+17, BAT+21
, BAT+28, BAT+30
RCEXC WL+4~, WL1+1*
RCEXCEP EXTRACT+4~, EXTRACT+9*, EXTRACT+15
RCINDX INIT+5~, INIT+13*, INIT+15*
RCINS PAYFLAGS+6~, PAYFLAGS+9*, PAYFLAGS+10, PAYFLAGS+18
RCINUSE BAT+3~, BAT+13*, BAT+14
RCNOED WL+4~, WL1+6*, WL1+12*, WL1+16, WLD+1
RCOK BAT+3~, BAT+5*, BAT+19*, BAT+22*, BAT+26*, BAT+29*, BAT+31*, BATQ
RCPAYIEN PAYFLAGS+6~, PAYFLAGS+13*, PAYFLAGS+15, PAYFLAGS+18*, PAYFLAGS+19, PAYFLAGS+21, PAYFLAGS+22, PAYFLAGS+23
RCPOST EXTRACT+4~, EXTRACT+13*, EXTRACT+28, INIT+5~
RCQUIT INIT+5~, INIT+9*, INIT+15, INIT+17, INIT+23*, INIT+24*, INIT+31, INIT+37, WL+4~, WL1+6*
, WL1+9*, WL1+15, BAT+3~, BAT+8*, BAT+19*, BAT+21, BAT+22, BAT+26*, BAT+28*, BAT+29
, BAT+30, BAT+31
RCSCR PRERA+1~, PRERA+2*, PRERA+3
RCSEQ SET~, SET+5, SET+6
RCSEQ1 SET~, SET+5, SET+6
RCSORT BLD~, BLD+9, BLD+13, BLD+16, BLD+19, BLD+24, WL+4~, WL1+6*
RCSRT1 EXTRACT~, EXTRACT+5
RCSRT2 EXTRACT~, EXTRACT+5
RCSTAT EXTRACT+4~, EXTRACT+12*, EXTRACT+13
RCT BLD+5~, BLD+6*, BLD+14, BLD+17, BLD+20, EXTRACT~, EXTRACT+6*, EXTRACT+15, EXTRACT+16, EXTRACT+19
, EXTRACT+22, EXTRACT+30, EXTRACT+31, INIT+5~, INIT+9*
RCTIN PAYFLAGS+6~, PAYFLAGS+7*, PAYFLAGS+8, PAYFLAGS+15
RCTT INIT+5~, INIT+9*, INIT+16*, INIT+17, INIT+18*
RCZ BLD+5~, BLD+8*, BLD+9, EXTRACT+4~, EXTRACT+5*, EXTRACT+6, EXTRACT+7, EXTRACT+9, EXTRACT+10, EXTRACT+11
, EXTRACT+15, EXTRACT+16, EXTRACT+19, EXTRACT+21, EXTRACT+22, EXTRACT+25, EXTRACT+26, STA~, STA+8, STA+12
, STA+20, STA+21, INIT+5~, INIT+15*, INIT+27, INIT+28
RETCODES WL+4~, WL1+20*, WL1+22
RETURN PAYTYPE+7~, PAYTYPE+8*, PAYTYPE+10*, PAYTYPE+11*, PAYTYPE+12*, PAYTYPE+13*, PAYTYPE+14
SORT SL~, SL+6, SL+9
SORT1 SL+5~, SL+6*, SL+11, SL+14, SL+17, SL+20
SORT2 SL+5~, SL+6*, SL+12, SL+15, SL+21
STA STA+6~, STA+8*, STA+10, STA+12, STA+14, STA+16
STATE WL+4~, WL1+22*
SUB STA+18~, STA+19*, STA+20*, STA+21
TYPE WL+4~, WL1+1*, WL1+3, WL1+19*, WL1+20, WL1+22, PAYTYPE~, PAYTYPE+10, PAYTYPE+11, PAYTYPE+12
, PAYTYPE+13
U BLD+8, BLD+9, BLD+16, BLD+19, EXTRACT+12, EXTRACT+13, EXTRACT+15, EXTRACT+17, EXTRACT+18, EXTRACT+21
, EXTRACT+23, SL+12, SL+15, SL+18, SL+21, INIT+11, HDR+9, HDR+10, HDR+11, HDR+38
, HDR+41, SET+6, SEL+5, WL1+7, WL1+12, WL1+22, BAT+16, BAT+17, BAT+24
>> VALMBCK ENTERWL+3*, PRERA+4*, HELP+2*
>> VALMCNT BLD+6*, INIT+36*, SET+4*, SET+5, SET+6
>> VALMHDR(1 HDR+17*
>> VALMHDR(2 HDR+32*
>> VALMHDR(3 HDR+49*
>> VALMHDR(4 HDR+51*
>> VALMQUIT INIT+37*
>> VALMSG EXTRACT+39*
VALMY SEL+1~
VALMY( SEL+5
X EXTRACT+4~, EXTRACT+15*, EXTRACT+16, EXTRACT+17*, EXTRACT+18*, EXTRACT+19, EXTRACT+21*, EXTRACT+22, EXTRACT+23*, EXTRACT+24
, EXTRACT+25, EXTRACT+27*, EXTRACT+28*, EXTRACT+30, INIT+5~, HDR+3~, HDR+7*, HDR+9, HDR+10, HDR+11
, HDR+13*, HDR+15, HDR+20*, HDR+21, HDR+22*, HDR+24, HDR+27, HDR+28*, HDR+29, HDR+35*
, HDR+36, HDR+37*, HDR+38, HDR+41, HDR+45*, HDR+47, SET~, SET+4, WL+4~, BAT+3~
, PAYFLAGS+6~, PAYFLAGS+14*, PAYFLAGS+15*, PAYFLAGS+17, PAYFLAGS+18
>> XQORNOD(0 SEL+3
XX EXTRACT+4~, EXTRACT+23*, EXTRACT+24*, EXTRACT+26*, EXTRACT+27, MATCHDT+6~, MATCHDT+8*, MATCHDT+9, MATCHDT+10, MATCHDT+11*
, MATCHDT+12, MATCHDT+13*, MATCHDT+14, HDR+3~, HDR+8*, HDR+10*, HDR+11*, HDR+12*, HDR+16*, HDR+17
, HDR+21*, HDR+25*, HDR+30*, HDR+32, HDR+36*, HDR+44*, HDR+48*, HDR+49
XX2 HDR+3~, HDR+14*, HDR+15*, HDR+16, HDR+23*, HDR+24*, HDR+25, HDR+29*, HDR+30, HDR+39*
, HDR+41*, HDR+42*, HDR+43*, HDR+44, HDR+46*, HDR+47*, HDR+48
Y SL~, SL+7, INIT+5~, INIT+24, WL+4~, BAT+3~, BAT+27
Z BLD+5~, BLD+8*, BLD+12*, BLD+14*, BLD+17*, BLD+20*, EXTRACT+4~, INIT+5~, BAT+3~, BAT+15~
, BAT+17*, BAT+28*
Z0 EXTRACT+4~
Z1 BLD+5~, BLD+14*, BLD+17*, BLD+20*, INIT+5~
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 |  Naked Globals |  Local Variables  | All