IBCEP81 ;ALB/KJH - NPI and Taxonomy Functions ;19 Apr 2008 5:17 PM
Source file <IBCEP81.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 |
---|---|---|
NPIREQ(IBDT) | ; Check NPI drop dead date
|
|
TAXREQ(IBDT) | ; Check Taxonomy drop dead date
|
|
NPIGET(IBIEN) | ; Get NPI
|
|
TAXGET(IBIEN,IBARR) | ; Get Taxonomy
|
|
TAXDEF(IBIEN399) | ; Get Taxonomy for Default Division
|
|
NPIUSED(IBNPI,IBOLDNPI,IBIEN,IBCHECK,IBKEY) | ; Check whether NPI is already used within files 200, 4, or 355.93.
|
|
DUP(IBNPI) | ; Check whether this is a duplicate NPI within file# 355.93
|
|
DISPTAX(IBIEN,IBTXT) | ; Display extra Taxonomy info (when available)
|
|
RULES(IBNPI,IBIEN,IBOLDNPI) | ;Verify that the NPI meets all rules for usage
|
|
PRENPI(IBIEN) | ;Pre-NPI edit messages
|
Name | Field # of Occurrence |
---|---|
EN^DDIOL | NPIUSED+9, NPIUSED+11, NPIUSED+12, NPIUSED+13, NPIUSED+14, NPIUSED+17, NPIUSED+19, NPIUSED+21, NPIUSED+23, NPIUSED+24 , NPIUSED+25, NPIUSED+26, NPIUSED+29 |
$$GET1^DIQ | NPIGET+3, TAXGET+6, TAXGET+7, TAXGET+8, TAXGET+9, TAXGET+11, TAXDEF+3, TAXDEF+4, NPIUSED+11, NPIUSED+13 , NPIUSED+15, NPIUSED+19, NPIUSED+21, NPIUSED+23, NPIUSED+25, NPIUSED+29, DISPTAX+3, DISPTAX+4, DISPTAX+5, DISPTAX+6 , PRENPI+8, PRENPI+9, PRENPI+13, PRENPI+14 |
^DIR | NPIUSED+17 |
$$SITE^VASITE | TAXDEF+5 |
$$QI^XUSNPI | NPIUSED+10, RULES+17, PRENPI+5 |
$$TAXORG^XUSTAX | TAXDEF+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^IBA(355.93 - [#355.93] | GET1^DIQ |
355.9342 | GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |
^DIC(4 - [#4] | GET1^DIQ |
^USC(8932.1 - [#8932.1] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(4 - [#4] | NPIUSED+19, RULES+21 |
^IBA(355.93 - [#355.93] | TAXGET+4, DUP+2, RULES+7, RULES+12, RULES+13, RULES+14, PRENPI+3 |
^VA(200 - [#200] | RULES+2, RULES+10 |
Name | Line Occurrences |
---|---|
$$DUP | NPIUSED+21, NPIUSED+23, RULES+4 |
$$RULES | NPIUSED+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | NPIUSED+1~ |
DIR("?" | NPIUSED+16* |
DIR("A" | NPIUSED+15* |
DIR("B" | NPIUSED+15* |
DIR(0 | NPIUSED+15* |
DIROUT | NPIUSED+1~ |
DIRUT | NPIUSED+1~ |
DTOUT | NPIUSED+1~ |
DUOUT | NPIUSED+1~ |
DUP | NPIUSED+1~, NPIUSED+3*, RULES+1~, RULES+4*, RULES+8 |
IBARR | TAXGET~, TAXGET+9*, TAXGET+10* |
IBARR( | TAXGET+7*, TAXGET+8*, TAXGET+9, TAXGET+10 |
IBCHECK | NPIUSED~, NPIUSED+4, NPIUSED+8 |
IBCHKDT | NPIREQ+1~, NPIREQ+2*, NPIREQ+3, TAXREQ+1~, TAXREQ+2*, TAXREQ+3 |
IBDIV | TAXDEF+2~, TAXDEF+3*, TAXDEF+5 |
IBDT | NPIREQ~, NPIREQ+3, TAXREQ~, TAXREQ+3 |
IBEVDT | TAXDEF+2~, TAXDEF+4*, TAXDEF+5 |
>> IBFBFLAG | NPIUSED+2 |
IBIEN | NPIGET~, NPIGET+1, NPIGET+3, TAXGET~, TAXGET+1, TAXGET+4, TAXGET+5, NPIUSED~, NPIUSED+4, NPIUSED+13 , NPIUSED+15, NPIUSED+25, DISPTAX~, DISPTAX+2, DISPTAX+3, DISPTAX+4, DISPTAX+5, DISPTAX+6, RULES~, RULES+7 , RULES+8, PRENPI~, PRENPI+2, PRENPI+3, PRENPI+9, PRENPI+14 |
IBIEN1 | RULES+1~, RULES+13*, RULES+14 |
IBIEN2 | RULES+1~, RULES+12*, RULES+13, RULES+14 |
IBIEN399 | TAXDEF~, TAXDEF+1, TAXDEF+3, TAXDEF+4 |
IBKEY | NPIUSED~ |
IBNOTIFY | NPIUSED+1~, NPIUSED+3*, NPIUSED+4*, NPIUSED+5, NPIUSED+8, NPIUSED+19, NPIUSED+21, NPIUSED+23, NPIUSED+28 |
IBNPI | NPIUSED~, NPIUSED+4, NPIUSED+8, NPIUSED+9, NPIUSED+10, NPIUSED+19, NPIUSED+21, NPIUSED+23, NPIUSED+29, DUP~ , DUP+1, DUP+2, RULES~, RULES+2, RULES+3, RULES+4, RULES+10, RULES+12, RULES+13, RULES+17 , RULES+21, PRENPI+1~, PRENPI+3*, PRENPI+4, PRENPI+5, PRENPI+8, PRENPI+13 |
IBOLDNPI | NPIUSED~, NPIUSED+4, NPIUSED+8, RULES~, RULES+2, RULES+10 |
IBORG | TAXDEF+2~, TAXDEF+5*, TAXDEF+6 |
IBPTR | TAXGET+2~, TAXGET+3*, TAXGET+9*, TAXGET+10*, TAXGET+11, TAXGET+12 |
IBRETVAL | TAXDEF+2~ |
IBTXT | DISPTAX~, DISPTAX+3, DISPTAX+4, DISPTAX+5, DISPTAX+6 |
IBVA200 | NPIUSED+1~, NPIUSED+3*, NPIUSED+10*, NPIUSED+11, NPIUSED+29, RULES+17*, RULES+18, RULES+19, RULES+20, PRENPI+1~ , PRENPI+5*, PRENPI+7, PRENPI+8, PRENPI+12, PRENPI+13 |
IBX | DISPTAX+1~, DISPTAX+3*, DISPTAX+4*, DISPTAX+5*, DISPTAX+6* |
IEN | TAXGET+2~, TAXGET+3*, TAXGET+4*, TAXGET+5, TAXGET+7, TAXGET+8, TAXGET+9, TAXGET+10 |
IENS | TAXGET+2~, TAXGET+5*, TAXGET+6, TAXGET+7, TAXGET+9 |
NPI | NPIGET+2~, NPIGET+3*, NPIGET+4 |
SPIBIEN | RULES+1~, RULES+7*, RULES+8 |
TAX | TAXGET+2~, TAXGET+11*, TAXGET+12, TAXDEF+2~ |
U | TAXGET+1, TAXGET+7, TAXGET+8, TAXGET+9, TAXGET+10, TAXGET+12, TAXDEF+1, TAXDEF+5, NPIUSED+11, NPIUSED+29 , RULES+7, RULES+18, RULES+19, RULES+20, PRENPI+3, PRENPI+7, PRENPI+8, PRENPI+12, PRENPI+13 |
X | NPIUSED+1~ |
Y | NPIUSED+1~, NPIUSED+8 |