ETSRXN1 ;O-OIFO/FM23 - RxNorm APIs 2 ;03/06/2017
Source file <ETSRXN1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VUI2RXN(ETSVUID,ETSTTY,ETSSUB) | ;Extract RxNorm Concept Numbers and other data for a given VA Unique ID
; Input -- ETSVUID VA Unique ID (VUID) (Required) ; ETSTTY Term Type Lookup (Optional) ; ETSSUB (Optional) Subscript for ^TMP array storing the results (default = ETSRXN) ; Output -- ; $$VUI2RXN - # records found or -1^<error message> ; ; ^TMP(ETSSUB,$J,RXCUI Count, Results in the following subscripts: ; 0) = IEN^RXCUI (#.01)^Source (SAB) (#.02)^Term_Type (TTY) (#.03)^Code (#.04)^Suppression_Flag (SUPPRESS) (#.05) ; 1) = Text (STR) (#1) |
|
| VUIDATA | ;Store data
|
|
| NDC2RXN(ETSNDC,ETSSUB) | ;Extract RxNorm Simple Concept Numbers and other data for a given National Drug Code
; Input -- ETSNDC National Drug Code (NDC) (Required) ; ETSSUB (Optional) Subscript for ^TMP array storing the results (default = ETSNDC) ; Output -- ; $$NDC2RXN - # records found or -1^<error message> ; ; ^TMP(ETSSUB,$J,RXCUI Count,0) = IEN^RXCUI (#.01)^Source (SAB) (#.02)^Suppression_Flag (SUPPRESS) (#.03) |
|
| NDCDATA | ||
| RXN2OUT(ETSRXCUI,ETSSUB) | ;Extract VUID and NDC for a given RxNorm Concept Unique ID (RXCUI)
; Input -- ETSRXCUI RxNorm Concept Unique ID (RXCUI) (Required) ; ETSSUB (Optional) Subscript for ^TMP array storing the results (default = ETSOUT) ; Output -- ; $$RXN2OUT - # VUIDs^# NDCs found or -1^<error message> ; ; ^TMP(ETSSUB,$J,RXCUI, Results in the following subscripts: ; "VUID") = Count ; "VUID",VUID Count,0) = IEN^RXCUI (129.2,#.01)^Source (SAB) (#.02)^Term_Type (TTY) (#.03)^Code (#.04)^Suppression_Flag (SUPPRESS) (#.05) ; 1) = Text (STR) (#1) ; "NDC") = Count ; "NDC",NDC Count,0) = IEN^RXCUI (129.21,#.01)^Code (#.05)^Source (SAB) (#.02)^Suppression_Flag (SUPPRESS) (#.03) ; "NDC",NDC Count,1) = Attribute Name (ATN) (129.21,#1) ; "NDC",NDC Count,2) = Attribute Value (ATV) (129.21,#2) |
|
| GETDATA(ETSRXCUI,ETSSUB) | ;Extract all data related to a given RxNorm Concept Unique ID (RXCUI)
; Input -- ETSRXCUI RxNorm Concept Unique ID (RXCUI) (Required) ; ETSSUB (Optional) Subscript for ^TMP array storing the results (default = ETSDATA) ; Output -- ; $$RXN2OUT - 1 if records found; 0 if no records found; or -1^<error message> ; ; ^TMP(ETSSUB,$J,RXCUI, Results in the following subscripts: ; "RXCONSO") = RXNORM CONCEPTS NAMES AND SOURCES (File #129.2) Count ; "RXCONSO",RXCONSO Count,0) = IEN^RXCUI (#.01)^Source (SAB) (#.02)^Term_Type (TTY) (#.03)^Code (#.04)^Suppression_Flag (SUPPRESS) (#.05)^Content_View_Flag (CVF) (#.06) ; 1) = Text (STR) (#1) |
| FileNo | Call Tags |
|---|---|
| ^ETSRXN(129.2 - [#129.2] | GET1^DIQ, GETS^DIQ |
| ^ETSRXN(129.21 - [#129.21] | GET1^DIQ, GETS^DIQ |
| ^ETSRXN(129.22 - [#129.22] | GETS^DIQ |
| ^ETSRXN(129.23 - [#129.23] | GETS^DIQ |
