©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XUSNPI ;OAK_BP/BDT - NATIONAL PROVIDER IDENTIFIER ;6/3/08 13:51
Source file <XUSNPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QI(XUSNPI) | ; Retrieve the ALL qualified indentifier entity for an NPI value.
|
|
| CHKDT(XUSQI,XUSIEN,XUSDATE) | ; Check Date
|
|
| GETRLNPI(XUSIEN) | ; Return field indicating blanket release of NPI
|
|
| ADDNPI(XUSQI,XUSIEN,XUSNPI,XUSDATE,XUSTATUS) | ;
|
|
| SRCHNPI(XUSROOT,XUSIEN,XUSNPI) | ;
|
|
| GLCK(XUSROOT) | ; check valid global root
|
|
| CKDIGIT(XUSNPI) | ;
; Function to calculate and return the check digit of an NPI. ; The check digit is calculated using the Luhn Formula for ; Modulus 10 "double-add-double" Check Digit. A value of 24 is ; added to the total to account for the implied USA (80840) prefix. |
|
| NPI(XUSQI,XUSIEN,XUSDATE) | ; Retrieve the NPI value for a qualified identifier entity.
|
|
| CHKDGT(XUSNPI) | ;
; Function to validate the format of an NPI number. It checks the ; length of the number, whether the NPI is numeric, and whether ; the check digit is valid. |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^VA(200 - [#200] | GETRLNPI+3, GETRLNPI+7 |
| Name | Line Occurrences |
|---|---|
| $$CHKDGT | ADDNPI+25, QI+10 |
| $$CHKDT | ADDNPI+26 |
| $$CKDIGIT | CHKDGT+13 |
| $$GLCK | ADDNPI+17, NPI+23, QI+17, CHKDT+19 |
| $$SRCHNPI | QI+21 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | NPI+15~*, CHKDT+11~* |
| CHNPI | ADDNPI+29~*, ADDNPI+30 |
| ERRMSG | ADDNPI+33~*, ADDNPI+41, ADDNPI+42 |
| U | GETRLNPI+6, GETRLNPI+7 |
| X | NPI+15~*, CHKDT+11~*, GETRLNPI+4~, GETRLNPI+5*, GETRLNPI+6, GETRLNPI+7*, GETRLNPI+8*, GETRLNPI+9 |
| XUFNB | GLCK+1~, GLCK+3*, GLCK+4 |
| XUIENCK | ADDNPI+24~*, NPI+22~*, CHKDT+20~* |
| XUSCDIG | CKDIGIT+6~, CKDIGIT+9*, CKDIGIT+10 |
| XUSCN | CKDIGIT+6~, CKDIGIT+8* |
| XUSCRDT | CHKDT+14~* |
| XUSCTOT | CKDIGIT+6~, CKDIGIT+7*, CKDIGIT+8*, CKDIGIT+9 |
| XUSDA | NPI+17~*, NPI+27*, NPI+28*, NPI+29, NPI+30*, NPI+31, CHKDT+13~, CHKDT+21*, CHKDT+22 |
| XUSDATE | ADDNPI~, ADDNPI+26, ADDNPI+38, ADDNPI+43, NPI~, NPI+14*, NPI+15, NPI+26, NPI+28, CHKDT~ , CHKDT+11, CHKDT+14, CHKDT+22 |
| XUSFNB | ADDNPI+13~, ADDNPI+18*, ADDNPI+19, ADDNPI+20*, ADDNPI+36*, ADDNPI+37*, ADDNPI+38, ADDNPI+39, ADDNPI+40 |
| XUSI | NPI+17~, NPI+26*, NPI+27, NPI+28, QI+14~, QI+15*, QI+16, QI+22, CKDIGIT+6~, CKDIGIT+8* |
| XUSIEN | ADDNPI~, ADDNPI+21, ADDNPI+23, ADDNPI+24, ADDNPI+26, ADDNPI+29, ADDNPI+34, ADDNPI+38, ADDNPI+39, ADDNPI+40 , ADDNPI+43, NPI~, NPI+11, NPI+13, NPI+22, NPI+24, QI+14~, QI+20*, QI+21, SRCHNPI~ , SRCHNPI+1, SRCHNPI+2, SRCHNPI+5, SRCHNPI+7, SRCHNPI+10, SRCHNPI+12, CHKDT~, CHKDT+8, CHKDT+10, CHKDT+20 , CHKDT+21, GETRLNPI~, GETRLNPI+3*, GETRLNPI+5, GETRLNPI+7 |
| XUSNPI | ADDNPI~, ADDNPI+25, ADDNPI+29, ADDNPI+40, QI~, QI+10, QI+18*, QI+19, QI+20, QI+21 , SRCHNPI~, SRCHNPI+4*, SRCHNPI+5, SRCHNPI+7, CHKDGT~, CHKDGT+12, CHKDGT+13, CKDIGIT~, CKDIGIT+8 |
| XUSQI | ADDNPI~, ADDNPI+14, ADDNPI+26, ADDNPI+29, NPI~, NPI+19, CHKDT~, CHKDT+16 |
| XUSQT | QI+14~*, QI+22* |
| XUSROOT | ADDNPI+13~, ADDNPI+14*, ADDNPI+15*, ADDNPI+16, ADDNPI+17, ADDNPI+18, ADDNPI+24, ADDNPI+34, ADDNPI+36, ADDNPI+43 , NPI+17~, NPI+19*, NPI+20*, NPI+21, NPI+22, NPI+23, NPI+24*, NPI+25, NPI+26, NPI+27 , NPI+28, NPI+30, NPI+31, QI+14~, QI+16*, QI+17, QI+19, QI+20, QI+21, GLCK~ , GLCK+2, GLCK+3, GLCK+5, SRCHNPI~, SRCHNPI+5, SRCHNPI+7, SRCHNPI+10, CHKDT+13~, CHKDT+16*, CHKDT+17* , CHKDT+18, CHKDT+19, CHKDT+20, CHKDT+21* |
| XUSRTN | ADDNPI+33~, ADDNPI+44*, ADDNPI+45, ADDNPI+46, NPI+17~*, NPI+31*, NPI+32, NPI+33, NPI+34, QI+14~* , QI+21*, QI+22, SRCHNPI+3~*, SRCHNPI+8*, SRCHNPI+9, SRCHNPI+10, SRCHNPI+12*, SRCHNPI+13*, SRCHNPI+14*, SRCHNPI+15 |
| XUSRTN1 | QI+14~*, QI+22*, QI+23*, QI+24 |
| XUSTAT | NPI+17~*, NPI+33*, NPI+34 |
| XUSTATUS | ADDNPI~, ADDNPI+27*, ADDNPI+28, ADDNPI+39 |
| XUSX | ADDNPI+33~, ADDNPI+34*, ADDNPI+43*, ADDNPI+44, NPI+17~, NPI+25*, NPI+27*, NPI+28*, QI+14~, QI+19* , QI+20*, SRCHNPI+3~, SRCHNPI+5*, SRCHNPI+6, SRCHNPI+7*, SRCHNPI+8, SRCHNPI+10*, SRCHNPI+11, SRCHNPI+12 |
| Y | NPI+15~, CHKDT+11~ |
| ZZ | ADDNPI+33~, QI+11~, QI+12, QI+13, GLCK+1~ |
| ZZ( | QI+15, QI+16, QI+22 |
| ZZ("GLOBAL NA | ME" , GLCK+5 |
| ZZ(1 | ADDNPI+38*, ADDNPI+39*, ADDNPI+40* |