©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
XUSNPIXU ;OAK_BP/DLS - NPI Extract Utilities ; 6/17/09
Source file <XUSNPIXU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRACID(NPIEN,INS) | ; Get Practitioner IDs
|
|
| P2PEXP(IEN,XUSPT) | ;
|
|
| INIT | ;Initialize ^XTMP
|
|
| P2PBASEX | ;
|
|
| NNVAID(NPIEN,INS) | ; Get Non-VA Provider IDS
|
|
| ADDID(IDSTRING,ID) | ; Append BCBS ID to local ID string, using ";" as the sub-delimiter. Called from BCBSID
|
|
| BCBSTR(PRACIEN) | ; Receive an IB Billing Practitioner Provider IEN and return the string of ID's already created.
|
|
| P2PBASE(XUSTMP) | ;
|
|
| BCBSID | ; This sub-routine is designed to create a string for each Blue Cross/Blue Shield Insurance Company,
; including the Ins Co name and an array of BCBS ID's (the ID's separated by a semi-colon sub-delimiter). |
|
| INSTID(INSARRAY) | ; Get Institution IDs
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | BCBSID+31, BCBSID+37, BCBSID+42, BCBSID+48, BCBSTR+14, BCBSTR+20 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(36 - [#36] | BCBSID+29 |
| ^DIC(5 - [#5] | P2PEXP+11 |
| ^IBA(355.9 | PRACID+8, NNVAID+8 |
| ^IBA(355.91 | BCBSID+47 |
| ^IBA(355.92 | BCBSID+41 |
| ^IBE(350.9 - [#350.9] | P2PBASE+3, P2PBASE+4, P2PBASE+5, P2PBASE+8, P2PBASE+10, P2PEXP+2, P2PEXP+5 |
| ^TMP("XUSNPIXU" | BCBSID+22!, BCBSID+53*, INSTID+8, INSTID+9, BCBSTR+17, BCBSTR+25, BCBSTR+26, BCBSTR+30 |
| ^XTMP("XUSNPIX1" | INIT+1! |
| ^XTMP("XUSNPIX1NV" | INIT+3! |
| ^XTMP("XUSNPIX2" | INIT+2! |
| ^XTMP("XUSNPIX2NV" | INIT+4! |
| ^XTMP("XUSNPIXT" | INIT+5! |
| Name | Line Occurrences |
|---|---|
| $$BCBSTR | PRACID+9, NNVAID+9 |
| ADDID | BCBSID+43, BCBSID+49 |
| P2PBASEX | P2PBASE+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | PRACID+4~, PRACID+9*, PRACID+10, NNVAID+4~, NNVAID+9*, NNVAID+10, INSTID+4~, INSTID+9*, INSTID+10 |
| A1 | PRACID+4~, PRACID+10*, PRACID+11, PRACID+12, NNVAID+4~, NNVAID+10*, NNVAID+11, NNVAID+12 |
| A2 | PRACID+4~, PRACID+10*, PRACID+11, PRACID+12, NNVAID+4~, NNVAID+10*, NNVAID+11, NNVAID+12 |
| BIEN | PRACID+4~, PRACID+6*, PRACID+8, NNVAID+4~, NNVAID+6*, NNVAID+8 |
| I | P2PEXP+1~, P2PEXP+3* |
| IBE35090 | P2PEXP+1~, P2PEXP+2*, P2PEXP+4 |
| IBE35091 | P2PEXP+1~, P2PEXP+5*, P2PEXP+6, P2PEXP+7, P2PEXP+8, P2PEXP+9, P2PEXP+10, P2PEXP+12 |
| IBILF | BCBSID+23~, BCBSID+46*, BCBSID+47*, BCBSID+48 |
| IBILFID | BCBSID+23~, BCBSID+48*, BCBSID+49 |
| IBILP | BCBSID+23~, BCBSID+40*, BCBSID+41*, BCBSID+42 |
| IBILPID | BCBSID+23~, BCBSID+42*, BCBSID+43 |
| IBSIEN | P2PBASE+1~, P2PBASE+4*, P2PBASE+5, P2PBASE+7 |
| ID | ADDID~, ADDID+6, ADDID+7 |
| IDSTR | BCBSID+23~, BCBSID+30*, BCBSID+43, BCBSID+49, BCBSID+52*, BCBSID+53 |
| IDSTRING | ADDID~, ADDID+6, ADDID+7* |
| IEN | P2PEXP~, P2PEXP+2, P2PEXP+5 |
| INS | PRACID~, PRACID+5!, NNVAID~, NNVAID+5!, INSTID+4~, INSTID+6*, INSTID+8*, INSTID+9 |
| INS( | PRACID+11*, PRACID+12*, NNVAID+11*, NNVAID+12* |
| INSARRAY | INSTID~, INSTID+5! |
| INSARRAY( | INSTID+10* |
| INSCO | BCBSID+23~, BCBSID+28*, BCBSID+29*, BCBSID+31, BCBSID+37, BCBSID+41, BCBSID+47, BCBSID+53, BCBSTR+12~, BCBSTR+14* , BCBSTR+17, BCBSTR+25, BCBSTR+26, BCBSTR+30 |
| INSHPR | BCBSID+23~ |
| INSNAM | BCBSID+23~, BCBSID+37*, BCBSID+53 |
| INSPPR | BCBSID+23~ |
| INSTYP | BCBSID+23~, BCBSID+31*, BCBSID+34 |
| NPIEN | PRACID~, PRACID+6, NNVAID~, NNVAID+6 |
| P | BCBSID+23~, BCBSTR+12~ |
| P2PVAL | P2PBASE+1~, P2PBASE+5*, P2PBASE+6, P2PEXP+1~ |
| PRAC | PRACID+4~, PRACID+7*, PRACID+8*, PRACID+9, NNVAID+4~, NNVAID+7*, NNVAID+8*, NNVAID+9 |
| PRACIEN | BCBSTR~, BCBSTR+14, BCBSTR+20 |
| PRVID | BCBSTR+12~, BCBSTR+20*, BCBSTR+25, BCBSTR+26* |
| S | BCBSID+23~, BCBSID+25*, ADDID+7, BCBSTR+12~, BCBSTR+13*, BCBSTR+26 |
| U | BCBSID+53, INSTID+10, BCBSTR+26, P2PBASE+5, P2PBASE+8, P2PEXP+4, P2PEXP+7, P2PEXP+8, P2PEXP+9, P2PEXP+10 , P2PEXP+11, P2PEXP+12, P2PEXP+13 |
| XUSDEF | P2PBASE+1~, P2PBASE+8*, P2PBASE+9, P2PBASE+10*, P2PBASEX+1 |
| XUSNP2P | P2PBASE+1~, P2PBASE+2*, P2PBASE+3*, P2PBASE+4, P2PBASE+6, P2PBASE+7 |
| XUSPT | P2PEXP~ |
| XUSPT( | P2PEXP+3* |
| XUSPT(1 | P2PEXP+4*, P2PEXP+13 |
| XUSPT(2 | P2PEXP+7*, P2PEXP+13 |
| XUSPT(3 | P2PEXP+8*, P2PEXP+13 |
| XUSPT(4 | P2PEXP+9*, P2PEXP+13 |
| XUSPT(5 | P2PEXP+10*, P2PEXP+11*, P2PEXP+13 |
| XUSPT(6 | P2PEXP+12*, P2PEXP+13 |
| XUSTMP | P2PBASE~ |
| XUSTMP("P2P" | P2PBASE+6*, P2PBASE+7*, P2PBASEX+1* |
| ZN19 | P2PBASE+1~, P2PBASE+5* |