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 ---[H[J[2J[HXOBWUS2 925 printed Oct 16, 2024@18:46:45 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 ;
