- BSTSWSV ;GDIT/HS/BEE-Standard Terminology Web Service Handling ; 5 Nov 2012 9:53 AM
- ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62
- ;
- Q
- ;
- SEARCH(OUT,IN,DEBUG) ;EP - Perform a Web Service Search
- ;
- ;Input
- ;OUT-Output variable/global to ret data in (VAR)
- ;IN Array-List of search parms
- ;DEBUG-1:DEBUG mode
- ;
- ;Output
- ;Function returns - [1]^[2]^[3]
- ;[1]-1:Successful remote call
- ; 0:Unsuccessful remote call
- ;[2]-Primary Remote Error Message
- ;[3]-Secondary Remote Error Message (if applicable)
- ;
- ;VAR(#)-[1]^[2]^[3]
- ;[1]-Concept ID
- ;[2]-DTS ID
- ;[3]-Description ID
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get server list
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . S CSTS=$$SEARCH^BSTSDTS2(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status var
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- CNCSR(OUT,IN,DEBUG) ;EP - Perform Web Service Concept Id Search
- ;
- ;Input
- ;OUT-Output variable/global to return information in (VAR)
- ;IN Array-List of search parameters
- ;DEBUG-1:DEBUG mode
- ;
- ;Output
- ;Function returns - [1]^[2]^[3]
- ;[1]-1:Successful remote call
- ; 0:Unsuccessful remote call
- ;[2]-Primary Remote Error Message
- ;[3]-Secondary Remote Error Message (if applicable)
- ;
- ;VAR(#)-[1]^[2]^[3]
- ;[1]-Concept ID
- ;[2]-DTS ID
- ;[3]-Description ID
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$CNCSR^BSTSDTS0(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status var
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- ICD2SMD(OUT,IN,DEBUG) ;EP - Perform Web Service ICD9 to SNOMED mapping retrieval
- ;
- ;Input
- ;OUT-Output variable/global to return information in (VAR)
- ;IN Array-List of search parameters
- ;DEBUG - 1:DEBUG mode
- ;
- ;Output
- ;Function returns-[1]^[2]^[3]
- ;[1]-1:Successful remote call
- ; 0:Unsuccessful remote call
- ;[2]-Primary Remote Error Message
- ;[3]-Secondary Remote Error Message (if applicable)
- ;
- ;VAR(#)-[1]^[2]^[3]
- ;[1]-Concept ID
- ;[2]-DTS ID
- ;[3]-Description ID
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get server list
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$ICD2SMD^BSTSDTS2(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status var
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- DSCLKP(OUT,IN,DEBUG) ;EP - Perform a Web Service Description Id Search
- ;
- ;Input
- ;OUT-Output variable/global to return information in (VAR)
- ;IN Array-List of search parameters
- ;DEBUG-1:DEBUG mode
- ;
- ;Output
- ;Function returns - [1]^[2]^[3]
- ;[1]-1:Successful remote call
- ; 0:Unsuccessful remote call
- ;[2]-Primary Remote Error Message
- ;[3]-Secondary Remote Error Message (if applicable)
- ;
- ;VAR(#)-[1]^[2]^[3]
- ;[1]-Concept ID
- ;[2]-DTS ID
- ;[3]-Description ID
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get server list
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$DSCSRCH^BSTSDTS2(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status var
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- SUBLST(DLIST,IN,DEBUG) ;EP - Perform a Web Service Subset Listing
- ;
- ;Input
- ; OUT - Output variable/global to return information in (VAR)
- ; IN Array - List of search parameters
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- ; VAR(#) - [1]
- ; [1] - DTSId
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$SUBLST^BSTSDTS2(DLIST,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times (needs completed)
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status variable
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- DTSSR(OUT,IN,DEBUG) ;EP - Perform a Web Service DTS Id Lookup
- ;
- ;Input
- ; OUT - Output variable/global to return information in (VAR)
- ; IN Array - List of search parameters
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- ; VAR(#) - [1]^[2]^[3]
- ; [1] - Concept ID
- ; [2] - DTS ID
- ; [3] - Description ID
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found"
- I $D(BSTSSRV)>1 S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=IN
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$DTSSR^BSTSDTS1(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times (needs completed)
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status variable
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- GCDSET(DEBUG) ;EP - Poll server(s) for codeset information
- ;
- ;Input
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$GCDSDTS4^BSTSDTS0(.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times (needs completed)
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status variable
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- GVRSET(NMID,DEBUG) ;EP - Poll server(s) for codeset information
- ;
- ;Input
- ; NMID - Namespace ID
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . S BSTSWS("NAMESPACEID")=NMID
- . ;
- . ;Note - do not check for working DTS since this call is used by
- . ;the underlying $$CKDTS^BSTSWSV1 call. This would cause an endless loop
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$GVRDTS4^BSTSDTS0(.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times (needs completed)
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status variable
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- SUBSET(OUT,NMID,DEBUG) ;EP - Poll server(s) for subset information
- ;
- ;Input
- ; NMID - Namespace ID
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- N BSTSSRV,PRI,STS,II
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- ;Get list of servers
- S STS=$$WSERVER(.BSTSSRV,DEBUG)
- ;
- ;Loop through list and make each call
- S STS=0,PRI="" F II=2:1 S PRI=$O(BSTSSRV(PRI)) Q:PRI="" D Q:+STS
- . ;
- . N BSTSWS,TYPE,TIME,CSTS
- . M BSTSWS=BSTSSRV(PRI)
- . S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- . S BSTSWS("NAMESPACEID")=NMID
- . ;
- . ;Check if DTS server is set to local
- . S STS=$$CKDTS^BSTSWSV1(.BSTSWS) I '+STS Q
- . ;
- . ;Call DTS
- . I TYPE="D" S CSTS=$$SUBSET^BSTSDTS2(OUT,.BSTSWS)
- . I $G(BSTSWS("DEBUG")) W !!,"DTS: ",CSTS,!
- . ;
- . ;Log call times (needs completed)
- . S TIME=$P(CSTS,U,3)
- . ;
- . ;Define status variable
- . S $P(STS,U)=+CSTS
- . I II<4 S $P(STS,U,II)=$P(CSTS,U,2)
- ;
- Q STS
- ;
- TEST(OUT,IN,DEBUG) ;EP - Perform a Test Web Service Search
- ;
- ;Input
- ; OUT - Output variable/global to return information in (VAR)
- ; IN Array - List of search parameters
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function returns - [1]^[2]^[3]
- ; [1] - 1:Successful remote call
- ; 0:Unsuccessful remote call
- ; [2] - Primary Remote Error Message
- ; [3] - Secondary Remote Error Message (if applicable)
- ;
- ; VAR(#) - [1]^[2]^[3]
- ; [1] - Concept ID
- ; [2] - DTS ID
- ; [3] - Description ID
- ;
- N BSTSSRV,PRI,STS,II,BSTSWS,TYPE,TIME,CSTS
- ;
- ;Define DEBUG
- S DEBUG=$G(DEBUG,"")
- ;
- M BSTSWS=IN
- ;
- ;Retrieve Web Service Information
- S STS=$$GETWSV(BSTSWS("SERVICE"),.BSTSSRV,DEBUG)
- ;
- ;Make sure service was found
- I $D(BSTSSRV)<10 S STS="0^No Active Server Found" Q 0
- ;
- M BSTSWS=BSTSSRV(1)
- S TYPE=$G(BSTSWS("TYPE")),CSTS=""
- ;
- ;Call DTS
- I TYPE="D" S CSTS=$$TSRCH^BSTSDTS1(OUT,.BSTSWS)
- ;
- Q CSTS
- ;
- WSERVER(BSTSSRV,DEBUG) ;P - Retrieve array of Web Server Information
- ;
- ;Input
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function - 0:No Data Returned, 1:Data Returned
- ; BSTSSRV - Array of web service connection information
- ;
- ;Quit if install is running
- L +^TMP("BSTSINSTALL"):1 E Q 0
- L -^TMP("BSTSINSTALL")
- ;
- N NMIEN
- ;
- ;Loop through servers until successful call
- S NMIEN=0 F S NMIEN=$O(^BSTS(9002318,NMIEN)) Q:'NMIEN D
- . N PRI
- . S PRI="" F S PRI=$O(^BSTS(9002318,NMIEN,1,"C",PRI)) Q:'PRI D
- .. N IEN
- .. S IEN="" F S IEN=$O(^BSTS(9002318,NMIEN,1,"C",PRI,IEN)) Q:'IEN D
- ... N WSIEN,STS,DA,IENS
- ... ;
- ... ;Pull Web Service IEN
- ... S DA(1)=NMIEN,DA=IEN,IENS=$$IENS^DILF(.DA)
- ... S WSIEN=$$GET1^DIQ(9002318.01,IENS,".01","I") Q:WSIEN=""
- ... ;
- ... ;Retrieve Web Service Information
- ... S STS=$$GETWSV(WSIEN,.BSTSSRV,DEBUG)
- ;
- Q $S($O(BSTSSRV(""))]"":"1",1:"0")
- ;
- GETWSV(WSIEN,BSTSSRV,DEBUG) ;EP - Retrieve Single Web Service Connection Info
- ;
- ;Input
- ; WSIEN - Pointer to 9002318.2
- ; DEBUG - 1:DEBUG mode
- ;
- ;Output
- ; Function - 0:No Data Returned, 1:Data Returned
- ; BSTSSRV - Array of web service connection information
- ;
- N DA,IENS,URLRT,PORT,TYPE,TIME,USER,PASS,II,SPATH,IADT,SSL,CTIME,MSTM,RETRY,MFAIL,FWAIT
- ;
- ;Pull Server information
- S IADT=$$GET1^DIQ(9002318.2,WSIEN_",",".1","I")
- I IADT]"",IADT<DT Q 0
- S URLRT=$$GET1^DIQ(9002318.2,WSIEN_",",".02","E")
- S PORT=$$GET1^DIQ(9002318.2,WSIEN_",",".03","E")
- S TYPE=$$GET1^DIQ(9002318.2,WSIEN_",",".04","I")
- S TIME=$$GET1^DIQ(9002318.2,WSIEN_",",".05","I")
- S USER=$$GET1^DIQ(9002318.2,WSIEN_",",".07","E")
- S PASS=$$GET1^DIQ(9002318.2,WSIEN_",",".08","E")
- S IADT=$$GET1^DIQ(9002318.2,WSIEN_",",".1","I")
- S SPATH=$$GET1^DIQ(9002318.2,WSIEN_",",".11","E")
- S SSL=$$GET1^DIQ(9002318.2,WSIEN_",","2.01","E")
- S RETRY=$$GET1^DIQ(9002318.2,WSIEN_",","4.01","E") S:RETRY="" RETRY=1
- S RETRY=RETRY+1
- S CTIME=$$GET1^DIQ(9002318.2,WSIEN_",",".12","I") S:CTIME="" CTIME=2
- S MSTM=$$GET1^DIQ(9002318.2,WSIEN_",",.15,"I") S:MSTM="" MSTM=60
- S MFAIL=$$GET1^DIQ(9002318.2,WSIEN_",","4.02","E") S:MFAIL="" MFAIL=10
- S FWAIT=$$GET1^DIQ(9002318.2,WSIEN_",","4.03","E") S:FWAIT="" FWAIT=7200
- S II=$O(BSTSSRV(""),-1)+1
- S BSTSSRV(II,"URLROOT")=URLRT
- S BSTSSRV(II,"PORT")=PORT
- S BSTSSRV(II,"TYPE")=TYPE
- S BSTSSRV(II,"USER")=USER
- S BSTSSRV(II,"PASS")=PASS
- S BSTSSRV(II,"TIMEOUT")=TIME
- S BSTSSRV(II,"DEBUG")=DEBUG
- S BSTSSRV(II,"SERVICEPATH")=SPATH
- S BSTSSRV(II,"SSL")=SSL
- S BSTSSRV(II,"CTIME")=CTIME
- S BSTSSRV(II,"IEN")=WSIEN
- S BSTSSRV(II,"MSTM")=MSTM
- S BSTSSRV(II,"RETRY")=RETRY
- S BSTSSRV(II,"MFAIL")=MFAIL
- S BSTSSRV(II,"FWAIT")=FWAIT
- ;
- Q 1
- BSTSWSV ;GDIT/HS/BEE-Standard Terminology Web Service Handling ; 5 Nov 2012 9:53 AM
- +1 ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62
- +2 ;
- +3 QUIT
- +4 ;
- SEARCH(OUT,IN,DEBUG) ;EP - Perform a Web Service Search
- +1 ;
- +2 ;Input
- +3 ;OUT-Output variable/global to ret data in (VAR)
- +4 ;IN Array-List of search parms
- +5 ;DEBUG-1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ;Function returns - [1]^[2]^[3]
- +9 ;[1]-1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ;[2]-Primary Remote Error Message
- +12 ;[3]-Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ;VAR(#)-[1]^[2]^[3]
- +15 ;[1]-Concept ID
- +16 ;[2]-DTS ID
- +17 ;[3]-Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 ;Get server list
- +25 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +26 ;
- +27 ;Loop through list and make each call
- +28 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +29 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +30 ;
- +31 NEW BSTSWS,TYPE,TIME,CSTS
- +32 MERGE BSTSWS=IN
- +33 MERGE BSTSWS=BSTSSRV(PRI)
- +34 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +35 ;
- +36 ;Check if DTS server is set to local
- +37 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +38 ;
- +39 ;Call DTS
- +40 SET CSTS=$$SEARCH^BSTSDTS2(OUT,.BSTSWS)
- +41 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +42 ;
- +43 ;Log call times
- +44 SET TIME=$PIECE(CSTS,U,3)
- +45 ;
- +46 ;Define status var
- +47 SET $PIECE(STS,U)=+CSTS
- +48 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +49 ;
- +50 QUIT STS
- +51 ;
- CNCSR(OUT,IN,DEBUG) ;EP - Perform Web Service Concept Id Search
- +1 ;
- +2 ;Input
- +3 ;OUT-Output variable/global to return information in (VAR)
- +4 ;IN Array-List of search parameters
- +5 ;DEBUG-1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ;Function returns - [1]^[2]^[3]
- +9 ;[1]-1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ;[2]-Primary Remote Error Message
- +12 ;[3]-Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ;VAR(#)-[1]^[2]^[3]
- +15 ;[1]-Concept ID
- +16 ;[2]-DTS ID
- +17 ;[3]-Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 ;Get list of servers
- +25 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +26 ;
- +27 ;Loop through list and make each call
- +28 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +29 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +30 ;
- +31 NEW BSTSWS,TYPE,TIME,CSTS
- +32 MERGE BSTSWS=IN
- +33 MERGE BSTSWS=BSTSSRV(PRI)
- +34 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +35 ;
- +36 ;Check if DTS server is set to local
- +37 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +38 ;
- +39 ;Call DTS
- +40 IF TYPE="D"
- SET CSTS=$$CNCSR^BSTSDTS0(OUT,.BSTSWS)
- +41 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +42 ;
- +43 ;Log call times
- +44 SET TIME=$PIECE(CSTS,U,3)
- +45 ;
- +46 ;Define status var
- +47 SET $PIECE(STS,U)=+CSTS
- +48 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +49 ;
- +50 QUIT STS
- +51 ;
- ICD2SMD(OUT,IN,DEBUG) ;EP - Perform Web Service ICD9 to SNOMED mapping retrieval
- +1 ;
- +2 ;Input
- +3 ;OUT-Output variable/global to return information in (VAR)
- +4 ;IN Array-List of search parameters
- +5 ;DEBUG - 1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ;Function returns-[1]^[2]^[3]
- +9 ;[1]-1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ;[2]-Primary Remote Error Message
- +12 ;[3]-Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ;VAR(#)-[1]^[2]^[3]
- +15 ;[1]-Concept ID
- +16 ;[2]-DTS ID
- +17 ;[3]-Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 ;Get server list
- +25 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +26 ;
- +27 ;Loop through list and make each call
- +28 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +29 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +30 ;
- +31 NEW BSTSWS,TYPE,TIME,CSTS
- +32 MERGE BSTSWS=IN
- +33 MERGE BSTSWS=BSTSSRV(PRI)
- +34 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +35 ;
- +36 ;Check if DTS server is set to local
- +37 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +38 ;
- +39 ;Call DTS
- +40 IF TYPE="D"
- SET CSTS=$$ICD2SMD^BSTSDTS2(OUT,.BSTSWS)
- +41 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +42 ;
- +43 ;Log call times
- +44 SET TIME=$PIECE(CSTS,U,3)
- +45 ;
- +46 ;Define status var
- +47 SET $PIECE(STS,U)=+CSTS
- +48 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +49 ;
- +50 QUIT STS
- +51 ;
- DSCLKP(OUT,IN,DEBUG) ;EP - Perform a Web Service Description Id Search
- +1 ;
- +2 ;Input
- +3 ;OUT-Output variable/global to return information in (VAR)
- +4 ;IN Array-List of search parameters
- +5 ;DEBUG-1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ;Function returns - [1]^[2]^[3]
- +9 ;[1]-1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ;[2]-Primary Remote Error Message
- +12 ;[3]-Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ;VAR(#)-[1]^[2]^[3]
- +15 ;[1]-Concept ID
- +16 ;[2]-DTS ID
- +17 ;[3]-Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 ;Get server list
- +25 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +26 ;
- +27 ;Loop through list and make each call
- +28 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +29 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +30 ;
- +31 NEW BSTSWS,TYPE,TIME,CSTS
- +32 MERGE BSTSWS=IN
- +33 MERGE BSTSWS=BSTSSRV(PRI)
- +34 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +35 ;
- +36 ;Check if DTS server is set to local
- +37 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +38 ;
- +39 ;Call DTS
- +40 IF TYPE="D"
- SET CSTS=$$DSCSRCH^BSTSDTS2(OUT,.BSTSWS)
- +41 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +42 ;
- +43 ;Log call times
- +44 SET TIME=$PIECE(CSTS,U,3)
- +45 ;
- +46 ;Define status var
- +47 SET $PIECE(STS,U)=+CSTS
- +48 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +49 ;
- +50 QUIT STS
- +51 ;
- SUBLST(DLIST,IN,DEBUG) ;EP - Perform a Web Service Subset Listing
- +1 ;
- +2 ;Input
- +3 ; OUT - Output variable/global to return information in (VAR)
- +4 ; IN Array - List of search parameters
- +5 ; DEBUG - 1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ; Function returns - [1]^[2]^[3]
- +9 ; [1] - 1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ; [2] - Primary Remote Error Message
- +12 ; [3] - Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ; VAR(#) - [1]
- +15 ; [1] - DTSId
- +16 ;
- +17 NEW BSTSSRV,PRI,STS,II
- +18 ;
- +19 ;Define DEBUG
- +20 SET DEBUG=$GET(DEBUG,"")
- +21 ;
- +22 ;Get list of servers
- +23 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +24 ;
- +25 ;Loop through list and make each call
- +26 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +27 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +28 ;
- +29 NEW BSTSWS,TYPE,TIME,CSTS
- +30 MERGE BSTSWS=IN
- +31 MERGE BSTSWS=BSTSSRV(PRI)
- +32 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +33 ;
- +34 ;Check if DTS server is set to local
- +35 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +36 ;
- +37 ;Call DTS
- +38 IF TYPE="D"
- SET CSTS=$$SUBLST^BSTSDTS2(DLIST,.BSTSWS)
- +39 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +40 ;
- +41 ;Log call times (needs completed)
- +42 SET TIME=$PIECE(CSTS,U,3)
- +43 ;
- +44 ;Define status variable
- +45 SET $PIECE(STS,U)=+CSTS
- +46 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +47 ;
- +48 QUIT STS
- +49 ;
- DTSSR(OUT,IN,DEBUG) ;EP - Perform a Web Service DTS Id Lookup
- +1 ;
- +2 ;Input
- +3 ; OUT - Output variable/global to return information in (VAR)
- +4 ; IN Array - List of search parameters
- +5 ; DEBUG - 1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ; Function returns - [1]^[2]^[3]
- +9 ; [1] - 1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ; [2] - Primary Remote Error Message
- +12 ; [3] - Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ; VAR(#) - [1]^[2]^[3]
- +15 ; [1] - Concept ID
- +16 ; [2] - DTS ID
- +17 ; [3] - Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 ;Get list of servers
- +25 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +26 ;
- +27 ;Loop through list and make each call
- +28 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- +29 IF $DATA(BSTSSRV)>1
- SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +30 ;
- +31 NEW BSTSWS,TYPE,TIME,CSTS
- +32 MERGE BSTSWS=IN
- +33 MERGE BSTSWS=BSTSSRV(PRI)
- +34 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +35 ;
- +36 ;Check if DTS server is set to local
- +37 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +38 ;
- +39 ;Call DTS
- +40 IF TYPE="D"
- SET CSTS=$$DTSSR^BSTSDTS1(OUT,.BSTSWS)
- +41 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +42 ;
- +43 ;Log call times (needs completed)
- +44 SET TIME=$PIECE(CSTS,U,3)
- +45 ;
- +46 ;Define status variable
- +47 SET $PIECE(STS,U)=+CSTS
- +48 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +49 ;
- +50 QUIT STS
- +51 ;
- GCDSET(DEBUG) ;EP - Poll server(s) for codeset information
- +1 ;
- +2 ;Input
- +3 ; DEBUG - 1:DEBUG mode
- +4 ;
- +5 ;Output
- +6 ; Function returns - [1]^[2]^[3]
- +7 ; [1] - 1:Successful remote call
- +8 ; 0:Unsuccessful remote call
- +9 ; [2] - Primary Remote Error Message
- +10 ; [3] - Secondary Remote Error Message (if applicable)
- +11 ;
- +12 NEW BSTSSRV,PRI,STS,II
- +13 ;
- +14 ;Define DEBUG
- +15 SET DEBUG=$GET(DEBUG,"")
- +16 ;
- +17 ;Get list of servers
- +18 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +19 ;
- +20 ;Loop through list and make each call
- +21 SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +22 ;
- +23 NEW BSTSWS,TYPE,TIME,CSTS
- +24 MERGE BSTSWS=BSTSSRV(PRI)
- +25 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +26 ;
- +27 ;Check if DTS server is set to local
- +28 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +29 ;
- +30 ;Call DTS
- +31 IF TYPE="D"
- SET CSTS=$$GCDSDTS4^BSTSDTS0(.BSTSWS)
- +32 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +33 ;
- +34 ;Log call times (needs completed)
- +35 SET TIME=$PIECE(CSTS,U,3)
- +36 ;
- +37 ;Define status variable
- +38 SET $PIECE(STS,U)=+CSTS
- +39 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +40 ;
- +41 QUIT STS
- +42 ;
- GVRSET(NMID,DEBUG) ;EP - Poll server(s) for codeset information
- +1 ;
- +2 ;Input
- +3 ; NMID - Namespace ID
- +4 ; DEBUG - 1:DEBUG mode
- +5 ;
- +6 ;Output
- +7 ; Function returns - [1]^[2]^[3]
- +8 ; [1] - 1:Successful remote call
- +9 ; 0:Unsuccessful remote call
- +10 ; [2] - Primary Remote Error Message
- +11 ; [3] - Secondary Remote Error Message (if applicable)
- +12 ;
- +13 NEW BSTSSRV,PRI,STS,II
- +14 ;
- +15 ;Define DEBUG
- +16 SET DEBUG=$GET(DEBUG,"")
- +17 ;
- +18 ;Get list of servers
- +19 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +20 ;
- +21 ;Loop through list and make each call
- +22 SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +23 ;
- +24 NEW BSTSWS,TYPE,TIME,CSTS
- +25 MERGE BSTSWS=BSTSSRV(PRI)
- +26 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +27 SET BSTSWS("NAMESPACEID")=NMID
- +28 ;
- +29 ;Note - do not check for working DTS since this call is used by
- +30 ;the underlying $$CKDTS^BSTSWSV1 call. This would cause an endless loop
- +31 ;
- +32 ;Call DTS
- +33 IF TYPE="D"
- SET CSTS=$$GVRDTS4^BSTSDTS0(.BSTSWS)
- +34 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +35 ;
- +36 ;Log call times (needs completed)
- +37 SET TIME=$PIECE(CSTS,U,3)
- +38 ;
- +39 ;Define status variable
- +40 SET $PIECE(STS,U)=+CSTS
- +41 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +42 ;
- +43 QUIT STS
- +44 ;
- SUBSET(OUT,NMID,DEBUG) ;EP - Poll server(s) for subset information
- +1 ;
- +2 ;Input
- +3 ; NMID - Namespace ID
- +4 ; DEBUG - 1:DEBUG mode
- +5 ;
- +6 ;Output
- +7 ; Function returns - [1]^[2]^[3]
- +8 ; [1] - 1:Successful remote call
- +9 ; 0:Unsuccessful remote call
- +10 ; [2] - Primary Remote Error Message
- +11 ; [3] - Secondary Remote Error Message (if applicable)
- +12 ;
- +13 NEW BSTSSRV,PRI,STS,II
- +14 ;
- +15 ;Define DEBUG
- +16 SET DEBUG=$GET(DEBUG,"")
- +17 ;
- +18 ;Get list of servers
- +19 SET STS=$$WSERVER(.BSTSSRV,DEBUG)
- +20 ;
- +21 ;Loop through list and make each call
- +22 SET STS=0
- SET PRI=""
- FOR II=2:1
- SET PRI=$ORDER(BSTSSRV(PRI))
- IF PRI=""
- QUIT
- Begin DoDot:1
- +23 ;
- +24 NEW BSTSWS,TYPE,TIME,CSTS
- +25 MERGE BSTSWS=BSTSSRV(PRI)
- +26 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +27 SET BSTSWS("NAMESPACEID")=NMID
- +28 ;
- +29 ;Check if DTS server is set to local
- +30 SET STS=$$CKDTS^BSTSWSV1(.BSTSWS)
- IF '+STS
- QUIT
- +31 ;
- +32 ;Call DTS
- +33 IF TYPE="D"
- SET CSTS=$$SUBSET^BSTSDTS2(OUT,.BSTSWS)
- +34 IF $GET(BSTSWS("DEBUG"))
- WRITE !!,"DTS: ",CSTS,!
- +35 ;
- +36 ;Log call times (needs completed)
- +37 SET TIME=$PIECE(CSTS,U,3)
- +38 ;
- +39 ;Define status variable
- +40 SET $PIECE(STS,U)=+CSTS
- +41 IF II<4
- SET $PIECE(STS,U,II)=$PIECE(CSTS,U,2)
- End DoDot:1
- IF +STS
- QUIT
- +42 ;
- +43 QUIT STS
- +44 ;
- TEST(OUT,IN,DEBUG) ;EP - Perform a Test Web Service Search
- +1 ;
- +2 ;Input
- +3 ; OUT - Output variable/global to return information in (VAR)
- +4 ; IN Array - List of search parameters
- +5 ; DEBUG - 1:DEBUG mode
- +6 ;
- +7 ;Output
- +8 ; Function returns - [1]^[2]^[3]
- +9 ; [1] - 1:Successful remote call
- +10 ; 0:Unsuccessful remote call
- +11 ; [2] - Primary Remote Error Message
- +12 ; [3] - Secondary Remote Error Message (if applicable)
- +13 ;
- +14 ; VAR(#) - [1]^[2]^[3]
- +15 ; [1] - Concept ID
- +16 ; [2] - DTS ID
- +17 ; [3] - Description ID
- +18 ;
- +19 NEW BSTSSRV,PRI,STS,II,BSTSWS,TYPE,TIME,CSTS
- +20 ;
- +21 ;Define DEBUG
- +22 SET DEBUG=$GET(DEBUG,"")
- +23 ;
- +24 MERGE BSTSWS=IN
- +25 ;
- +26 ;Retrieve Web Service Information
- +27 SET STS=$$GETWSV(BSTSWS("SERVICE"),.BSTSSRV,DEBUG)
- +28 ;
- +29 ;Make sure service was found
- +30 IF $DATA(BSTSSRV)<10
- SET STS="0^No Active Server Found"
- QUIT 0
- +31 ;
- +32 MERGE BSTSWS=BSTSSRV(1)
- +33 SET TYPE=$GET(BSTSWS("TYPE"))
- SET CSTS=""
- +34 ;
- +35 ;Call DTS
- +36 IF TYPE="D"
- SET CSTS=$$TSRCH^BSTSDTS1(OUT,.BSTSWS)
- +37 ;
- +38 QUIT CSTS
- +39 ;
- WSERVER(BSTSSRV,DEBUG) ;P - Retrieve array of Web Server Information
- +1 ;
- +2 ;Input
- +3 ; DEBUG - 1:DEBUG mode
- +4 ;
- +5 ;Output
- +6 ; Function - 0:No Data Returned, 1:Data Returned
- +7 ; BSTSSRV - Array of web service connection information
- +8 ;
- +9 ;Quit if install is running
- +10 LOCK +^TMP("BSTSINSTALL"):1
- IF '$TEST
- QUIT 0
- +11 LOCK -^TMP("BSTSINSTALL")
- +12 ;
- +13 NEW NMIEN
- +14 ;
- +15 ;Loop through servers until successful call
- +16 SET NMIEN=0
- FOR
- SET NMIEN=$ORDER(^BSTS(9002318,NMIEN))
- IF 'NMIEN
- QUIT
- Begin DoDot:1
- +17 NEW PRI
- +18 SET PRI=""
- FOR
- SET PRI=$ORDER(^BSTS(9002318,NMIEN,1,"C",PRI))
- IF 'PRI
- QUIT
- Begin DoDot:2
- +19 NEW IEN
- +20 SET IEN=""
- FOR
- SET IEN=$ORDER(^BSTS(9002318,NMIEN,1,"C",PRI,IEN))
IF 'IEN
QUIT
Begin DoDot:3
+21 NEW WSIEN,STS,DA,IENS
+22 ;
+23 ;Pull Web Service IEN
+24 SET DA(1)=NMIEN
SET DA=IEN
SET IENS=$$IENS^DILF(.DA)
+25 SET WSIEN=$$GET1^DIQ(9002318.01,IENS,".01","I")
IF WSIEN=""
QUIT
+26 ;
+27 ;Retrieve Web Service Information
+28 SET STS=$$GETWSV(WSIEN,.BSTSSRV,DEBUG)
End DoDot:3
End DoDot:2
End DoDot:1
+29 ;
+30 QUIT $SELECT($ORDER(BSTSSRV(""))]"":"1",1:"0")
+31 ;
GETWSV(WSIEN,BSTSSRV,DEBUG) ;EP - Retrieve Single Web Service Connection Info
+1 ;
+2 ;Input
+3 ; WSIEN - Pointer to 9002318.2
+4 ; DEBUG - 1:DEBUG mode
+5 ;
+6 ;Output
+7 ; Function - 0:No Data Returned, 1:Data Returned
+8 ; BSTSSRV - Array of web service connection information
+9 ;
+10 NEW DA,IENS,URLRT,PORT,TYPE,TIME,USER,PASS,II,SPATH,IADT,SSL,CTIME,MSTM,RETRY,MFAIL,FWAIT
+11 ;
+12 ;Pull Server information
+13 SET IADT=$$GET1^DIQ(9002318.2,WSIEN_",",".1","I")
+14 IF IADT]""
IF IADT<DT
QUIT 0
+15 SET URLRT=$$GET1^DIQ(9002318.2,WSIEN_",",".02","E")
+16 SET PORT=$$GET1^DIQ(9002318.2,WSIEN_",",".03","E")
+17 SET TYPE=$$GET1^DIQ(9002318.2,WSIEN_",",".04","I")
+18 SET TIME=$$GET1^DIQ(9002318.2,WSIEN_",",".05","I")
+19 SET USER=$$GET1^DIQ(9002318.2,WSIEN_",",".07","E")
+20 SET PASS=$$GET1^DIQ(9002318.2,WSIEN_",",".08","E")
+21 SET IADT=$$GET1^DIQ(9002318.2,WSIEN_",",".1","I")
+22 SET SPATH=$$GET1^DIQ(9002318.2,WSIEN_",",".11","E")
+23 SET SSL=$$GET1^DIQ(9002318.2,WSIEN_",","2.01","E")
+24 SET RETRY=$$GET1^DIQ(9002318.2,WSIEN_",","4.01","E")
IF RETRY=""
SET RETRY=1
+25 SET RETRY=RETRY+1
+26 SET CTIME=$$GET1^DIQ(9002318.2,WSIEN_",",".12","I")
IF CTIME=""
SET CTIME=2
+27 SET MSTM=$$GET1^DIQ(9002318.2,WSIEN_",",.15,"I")
IF MSTM=""
SET MSTM=60
+28 SET MFAIL=$$GET1^DIQ(9002318.2,WSIEN_",","4.02","E")
IF MFAIL=""
SET MFAIL=10
+29 SET FWAIT=$$GET1^DIQ(9002318.2,WSIEN_",","4.03","E")
IF FWAIT=""
SET FWAIT=7200
+30 SET II=$ORDER(BSTSSRV(""),-1)+1
+31 SET BSTSSRV(II,"URLROOT")=URLRT
+32 SET BSTSSRV(II,"PORT")=PORT
+33 SET BSTSSRV(II,"TYPE")=TYPE
+34 SET BSTSSRV(II,"USER")=USER
+35 SET BSTSSRV(II,"PASS")=PASS
+36 SET BSTSSRV(II,"TIMEOUT")=TIME
+37 SET BSTSSRV(II,"DEBUG")=DEBUG
+38 SET BSTSSRV(II,"SERVICEPATH")=SPATH
+39 SET BSTSSRV(II,"SSL")=SSL
+40 SET BSTSSRV(II,"CTIME")=CTIME
+41 SET BSTSSRV(II,"IEN")=WSIEN
+42 SET BSTSSRV(II,"MSTM")=MSTM
+43 SET BSTSSRV(II,"RETRY")=RETRY
+44 SET BSTSSRV(II,"MFAIL")=MFAIL
+45 SET BSTSSRV(II,"FWAIT")=FWAIT
+46 ;
+47 QUIT 1
