XOBWUS2.m

XOBWUS2 ;ALB/MJK - HWSC :: Generic Info Display Tool ; 09/13/10 4:00pm

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

 ;

 QUIT

 ;

EN(XOBY) ; -- main entry point for XOBW WEB SERVICE DISPLAY

 ;   Input Array Subscripts:

 ;      XOBY("TITLE")          = title for List Manager

 ;      XOBY("HEADER")         = Header line

 ;      XOBY("BUILD CALLBACK") = code to build list to display

 ;         example: XOBY("BUILD CALLBACK"="DO BUILD^XOBWUS1(2)"

 ;      

 D EN^VALM("XOBW WEB SERVICE DISPLAY")

 Q

 ;

HDR ; -- header code

 S VALMHDR(1)=$GET(XOBY("HEADER",1))

 S VALMHDR(2)=$GET(XOBY("HEADER",2))

 Q

 ;

INIT ; -- init variables and list array

 SET VALM("TITLE")=$GET(XOBY("TITLE"))

 IF $GET(XOBY("BUILD CALLBACK"))]"" XECUTE XOBY("BUILD CALLBACK")

 Q

 ;

HELP ; -- help code

 S X="?" D DISP^XQORM1 W !!

 Q

 ;

EXIT ; -- exit code

 DO CLEAN^VALM10

 Q

 ;

EXPND ; -- expand code

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XOBWUS2   925     printed  Apr 23, 2025@19:00:57                                                                                                                                                                                                      Page 2

XOBWUS2   ;ALB/MJK - HWSC :: Generic Info Display Tool ; 09/13/10 4:00pm

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

 +2       ;

 +3        QUIT 

 +4       ;

EN(XOBY)  ; -- main entry point for XOBW WEB SERVICE DISPLAY

 +1       ;   Input Array Subscripts:

 +2       ;      XOBY("TITLE")          = title for List Manager

 +3       ;      XOBY("HEADER")         = Header line

 +4       ;      XOBY("BUILD CALLBACK") = code to build list to display

 +5       ;         example: XOBY("BUILD CALLBACK"="DO BUILD^XOBWUS1(2)"

 +6       ;      

 +7        DO EN^VALM("XOBW WEB SERVICE DISPLAY")

 +8        QUIT 

 +9       ;

HDR       ; -- header code

 +1        SET VALMHDR(1)=$GET(XOBY("HEADER",1))

 +2        SET VALMHDR(2)=$GET(XOBY("HEADER",2))

 +3        QUIT 

 +4       ;

INIT      ; -- init variables and list array

 +1        SET VALM("TITLE")=$GET(XOBY("TITLE"))

 +2        IF $GET(XOBY("BUILD CALLBACK"))]""

               XECUTE XOBY("BUILD CALLBACK")

 +3        QUIT 

 +4       ;

HELP      ; -- help code

 +1        SET X="?"

           DO DISP^XQORM1

           WRITE !!

 +2        QUIT 

 +3       ;

EXIT      ; -- exit code

 +1        DO CLEAN^VALM10

 +2        QUIT 

 +3       ;

EXPND     ; -- expand code

 +1        QUIT 

 +2       ;