- BSTSTST ;GDIT/HS/BEE-Standard Terminology Web Service Test ; 19 Nov 2012 9:54 AM
- ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62
- Q
- ;
- TEST ;EP - BSTS TEST WEB SERVICE Option
- ;
- ; Select an existing web service and run sample calls for testing
- ;
- NEW DIC,Y,DIR,QUIT,DEBUG,SR,RES,SERV,IADT,SCNT,RESULT,DLAYGO
- NEW DIROUT,DIRUT,DTOUT,DUOUT
- ;
- ;First Select the web service
- SRV S DIC="^BSTS(9002318.2,",DIC(0)="AEMNZ"
- S DLAYGO=9002318.2 D ^DIC S SERV=+Y
- I SERV=-1 Q
- ;
- ;Check if active
- S IADT=$$GET1^DIQ(9002318.2,SERV_",",".1","I")
- I IADT]"",IADT<DT W !!,"This Web Service is not Active",! H 2 G SRV
- ;
- ;Check for debug mode
- S DIR(0)="Y",DIR("B")="N"
- S DIR("A",1)=""
- S DIR("A")="Display DTS connection log (Y/N): "
- D ^DIR
- S QUIT=$$CKANS()
- ;
- ;Check for "^", "^^", timeout
- I QUIT>1 Q
- S DEBUG=$S(Y=1:1,1:"")
- ;
- ;Perform test searches
- S SCNT=0,RES=2 F SR="HEART DISEASE DISORDER","ANTENATAL CARE","EDEMA","DIABETES" D I RES<2 Q
- . S SCNT=SCNT+1
- . W !!,"Performing search on term: ",SR
- . S RES=$$CALL(SERV,SR,DEBUG)
- . S RESULT(SCNT)=SR_U_RES
- ;
- ;Loop through and display results
- W !!,"TEST RESULTS FOR ",$$GET1^DIQ(9002318.2,SERV_",",.01,"I")
- S SCNT="" F S SCNT=$O(RESULT(SCNT)) Q:SCNT="" D
- . N RES
- . S RES=RESULT(SCNT)
- . W !!,"Search Term: ",$P(RES,U)
- . W !,"Search Result: ",$S(+$P(RES,U,2)=2:"Success",1:"Fail")
- . W !,"Error Message: ",$S($P(RES,U,3)]"":$P(RES,U,3),1:"N/A")
- . W !,"Call Completion Time: ",$P(RES,U,4)
- ;
- ;Check for new test
- S DIR(0)="Y",DIR("B")="N"
- S DIR("A",1)=""
- S DIR("A")="Run another test (Y/N): "
- D ^DIR
- S QUIT=$$CKANS()
- ;
- ;Check for "^", "^^", timeout
- I QUIT>1!('Y) Q
- K RESULT
- G SRV
- ;
- CKANS() ;EP - Check answer "^", "^^", and timeout
- ;
- ;User typed "^^"
- I $G(DIROUT) Q 3
- ;
- ;User typed "^" or timed out
- I $G(DUOUT)!$G(DTOUT) Q 2
- ;
- ;User hit ENTER
- I $G(DIRUT) Q 1
- ;
- Q 0
- ;
- CALL(SERV,SEARCH,DEBUG) ;EP - Perform Test Search
- ;
- N RESULT,BSTSR,BSTSWS,RES
- ;
- S BSTSWS("SEARCH")=SEARCH
- S BSTSWS("STYPE")="S"
- S BSTSWS("NAMESPACEID")=36
- S BSTSWS("SUBSET")="IHS Problem List"
- S BSTSWS("SNAPDT")=""
- S BSTSWS("MAXRECS")=100
- S BSTSWS("BCTCHRC")=""
- S BSTSWS("BCTCHCT")=""
- S BSTSWS("RET")="PSCBIXAV"
- S BSTSWS("DAT")=""
- S BSTSWS("SERVICE")=SERV
- ;
- ;Make DTS search call
- S BSTSR=1
- ;
- ;Perform Test Lookup
- S BSTSR=$$TEST^BSTSWSV("RESULT",.BSTSWS,DEBUG) S:+BSTSR $P(BSTSR,U)=2
- ;
- Q BSTSR
- BSTSTST ;GDIT/HS/BEE-Standard Terminology Web Service Test ; 19 Nov 2012 9:54 AM
- +1 ;;2.0;IHS STANDARD TERMINOLOGY;;Dec 01, 2016;Build 62
- +2 QUIT
- +3 ;
- TEST ;EP - BSTS TEST WEB SERVICE Option
- +1 ;
- +2 ; Select an existing web service and run sample calls for testing
- +3 ;
- +4 NEW DIC,Y,DIR,QUIT,DEBUG,SR,RES,SERV,IADT,SCNT,RESULT,DLAYGO
- +5 NEW DIROUT,DIRUT,DTOUT,DUOUT
- +6 ;
- +7 ;First Select the web service
- SRV SET DIC="^BSTS(9002318.2,"
- SET DIC(0)="AEMNZ"
- +1 SET DLAYGO=9002318.2
- DO ^DIC
- SET SERV=+Y
- +2 IF SERV=-1
- QUIT
- +3 ;
- +4 ;Check if active
- +5 SET IADT=$$GET1^DIQ(9002318.2,SERV_",",".1","I")
- +6 IF IADT]""
- IF IADT<DT
- WRITE !!,"This Web Service is not Active",!
- HANG 2
- GOTO SRV
- +7 ;
- +8 ;Check for debug mode
- +9 SET DIR(0)="Y"
- SET DIR("B")="N"
- +10 SET DIR("A",1)=""
- +11 SET DIR("A")="Display DTS connection log (Y/N): "
- +12 DO ^DIR
- +13 SET QUIT=$$CKANS()
- +14 ;
- +15 ;Check for "^", "^^", timeout
- +16 IF QUIT>1
- QUIT
- +17 SET DEBUG=$SELECT(Y=1:1,1:"")
- +18 ;
- +19 ;Perform test searches
- +20 SET SCNT=0
- SET RES=2
- FOR SR="HEART DISEASE DISORDER","ANTENATAL CARE","EDEMA","DIABETES"
- Begin DoDot:1
- +21 SET SCNT=SCNT+1
- +22 WRITE !!,"Performing search on term: ",SR
- +23 SET RES=$$CALL(SERV,SR,DEBUG)
- +24 SET RESULT(SCNT)=SR_U_RES
- End DoDot:1
- IF RES<2
- QUIT
- +25 ;
- +26 ;Loop through and display results
- +27 WRITE !!,"TEST RESULTS FOR ",$$GET1^DIQ(9002318.2,SERV_",",.01,"I")
- +28 SET SCNT=""
- FOR
- SET SCNT=$ORDER(RESULT(SCNT))
- IF SCNT=""
- QUIT
- Begin DoDot:1
- +29 NEW RES
- +30 SET RES=RESULT(SCNT)
- +31 WRITE !!,"Search Term: ",$PIECE(RES,U)
- +32 WRITE !,"Search Result: ",$SELECT(+$PIECE(RES,U,2)=2:"Success",1:"Fail")
- +33 WRITE !,"Error Message: ",$SELECT($PIECE(RES,U,3)]"":$PIECE(RES,U,3),1:"N/A")
- +34 WRITE !,"Call Completion Time: ",$PIECE(RES,U,4)
- End DoDot:1
- +35 ;
- +36 ;Check for new test
- +37 SET DIR(0)="Y"
- SET DIR("B")="N"
- +38 SET DIR("A",1)=""
- +39 SET DIR("A")="Run another test (Y/N): "
- +40 DO ^DIR
- +41 SET QUIT=$$CKANS()
- +42 ;
- +43 ;Check for "^", "^^", timeout
- +44 IF QUIT>1!('Y)
- QUIT
- +45 KILL RESULT
- +46 GOTO SRV
- +47 ;
- CKANS() ;EP - Check answer "^", "^^", and timeout
- +1 ;
- +2 ;User typed "^^"
- +3 IF $GET(DIROUT)
- QUIT 3
- +4 ;
- +5 ;User typed "^" or timed out
- +6 IF $GET(DUOUT)!$GET(DTOUT)
- QUIT 2
- +7 ;
- +8 ;User hit ENTER
- +9 IF $GET(DIRUT)
- QUIT 1
- +10 ;
- +11 QUIT 0
- +12 ;
- CALL(SERV,SEARCH,DEBUG) ;EP - Perform Test Search
- +1 ;
- +2 NEW RESULT,BSTSR,BSTSWS,RES
- +3 ;
- +4 SET BSTSWS("SEARCH")=SEARCH
- +5 SET BSTSWS("STYPE")="S"
- +6 SET BSTSWS("NAMESPACEID")=36
- +7 SET BSTSWS("SUBSET")="IHS Problem List"
- +8 SET BSTSWS("SNAPDT")=""
- +9 SET BSTSWS("MAXRECS")=100
- +10 SET BSTSWS("BCTCHRC")=""
- +11 SET BSTSWS("BCTCHCT")=""
- +12 SET BSTSWS("RET")="PSCBIXAV"
- +13 SET BSTSWS("DAT")=""
- +14 SET BSTSWS("SERVICE")=SERV
- +15 ;
- +16 ;Make DTS search call
- +17 SET BSTSR=1
- +18 ;
- +19 ;Perform Test Lookup
- +20 SET BSTSR=$$TEST^BSTSWSV("RESULT",.BSTSWS,DEBUG)
- IF +BSTSR
- SET $PIECE(BSTSR,U)=2
- +21 ;
- +22 QUIT BSTSR
