XUSNPI1 ; OAK/TKW - NATIONAL PROVIDER IDENTIFIER UTILITIES ;6/6/08 11:27
Source file <XUSNPI1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NPIUSED(XUSNPI,XUSQID,XUSQIL,XUSIEN,XUSRSLT,XUSFLAG) | ; Evaluate cases where an NPI is already in use
; and return an error or warning. Called from routines that allow an NPI to be assigned ; to either an INSTITUTION (file 4) or a NEW PERSON (file 200). ; XUSNPI = the NPI ; XUSQID = the qualified identifier for the file being edited (ex. "Individual_ID") ; XUSQIL = the delimited list of entities already using that NPI. This is output ; from $$QI^XUSNPI, in the format: ; Qualified_Identifier^IEN^Effective_date/time^Active/Inactive; ; (Qualified_Identifier=(ex. "Individual_ID") ; IEN=the IEN of the entity who owns the NPI. ; If there are multiple entities who own the NPI, there will ; be multiple entries in XUSQIL, delimited by ";".) ; XUSIEN = IEN of entry to which NPI is being assigned ; XUSRSLT = an output array returned if an error or warning message is generated. ; XUSFLAG = If set to 1, indicates that routine is being called from an input transform. ; If set to 2, indicates we're checking the current NPI prior to delete/replace ; If set to 3, indicates we're checking a new NPI (Either ADD or REPLACE). |
|
| GETPT(XUSIEN) | ; Get provider type for entry in IB NON/OTHER VA BILLING PROVIDER file
|
|
| GETPER(XUSOWNKY) | ; Return names of people who own the security key IB PROVIDER EDIT
|
|
| MSGOLD(XUSNPI,XUSGLOB,XUSIEN,XUSCNT,XUSOPT,XUSOAI,XUSRSLT) | ;
; Generate warning message to display prior to REPLACE/DELETE NPI prompt, when the current ; NPI is also used by a non-va provider |
|
| MSGNEW(XUSNPI,XUSGLOB,XUSIEN,XUSCNT,XUSRSLT,XUSOPT,XUSOAI) | ;
; Generate error or warning message when new NPI is in use. |
