Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BSTSAPI

BSTSAPI.m

Go to the documentation of this file. 
  1. BSTSAPI ;GDIT/HS/BEE-Standard Terminology API Program ; 5 Nov 2012  9:53 AM
  1.  ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62
  1.  ;
  1.  Q
  1.  ;
  1.  ;
  1.  ; See SEARCH^BSTSAPIA for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$SEARCH^BSTSAPIA(OUT,$G(IN))
  1.  ;
  1. CODESETS(OUT,IN) ;PEP - Return list of available code sets
  1.  ;
  1.  ; See CODESETS^BSTSAPIA for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$CODESETS^BSTSAPIA(OUT,$G(IN))
  1.  ;
  1. VERSIONS(OUT,IN) ;PEP - Return a list of available versions for a code set
  1.  ;
  1.  ; See VERSIONS^BSTSAPIA for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$VERSIONS^BSTSAPIA(OUT,$G(IN))
  1.  ;
  1. CVRSN(OUT,IN) ;PEP - Return the Current Version For the Code Set
  1.  ;
  1.  ; See CVRSN^BSTSAPID for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$CVRSN^BSTSAPID(OUT,$G(IN))
  1.  ;
  1. SUBSET(OUT,IN) ;PEP - Return the list of subsets available for a Code Set
  1.  ;
  1.  ; See SUBSET^BSTSAPIA for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$SUBSET^BSTSAPIA(OUT,$G(IN))
  1.  ;
  1. VALTERM(OUT,IN) ;PEP - Returns whether a given term is a valid
  1.  ;
  1.  ; See VALTERM^BSTSAPIB for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$VALTERM^BSTSAPIB(OUT,$G(IN))
  1.  ;
  1. DSCLKP(OUT,IN) ;PEP - Returns detail information for a specified Description Id
  1.  ;
  1.  ; See DSCLKP^BSTSAPIB for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$DSCLKP^BSTSAPIB(OUT,$G(IN))
  1.  ;
  1. DTSLKP(OUT,IN) ;PEP - Returns detail information for a specified DTS Id
  1.  ;
  1.  ; See DTSLKP^BSTSAPIB for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$DTSLKP^BSTSAPIB(OUT,$G(IN))
  1.  ;
  1. CNCLKP(OUT,IN) ;PEP - Returns detail information for a specified Concept Id
  1.  ;
  1.  ; See CNCLKP^BSTSAPIB for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$CNCLKP^BSTSAPIB(OUT,$G(IN))
  1.  ;
  1. ASSOC(IN) ;PEP - Returns the associations for each type (SMD, RxNorm, UNII)
  1.  ;
  1.  ; See ASSOC^BSTSAPIF for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$ASSOC^BSTSAPIF($G(IN))
  1.  ;
  1. DI2RX(IN) ;PEP - Performs a drug ingredient lookup on a specified value
  1.  ;
  1.  ; Returns only the first RxNorm mapping as a function call output
  1.  ; See DI2RX^BSTSAPIF for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$DI2RX^BSTSAPIF($G(IN))
  1.  ;
  1. I10ADV(OUT,IN) ;PEP - Returns Formatted ICD-10 mapping information for a specified Concept Id
  1.  ;
  1.  ; See I10ADV^BSTSAPID for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$I10ADV^BSTSAPID(OUT,$G(IN))
  1.  ;
  1. MPADVICE(OUT,IN) ;PEP - Returns ICD-10 mapping information for a specified Concept Id
  1.  ;
  1.  ; See MPADVICE^BSTSAPIC for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$MPADVICE^BSTSAPIC(OUT,$G(IN))
  1.  ;
  1. SUBLST(OUT,IN) ;PEP - Returns a list of concepts in a specified subset
  1.  ;
  1.  ; See SUBLST^BSTSAPIC for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$SUBLST^BSTSAPIC(OUT,$G(IN))
  1.  ;
  1. VALSBTRM(OUT,IN) ;PEP - Returns whether a given term is in a particular subset
  1.  ;
  1.  ; See VALSBTRM^BSTSAPIB for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$VALSBTRM^BSTSAPIB(OUT,IN)
  1.  ;
  1. ICD2SMD(OUT,IN) ;PEP - Returns the SNOMED terms which map to a given ICD9 code
  1.  ;
  1.  ; See ICD2SMD^BSTSAPID for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  Q $$ICD2SMD^BSTSAPID(OUT,IN)
  1.  ;
  1. DILKP(OUT,IN) ;PEP - Performs a drug ingredient lookup on a specified value
  1.  ;
  1.  ; See DILKP^BSTSAPIF for a detailed description of the input parameters
  1.  ; and the output format.
  1.  Q $$DILKP^BSTSAPIF(OUT,IN)
  1.  ;
  1.  ;BSTS*1.0*7;Added EQUIV API Call
  1. EQUIV(OUT,IN) ;PEP - Returns equivalent laterality concepts
  1.  ;
  1.  ; See EQUIV^BSTSAPIF for a detailed description of the input parameters
  1.  ; and the output format.
  1.  D EQUIV^BSTSAPIF(.OUT,IN)
  1.  ;
  1. VSBTRMF(IN) ;PEP - Function Call: Returns whether a given term is in a particular subset
  1.  ;
  1.  ;Input
  1.  ; OUT - Output variable/global to return information in (VAR)
  1.  ;  IN - P1 - Description Id of term to check
  1.  ;     - P2 - The subset to look in
  1.  ;     - P3 (Optional) - The code set Id (default SNOMED '36')
  1.  ;     - P4 (Optional) - LOCAL - Pass 1 or blank to perform local listing,
  1.  ;                       Pass 2 for remote DTS listing
  1.  ;     - P5 (Optional) - DEBUG - Pass 1 to display debug information
  1.  ;
  1.  ;Output
  1.  ;
  1.  ; VAR = 1:Term is in the provided subset
  1.  ;       0:Term is not in the provided subset
  1.  ;
  1.  NEW FOUT,STS,%D
  1.  ;
  1.  S STS=$$VALSBTRM^BSTSAPIB("FOUT",IN)
  1.  Q FOUT
  1.  ;
  1. DESC(IN) ;PEP - Function Call: Returns detail information for a specified Description Id
  1.  ;
  1.  ;Input
  1.  ; OUT - Output variable/global to return information in (VAR)
  1.  ;  IN - P1 - The Description Id to look up
  1.  ;     - P2 (Optional) - The code set Id (default SNOMED '36')
  1.  ;     - P3 (Optional) - LOCAL - Pass 1 or blank to perform local listing,
  1.  ;                       Pass 2 for remote DTS listing
  1.  ;     - P4 (Optional) - DEBUG - Pass 1 to display debug information
  1.  ;     - P5 (Optional) - Snapshot Date to check (default DT)
  1.  ;     - P6 (Optional) - Mapping Parameters - Ex. EPI=288527008;VST=2087394;AF=With;PRB=50239
  1.  ;
  1.  ;Output
  1.  ; Function returns - [1]^[2]^[3]
  1.  ; [1] - Concept Id
  1.  ; [2] - Term Description
  1.  ; [3] - Mapped ICD Values (based on P5 Snapshot Date)
  1.  ; [4] - Mapped ICD9 Values
  1.  ; [5] - Prompt for Abnormal/Normal Findings (1-Yes,0-No)
  1.  ; [6] - Prompt for Laterality (1-Yes,0-No)
  1.  ; [7] - Default status (Chronic, Personal History, Sub-acute, Admin, Social)
  1.  ; [8] - Prompt for Healing (RDNM, RDN, RD)
  1.  ; [9] - List of healing choices to display (ex. 717128007|NL Union;28087009|Delayed)
  1.  ;
  1.  Q $$DESC^BSTSAPIA($G(IN))
  1.  ;
  1. CONC(IN) ;PEP - Returns detail information for a specified Concept Id
  1.  ;
  1.  ;Input
  1.  ; OUT - Output variable/global to return information in (VAR)
  1.  ;  IN - P1 - The Concept Id to look up
  1.  ;     - P2 (Optional) - The code set Id (default SNOMED '36')
  1.  ;     - P3 (Optional) - Snapshot Date to check (default DT)
  1.  ;     - P4 (Optional) - LOCAL - Pass 1 or blank to perform local listing,
  1.  ;                       Pass 2 for remote DTS listing
  1.  ;     - P5 (Optional) - DEBUG - Pass 1 to display debug information
  1.  ;     - P6 (Optional) - Mapping Parameters - Ex. EPI=288527008;VST=2087394;AF=With;PRB=50239
  1.  ;
  1.  ;Output
  1.  ; Function returns - [1]^[2]^[3]^[4]^[5]^[6]^[7]^[8]^[9]^[10]^[11]
  1.  ; [1] - Description Id of Fully Specified Name
  1.  ; [2] - Fully Specified Name
  1.  ; [3] - Description Id of Preferred Term
  1.  ; [4] - Preferred Term
  1.  ; [5] - Mapped ICD Values (based on P3 Snapshot Date)
  1.  ; [6] - Mapped ICD9 Values
  1.  ; [7] - Prompt for Abnormal/Normal Findings (1-Yes,0-No)
  1.  ; [8] - Prompt for Laterality (1-Yes,0-No)
  1.  ; [9] - Default status (Chronic, Personal History, Sub-acute, Admin, Social)
  1.  ; [10] - Prompt for Healing (RDNM, RDN, RD)
  1.  ; [11] - List of healing choices to display (ex. 717128007|NL Union;28087009|Delayed)
  1.  ;
  1.  Q $$CONC^BSTSAPIA($G(IN))
  1.  ;
  1. RCONC(CONC,NMID,BSTSRET) ;PEP - Return replacement concept(s) for a concept
  1.  ;
  1.  ; See RCONC^BSTSRPT for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  D RCONC^BSTSRPT($G(CONC),$G(NMID),.BSTSRET)
  1.  Q
  1.  ;
  1. RTERM(DESCID,NMID,BSTSRET) ;PEP - Return replacement term(s) for a term
  1.  ;
  1.  ; See RTERM^BSTSRPT for a detailed description of the input parameters
  1.  ; and the output format.
  1.  ;
  1.  D RTERM^BSTSRPT($G(DESCID),$G(NMID),.BSTSRET)
  1.  Q