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 |