XUSNPI ;OAK_BP/BDT - NATIONAL PROVIDER IDENTIFIER ;6/3/08 13:51
Source file <XUSNPI.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDNPI(XUSQI,XUSIEN,XUSNPI,XUSDATE,XUSTATUS) | ;
|
|
| NPI(XUSQI,XUSIEN,XUSDATE) | ; Retrieve the NPI value for a qualified identifier entity.
|
|
| QI(XUSNPI) | ; Retrieve the ALL qualified indentifier entity for an NPI value.
|
|
| GLCK(XUSROOT) | ; check valid global root
|
|
| SRCHNPI(XUSROOT,XUSIEN,XUSNPI) | ;
|
|
| 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. |
|
| 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. |
|
| CHKDT(XUSQI,XUSIEN,XUSDATE) | ; Check Date
|
|
| GETRLNPI(XUSIEN) | ; Return field indicating blanket release of NPI
|
|
