RCDPEWL7 ;ALB/TMK/KML - EDI LOCKBOX WORKLIST ERA DISPLAY SCREEN ;Jun 06, 2014@19:11:19
Source file <RCDPEWL7.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 10 | $$UNBAL^RCDPEAP1 $$UP^RCDPEARL DISP^RCDPEWL PRERA^RCDPEWL0 ($$MATCHDT,$$PAYFLAGS)^RCDPEWL7 ($$HASADJ,SELBAT)^RCDPEWL8 $$CTEEOB^RCDPEWLB ($$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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Accounts Receivable | 10 | RCDPE ERA LIST VIEW ERA RCDPE WORKLIST ERA LIST RCDPE WORKLIST ERA SELECT RCDPEDA2 RCDPEM2 RCDPEWL RCDPEWL7 RCDPEWL8 RCDPEWLP RCDPRU |
Kernel | 1 | ^ORD(101 |
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 ; ("M" is neither pharmacy nor Tricare) ; 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 and Tricare flags. |
|
HELP | ; list manager help
|
|
FILTER(IEN344P4) | ; Returns 1 if record in entry IEN344P4 in 344.4 passes
; the edits for the worklist selection of ERAs ; Parameters found in ^TMP("RCERA_PARAMS",$J) |
|
FQ |
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 , FILTER+20, FILTER+30 |
^DIR | WL1+10, WL1+14, BAT+12, BAT+19, BAT+25, BAT+29 |
$$UNBAL^RCDPEAP1 | EXTRACT+26 |
$$UP^RCDPEARL | SL+18, FILTER+47 |
DISP^RCDPEWL | WLD+1 |
PRERA^RCDPEWL0 | PRERA+3 |
$$MATCHDT^RCDPEWL7 | EXTRACT+8 |
$$PAYFLAGS^RCDPEWL7 | FILTER+37 |
$$HASADJ^RCDPEWL8 | BAT+9 |
SELBAT^RCDPEWL8 | BAT+21, BAT+30 |
$$CTEEOB^RCDPEWLB | EXTRACT+21 |
$$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 |
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 |
|
Function Call: WRITE |
|
Routine 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 |
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, FILTER+4 , FILTER+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, FILTER+6, FILTER+7, FILTER+8, FILTER+9, FILTER+10, FILTER+11 |
^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! |
Name | Line Occurrences |
---|---|
$$FILTER | BLD+9, INIT+28 |
$$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 |
FQ | FILTER+14, FILTER+16, FILTER+18, FILTER+22, FILTER+24, FILTER+26, FILTER+28, FILTER+30, FILTER+32, FILTER+35 , FILTER+42, FILTER+43, FILTER+45 |
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 |
Name | Field # of Occurrence |
---|---|
^( | BLD+8 |
^("RCDT" | INIT+11 |
>> | 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, FILTER+43 |
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("P" | PAYTYPE+10, PAYTYPE+12, PAYFLAGS+21* |
FLAG("T" | PAYTYPE+11, PAYTYPE+12, PAYFLAGS+22* |
FORMAT | MATCHDT~, MATCHDT+7*, MATCHDT+13 |
I | WL+4~, WL1+22* |
IEN | PAYTYPE~, PAYTYPE+9, PAYFLAGS~, PAYFLAGS+7, PAYFLAGS+9 |
IEN344P4 | FILTER~, FILTER+4, FILTER+20, FILTER+28, FILTER+30, FILTER+37 |
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, FILTER+3~, FILTER+4*, FILTER+14*, FILTER+16*, FILTER+18, FILTER+22*, FILTER+24* , FILTER+26*, FILTER+28*, FILTER+30*, FILTER+32*, FILTER+35, FILTER+37*, FILTER+38*, FILTER+39*, FILTER+40*, FILTER+42* , FILTER+43*, FILTER+45, FILTER+49*, FILTER+53*, FILTER+54*, FQ |
PAYNAME | PAYFLAGS+16~, PAYFLAGS+17*, PAYFLAGS+18 |
PREVENT | WL+4~, WL1+6*, WL1+21*, WL1+22*, WL1+23 |
Q | FILTER+46~, FILTER+47*, FILTER+48 |
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, FILTER+3~, FILTER+4*, FILTER+14, FILTER+32, FILTER+42, FILTER+43 , FILTER+47, FILTER+53, FILTER+54 |
RC4 | FILTER+3~, FILTER+4*, FILTER+16, FILTER+18 |
RCADJ | BAT+3~, BAT+8*, BAT+10*, BAT+16, BAT+24 |
RCAPST | FILTER+3~, FILTER+20*, FILTER+22, FILTER+24, FILTER+26, FILTER+28, FILTER+30 |
RCAPSTA | FILTER+3~, FILTER+11*, FILTER+18, FILTER+22, FILTER+24, FILTER+26, FILTER+28, FILTER+30 |
RCARC | EXTRACT+4~, EXTRACT+11*, EXTRACT+15 |
RCAUTOP | FILTER+3~, FILTER+7*, FILTER+16, FILTER+18 |
RCDA | SEL+1~, SEL+5* |
RCDFR | FILTER+3~, FILTER+8*, FILTER+42 |
RCDTFR | INIT+5~, INIT+11*, INIT+13 |
RCDTO | FILTER+3~, FILTER+8*, FILTER+43 |
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 |
RCFLAG | FILTER+36~, FILTER+37 |
RCFLAG("P" | FILTER+38, FILTER+40 |
RCFLAG("T" | FILTER+39, FILTER+40 |
RCINDX | INIT+5~, INIT+13*, INIT+15* |
RCINS | PAYFLAGS+6~, PAYFLAGS+9*, PAYFLAGS+10, PAYFLAGS+18 |
RCINUSE | BAT+3~, BAT+13*, BAT+14 |
RCMATCH | FILTER+3~, FILTER+6*, FILTER+32 |
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 |
RCPAYFR | FILTER+3~, FILTER+9*, FILTER+48 |
RCPAYIEN | PAYFLAGS+6~, PAYFLAGS+13*, PAYFLAGS+15, PAYFLAGS+18*, PAYFLAGS+19, PAYFLAGS+21, PAYFLAGS+22 |
RCPAYMNT | FILTER+3~, FILTER+10*, FILTER+52, FILTER+53, FILTER+54 |
RCPAYR | FILTER+3~, FILTER+9*, FILTER+45 |
RCPAYTO | FILTER+3~, FILTER+9*, FILTER+48 |
RCPOST | EXTRACT+4~, EXTRACT+13*, EXTRACT+28, INIT+5~, FILTER+3~, FILTER+6*, FILTER+14 |
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* |
RCTYPE | FILTER+3~, FILTER+7*, FILTER+35, FILTER+38, FILTER+39, FILTER+40 |
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 |
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 |
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, FILTER+8 , FILTER+9, FILTER+14, FILTER+16, FILTER+18, FILTER+32, FILTER+42, FILTER+43, FILTER+47, FILTER+53, FILTER+54 |
>> 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~ |