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