RCDPEWL0 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19
Source file <RCDPEWL0.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 10 | ($$ASKLM,LMRPT)^RCDPEARL GETERR^RCDPEDS ($$BILLREF,DISP)^RCDPESR0 (NOEDIT,SEL)^RCDPEWL ($$PNM4,BLD)^RCDPEWL1 SPLIT^RCDPEWL3 ($$PARAMS2,PROV)^RCDPEWLD ($$AUDIT,$$ERADET,GETAUD)^RCDPEWLE (EXCWARN,NOEDIT)^RCDPEWLP (TXT0,TXT00,TXT2)^RCDPEX31 |
| Kernel | 4 | (,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT |
| VA FileMan | 3 | ^DIC ($$GET1,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 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 preferred view on file
; 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
; 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 use their preferred view ; Input: None ; Returns: 1 - Use preferred view ; 0 - Don't use 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 - 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, 344.4 |
|
| SPLITQ | ||
| PRTERA | ; EP from menu option View/Print ERA
; View the selected ERA in listman template ; Input: RCSCR - IEN of ERA to be viewed |
|
| PRERA | ; RCSCR is assumed to be defined
|
|
| PRERA1 | ; Option entry
|
|
| VPERA(RCSCR,RCERADET,LSTMGR,RCAUDIT) | ; 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 | 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | Classic Fileman Calls, GETS^DIQ |
| 344.41 | GETS^DIQ |
| 344.42 | GETS^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBM(361.1 - [#361.1] | VPERA+51 |
| ^RCY(344.4 - [#344.4] | SPLIT+4, VPERA+10, VPERA+11, VPERA+17, VPERA+24, VPERA+36 |
| ^RCY(344.49 - [#344.49] | SPLIT+14, SPLIT+18, SPLIT+32 |
| ^TMP("PRCA_EOB" | VPERA+49!, VPERA+51, VPERA+52, VPERA+54! |
| ^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+15 , PREFVW+16, PREFVW+17, PREFVW+18, PREFVW+19, PREFVW+20, PREFVW+21, 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+4!, PVWSAVE+14*, PVWSAVE+15*, PVWSAVE+16*, PVWSAVE+17*, PVWSAVE+18*, PVWSAVE+19*, PVWSAVE+20* , PREFVW+13, PREFVW+14, PREFVW+15, PREFVW+16, PREFVW+17, PREFVW+18, PREFVW+19, PREFVW+20, PREFVW+21, SAVEPVW+26! , SAVEPVW+27* |
| ^TMP("RCSCRATCH_PVW" | PARAMS+36! |
| ^TMP($J | SPLIT+36, VPERA+6!, VPERA+19, VPERA+20*, VPERA+52*, VPERA+53*, VPERA+58*, VPERA+59*, VPERA+65, VPERA+66* , VPERA+68*, VPERA+71, VPERA+76, PRERAQ!, DOLSTMAN+3 |
| Name | Line Occurrences |
|---|---|
| $$ASKUVW | PARAMS+51 |
| $$DTR | PARAMS+37 |
| $$DTRANGE | DTR1+15 |
| $$PREFVW | PARAMS+47 |
| ASK | VPERA+74, VPERA+78 |
| DOLSTMAN | VPERA+69 |
| DTR1 | DTR1+10 |
| GETWLPVW | PARAMS+41 |
| HDR | VPERA+75 |
| PRERA1 | PRTERA+8 |
| PRERAQ | PRERA1+3, PRERA1+4, PRERA1+6, PRERA1+8, PRERA1+9, VPERA+69 |
| PVWSAVE | GETWLPVW+9 |
| SAVEPVW | PARAMS+61 |
| SPLITQ | SPLIT+4, SPLIT+5, SPLIT+8, SPLIT+15, SPLIT+18, SPLIT+27, SPLIT+28 |
| VPERA | PRERA1+7, PRERA1+15 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SPLIT+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | PRERA1+1~, PRERA1+8* |
| 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+6~, SAVEPVW+4~, SAVEPVW+5!, DTR1+1~, DTR1+3!, DTRANGE+5~, DTRANGE+14!, SPLIT+2~, SPLIT+16!, SPLIT+19! , SPLIT+27!, SPLIT+28!, PRERA1+1~, ASK+2~ |
| DIR("?" | DTR1+6*, DTRANGE+9*, DTRANGE+17*, DTRANGE+18*, SPLIT+21*, SPLIT+25*, SPLIT+26* |
| DIR("A" | ASKUVW+8*, SAVEPVW+7*, DTR1+4*, DTRANGE+8*, DTRANGE+16*, SPLIT+16*, SPLIT+19*, SPLIT+29* |
| DIR("B" | ASKUVW+9*, SAVEPVW+6*, DTR1+5*, DTRANGE+10*, DTRANGE+19*, SPLIT+19*, SPLIT+29* |
| DIR(0 | ASKUVW+7*, SAVEPVW+6*, DTR1+3*, DTRANGE+7*, DTRANGE+15*, SPLIT+16*, SPLIT+19*, SPLIT+29*, ASK+3* |
| DIROUT | ASK+2~ |
| DIRUT | ASK+2~, ASK+4 |
| DT | DTR1+2, DTRANGE+7, DTRANGE+15, HDR+4 |
| DTOUT | ASKUVW+6~, ASKUVW+12, SAVEPVW+4~, DTR1+1~, DTR1+9, DTRANGE+5~, DTRANGE+12, DTRANGE+21, SPLIT+28, SPLIT+29 , ASK+2~ |
| DTQUIT | DTR1+1~, DTR1+10, DTR1+11*, DTR1+16* |
| DUOUT | ASKUVW+6~, ASKUVW+12, SAVEPVW+4~, DTR1+1~, DTR1+9, DTRANGE+5~, DTRANGE+12, DTRANGE+21, SPLIT+28, SPLIT+29 , 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+14 |
| IO("Q" | PRERA1+9, PRERA1+13! |
| IOF | HDR+2 |
| IOM | HDR+4 |
| IOSL | VPERA+73 |
| IOST | HDR+2, ASK+1 |
| L | SPLIT+2~, SPLIT+22*, SPLIT+23, SPLIT+25 |
| L1 | SPLIT+2~, SPLIT+23*, SPLIT+25 |
| LSTMGR | VPERA~, VPERA+69 |
| PNAME4 | VPERA+29~, VPERA+30*, VPERA+31, VPERA+32, VPERA+33, VPERA+35 |
| POP | PRERA1+1~, PRERA1+8 |
| 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+18*, VPERA+21*, VPERA+27, VPERA+32*, VPERA+34*, VPERA+35* , VPERA+41*, VPERA+43, VPERA+52*, VPERA+53*, VPERA+58*, VPERA+59*, VPERA+62*, VPERA+63*, VPERA+64*, VPERA+67* |
| RC3611 | VPERA+5~, VPERA+36*, VPERA+38, VPERA+40, VPERA+45, VPERA+50, VPERA+51, VPERA+52 |
| RCAUDIT | PRERA1+1~, PRERA1+4*, PRERA1+7, PRERA1+10, PRERA1+15, VPERA~, VPERA+56, VPERA+57 |
| RCAUDIT( | VPERA+58 |
| 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+25!, VPERA+27 |
| RCDIQ1( | VPERA+61, VPERA+63 |
| 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+3*, PRERA1+7, PRERA1+10, PRERA1+15, VPERA~, VPERA+44 |
| 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+5*, PRERA1+6, PRERA1+7 |
| RCONE | SPLIT+2~, SPLIT+21*, SPLIT+25* |
| RCONE(1 | SPLIT+25*, SPLIT+27, SPLIT+28, SPLIT+29 |
| RCPG | VPERA+5~, VPERA+7*, VPERA+72, VPERA+73, VPERA+74, VPERA+75, VPERA+78, 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+7, PRERA1+10 , PRERA1+15, VPERA~, VPERA+8, VPERA+9, VPERA+10, VPERA+11, VPERA+13, VPERA+14, VPERA+17, VPERA+24 , VPERA+26, VPERA+27, VPERA+30, VPERA+32, VPERA+34, VPERA+36, VPERA+43, VPERA+46, VPERA+57, VPERA+61 , VPERA+63 |
| RCSCR("NOEDIT" | SPLIT+5 |
| RCSCR1 | VPERA+5~, VPERA+11*, VPERA+13, VPERA+14, VPERA+24*, VPERA+26, VPERA+27, VPERA+30, VPERA+32, VPERA+34 , VPERA+36, VPERA+43, VPERA+46, VPERA+61, VPERA+63 |
| RCSFDT | VPERA+39~, VPERA+40*, VPERA+41 |
| RCSTDT | VPERA+39~, VPERA+40*, VPERA+41 |
| RCSTOP | VPERA+5~, VPERA+7*, VPERA+70*, VPERA+71, VPERA+72*, VPERA+73, VPERA+74, VPERA+78, ASK~, ASK+4* |
| RCXM1 | VPERA+5~, VPERA+9, VPERA+14, VPERA+21!, VPERA+27, VPERA+43, VPERA+67! |
| RCXM1( | VPERA+10*, VPERA+18*, VPERA+20, VPERA+32*, VPERA+34*, VPERA+35*, VPERA+41*, VPERA+62*, VPERA+63*, VPERA+64* , VPERA+66 |
| RCXPAR | PARAMS+31~, PARAMS+41, GETWLPVW~, GETWLPVW+7!, GETWLPVW+8, GETWLPVW+9, PVWSAVE~ |
| RCXPAR("ALL_PAYERS/RANGE_OF_PAYERS" | GETWLPVW+20, PVWSAVE+10, PVWSAVE+18 |
| RCXPAR("AUTO-POST_STATUS" | GETWLPVW+24, PVWSAVE+12, PVWSAVE+20 |
| RCXPAR("ERA-EFT_MATCH_STATUS" | GETWLPVW+15, PVWSAVE+8, PVWSAVE+16 |
| RCXPAR("ERA_AUTO_POSTING" | GETWLPVW+13, PVWSAVE+7, PVWSAVE+15 |
| RCXPAR("ERA_CLAIM_TYPE" | GETWLPVW+17, PVWSAVE+9, PVWSAVE+17 |
| RCXPAR("ERA_PAYMENT_TYPE" | GETWLPVW+22, PVWSAVE+11, PVWSAVE+19 |
| RCXPAR("ERA_POSTING_STATUS" | GETWLPVW+9, GETWLPVW+11, PVWSAVE+6, PVWSAVE+14 |
| 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+13 |
| START | DTRANGE+5~, DTRANGE+13*, DTRANGE+18 |
| TO | DTR1+1~, DTR1+13*, DTR1+15 |
| U | SPLIT+4, SPLIT+11, SPLIT+14, SPLIT+18, VPERA+36 |
| 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+13, 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~ |
| Z | SPLIT+2~, SPLIT+8*, SPLIT+9, SPLIT+10, SPLIT+22, SPLIT+28, SPLIT+29, VPERA+5~, VPERA+20*, VPERA+52* , VPERA+58*, VPERA+63*, VPERA+66*, VPERA+68*, VPERA+70*, VPERA+71*, VPERA+76 |
| Z0 | SPLIT+2~, SPLIT+9*, SPLIT+29, VPERA+5~, VPERA+19*, VPERA+20*, VPERA+65*, VPERA+66*, VPERA+68* |
| ZTDESC | PRERA1+1~, PRERA1+10* |
| >> ZTQUEUED | VPERA+72, VPERA+80, VPERA+81 |
| ZTREQ | VPERA+72!, VPERA+80* |
| ZTRTN | PRERA1+1~, PRERA1+10* |
| ZTSAVE | PRERA1+1~ |
| ZTSK | PRERA1+12, PRERA1+13! |
| ZTSTOP | VPERA+5~, VPERA+72* |