IBCEMU3 ;ALB/ESG - MRA UTILITY - INS CO CHECKER ;14-JUNE-2004
Source file <IBCEMU3.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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 1 | IBY155PO |
Name | Comments | DBIA/ICR reference |
---|---|---|
INSCHK | ; Check insurance company file for "rogue" Medicare WNR entries
; Send an email message reporting any problems |
|
INSCHKX | ;
|
|
MCRPRV(INSIEN) | ; Update fields in the MCRWNR entry
; This procedure updates the Hospital Provider Number field (.11) ; and the Professional Provider Number field (.17) in file 36 for the ; MEDICARE (WNR) entry. These numbers have been assigned to the VA ; by Medicare. |
|
MCRPRVX | ;
|
|
PROVID(INSIEN) | ; Add an entry to file 355.91 - IB insurance co level billing
; provider ID file. This is to add an entry for the UPIN of VAD000 ; into this file for the MEDICARE (WNR) insurance company entry. |
|
PROVIDX | ;
|
Name | Field # of Occurrence |
---|---|
FILE^DICN | PROVID+19 |
^DIE | MCRPRV+10 |
^DIK | PROVID+11 |
$$EXTERNAL^DILFD | INSCHK+27, INSCHK+28, INSCHK+30, INSCHK+31, PROVID+10 |
$$VFIELD^DILFD | INSCHK+41 |
$$GETWNR^IBCNSMM1 | INSCHK+37 |
$$MCRWNR^IBEFUNC | INSCHK+8 |
$$SITE^VASITE | INSCHK+46 |
$$LJ^XLFSTR | INSCHK+103, INSCHK+104, INSCHK+128 |
^XMD | INSCHK+142 |
FileNo | Call Tags |
---|---|
^IBE(350.9 - [#350.9] | VFIELD^DILFD |
^IBA(355.91 - [#355.91] | Classic Fileman Calls, EXTERNAL^DILFD |
^DIC(36 - [#36] | EXTERNAL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(36 - [#36] | INSCHK+7, INSCHK+11, INSCHK+24, INSCHK+25, INSCHK+26, INSCHK+73, INSCHK+102, MCRPRV+8, PROVID+6 |
^DIC(4 - [#4] | INSCHK+44 |
^IBA(355.91 - [#355.91] | PROVID+8, PROVID+9 |
^IBE(350.9 - [#350.9] | INSCHK+44 |
^IBE(355.97 - [#355.97] | PROVID+17 |
^TMP($J | INSCHK+5!, INSCHK+18*, INSCHK+24*, INSCHK+32*, INSCHK+38*, INSCHK+51, INSCHK+56, INSCHK+60, INSCHK+71, INSCHK+72 , INSCHK+88, INSCHK+90, INSCHK+94, INSCHK+100, INSCHKX+1! |
^VA(200 - [#200] | INSCHK+119, INSCHK+123, INSCHK+124 |
^XMB("NETNAME" | INSCHK+45 |
^XPD(9.7 - [#9.7] | INSCHK+48 |
^XUSEC("IB INSURANCE SUPERVISOR" | INSCHK+117 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | INSCHK+2~, INSCHK+6*, INSCHK+17*, INSCHK+96 |
D | INSCHK+3~, MCRPRV+6~ |
D0 | INSCHK+3~, MCRPRV+6~ |
D1 | INSCHK+3~ |
D2 | INSCHK+3~ |
DA | INSCHK+3~, MCRPRV+6~, MCRPRV+9*, PROVID+4~, PROVID+7*, PROVID+8*, PROVID+9, PROVID+15~ |
DATA | INSCHK+4~, INSCHK+26*, INSCHK+27*, INSCHK+29*, INSCHK+30*, INSCHK+31*, INSCHK+32, INSCHK+72*, INSCHK+74, INSCHK+75 , INSCHK+81, PROVID+4~, PROVID+9*, PROVID+10 |
DG | INSCHK+3~, PROVID+4~, PROVID+15~ |
DI | MCRPRV+6~ |
DIC | INSCHK+3~, MCRPRV+6~, PROVID+4~, PROVID+15~, PROVID+16* |
DIC("DR" | PROVID+18* |
DIC(0 | PROVID+16* |
DICR | INSCHK+3~, PROVID+4~, PROVID+15~ |
DIE | MCRPRV+6~, MCRPRV+9* |
DIFROM | INSCHK+3~ |
DIK | INSCHK+3~, PROVID+4~, PROVID+11* |
DINUM | PROVID+15~ |
DISYS | INSCHK+3~ |
DIW | INSCHK+3~, PROVID+4~, PROVID+15~ |
DO | PROVID+15~ |
DQ | MCRPRV+6~ |
DR | MCRPRV+6~, MCRPRV+9* |
DUZ | INSCHK+134, INSCHK+136 |
IBX | INSCHK+4~, INSCHK+37*, INSCHK+38, INSCHK+116*, INSCHK+117*, INSCHK+119, INSCHK+122, INSCHK+123, INSCHK+124 |
IEN | INSCHK+2~, INSCHK+6*, INSCHK+7*, INSCHK+8, INSCHK+11, INSCHK+14, INSCHK+18, INSCHK+23*, INSCHK+25*, INSCHK+26 , INSCHK+32, INSCHK+70*, INSCHK+71*, INSCHK+72, INSCHK+73, INSCHK+100*, INSCHK+102, INSCHK+105 |
INACTXT | INSCHK+4~, INSCHK+101*, INSCHK+102*, INSCHK+104 |
INFO | INSCHK+118~, INSCHK+119*, INSCHK+120, INSCHK+121, INSCHK+127 |
INSIEN | MCRPRV~, MCRPRV+7*, MCRPRV+8, MCRPRV+9, PROVID~, PROVID+5*, PROVID+6, PROVID+8, PROVID+16 |
INSNAME | INSCHK+2~, INSCHK+11*, INSCHK+12, INSCHK+16*, INSCHK+18, INSCHK+23*, INSCHK+24, INSCHK+25, INSCHK+99*, INSCHK+100* , INSCHK+103 |
MCR | INSCHK+4~, INSCHK+6*, INSCHK+13*, INSCHK+22, INSCHK+65 |
MSG | INSCHK+2~ |
MSG( | INSCHK+52*, INSCHK+53*, INSCHK+57*, INSCHK+58*, INSCHK+61*, INSCHK+62*, INSCHK+66*, INSCHK+67*, INSCHK+73*, INSCHK+74* , INSCHK+77*, INSCHK+78*, INSCHK+79*, INSCHK+80*, INSCHK+81*, INSCHK+83*, INSCHK+85*, INSCHK+89*, INSCHK+90*, INSCHK+91* , INSCHK+95*, INSCHK+96*, INSCHK+97*, INSCHK+98*, INSCHK+103*, INSCHK+104*, INSCHK+105*, INSCHK+107*, INSCHK+108*, INSCHK+109* , INSCHK+110*, INSCHK+114*, INSCHK+115*, INSCHK+128*, INSCHK+130* |
MSG(1 | INSCHK+40*, INSCHK+41* |
MSG(2 | INSCHK+43* |
MSG(3 | INSCHK+44* |
MSG(4 | INSCHK+45* |
MSG(5 | INSCHK+46* |
MSG(6 | INSCHK+47* |
MSG(7 | INSCHK+48* |
MSG(8 | INSCHK+49* |
NAME | INSCHK+118~, INSCHK+127*, INSCHK+128 |
PCE | INSCHK+4~, INSCHK+75*, INSCHK+77, INSCHK+78, INSCHK+79, INSCHK+80, INSCHK+81 |
PHONE | INSCHK+118~, INSCHK+123*, INSCHK+125*, INSCHK+126*, INSCHK+128 |
PHONE2 | INSCHK+118~, INSCHK+124*, INSCHK+125 |
TOC | INSCHK+4~, INSCHK+28*, INSCHK+29 |
U | INSCHK+11, INSCHK+27, INSCHK+28, INSCHK+29, INSCHK+30, INSCHK+31, INSCHK+44, INSCHK+73, INSCHK+75, INSCHK+81 , INSCHK+102, INSCHK+120, INSCHK+121, INSCHK+123, INSCHK+124, INSCHK+127, PROVID+10 |
UPIN | PROVID+15~, PROVID+17*, PROVID+18 |
X | INSCHK+3~, MCRPRV+6~, PROVID+4~, PROVID+15~, PROVID+16* |
XMDUN | INSCHK+2~ |
XMDUZ | INSCHK+2~, INSCHK+134* |
XMMG | INSCHK+2~ |
XMSUB | INSCHK+2~, INSCHK+135* |
XMTEXT | INSCHK+2~, INSCHK+133* |
XMY | INSCHK+2~ |
XMY( | INSCHK+122*, INSCHK+136* |
XMY("Janet.Harris2@domain.ext" | INSCHK+138* |
XMY("Loretta.Gulley2@domain.ext" | INSCHK+139* |
XMY("eric.gustafson@daou.com" | INSCHK+140* |
XMY("michael.f.pida@us.pwc.com" | INSCHK+137* |
XMZ | INSCHK+2~ |
Y | INSCHK+3~, MCRPRV+6~, PROVID+4~, PROVID+15~ |
Z | INSCHK+2~, INSCHK+49*, INSCHK+52*, INSCHK+53*, INSCHK+57*, INSCHK+58*, INSCHK+61*, INSCHK+62*, INSCHK+66*, INSCHK+67* , INSCHK+73*, INSCHK+74*, INSCHK+76*, INSCHK+77, INSCHK+78, INSCHK+79, INSCHK+80, INSCHK+81, INSCHK+83*, INSCHK+85* , INSCHK+89*, INSCHK+90*, INSCHK+91*, INSCHK+95*, INSCHK+96, INSCHK+97, INSCHK+98*, INSCHK+103*, INSCHK+104, INSCHK+105 , INSCHK+107*, INSCHK+108*, INSCHK+109*, INSCHK+110*, INSCHK+114*, INSCHK+115*, INSCHK+128*, INSCHK+130* |
Z0 | INSCHK+4~, INSCHK+26*, INSCHK+27, INSCHK+28, INSCHK+30 |
Z5 | INSCHK+4~, INSCHK+26*, INSCHK+31 |