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 |