RCDPEWL0 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19
Source file <RCDPEWL0.m>
Package | Total | Call Graph |
---|---|---|
Accounts Receivable | 9 | ($$ASKLM,LMRPT)^RCDPEARL GETERR^RCDPEDS ($$BILLREF,DISP)^RCDPESR0 (NOEDIT,SEL)^RCDPEWL ($$PNM4,BLD)^RCDPEWL1 SPLIT^RCDPEWL3 ($$PARAMS2,PROV)^RCDPEWLD (EXCWARN,NOEDIT)^RCDPEWLP (TXT0,TXT00,TXT2)^RCDPEX31 |
Kernel | 4 | (,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT |
VA FileMan | 3 | ^DIC GETS^DIQ ^DIR |
Integrated Billing | 1 | GETEOB^IBCECSA6 |
List Manager | 1 | FULL^VALM1 |
Toolkit | 1 | (EN,GETLST)^XPAR |
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 EOB WORKLIST SPLIT LINE RCDPE VIEW/PRINT ERA RCDPE VIEW/PRINT WORKLIST ERA RCDPEAA1 RCDPEAA2 RCDPEWL RCDPEWL5 RCDPEWL7 RCDPEWLA RCDPEWLP |
Kernel | 1 | ^ORD(101 |
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 the 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 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) | ; 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 Worklist menu ; option ; 'CV' - When called from the Change View ; action |
|
ASKUVW() | ;EP from PARAMS^RCDPEWLA, PARAMS^RCDPEAA1
; Prompts the user to see if they want to use their preferred view ; PRCA*4.5*317 added function ; Input: None ; Returns: 1 - User wants to use their preferred view ; 0 - User does not want to use their 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 set as 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 and 344.4 |
|
SPLITQ | ||
PRTERA | ; EP from menu option View/Print ERA (VP) [RCDPE VIEW/PRINT ERA]
; View the selected ERA in a listman template ; Input: RCSCR - IEN of the ERA to be viewed |
|
PRERA | ; RCSCR is assumed to be defined
|
|
PRERA1 | ; Option entry
|
|
VPERA(RCSCR,RCERADET,LSTMGR) | ; 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) | ;
|
Name | Field # of Occurrence |
---|---|
^%ZIS | PRERA1+14 |
HOME^%ZIS | PRERA1+19 |
^%ZISC | VPERA+70 |
^%ZTLOAD | PRERA1+17 |
$$S^%ZTLOAD | VPERA+61 |
^DIC | PRTERA+5 |
GETS^DIQ | VPERA+8, VPERA+13, VPERA+27 |
^DIR | ASKUVW+12, SAVEPVW+9, DTR1+8, DTRANGE+11, DTRANGE+20, SPLIT+16, SPLIT+19, SPLIT+29, PRERA1+7, ASK+3 |
GETEOB^IBCECSA6 | VPERA+45 |
$$ASKLM^RCDPEARL | PRERA1+11 |
LMRPT^RCDPEARL | DOLSTMAN+3 |
GETERR^RCDPEDS | VPERA+46 |
$$BILLREF^RCDPESR0 | VPERA+33, VPERA+35 |
DISP^RCDPESR0 | VPERA+41 |
NOEDIT^RCDPEWL | SPLIT+5 |
SEL^RCDPEWL | SPLIT+7 |
$$PNM4^RCDPEWL1 | VPERA+31 |
BLD^RCDPEWL1 | SPLIT+36 |
SPLIT^RCDPEWL3 | SPLIT+35 |
$$PARAMS2^RCDPEWLD | PARAMS+59 |
PROV^RCDPEWLD | VPERA+37 |
EXCWARN^RCDPEWLP | PRERA1+2 |
NOEDIT^RCDPEWLP | SPLIT+4 |
TXT0^RCDPEX31 | VPERA+9 |
TXT00^RCDPEX31 | VPERA+28 |
TXT2^RCDPEX31 | VPERA+14 |
FULL^VALM1 | SPLIT+3, PRERA+1 |
$$FMTE^XLFDT | DTRANGE+10, DTRANGE+13, DTRANGE+19, HDR+4 |
EN^XPAR | SAVEPVW+12, SAVEPVW+14, SAVEPVW+16, SAVEPVW+18, SAVEPVW+20, SAVEPVW+22, SAVEPVW+24 |
GETLST^XPAR | GETWLPVW+8 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IBM(361.1 - [#361.1] | VPERA+46 |
^RCY(344.4 - [#344.4] | SPLIT+4, VPERA+10, VPERA+11, VPERA+18, VPERA+25, VPERA+38 |
^RCY(344.49 - [#344.49] | SPLIT+14, SPLIT+18, SPLIT+32 |
^TMP("PRCA_EOB" | VPERA+44!, VPERA+46, VPERA+47, VPERA+49! |
^TMP("RCDPE-EOB_WL" | SPLIT+25 |
^TMP("RCDPE-EOB_WLDX" | SPLIT+9, SPLIT+10, SPLIT+11, SPLIT+23, SPLIT+30 |
^TMP("RCDPE_SPLIT_REBLD" | SPLIT+34!, SPLIT+36! |
^TMP("RCERA_PARAMS" | PARAMS+36!, PARAMS+56*, GETWLPVW+12*, GETWLPVW+14*, GETWLPVW+16*, GETWLPVW+19*, GETWLPVW+21*, GETWLPVW+23*, GETWLPVW+25*, PREFVW+16 , PREFVW+17, PREFVW+18, PREFVW+19, PREFVW+20, PREFVW+21, PREFVW+22, SAVEPVW+11, SAVEPVW+13, SAVEPVW+15, SAVEPVW+17 , SAVEPVW+19, SAVEPVW+21, SAVEPVW+23, SAVEPVW+27, DTR1+2*, DTR1+12, DTR1+13, DTR1+17* |
^TMP("RCERA_PVW" | PARAMS+36!, PARAMS+56, PVWSAVE+5!, PVWSAVE+15*, PVWSAVE+16*, PVWSAVE+17*, PVWSAVE+18*, PVWSAVE+19*, PVWSAVE+20*, PVWSAVE+21* , PREFVW+14, PREFVW+15, PREFVW+16, PREFVW+17, PREFVW+18, PREFVW+19, PREFVW+20, PREFVW+21, PREFVW+22, SAVEPVW+26! , SAVEPVW+27* |
^TMP("RCSCRATCH_PVW" | PARAMS+36! |
^TMP($J | SPLIT+36, VPERA+6!, VPERA+20, VPERA+21*, VPERA+47*, VPERA+48*, VPERA+54, VPERA+55*, VPERA+57*, VPERA+60 , VPERA+65, PRERAQ!, DOLSTMAN+3 |
Name | Line Occurrences |
---|---|
$$ASKUVW | PARAMS+51 |
$$DTR | PARAMS+37 |
$$DTRANGE | DTR1+15 |
$$PREFVW | PARAMS+47 |
ASK | VPERA+63, VPERA+67 |
DOLSTMAN | VPERA+58 |
DTR1 | DTR1+10 |
GETWLPVW | PARAMS+41 |
HDR | VPERA+64 |
PRERA1 | PRTERA+8 |
PRERAQ | PRERA1+9, PRERA1+12, PRERA1+14, PRERA1+15, VPERA+58 |
PVWSAVE | GETWLPVW+9 |
SAVEPVW | PARAMS+61 |
SPLITQ | SPLIT+4, SPLIT+5, SPLIT+8, SPLIT+15, SPLIT+18, SPLIT+27, SPLIT+28 |
VPERA | PRERA1+13, PRERA1+21 |
Name | Field # of Occurrence |
---|---|
^( | SPLIT+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | PRERA1+1~, PRERA1+14* |
CT | SPLIT+2~, SPLIT+21*, SPLIT+24*, SPLIT+25* |
DEFFROM | DTRANGE~, DTRANGE+10 |
DEFTO | DTRANGE~, DTRANGE+19 |
DIC | PRTERA+3~, PRTERA+4* |
DIC(0 | PRTERA+4* |
DIR | ASKUVW+7~, SAVEPVW+4~, SAVEPVW+5!, DTR1+1~, DTR1+3!, DTRANGE+5~, DTRANGE+14!, SPLIT+2~, SPLIT+16!, SPLIT+19! , SPLIT+27!, SPLIT+28!, PRERA1+1~, PRERA1+8!, ASK+2~ |
DIR("?" | DTR1+6*, DTRANGE+9*, DTRANGE+17*, DTRANGE+18*, SPLIT+21*, SPLIT+25*, SPLIT+26*, PRERA1+3*, PRERA1+4* |
DIR("A" | ASKUVW+9*, SAVEPVW+7*, DTR1+4*, DTRANGE+8*, DTRANGE+16*, SPLIT+16*, SPLIT+19*, SPLIT+29*, PRERA1+5* |
DIR("B" | ASKUVW+10*, SAVEPVW+6*, DTR1+5*, DTRANGE+10*, DTRANGE+19*, SPLIT+19*, SPLIT+29*, PRERA1+5* |
DIR(0 | ASKUVW+8*, SAVEPVW+6*, DTR1+3*, DTRANGE+7*, DTRANGE+15*, SPLIT+16*, SPLIT+19*, SPLIT+29*, PRERA1+5*, ASK+3* |
DIROUT | ASK+2~ |
DIRUT | ASK+2~, ASK+4 |
DT | DTR1+2, DTRANGE+7, DTRANGE+15, HDR+4 |
DTOUT | ASKUVW+7~, ASKUVW+13, SAVEPVW+4~, DTR1+1~, DTR1+9, DTRANGE+5~, DTRANGE+12, DTRANGE+21, SPLIT+28, SPLIT+29 , PRERA1+9, ASK+2~ |
DTQUIT | DTR1+1~, DTR1+10, DTR1+11*, DTR1+16* |
DUOUT | ASKUVW+7~, ASKUVW+13, SAVEPVW+4~, DTR1+1~, DTR1+9, DTRANGE+5~, DTRANGE+12, DTRANGE+21, SPLIT+28, SPLIT+29 , PRERA1+9, ASK+2~, ASK+4 |
DUZ | SAVEPVW+12, SAVEPVW+14, SAVEPVW+16, SAVEPVW+18, SAVEPVW+20, SAVEPVW+22, SAVEPVW+24 |
FROM | DTR1+1~, DTR1+12*, DTR1+15 |
HDR | DOLSTMAN+1~, DOLSTMAN+3 |
HDR("TITLE" | DOLSTMAN+2* |
IO | PRERA1+20 |
IO("Q" | PRERA1+15, PRERA1+19! |
IOF | HDR+2 |
IOM | HDR+4 |
IOSL | VPERA+62 |
IOST | HDR+2, ASK+1 |
L | SPLIT+2~, SPLIT+22*, SPLIT+23, SPLIT+25 |
L1 | SPLIT+2~, SPLIT+23*, SPLIT+25 |
LSTMGR | VPERA~, VPERA+58 |
PNAME4 | VPERA+30~, VPERA+31*, VPERA+32, VPERA+33, VPERA+34, VPERA+36 |
POP | PRERA1+1~, PRERA1+14 |
Q | SPLIT+2~, SPLIT+11*, SPLIT+12, SPLIT+13, SPLIT+14, SPLIT+32* |
Q0 | SPLIT+2~, SPLIT+14* |
RC | VPERA+5~, VPERA+9, VPERA+10*, VPERA+14, VPERA+19*, VPERA+22*, VPERA+28, VPERA+33*, VPERA+35*, VPERA+36* , VPERA+37, VPERA+47*, VPERA+48*, VPERA+51*, VPERA+52*, VPERA+53*, VPERA+56* |
RC3611 | VPERA+5~, VPERA+38*, VPERA+40, VPERA+45, VPERA+46, VPERA+47 |
RCDA | SPLIT+2~, SPLIT+7 |
RCDA( | SPLIT+8, SPLIT+9 |
RCDA(0 | SPLIT+8 |
RCDFR | DTRANGE+5~, DTRANGE+13*, DTRANGE+15, DTRANGE+22 |
RCDIQ | VPERA+5~, VPERA+9 |
RCDIQ1 | VPERA+5~, VPERA+26!, VPERA+28 |
RCDIQ1( | VPERA+50, VPERA+52 |
RCDIQ2 | VPERA+5~, VPERA+12!, VPERA+14 |
RCDOT | VPERA+5~, VPERA+7* |
RCDTRNG | DTR1+1~, DTR1+15*, DTR1+16, DTR1+17 |
RCERADET | PRERA1+1~, PRERA1+10*, PRERA1+13, PRERA1+16, PRERA1+21, VPERA~, VPERA+39 |
RCERROR | SAVEPVW+4~, SAVEPVW+12, SAVEPVW+14, SAVEPVW+16, SAVEPVW+18, SAVEPVW+20, SAVEPVW+22, SAVEPVW+24 |
RCLINE | SPLIT+2~, SPLIT+9*, SPLIT+18 |
RCLSTMGR | PRERA1+1~, PRERA1+11*, PRERA1+12, PRERA1+13 |
RCONE | SPLIT+2~, SPLIT+21*, SPLIT+25* |
RCONE(1 | SPLIT+25*, SPLIT+27, SPLIT+28, SPLIT+29 |
RCPG | VPERA+5~, VPERA+7*, VPERA+61, VPERA+62, VPERA+63, VPERA+64, VPERA+67, HDR~, HDR+2, HDR+3* , HDR+4 |
RCQUIT | PARAMS+32*, PARAMS+35, PARAMS+37*, PARAMS+38, PARAMS+52*, PARAMS+59*, PARAMS+60, DTRANGE+6*, SPLIT+2~, SPLIT+17* , SPLIT+18, SPLIT+20* |
RCSCR | SPLIT+4, SPLIT+14, SPLIT+18, SPLIT+32, SPLIT+35, PRTERA+3~, PRTERA+7*, PRERA1+2, PRERA1+13, PRERA1+16 , PRERA1+21, VPERA~, VPERA+8, VPERA+9, VPERA+10, VPERA+11, VPERA+13, VPERA+14, VPERA+18, VPERA+25 , VPERA+27, VPERA+28, VPERA+31, VPERA+33, VPERA+35, VPERA+37, VPERA+38, VPERA+41, VPERA+50, VPERA+52 |
RCSCR("NOEDIT" | SPLIT+5 |
RCSCR1 | VPERA+5~, VPERA+11*, VPERA+13, VPERA+14, VPERA+25*, VPERA+27, VPERA+28, VPERA+31, VPERA+33, VPERA+35 , VPERA+37, VPERA+38, VPERA+41, VPERA+50, VPERA+52 |
RCSTOP | VPERA+7*, VPERA+59*, VPERA+60, VPERA+61*, VPERA+62, VPERA+63, VPERA+67, ASK~, ASK+4* |
RCXM1 | VPERA+5~, VPERA+9, VPERA+14, VPERA+22!, VPERA+28, VPERA+37, VPERA+56! |
RCXM1( | VPERA+10*, VPERA+19*, VPERA+21, VPERA+33*, VPERA+35*, VPERA+36*, VPERA+51*, VPERA+52*, VPERA+53*, VPERA+55 |
RCXPAR | PARAMS+31~, PARAMS+41, GETWLPVW~, GETWLPVW+7!, GETWLPVW+8, GETWLPVW+9, PVWSAVE~ |
RCXPAR("ALL_PAYERS/RANGE_OF_PAYERS" | GETWLPVW+20, PVWSAVE+11, PVWSAVE+19 |
RCXPAR("AUTO-POST_STATUS" | GETWLPVW+24, PVWSAVE+13, PVWSAVE+21 |
RCXPAR("ERA-EFT_MATCH_STATUS" | GETWLPVW+15, PVWSAVE+9, PVWSAVE+17 |
RCXPAR("ERA_AUTO_POSTING" | GETWLPVW+13, PVWSAVE+8, PVWSAVE+16 |
RCXPAR("ERA_CLAIM_TYPE" | GETWLPVW+17, PVWSAVE+10, PVWSAVE+18 |
RCXPAR("ERA_PAYMENT_TYPE" | GETWLPVW+22, PVWSAVE+12, PVWSAVE+20 |
RCXPAR("ERA_POSTING_STATUS" | GETWLPVW+9, GETWLPVW+11, PVWSAVE+7, PVWSAVE+15 |
RCZ | SPLIT+2~, SPLIT+10*, SPLIT+11, SPLIT+13, SPLIT+14, VPERA+5~ |
RCZ( | SPLIT+13*, SPLIT+14!, SPLIT+22, SPLIT+31 |
RCZ(0 | SPLIT+15 |
SOURCE | PARAMS~, PARAMS+35, PARAMS+47, PARAMS+48, PREFVW~, PREFVW+14 |
START | DTRANGE+5~, DTRANGE+13*, DTRANGE+18 |
TO | DTR1+1~, DTR1+13*, DTR1+15 |
U | SPLIT+4, SPLIT+11, SPLIT+14, SPLIT+18, VPERA+38 |
USEPVW | PARAMS+31~, PARAMS+48, PARAMS+51*, PARAMS+52, PARAMS+53 |
>> VALMBCK | SPLITQ*, PRERAQ+1* |
X | PARAMS+31~, SPLIT+2~, PRTERA+3~, PRERA1+1~ |
XX | PARAMS+31~, PARAMS+47*, PARAMS+48, GETWLPVW+6~, GETWLPVW+11*, GETWLPVW+12, GETWLPVW+13*, GETWLPVW+14, GETWLPVW+15*, GETWLPVW+16 , GETWLPVW+17*, GETWLPVW+19, GETWLPVW+20*, GETWLPVW+21, GETWLPVW+22*, GETWLPVW+23, GETWLPVW+24*, GETWLPVW+25, SAVEPVW+4~, SAVEPVW+11* , SAVEPVW+12, SAVEPVW+13*, SAVEPVW+14, SAVEPVW+15*, SAVEPVW+16, SAVEPVW+17*, SAVEPVW+18, SAVEPVW+19*, SAVEPVW+20, SAVEPVW+21* , SAVEPVW+22, SAVEPVW+23*, SAVEPVW+24, VPERA+5~ |
Y | PARAMS+31~, ASKUVW+14, SAVEPVW+10, DTR1+1~, DTR1+10, DTRANGE+5~, DTRANGE+13, DTRANGE+22, SPLIT+2~, SPLIT+20 , SPLIT+26*, SPLIT+27*, SPLIT+28, SPLIT+29, SPLIT+30*, SPLIT+31*, SPLIT+32, SPLIT+35, PRTERA+3~, PRTERA+6 , PRTERA+7, PRERA1+1~, PRERA1+10 |
Z | SPLIT+2~, SPLIT+8*, SPLIT+9, SPLIT+10, SPLIT+22, SPLIT+28, SPLIT+29, VPERA+5~, VPERA+21*, VPERA+47* , VPERA+52*, VPERA+55*, VPERA+57*, VPERA+59*, VPERA+60*, VPERA+65 |
Z0 | SPLIT+2~, SPLIT+9*, SPLIT+29, VPERA+5~, VPERA+20*, VPERA+21*, VPERA+54*, VPERA+55*, VPERA+57* |
ZTDESC | PRERA1+1~, PRERA1+16* |
>> ZTQUEUED | VPERA+61, VPERA+69, VPERA+70 |
ZTREQ | VPERA+61!, VPERA+69* |
ZTRTN | PRERA1+1~, PRERA1+16* |
ZTSAVE | PRERA1+1~ |
ZTSK | PRERA1+18, PRERA1+19! |
>> ZTSTOP | VPERA+61* |