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

XOBWUS.m

Go to the documentation of this file.
  1. XOBWUS ;ALB/MJK - HWSC :: Web Service Manager ; 09/13/10 4:00pm
  1. ;;1.0;HwscWebServiceClient;;September 13, 2010;Build 31
  1. ;
  1. QUIT
  1. ;
  1. EN ; -- main entry point for XOBW WEB SERVICE
  1. KILL ^TMP("XOB WEBSERVICES",$JOB)
  1. SET VALMBCK=""
  1. DO EN^VALM("XOBW WEB SERVICE")
  1. QUIT
  1. ;
  1. HDR ; -- header code
  1. NEW Y
  1. SET X=" HWSC Web Service Manager"
  1. SET VALMHDR(1)=X
  1. SET X=" Version: "_$PIECE($TEXT(XOBWUS+1),";",3)_" Build: "_$$VERSION^XOBWENV()
  1. SET VALMHDR(2)=X
  1. QUIT
  1. ;
  1. INIT ; -- init variables and list array
  1. DO CLEAR
  1. DO MSG
  1. QUIT
  1. ;
  1. MSG ; -- set default message
  1. SET VALMSG=""
  1. QUIT
  1. ;
  1. BUILD ; -- build list
  1. NEW XOBI,X,XOBDATA,XOBROOT,Y
  1. DO KILL
  1. ;
  1. SET VALMCNT=0
  1. SET XOBROOT=$NAME(XOBDATA("DILIST","ID"))
  1. DO LIST^DIC(18.02,"",".01;.02;200","","","","","","","",$NAME(XOBDATA))
  1. SET XOBI=0
  1. FOR SET XOBI=$ORDER(@XOBROOT@(XOBI)) QUIT:'XOBI DO
  1. . SET VALMCNT=VALMCNT+1
  1. . SET X=""
  1. . SET X=$$SETFLD^VALM1(VALMCNT,X,"ID")
  1. . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.01)),X,"NAME")
  1. . SET X=$$SETFLD^VALM1($GET(@XOBROOT@(XOBI,.02)),X,"TYPE")
  1. . SET Y=$GET(@XOBROOT@(XOBI,200))
  1. . IF $LENGTH(Y)>35 SET Y=$EXTRACT(Y,1,35)_"..."
  1. . SET X=$$SETFLD^VALM1(Y,X,"CONTEXT")
  1. . DO SET^VALM10(VALMCNT,X,VALMCNT)
  1. . SET ^TMP("XOB WEBSERVICES","IDX",$JOB,VALMCNT,VALMCNT)=+$GET(XOBDATA("DILIST",2,XOBI))
  1. ;
  1. QUIT
  1. ;
  1. CLEAR ; -- clean up entries
  1. DO REFRESH
  1. QUIT
  1. ;
  1. REFRESH ; -- refresh display
  1. DO BUILD
  1. SET VALMBCK="R"
  1. QUIT
  1. ;
  1. KILL ; -- kill off list location
  1. KILL ^TMP("XOB WEBSERVICES",$JOB)
  1. KILL ^TMP("XOB WEBSERVICES","IDX",$JOB)
  1. QUIT
  1. ;
  1. HELP ; -- help code
  1. SET X="?" DO DISP^XQORM1 WRITE !!
  1. QUIT
  1. ;
  1. EXIT ; -- exit code
  1. QUIT
  1. ;
  1. ADD ; -- add an web service entry
  1. ; -- Protocol: XOBW WEB SERVICE ADD
  1. DO ACTION("ADD",0)
  1. QUIT
  1. ;
  1. EDIT ; -- edit web service entry
  1. ; -- Protocol: XOBW WEB SERVICE EDIT
  1. DO ACTION("EDIT",0)
  1. QUIT
  1. ;
  1. DEL ; -- delete web service entry
  1. ; -- Protocol: XOBW WEB SERVICE DELETE
  1. DO ACTION("DEL",0)
  1. QUIT
  1. ;
  1. EXPAND ; -- expand web service entry
  1. DO ACTION("EXPAND",0)
  1. QUIT
  1. ;
  1. ACTION(TYPE,XOBPAUSE) ; -- execute action
  1. DO FULL^VALM1
  1. NEW X,Y
  1. SET X="DO "_TYPE_"^XOBWUS1"
  1. XECUTE X
  1. IF XOBPAUSE DO PAUSE^VALM1
  1. DO REFRESH
  1. DO MSG
  1. QUIT
  1. ;