©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
ABSPOS9 ; IHS/FCS/DRS - NDC # lookup, formatting ;
Source file <ABSPOS9.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NDCTEST1(NDC) | ; given NDC
|
|
| NDC11(N) | ;EP - given N?11N
|
|
| NAME(X) | ;EP - return drug name as stored in ^APSAMDF
|
|
| NDCTEST0 | ;
|
|
| FORMTNDC(N) | ;EP - given N?11N, lookup format and put "-" in right places
|
|
| NDCTEST | ;
|
|
| MAKE11N(X) | ;EP - given NDC code with "-", convert to ?11N
; it may involve putting an extra 0 in the right place |
|
| FMTNDC(N,A,B,C) | ||
| FINDNDC(N,F) | ||
| NDC10(N) | ;EP - given N?10N, find format and format it
|
| Name | Field # of Occurrence |
|---|---|
| IMPOSS^ABSPOSUE | NDCTEST0+2, NDCTEST1+10 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^APSAMDF - [#9009037] | NAME+5, FINDNDC+5, FORMTNDC+3, NDCTEST0+3, NDCTEST1+5 |
| ^APSAMDF("B" | NAME+4, FINDNDC+3, NDCTEST+3 |
| ^PSDRUG - [#50] | NAME+8 |
| ^PSDRUG("ZNDC" | NAME+7 |
| Name | Line Occurrences |
|---|---|
| $$FINDNDC | NDC11+1, NDC10+2, NDC10+5, NDC10+8, FORMTNDC+2, NDCTEST0+1, NDCTEST1+3, NDCTEST1+12, NDCTEST1+13, NDCTEST1+14 |
| $$FMTNDC | NDC11+2, NDC10+3, NDC10+6, NDC10+9, FORMTNDC+5, FORMTNDC+7, FORMTNDC+9, FORMTNDC+11, NDCTEST1+6, NDCTEST1+17 , NDCTEST1+18, NDCTEST1+19 |
| $$MAKE11N | NAME+1 |
| NDCTEST0 | NDCTEST+3 |
| NDCTEST1 | NDCTEST0+5, NDCTEST0+6, NDCTEST0+7, NDCTEST0+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | FMTNDC~, FMTNDC+1 |
| B | FMTNDC~, FMTNDC+1 |
| C | FMTNDC~, FMTNDC+1 |
| F | FINDNDC~, FINDNDC+4, FINDNDC+5, FORMTNDC+2~, FORMTNDC+3*, FORMTNDC+5, FORMTNDC+7, FORMTNDC+9, NDCTEST0+3~*, NDCTEST0+4 , NDCTEST1+1~, NDCTEST1+5~*, NDCTEST1+6 |
| >> I | NDCTEST+3* |
| M | NDC10+1~, NDC10+2*, NDC10+4*, NDC10+5, NDC10+7*, NDC10+8 |
| N | NDC11~, NDC11+1, NDC11+2, NDC10~, NDC10+2, NDC10+3, NDC10+4, NDC10+6, NDC10+7, NDC10+9 , FMTNDC~, FMTNDC+1, FINDNDC~, FINDNDC+3, FORMTNDC~, FORMTNDC+1*, FORMTNDC+2, FORMTNDC+3, FORMTNDC+5, FORMTNDC+7 , FORMTNDC+9, FORMTNDC+11 |
| NDC | NDCTEST+3*, NDCTEST0+1, NDCTEST0+5, NDCTEST0+6, NDCTEST0+7, NDCTEST0+8, NDCTEST1~, NDCTEST1+2, NDCTEST1+3, NDCTEST1+6 , NDCTEST1+7, NDCTEST1+8, NDCTEST1+9, NDCTEST1+10, NDCTEST1+12, NDCTEST1+13, NDCTEST1+14, NDCTEST1+15, NDCTEST1+16, NDCTEST1+17 , NDCTEST1+18, NDCTEST1+19 |
| >> OUTPUT | NDCTEST+2*, NDCTEST0+6, NDCTEST0+7, NDCTEST0+8, NDCTEST1+6, NDCTEST1+8, NDCTEST1+17, NDCTEST1+18, NDCTEST1+19 |
| U | NAME+5, NAME+8, FINDNDC+5, FORMTNDC+3 |
| X | NDC10+1~, NDC10+2*, NDC10+3, NDC10+5*, NDC10+6, NDC10+8*, NDC10+9, MAKE11N~, MAKE11N+2, MAKE11N+3* , MAKE11N+4*, MAKE11N+5*, MAKE11N+6, NAME~, NAME+1, NAME+2, NAME+7, NAME+9, FINDNDC+3~*, FINDNDC+4 , FINDNDC+5, FINDNDC+6, FORMTNDC+2~*, FORMTNDC+3, FORMTNDC+5, FORMTNDC+7, FORMTNDC+9, NDCTEST0+1~*, NDCTEST0+3, NDCTEST1+1~ , NDCTEST1+3*, NDCTEST1+4, NDCTEST1+5, NDCTEST1+12*, NDCTEST1+15, NDCTEST1+16, NDCTEST1+17 |
| Y | NDC10+1~, NAME+1~*, NAME+2*, NAME+3, NAME+4, NDCTEST1+11~, NDCTEST1+13*, NDCTEST1+15, NDCTEST1+16, NDCTEST1+18 |
| Z | NDC10+1~, NAME+4~*, NAME+5, NAME+7*, NAME+8, NDCTEST1+11~, NDCTEST1+14*, NDCTEST1+15, NDCTEST1+16, NDCTEST1+19 |
| Name | Field # of Occurrence |
|---|---|
| $T( | NDCTEST0+2, NDCTEST1+10 |