XOBWUS.m

XOBWUS ;ALB/MJK - HWSC :: Web Service Manager ; 09/13/10 4:00pm

 ;;1.0;HwscWebServiceClient;;September 13, 2010;Build 31

 ;

 QUIT

 ;

EN ; -- main entry point for XOBW WEB SERVICE

 KILL ^TMP("XOB WEBSERVICES",$JOB)

 SET VALMBCK=""

 DO EN^VALM("XOBW WEB SERVICE")

 QUIT

 ;

HDR ; -- header code

 NEW Y

 SET X="                       HWSC Web Service Manager"

 SET VALMHDR(1)=X

 SET X="                      Version: "_$PIECE($TEXT(XOBWUS+1),";",3)_"     Build: "_$$VERSION^XOBWENV()

 SET VALMHDR(2)=X

 QUIT

 ;

INIT ; -- init variables and list array

 DO CLEAR

 DO MSG

 QUIT

 ;

MSG ; -- set default message

 SET VALMSG=""

 QUIT

 ;

BUILD ; -- build list

 NEW XOBI,X,XOBDATA,XOBROOT,Y

 DO KILL

 ;

 SET VALMCNT=0

 SET XOBROOT=$NAME(XOBDATA("DILIST","ID"))

 DO LIST^DIC(18.02,"",".01;.02;200","","","","","","","",$NAME(XOBDATA))

 SET XOBI=0

 FOR  SET XOBI=$ORDER(@XOBROOT@(XOBI)) QUIT:'XOBI  DO

 . SET VALMCNT=VALMCNT+1

 . SET X=""

 . SET X=$$SETFLD^VALM1(VALMCNT,X,"ID")

 . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.01)),X,"NAME")

 . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.02)),X,"TYPE")

 . SET Y=$GET(@XOBROOT@(XOBI,200))

 . IF $LENGTH(Y)>35 SET Y=$EXTRACT(Y,1,35)_"..."

 . SET X=$$SETFLD^VALM1(Y,X,"CONTEXT")

 . DO SET^VALM10(VALMCNT,X,VALMCNT)

 . SET ^TMP("XOB WEBSERVICES","IDX",$JOB,VALMCNT,VALMCNT)=+$GET(XOBDATA("DILIST",2,XOBI))

 ;

 QUIT

 ;

CLEAR ; -- clean up entries

 DO REFRESH

 QUIT

 ;

REFRESH ; -- refresh display

 DO BUILD

 SET VALMBCK="R"

 QUIT

 ;

KILL ; -- kill off list location

 KILL ^TMP("XOB WEBSERVICES",$JOB)

 KILL ^TMP("XOB WEBSERVICES","IDX",$JOB)

 QUIT

 ;

HELP ; -- help code

 SET X="?" DO DISP^XQORM1 WRITE !!

 QUIT

 ;

EXIT ; -- exit code

 QUIT

 ;

ADD ; -- add an web service entry

 ; -- Protocol: XOBW WEB SERVICE ADD

 DO ACTION("ADD",0)

 QUIT

 ;

EDIT ; -- edit web service entry

 ; -- Protocol: XOBW WEB SERVICE EDIT

 DO ACTION("EDIT",0)

 QUIT

 ;

DEL ; -- delete web service entry

 ; -- Protocol: XOBW WEB SERVICE DELETE

 DO ACTION("DEL",0)

 QUIT

 ;

EXPAND ; -- expand web service entry

 DO ACTION("EXPAND",0)

 QUIT

 ;

ACTION(TYPE,XOBPAUSE) ; -- execute action

 DO FULL^VALM1

 NEW X,Y

 SET X="DO "_TYPE_"^XOBWUS1"

 XECUTE X

 IF XOBPAUSE DO PAUSE^VALM1

 DO REFRESH

 DO MSG

 QUIT

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XOBWUS   2306     printed  Apr 09, 2024@21:48:33                                                                                                                                                                                                      Page 2

XOBWUS    ;ALB/MJK - HWSC :: Web Service Manager ; 09/13/10 4:00pm

 +1       ;;1.0;HwscWebServiceClient;;September 13, 2010;Build 31

 +2       ;

 +3        QUIT 

 +4       ;

