IBCECOB1 ;ALB/CXW - IB COB MANAGEMENT SCREEN/REPORT ;14-JUN-99
Source file <IBCECOB1.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 12 | $$IBREG^IBCAPP ($$FILERR,CAP)^IBCAPP2 ($$WLRMVF,BLD)^IBCECOB1 SEL^IBCECOB2 $$COBN^IBCEF $$LAST364^IBCEF4 $$MRACNT^IBCEMU1 ($$DENDUP,$$MSEDT,$$MSPRE)^IBCEMU4 ($$CALCPR,$$PREOBTOT)^IBCEU0 $$WNRBILL^IBEFUNC $$TYPE^IBJTLA1 $$DAT1^IBOUTL |
VA FileMan | 5 | FIELD^DID ^DIE $$EXTERNAL^DILFD $$GET1^DIQ ^DIR |
Kernel | 3 | ENS^%ZISS ($$FMDIFF,$$FMTE)^XLFDT ($$LJ,$$RJ)^XLFSTR |
List Manager | 2 | ($$SETFLD,$$SETSTR)^VALM1 (CLEAN,CNTRL)^VALM10 |
Accounts Receivable | 1 | ($$BN1,$$TPR)^PRCAFN |
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 | ; Build list entrypoint
|
|
BLD1 | ;
|
|
HIS(IBIFN) | ; COB history
|
|
NMAT | ;No COB list
|
|
SCRN | ;
|
|
SET(X,CNT,IBIFN,IBDA,IBQ,IB364,IBX,IB) | ;set up list manager screen array
|
|
FTYPE(Y) | ;type classification
|
|
PTRESPI(IBEOB) | ; Function - Computes the Patient's Responsibility based on IBEOB
; of 361.1 for Claims/Bills with form type 3=UB ; Input IBEOB - a single EOB ien; Required ; Output - Function Returns IBPTRES - Patient Responsibility Amount for the EOB |
|
ELIG(IBEOB) | ; Function to determine if an EOB entry is eligible for
; inclusion on the MRA or COB management worklist or not. ; IBEOB - ien into file 361.1 (required) ; Returns 1 if EOB should appear on the worklist ; Returns 0 if EOB should not appear on the worklist ; Returns -1 if EOB contains Message Storage Errors |
|
ELIGX | ;
|
|
WLRMV | ; REMOVE FROM EOB WORK LIST
; IBDA(IBDA)=IBIFN^IB364^ien of 361.1^user selection seq^user name~duz# |
|
WLRMVF(IBIFN,METHOD,BKFL) | ;
; BFKL = 1 means background process, remove NOT initiated by a user |
Name | Field # of Occurrence |
---|---|
ENS^%ZISS | SCRN+79 |
FIELD^DID | WLRMVF+11 |
^DIE | WLRMVF+21 |
$$EXTERNAL^DILFD | BLD1+76, BLD1+84 |
$$GET1^DIQ | SCRN+14, WLRMV+8, WLRMV+9, WLRMV+10, WLRMV+11 |
^DIR | WLRMV+15 |
$$IBREG^IBCAPP | WLRMVF+8 |
$$FILERR^IBCAPP2 | SCRN+47 |
CAP^IBCAPP2 | BLD+12 |
$$WLRMVF^IBCECOB1 | WLRMV+18 |
BLD^IBCECOB1 | WLRMV+19 |
SEL^IBCECOB2 | WLRMV+3 |
$$COBN^IBCEF | BLD1+44 |
$$LAST364^IBCEF4 | BLD1+62 |
$$MRACNT^IBCEMU1 | BLD1+88 |
$$DENDUP^IBCEMU4 | BLD1+3 |
$$MSEDT^IBCEMU4 | BLD1+67 |
$$MSPRE^IBCEMU4 | BLD1+67 |
$$CALCPR^IBCEU0 | PTRESPI+13, PTRESPI+18 |
$$PREOBTOT^IBCEU0 | BLD1+67 |
$$WNRBILL^IBEFUNC | BLD1+33 |
$$TYPE^IBJTLA1 | SCRN+58 |
$$DAT1^IBOUTL | SCRN+54, SCRN+64 |
$$BN1^PRCAFN | SCRN+53 |
$$TPR^PRCAFN | BLD1+64 |
$$SETFLD^VALM1 | SCRN+49, SCRN+53, SCRN+54, SCRN+55, SCRN+56, SCRN+57, SCRN+58 |
$$SETSTR^VALM1 | SCRN+67, SCRN+71, SCRN+74, SCRN+75, SCRN+76 |
CLEAN^VALM10 | BLD+9 |
CNTRL^VALM10 | SCRN+81, SCRN+83, SCRN+85 |
$$FMDIFF^XLFDT | BLD1+59, BLD1+61 |
$$FMTE^XLFDT | BLD1+84 |
$$LJ^XLFSTR | SCRN+30 |
$$RJ^XLFSTR | SCRN+56, SCRN+57 |
FileNo | Call Tags |
---|---|
^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |
^DGCR(399 - [#399] | Classic Fileman Calls, FIELD^DID, GET1^DIQ |
^DG(40.8 - [#40.8] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | BLD1+8, BLD1+20, BLD1+55, BLD1+59, BLD1+69, BLD1+72, BLD1+73, HIS+3, SCRN+29, SCRN+53 , ELIG+13, WLRMVF+6 |
^DIC(36 - [#36] | BLD1+26, BLD1+27, BLD1+33, BLD1+34, BLD1+51 |
^DPT - [#2] | BLD1+72, SCRN+29 |
^IBA(364 - [#364] | BLD1+62 |
^IBE(353 - [#353] | FTYPE+1 |
^IBM(361.1 - [#361.1] | BLD+16, BLD+17, BLD1+5, BLD1+65, HIS+2, HIS+3, PTRESPI+9, PTRESPI+12, PTRESPI+16, PTRESPI+17 , ELIG+9, ELIG+14 |
^TMP("IBBIL" | BLD1+38, BLD1+39 |
^TMP("IBCECOB" | BLD+8!, NMAT+2*, NMAT+3*, SET+2*, SET+3*, SET+4* |
^TMP("IBCECOB1" | BLD+8!, SET+4* |
^TMP("IBCOBST" | BLD+8!, BLD+20, BLD1+79, BLD1+83*, BLD1+84*, BLD1+92*, BLD1+93*, BLD1+94*, SCRN+12, SCRN+17 , SCRN+26, SCRN+28, SCRN+73 |
^TMP("IBCOBSTX" | BLD+8!, BLD1+7, BLD1+85* |
^VA(200 - [#200] | BLD1+42 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | HIS+1~, HIS+2*, HIS+3, HIS+5 |
B | HIS+1~, HIS+2*, HIS+3 |
BKFL | WLRMVF~, WLRMVF+8 |
CNT | SET~, SET+3, SET+4 |
DA | WLRMV+2~, WLRMVF+15* |
DIE | WLRMV+2~, WLRMVF+16* |
DIR | WLRMV+2~, WLRMV+15! |
DIR("A" | WLRMV+7*, WLRMV+8*, WLRMV+9*, WLRMV+10*, WLRMV+11*, WLRMV+12*, WLRMV+13* |
DIR("B" | WLRMV+14* |
DIR(0 | WLRMV+15* |
DR | WLRMV+2~, WLRMVF+17*, WLRMVF+18*, WLRMVF+19*, WLRMVF+20* |
DT | BLD1+59, BLD1+61 |
DTOUT | WLRMV+2~, WLRMV+16 |
DUOUT | WLRMV+2~, WLRMV+16 |
DUZ | WLRMVF+4, WLRMVF+8 |
ELIG | ELIG+7~, ELIG+8*, ELIG+14*, ELIG+16*, ELIGX+1 |
EOBADJ | PTRESPI+5~, PTRESPI+12!*, PTRESPI+13, PTRESPI+17!*, PTRESPI+18 |
EOBTYPE | BLD+6~ |
I | BLD+2~, BLD1+23*, BLD1+25, BLD1+49*, BLD1+50 |
IB | SCRN+1~, SCRN+28*, SCRN+31, SCRN+32, SCRN+37, SCRN+38, SCRN+39, SCRN+40, SCRN+54, SCRN+58 , SCRN+59, SCRN+67, SCRN+68, SCRN+77, SET~, SET+4 |
IB3611 | BLD+2~, BLD1+5*, BLD1+6, BLD1+22, BLD1+76, BLD1+84, ELIG+7~, ELIG+9*, ELIG+10, ELIG+11 , ELIG+12 |
IB364 | BLD+2~, BLD1+6*, BLD1+83, SCRN+32*, SCRN+59, SCRN+68, SCRN+77, SET~, SET+4 |
IBAMT | BLD+2~, SCRN+40*, SCRN+57 |
IBAPY | BLD+2~, BLD1+64*, BLD1+68, BLD1+83 |
IBB | BLD+2~, BLD1+8*, BLD1+83 |
IBB364 | BLD+2~, BLD1+62* |
IBBIL | HIS+1~, HIS+3*, HIS+4, HIS+5 |
IBBPY | BLD+2~, BLD1+44*, BLD1+49, BLD1+54, BLD1+55, BLD1+83 |
IBC | PTRESPI+5~, PTRESPI+16*, PTRESPI+17 |
IBCNT | NMAT+1*, SCRN+1~, SCRN+5*, SCRN+13, SCRN+14, SCRN+21, SCRN+22, SCRN+41*, SCRN+49, SCRN+59 , SCRN+65, SCRN+68, SCRN+77 |
IBDA | BLD+2~, BLD+17*, BLD1+2, BLD1+3, BLD1+5, BLD1+65, BLD1+83, BLD1+85, SCRN+1~, SCRN+31* , SCRN+59, SCRN+68, SCRN+77, SET~, SET+4, WLRMV+2~, WLRMV+3, WLRMV+5*, WLRMV+6 |
IBDA( | WLRMV+6 |
IBDA(0 | WLRMV+5 |
IBDA1 | BLD+2~ |
IBDAY | BLD+2~, BLD1+59*, BLD1+61*, BLD1+62*, BLD1+76, BLD1+83 |
IBDENDUP | BLD+3~, BLD1+3*, BLD1+4, BLD1+94 |
IBDIV | BLD+3~, BLD1+18*, BLD1+79, BLD1+83, BLD1+84, BLD1+92, BLD1+93, BLD1+94, SCRN+1~, SCRN+11* , SCRN+12*, SCRN+14, SCRN+17, SCRN+26, SCRN+28, SCRN+73 |
IBDT | BLD+3~, BLD1+6*, BLD1+76, BLD1+83 |
IBDTN | BLD+3~ |
IBDUZ | WLRMVF+2~, WLRMVF+8*, WLRMVF+18 |
IBEOB | PTRESPI~, PTRESPI+6*, PTRESPI+7, PTRESPI+9, PTRESPI+12, PTRESPI+16, PTRESPI+17, ELIG~, ELIG+8*, ELIG+9 , ELIG+14 |
IBEOBREV | BLD+3~, BLD+14*, BLD+16*, BLD+17 |
IBEUT | BLD+3~, BLD1+21*, BLD1+39, BLD1+41 |
IBEXPY | BLD+3~, BLD1+65*, BLD1+68, BLD1+83 |
IBFND | BLD+3~, BLD1+36*, BLD1+38, BLD1+39*, BLD1+41 |
IBFORM | SCRN+1~, SCRN+37*, SCRN+58 |
IBHIS | BLD+3~, BLD+10*, HIS+1~, HIS+2*, HIS+5*, HIS+6 |
IBIFN | BLD+4~, BLD1+6*, BLD1+7, BLD1+8, BLD1+20, BLD1+33, BLD1+44, BLD1+55, BLD1+59, BLD1+62 , BLD1+64, BLD1+67, BLD1+69, BLD1+72, BLD1+73, BLD1+79, BLD1+83, BLD1+84, BLD1+85, BLD1+88 , BLD1+92, BLD1+93, BLD1+94, HIS~, HIS+2, HIS+3, SCRN+1~, SCRN+26*, SCRN+28, SCRN+29 , SCRN+47, SCRN+53, SCRN+59, SCRN+68, SCRN+73, SCRN+77, SET~, SET+4, ELIG+7~, ELIG+12* , ELIG+13, WLRMV+2~, WLRMV+6*, WLRMV+8, WLRMV+9, WLRMV+10, WLRMV+11, WLRMV+18, WLRMVF~, WLRMVF+5 , WLRMVF+6, WLRMVF+15 |
IBINS | BLD+4~, BLD1+22*, BLD1+27*, BLD1+83 |
IBINS1 | BLD+4~, BLD1+26* |
IBINS2 | BLD+4~, BLD1+32*, BLD1+33*, BLD1+34*, BLD1+76 |
IBK | SCRN+1~, SCRN+73*, SCRN+74, SCRN+75, SCRN+76, SCRN+81, SCRN+83, SCRN+85 |
IBMRACNT | BLD+4~, BLD1+88*, BLD1+92, BLD1+93 |
>> IBMRADUP | BLD1+4 |
>> IBMRANOT | BLD+12, BLD+16, BLD1+3, BLD1+88, BLD1+92, NMAT+3, SCRN+7, SCRN+71, ELIG+14 |
IBMSEFOUND | SCRN+3~, SCRN+47*, SCRN+53 |
IBMUT | BLD+4~, BLD1+21*, BLD1+39, BLD1+41, BLD1+42*, BLD1+43*, BLD1+76, BLD1+83 |
IBNBAL | BLD+4~, BLD1+70*, BLD1+71, BLD1+83 |
IBNDI1 | BLD+4~, BLD1+20* |
IBNDI2 | BLD+4~, BLD1+20*, BLD1+33 |
IBNDI3 | BLD+5~, BLD1+20*, BLD1+34 |
IBNDM | BLD+5~, BLD1+20* |
IBNDS | BLD+5~, BLD1+20*, BLD1+21 |
IBOAM | BLD+5~, BLD1+69*, BLD1+70, BLD1+83 |
IBPAT | SCRN+1~, SCRN+30*, SCRN+55 |
IBPTNM | BLD+5~, BLD1+72*, BLD1+76 |
IBPTRES | PTRESPI+5~, PTRESPI+6*, PTRESPI+7, PTRESPI+9, PTRESPI+13*, PTRESPI+18*, PTRESPI+19 |
IBPTRSP | BLD+5~, BLD1+67*, BLD1+76, BLD1+83, SCRN+38*, SCRN+56 |
IBPY | BLD+5~, BLD1+68*, BLD1+70 |
IBQ | BLD+5~, BLD1+44*, BLD1+49, BLD1+51*, BLD1+55*, BLD1+71*, BLD1+83, SCRN+32*, SCRN+59, SCRN+68 , SCRN+77, SET~, SET+4 |
IBS1 | SCRN+1~, SCRN+7*, SCRN+8*, SCRN+22, SCRN+65 |
IBSEQ | BLD+5~, BLD1+22*, BLD1+25, BLD1+83 |
>> IBSRT | BLD1+76, BLD1+77, SCRN+7, SCRN+8, SCRN+20, SCRN+63, SCRN+64 |
IBSRVC | BLD+5~, BLD1+73*, BLD1+76, BLD1+83 |
IBST | HIS+1~, HIS+3*, HIS+5 |
IBX | SCRN+1~, SCRN+17*, SCRN+22, SCRN+26, SCRN+28, SCRN+59, SCRN+64, SCRN+68, SCRN+73, SCRN+77 , SET~, SET+4 |
>> IOINHI | SCRN+79, SCRN+81, SCRN+83, SCRN+85 |
>> IOINORM | SCRN+81, SCRN+83, SCRN+85 |
METHOD | WLRMVF~, WLRMVF+14, WLRMVF+19 |
MSEFLG | BLD+6~, BLD+10*, BLD1+2*, BLD1+79*, BLD1+83, SCRN+1~, SCRN+39* |
Q | BLD1+24~, BLD1+25*, BLD1+26 |
SOC | WLRMVF+2~, WLRMVF+12*, WLRMVF+13 |
SOC("POINTER" | WLRMVF+12 |
SOCCNT | WLRMVF+2~, WLRMVF+13* |
SOCLIST | WLRMVF+2~ |
SOCLIST( | WLRMVF+13*, WLRMVF+14 |
STATUS | WLRMVF+2~, WLRMVF+3*, WLRMVF+4, WLRMVF+5, WLRMVF+6, WLRMVF+14, WLRMVF+22*, WLRMVF+23 |
U | BLD1+6, BLD1+21, BLD1+22, BLD1+26, BLD1+27, BLD1+32, BLD1+33, BLD1+34, BLD1+42, BLD1+51 , BLD1+55, BLD1+59, BLD1+62, BLD1+72, BLD1+73, BLD1+76, BLD1+79, BLD1+83, BLD1+92, BLD1+93 , BLD1+94, HIS+3, SCRN+29, SCRN+30, SCRN+31, SCRN+32, SCRN+37, SCRN+38, SCRN+39, SCRN+40 , SCRN+53, SCRN+54, SCRN+58, SCRN+67, SCRN+74, SCRN+75, SCRN+76, SCRN+81, SCRN+83, SCRN+85 , SET+4, FTYPE+1, ELIG+10, ELIG+11, ELIG+13, WLRMV+6 |
>> VALMBCK | WLRMV+4* |
>> VALMCNT | BLD+10*, NMAT+1*, SCRN+81, SCRN+83, SCRN+85, SET+1*, SET+2, SET+3, SET+4 |
X | SCRN+1~, SCRN+42*, SCRN+49*, SCRN+53*, SCRN+54*, SCRN+55*, SCRN+56*, SCRN+57*, SCRN+58*, SCRN+59 , SCRN+67*, SCRN+68, SCRN+71*, SCRN+74*, SCRN+75*, SCRN+76*, SCRN+77, SET~, SET+2, WLRMV+2~ , WLRMV+18* |
Y | FTYPE~, FTYPE+1, WLRMV+16 |
Z | BLD+6~, BLD1+23*, BLD1+26, BLD1+27, BLD1+41*, BLD1+42, BLD1+50*, BLD1+51, BLD1+54*, BLD1+55 , SCRN+1~, SCRN+29*, SCRN+30, SCRN+64*, SCRN+65 |
Z0 | BLD+6~, BLD1+76*, BLD1+77*, BLD1+79, BLD1+83, BLD1+84, BLD1+92, BLD1+93, BLD1+94 |