XOBSCI.m

XOBSCI ;; ld,mjk/alb - VistaLink Interface Implementation ; 07/27/2002  13:00

 ;;1.6;VistALink Security;;May 08, 2009;Build 15

 ;Per VHA directive 2004-038, this routine should not be modified.

 ;

 ;Implements the VistaLink message framework for messages in the (XOBS) security module.

 ;

CALLBACK(CB) ; -- init callbacks implementation

 SET CB("STARTELEMENT")="ELEST^XOBSCAV2"

 SET CB("ENDELEMENT")="ELEND^XOBSCAV2"

 SET CB("CHARACTERS")="CHR^XOBSCAV2"

 QUIT

 ;

READER(XOBUF,XOBDATA) ; -- proprietary format reader implementation

 QUIT

 ;

REQHDLR(XOBDATA) ; -- request handler implementation

 DO EN^XOBSCAV(.XOBDATA)

 QUIT

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XOBSCI   646     printed  Nov 22, 2024@17:54:58                                                                                                                                                                                                       Page 2

XOBSCI    ;; ld,mjk/alb - VistaLink Interface Implementation ; 07/27/2002  13:00

 +1       ;;1.6;VistALink Security;;May 08, 2009;Build 15

 +2       ;Per VHA directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ;Implements the VistaLink message framework for messages in the (XOBS) security module.

 +5       ;

CALLBACK(CB) ; -- init callbacks implementation

 +1        SET CB("STARTELEMENT")="ELEST^XOBSCAV2"

 +2        SET CB("ENDELEMENT")="ELEND^XOBSCAV2"

 +3        SET CB("CHARACTERS")="CHR^XOBSCAV2"

 +4        QUIT 

 +5       ;

READER(XOBUF,XOBDATA) ; -- proprietary format reader implementation

 +1        QUIT 

 +2       ;

REQHDLR(XOBDATA) ; -- request handler implementation

 +1        DO EN^XOBSCAV(.XOBDATA)

 +2        QUIT 

 +3       ;