EN        ; -- main entry point for XOBW WEB SERVICE

 +1        KILL ^TMP("XOB WEBSERVICES",$JOB)

 +2        SET VALMBCK=""

 +3        DO EN^VALM("XOBW WEB SERVICE")

 +4        QUIT 

 +5       ;

HDR       ; -- header code

 +1        NEW Y

 +2        SET X="                       HWSC Web Service Manager"

 +3        SET VALMHDR(1)=X

 +4        SET X="                      Version: "_$PIECE($TEXT(XOBWUS+1),";",3)_"     Build: "_$$VERSION^XOBWENV()

 +5        SET VALMHDR(2)=X

 +6        QUIT 

 +7       ;

INIT      ; -- init variables and list array

 +1        DO CLEAR

 +2        DO MSG

 +3        QUIT 

 +4       ;

MSG       ; -- set default message

 +1        SET VALMSG=""

 +2        QUIT 

 +3       ;

BUILD     ; -- build list

 +1        NEW XOBI,X,XOBDATA,XOBROOT,Y

 +2        DO KILL

 +3       ;

 +4        SET VALMCNT=0

 +5        SET XOBROOT=$NAME(XOBDATA("DILIST","ID"))

 +6        DO LIST^DIC(18.02,"",".01;.02;200","","","","","","","",$NAME(XOBDATA))

 +7        SET XOBI=0

 +8        FOR 

               SET XOBI=$ORDER(@XOBROOT@(XOBI))

               if 'XOBI

                   QUIT 

               Begin DoDot:1

 +9                SET VALMCNT=VALMCNT+1

 +10               SET X=""

 +11               SET X=$$SETFLD^VALM1(VALMCNT,X,"ID")

 +12               SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.01)),X,"NAME")

 +13               SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.02)),X,"TYPE")

 +14               SET Y=$GET(@XOBROOT@(XOBI,200))

 +15               IF $LENGTH(Y)>35

                       SET Y=$EXTRACT(Y,1,35)_"..."

 +16               SET X=$$SETFLD^VALM1(Y,X,"CONTEXT")

 +17               DO SET^VALM10(VALMCNT,X,VALMCNT)

 +18               SET ^TMP("XOB WEBSERVICES","IDX",$JOB,VALMCNT,VALMCNT)=+$GET(XOBDATA("DILIST",2,XOBI))

               End DoDot:1

 +19      ;

 +20       QUIT 

 +21      ;

CLEAR     ; -- clean up entries

 +1        DO REFRESH

 +2        QUIT 

 +3       ;

REFRESH   ; -- refresh display

 +1        DO BUILD

 +2        SET VALMBCK="R"

 +3        QUIT 

 +4       ;

KILL      ; -- kill off list location

 +1        KILL ^TMP("XOB WEBSERVICES",$JOB)

 +2        KILL ^TMP("XOB WEBSERVICES","IDX",$JOB)

 +3        QUIT 

 +4       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        QUIT 

 +2       ;

ADD       ; -- add an web service entry

 +1       ; -- Protocol: XOBW WEB SERVICE ADD

 +2        DO ACTION("ADD",0)

 +3        QUIT 

 +4       ;

EDIT      ; -- edit web service entry

 +1       ; -- Protocol: XOBW WEB SERVICE EDIT

 +2        DO ACTION("EDIT",0)

 +3        QUIT 

 +4       ;

DEL       ; -- delete web service entry

 +1       ; -- Protocol: XOBW WEB SERVICE DELETE

 +2        DO ACTION("DEL",0)

 +3        QUIT 

 +4       ;

EXPAND    ; -- expand web service entry

 +1        DO ACTION("EXPAND",0)

 +2        QUIT 

 +3       ;

ACTION(TYPE,XOBPAUSE) ; -- execute action

 +1        DO FULL^VALM1

 +2        NEW X,Y

 +3        SET X="DO "_TYPE_"^XOBWUS1"

 +4        XECUTE X

 +5        IF XOBPAUSE

               DO PAUSE^VALM1

 +6        DO REFRESH

 +7        DO MSG

 +8        QUIT 

 +9       ;