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

BSTSCMCL.m

Go to the documentation of this file. 
  1. BSTSCMCL ;GDIT/HS/BEE-Standard Terminology Cache Method Calls ; 5 Nov 2012  9:53 AM
  1.  ;;2.0;IHS STANDARD TERMINOLOGY;**1**;Dec 01, 2016;Build 36
  1.  ;
  1.  Q
  1.  ;
  1.  ;BSTS*2.0*1;Added Log History Retrieval
  1. LHIST(BSTSWS,RSLT) ;EP - Retrieve the log history
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).LogHistory(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ELOG",STS) I +STS Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1.  ;BSTS*2.0*1;Added Search String Retrieval
  1. SRCNT(BSTSWS,RSLT) ;EP - Retrieve the search logs
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).SearchCounts(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ELOG",STS) I +STS Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1.  ;BSTS*2.0*1;Added event logging
  1. ELOG(BSTSWS,RSLT) ;EP - Log an event to DTS
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).LogEntry(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ELOG",STS) I +STS Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. RCODE(BSTSWS,RSLT) ;EP - DTS4 Return all concepts that are in RxNorm subsets (not including RXNO SRCH Drug Ingredients All)
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getAllRxNormSubsetConcepts(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("SCODE",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. SCODE(BSTSWS,RSLT) ;EP - DTS4 Return all concepts that are in a subset (not including IHS PROBLEM ALL SNOMED)
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getAllSubsetConcepts(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("SCODE",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. ACODE(BSTSWS,RSLT) ;EP - DTS4 Return items that have an ICD10 auto-codable value
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getICD10AutoCodes(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ACODE",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. ACODEQ(BSTSWS,RSLT) ;EP - DTS4 Return items that have equivalent associations
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getEquivalencyConcepts(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ACODEDQ",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. ACODEP(BSTSWS,RSLT) ;EP - DTS4 Return items that have ICD10 auto-codable predicates
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getICD10AutoCodePreds(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ACODEP",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. A9CODE(BSTSWS,RSLT) ;EP - DTS4 Return items that have an ICD10 auto-codable value
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getICD9AutoCodes(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("A9CODE",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. CSTMCDST(BSTSWS,RSLT) ;EP - DTS4 Return items in a custom codeset
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getCustomCodeset(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("CSTMCDST",STS) I +STS Q
  1.  ;
  1.  ;Note - no check for exceeding call timeout since this call
  1.  ;       will take longer to complete
  1.  Q STS
  1.  ;
  1. FSNSRCH(BSTSWS,RSLT) ;EP - DTS4 Fully Specified Name Search
  1.  ;
  1.  ;Perform Concept Search
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).FindConceptsWithNameMatching(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("FSNSRCH",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. CONSRCH(BSTSWS,RSLT) ;EP - DTS4 Concept Search
  1.  ;
  1.  ;Perform Concept Search
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).executeConceptTextSearch(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("CONSRCH",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. DSCSRCH(BSTSWS,RSLT) ;EP - DTS4 Description Id Search
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).findDescWithIdMatch(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("DSCSRCH",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. TRMSRCH(BSTSWS,RSLT) ;EP - DTS4 Term Search
  1.  ;
  1.  ;Perform Concept Search
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).FullTextSearch(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("TRMSRCH",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. SUBLST(BSTSWS,RSLT) ;EP - DTS4 Retrieve Subset List
  1.  ;
  1.  ;Retrieve list of concepts in a specified subset
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getSubsetList(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("SUBLST",STS) I +STS Q
  1.  ;
  1.  ;Note - do not perform time check - this could be a longer running call
  1.  ;
  1.  Q STS
  1.  ;
  1. ICD2SMD(BSTSWS,RSLT) ;EP - DTS4 Retrieve ICD9 to SNOMED mappings
  1.  ;
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getICD9toSNOMED(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("ICD2SMD",STS) I +STS Q
  1.  ;
  1.  ;Note - do not perform time check - this could be a longer running call
  1.  ;
  1.  Q STS
  1.  ;
  1. CNCSR(BSTSWS,RSLT) ;EP - DTS4 Lookup on Concept Id
  1.  ;
  1.  ;Perform Concept Id Search
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).findConceptsWithPropMatch(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("CNCSR",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. DETAIL(BSTSWS,RSLT) ;EP - DTS4 Retrieve Concept Detail
  1.  ;
  1.  ;Place call to retrieve detail for a concept
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).GetConceptDetail(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("DETAIL",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. FDESC(BSTSWS) ;EP - DTS4 Retrieve FSN Description Id
  1.  ;
  1.  NEW RSLT,STS,EXEC,TRY
  1.  ;
  1.  ;Place call to retrieve the description id for a FSN
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).findTermsByName(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("FDESC",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. GCDSDTS4(BSTSWS,RESULT) ;EP - DTS4 update codesets
  1.  ;
  1.  ;Place call to retrieve codesets (namespaces)
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).GetNamespaces(.BSTSWS,.RESULT)" X EXEC D:'+STS ER("GCDSDTS4",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. GVRDTS4(BSTSWS) ;EP - DTS4 update versions
  1.  ;
  1.  ;Place call to retrieve versions
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).GetVersions(.BSTSWS)" X EXEC D:'+STS ER("GVRDTS4",STS) I +STS Q
  1.  ;
  1.  ;Note - do not perform server status check because the check
  1.  ;       uses this call
  1.  ;
  1.  Q STS
  1.  ;
  1. PTYDTS4(BSTSWS,RSLT) ;EP - DTS4 Perform Property Search
  1.  ;
  1.  ;Search based on property value
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).propertyLookup(.BSTSWS,.RSLT)" X EXEC D:'+STS ER("PTYDTS4",STS) I +STS!($P(STS,U,3)>$G(BSTSWS("TIMEOUT"))) Q
  1.  ;
  1.  ;Check server status
  1.  D SWLCL^BSTSWSV1(.BSTSWS,.STS)
  1.  ;
  1.  Q STS
  1.  ;
  1. SUBSET(BSTSWS,RESULT) ;EP - DTS4 get subset list
  1.  ;
  1.  ;Place call to retrieve list of subsets
  1.  NEW STS,EXEC,TRY
  1.  F TRY=1:1:+$G(BSTSWS("RETRY")) S STS="",EXEC="S STS=##class(BSTS.SOAP.WebFunctions).getListofSubsets(.BSTSWS,.RESULT)" X EXEC D:'+STS ER("SUBSET",STS) I +STS Q
  1.  ;
  1.  ;Note - do not perform time check - this could be a longer running call
  1.  ;
  1.  Q STS
  1.  ;
  1. ER(TAG,ER) ;Error Handling
  1.  ;
  1.  D ELOG^BSTSVOFL(TAG_"~BSTSCMCL: "_ER)
  1.  ;
  1.  Q