RCDPEWL1 ;ALB/TMK - ELECTRONIC EOB WORKLIST SCREEN ;Jun 06, 2014@19:11:19
Source file <RCDPEWL1.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD(RCSORT) | ; Build the detail display record for the WL scratch pad record
; Assume RCSCR = ien from file 344.49 ; RCSORT = "" or 'N' for no sort 'F' for 0-pays first, 'L' for last |
|
| TOPLINE(RCZ0,RCTS) | ; Function returns the top line of the EEOB display
; RCZ0 = the 0-node of the whole number entry line for the EEOB ; RCTS = the selectable line # |
|
| PHARM(RCZZ0,RCECME,RCT,ZZ1) | ;
|
|
| INIT | ;
|
|
| HDR | ;
|
|
| FNL | ; -- Clean up list
|
|
| SET(X,RCSEQ,RCSEQ1,RCZ9) | ; -- set arrays
; X = the data to set into the global ; RCSEQ = the selectable line # ; RCSEQ1 = the sub line # ; RCZ9 = reference to the line(s) in file 344.41 or to the subline in ; file 344.49 for RCSEQ having a decimal |
|
| PNM4(RCIFN,RCDA,RC) | ; Returns either the patient name or patient name/last 4
; RCIFN = ien of file 344.4 ; RCDA = ien of file 344.41 ; RC = the ien of file 430 |
|
| COBN(RC,A) | ; Return seq # of selected payer
; A = 'PST' or null to get current bill payer seq # |
|
| COPAY(RCIFN) |
| Name | Field # of Occurrence |
|---|---|
| $$LST^DGMTU | BLD+63 |
| $$EXTERNAL^DILFD | BLD+46, TOPLINE+5 |
| $$GET1^DIQ | BLD+37, BLD+80, BLD+81, BLD+85 |
| $$RXST^IBARXEU | BLD+61 |
| RELBILL^IBRFN | COPAY+5 |
| $$ORI^PRCAFN | BLD+59 |
| SLINE^RCDPEAA2 | BLD+39 |
| HDR^RCDPEWL | HDR+1 |
| GETPHARM^RCDPEWLP | PHARM+2 |
| $$WLL^RCDPEWLZ | BLD+87 |
| $$BILL^RCJIBFN2 | BLD+67 |
| $$FMTE^XLFDT | BLD+46, BLD+69, BLD+111 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | BLD+59, BLD+70, PNM4+8, COBN+2 |
| ^DIC(4 - [#4] | BLD+46 |
| ^DPT - [#2] | PNM4+8, PNM4+12 |
| ^IBM(361.1 - [#361.1] | PNM4+8 |
| ^PRCA(430 - [#430] | PNM4+11, COPAY+8 |
| ^RCY(344 - [#344] | BLD+28 |
| ^RCY(344.4 - [#344.4] | BLD+24, BLD+26, BLD+30, PNM4+7 |
| ^RCY(344.49 - [#344.49] | BLD+10, BLD+11, BLD+18, BLD+24, BLD+52, BLD+54, BLD+90, BLD+93, BLD+110, BLD+112 |
| ^TMP("IBRBF" | COPAY+4!, COPAY+6, COPAY+7!, COPAY+8!, COPAY+9, COPAY+10! |
| ^TMP("RCDPE-EOB_WL" | BLD+7!, SET+6*, SET+7* |
| ^TMP("RCDPE-EOB_WLDX" | BLD+7!, SET+8* |
| ^TMP("RC_BILL" | BLD+7!, BLD+68* |
| ^TMP($J | BLD+7!, BLD+19*, BLD+20*, BLD+22, BLD+32, BLD+33, BLD+49, BLD+106, BLD+123!, TOPLINE+5 , INIT+1, COPAY+4!, COPAY+10! |
| ^VA(200 - [#200] | BLD+108, BLD+111 |
| Name | Line Occurrences |
|---|---|
| $$COBN | BLD+70 |
| $$PNM4 | BLD+54 |
| $$TOPLINE | BLD+34 |
| PHARM | BLD+76 |
| SET | BLD+35, BLD+41, BLD+43, BLD+46, BLD+55, BLD+56, BLD+67, BLD+71, BLD+73, BLD+74 , BLD+79, BLD+80, BLD+81, BLD+88, BLD+92, BLD+103, BLD+104, BLD+109, BLD+111, BLD+113 , BLD+114, BLD+115, BLD+122, PHARM+3, PHARM+4, PHARM+5, PHARM+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BLD+93, BLD+110, BLD+112, COPAY+6 |
| ^(0 | BLD+59, PNM4+8, PNM4+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | BLD+4~, BLD+23~, BLD+34*, BLD+35, BLD+58~, BLD+107*, BLD+108*, BLD+109, BLD+110*, BLD+112 , BLD+115*, TOPLINE+3~, TOPLINE+4*, TOPLINE+5*, TOPLINE+6*, TOPLINE+7, COBN~, COBN+2*, COBN+3*, COBN+4 |
| A("DFN" | BLD+59*, BLD+61, BLD+63 |
| A("ENRPR" | BLD+59* |
| A("M/T" | BLD+63*, BLD+64*, BLD+71 |
| A("OA" | BLD+59*, BLD+66 |
| A("RXCP" | BLD+61*, BLD+71 |
| A("SDT" | BLD+59*, BLD+61, BLD+63, BLD+69 |
| A0 | BLD+4~, BLD+110*, BLD+111 |
| AUTOERA | BLD+5~, BLD+30*, BLD+74 |
| B | BLD+4~, BLD+112* |
| B0 | BLD+4~, BLD+112*, BLD+113*, BLD+114 |
| FIRST | COPAY+3~, COPAY+9*, COPAY+11 |
| Q | BLD+4~, BLD+58~, BLD+94*, BLD+104, PNM4+4~, PNM4+8*, PNM4+11*, PNM4+12 |
| Q0 | BLD+4~ |
| Q1 | BLD+4~ |
| BLD+4~, BLD+66*, BLD+67, BLD+68 | |
| RC | PNM4~, PNM4+10, PNM4+11, COBN~, COBN+2 |
| RC4 | BLD+5~, BLD+26*, BLD+27, BLD+28 |
| RCARC | BLD+86~, BLD+87*, BLD+88 |
| RCAZ | BLD+4~, BLD+93* |
| RCAZ0 | BLD+4~, BLD+93*, BLD+94, BLD+96, BLD+97, BLD+99, BLD+100, BLD+101, BLD+102, BLD+104 |
| RCCL | BLD+4~, BLD+37*, BLD+38, BLD+39 |
| RCCL1 | BLD+4~, BLD+43 |
| RCCL1(1 | BLD+40 |
| RCCL1(2 | BLD+43 |
| RCCL1(3 | BLD+43 |
| RCDA | PNM4~, PNM4+7 |
| RCECME | BLD+5~, BLD+27*, BLD+76, PHARM~, PHARM+3 |
| RCFASTXT | FNL+1! |
| RCIFN | PNM4~, PNM4+6, PNM4+7, COPAY~, COPAY+5, COPAY+6, COPAY+7, COPAY+8, COPAY+9 |
| RCLI1 | BLD+4~, BLD+54*, BLD+55 |
| RCS1 | BLD+4~, BLD+11*, BLD+15 |
| RCSA | BLD+4~ |
| >> RCSCR | BLD+10, BLD+11, BLD+18, BLD+24, BLD+26, BLD+30, BLD+37, BLD+52, BLD+54, BLD+80 , BLD+81, BLD+85, BLD+87, BLD+90, BLD+93, BLD+110, BLD+112 |
| RCSCT | BLD+4~ |
| RCSEQ | SET~, SET+7 |
| RCSEQ1 | SET~, SET+8 |
| RCSORT | BLD~, BLD+6*, BLD+15 |
| RCT | BLD+4~, BLD+48*, BLD+50*, BLD+51, BLD+55, BLD+56, BLD+67, BLD+68, BLD+71, BLD+73 , BLD+74, BLD+76, BLD+79, BLD+80, BLD+81, BLD+92, BLD+103, BLD+104, BLD+109, BLD+111 , BLD+113, BLD+114, BLD+115, PHARM~, PHARM+3, PHARM+4, PHARM+5, PHARM+6 |
| RCTL | BLD+4~, BLD+51*, BLD+56, BLD+67, BLD+69, BLD+73, BLD+92, BLD+94 |
| RCTP0 | COPAY+3~, COPAY+6*, COPAY+7, COPAY+8 |
| RCTP1 | COPAY+3~, COPAY+6*, COPAY+7, COPAY+8 |
| RCTP2 | COPAY+3~, COPAY+8* |
| RCTS | BLD+4~, BLD+22*, BLD+34*, BLD+35, BLD+41, BLD+43, BLD+46, BLD+48, BLD+55, BLD+56 , BLD+67, BLD+71, BLD+73, BLD+74, BLD+79, BLD+80, BLD+81, BLD+92, BLD+103, BLD+104 , BLD+109, BLD+111, BLD+113, BLD+114, BLD+115, TOPLINE~, TOPLINE+6 |
| RCX | BLD+58~, BLD+63*, BLD+64 |
| RCY34441 | BLD+4~, BLD+24*, BLD+45, BLD+46 |
| RCZ | BLD+4~, BLD+11*, BLD+54 |
| RCZ0 | BLD+4~, BLD+11*, BLD+15, BLD+24*, BLD+26, BLD+34, BLD+37, BLD+53, BLD+56, BLD+107 , BLD+108, TOPLINE~, TOPLINE+4, TOPLINE+5 |
| RCZ9 | SET~, SET+8 |
| RCZERO | BLD+4~, BLD+15*, BLD+19, BLD+20, BLD+22*, BLD+49 |
| RCZZ0 | BLD+4~, BLD+52*, BLD+54, BLD+55, BLD+56, BLD+57, BLD+59, BLD+66, BLD+67, BLD+68 , BLD+70, BLD+73, BLD+74, BLD+76, BLD+78, BLD+79, BLD+100, PHARM~, PHARM+2, PHARM+3 , PHARM+4, PHARM+5, PHARM+6 |
| RECEIPT | BLD+5~, BLD+28*, BLD+32, BLD+33, BLD+74 |
| RXARRAY | BLD+5~, PHARM+1~, PHARM+2, PHARM+4 |
| RXARRAY("DOS" | PHARM+6 |
| RXARRAY("FILL" | PHARM+5 |
| RXARRAY("RELE | ASED STATUS" , PHARM+5 |
| RXARRAY("RX" | PHARM+5 |
| TLINE | BLD+40~*, BLD+41 |
| U | BLD+6, BLD+11, BLD+15, BLD+24, BLD+26, BLD+27, BLD+28, BLD+30, BLD+37, BLD+45 , BLD+46, BLD+53, BLD+54, BLD+55, BLD+56, BLD+57, BLD+59, BLD+61, BLD+63, BLD+66 , BLD+67, BLD+68, BLD+70, BLD+73, BLD+74, BLD+78, BLD+79, BLD+96, BLD+97, BLD+99 , BLD+100, BLD+101, BLD+102, BLD+104, BLD+106, BLD+107, BLD+108, BLD+111, TOPLINE+4, TOPLINE+5 , PHARM+2, PHARM+3, PHARM+4, PHARM+5, PHARM+6, SET+8, PNM4+8, PNM4+9, PNM4+11, PNM4+12 , COBN+2, COPAY+7, COPAY+8 |
| V1 | BLD+4~, BLD+53*, BLD+54 |
| >> VALMBG | INIT+1* |
| >> VALMCNT | BLD+9*, BLD+122, SET+6*, SET+7, SET+8 |
| X | BLD+4~, SET~, SET+6 |
| Y | BLD+4~ |
| Z | BLD+4~, BLD+10*, BLD+18*, PNM4+4~, PNM4+5*, PNM4+7*, PNM4+8*, PNM4+9*, PNM4+12*, PNM4+13 |
| Z0 | BLD+4~, BLD+18*, PNM4+4~, PNM4+7*, PNM4+8, PNM4+9 |
| Z3 | BLD+4~, BLD+69*, BLD+70*, BLD+71, BLD+91*, BLD+94*, BLD+96*, BLD+97*, BLD+100*, BLD+101* , BLD+102*, BLD+103 |
| ZZ | BLD+4~, BLD+10*, BLD+11, BLD+19, BLD+20, BLD+22*, BLD+24, BLD+35, BLD+41, BLD+43 , BLD+46, BLD+49, BLD+87, BLD+110, BLD+112 |
| ZZ1 | BLD+4~, BLD+18*, BLD+19, BLD+49*, BLD+52, BLD+54, BLD+55, BLD+56, BLD+67, BLD+71 , BLD+73, BLD+74, BLD+76, BLD+79, BLD+80, BLD+81, BLD+90, BLD+92, BLD+93, BLD+103 , BLD+104, BLD+109, BLD+111, BLD+113, BLD+114, BLD+115, PHARM~, PHARM+3, PHARM+4, PHARM+5 , PHARM+6 |