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 |
| 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 |