©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
XUSNPI1 ; OAK/TKW - NATIONAL PROVIDER IDENTIFIER UTILITIES ;6/6/08 11:27
Source file <XUSNPI1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPER(XUSOWNKY) | ; Return names of people who own the security key IB PROVIDER EDIT
|
|
| 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
|
|
| 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. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | GETPT+7! |
| ^VA(200 - [#200] | GETPER+3 |
| ^XUSEC("IB PROVIDER EDIT" | GETPER+2 |
| Name | Line Occurrences |
|---|---|
| $$GETPT | NPIUSED+63 |
| GETPER | MSGOLD+28 |
| MSGNEW | NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87 |
| MSGOLD | NPIUSED+70 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| I | NPIUSED+23~, NPIUSED+43*, MSGOLD+3~, MSGOLD+15*, MSGOLD+16, MSGOLD+17, MSGOLD+18, MSGOLD+19, MSGOLD+20*, MSGOLD+21 , MSGOLD+22, MSGOLD+23, MSGOLD+24, MSGOLD+25, MSGOLD+26, MSGOLD+29*, MSGOLD+30* |
| J | MSGOLD+3~, MSGOLD+30* |
| PT | GETPT+1~, GETPT+2*, GETPT+4*, GETPT+5*, GETPT+6*, GETPT+8 |
| U | NPIUSED+29, NPIUSED+35, NPIUSED+45, NPIUSED+46, NPIUSED+47, NPIUSED+49, NPIUSED+54, NPIUSED+74, NPIUSED+78, GETPER+6 , MSGOLD+4, MSGOLD+6, MSGOLD+8, MSGOLD+16, MSGOLD+23, MSGNEW+3, MSGNEW+5, MSGNEW+8, MSGNEW+12 |
| X | NPIUSED+23~, GETPER+1~, GETPER+5*, GETPER+6, MSGOLD+3~, MSGOLD+5*, MSGOLD+6*, MSGOLD+7, MSGNEW+2~, MSGNEW+4* , MSGNEW+5*, MSGNEW+8, MSGNEW+11 |
| XUSCNT | NPIUSED+23~, NPIUSED+42*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+7*, MSGOLD+8* , MSGOLD+9, MSGOLD+10, MSGOLD+11*, MSGNEW~, MSGNEW+7, MSGNEW+8, MSGNEW+9*, MSGNEW+11, MSGNEW+12, MSGNEW+13* , MSGNEW+15* |
| XUSERR | NPIUSED+23~, NPIUSED+42*, NPIUSED+43, NPIUSED+51*, NPIUSED+76*, NPIUSED+80*, NPIUSED+84*, NPIUSED+88*, NPIUSED+91 |
| XUSFILE | NPIUSED+23~, MSGOLD+3~, MSGOLD+4*, MSGOLD+10, MSGOLD+23, MSGOLD+25, MSGNEW+2~, MSGNEW+3*, MSGNEW+8, MSGNEW+12 |
| XUSFILI | NPIUSED+23~, NPIUSED+40* |
| XUSFLAG | NPIUSED~, NPIUSED+37*, NPIUSED+57, NPIUSED+60, NPIUSED+68, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87 |
| XUSGLOB | NPIUSED+23~, NPIUSED+54*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+4, MSGOLD+8 , MSGOLD+16, MSGOLD+23, MSGNEW~, MSGNEW+3, MSGNEW+8, MSGNEW+12 |
| XUSIEN | NPIUSED~, NPIUSED+38*, NPIUSED+57, GETPT~, GETPT+2, GETPER+1~, GETPER+2*, GETPER+3, GETPER+5, GETPER+8 , MSGOLD~, MSGOLD+8, MSGOLD+16, MSGOLD+23, MSGNEW~, MSGNEW+8, MSGNEW+12 |
| XUSNEWPT | NPIUSED+23~, NPIUSED+40* |
| XUSNPI | NPIUSED~, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGOLD+7, MSGOLD+16, MSGOLD+21 , MSGOLD+22, MSGNEW~, MSGNEW+7, MSGNEW+11 |
| XUSOAI | NPIUSED+24~, NPIUSED+47*, NPIUSED+57, NPIUSED+70, NPIUSED+87, NPIUSED+88, MSGOLD~, MSGOLD+9, MSGNEW~, MSGNEW+6 , MSGNEW+14 |
| XUSOIEN | NPIUSED+24~, NPIUSED+46*, NPIUSED+57, NPIUSED+63, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87 |
| XUSOPT | NPIUSED+24~, NPIUSED+59*, NPIUSED+61*, NPIUSED+62*, NPIUSED+63*, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87 , MSGOLD~, MSGOLD+6, MSGNEW~, MSGNEW+5 |
| XUSOQID | NPIUSED+24~, NPIUSED+45*, NPIUSED+49, NPIUSED+52, NPIUSED+57, NPIUSED+61, NPIUSED+62, NPIUSED+63, NPIUSED+69 |
| XUSOU | NPIUSED+24~, NPIUSED+43*, NPIUSED+45, NPIUSED+46, NPIUSED+47, NPIUSED+74, NPIUSED+78 |
| XUSOWNKY | GETPER~, MSGOLD+3~, MSGOLD+28 |
| XUSOWNKY( | GETPER+8*, MSGOLD+30 |
| XUSQID | NPIUSED~, NPIUSED+35, NPIUSED+36, NPIUSED+57, NPIUSED+74, NPIUSED+82 |
| XUSQIL | NPIUSED~, NPIUSED+27, NPIUSED+29, NPIUSED+43 |
| XUSRSLT | NPIUSED~, NPIUSED+25!, NPIUSED+70, NPIUSED+75, NPIUSED+79, NPIUSED+83, NPIUSED+87, MSGOLD~, MSGNEW~ |
| XUSRSLT( | MSGOLD+7*, MSGOLD+8*, MSGOLD+9*, MSGOLD+10*, MSGNEW+7*, MSGNEW+8*, MSGNEW+11*, MSGNEW+12*, MSGNEW+15* |
| XUSRSLT("X" | MSGOLD+15, MSGOLD+16*, MSGOLD+17*, MSGOLD+18*, MSGOLD+19* |
| XUSRSLT("XMSG" | MSGOLD+20, MSGOLD+21*, MSGOLD+22*, MSGOLD+23*, MSGOLD+24*, MSGOLD+25*, MSGOLD+26* |
| XUSRSLT("XRCPT" | MSGOLD+29, MSGOLD+30* |
| XUSRSLT(1 | NPIUSED+30*, NPIUSED+36*, NPIUSED+52* |
| XUSRSLT(2 | NPIUSED+31* |
| XUSWARN | NPIUSED+23~, NPIUSED+42*, NPIUSED+71*, NPIUSED+89*, NPIUSED+92 |
| ZZ | NPIUSED+23~, NPIUSED+33, NPIUSED+34*, NPIUSED+35*, NPIUSED+36, NPIUSED+49*, NPIUSED+50, NPIUSED+54 |
| ZZ( | NPIUSED+35, NPIUSED+49, NPIUSED+54 |