CIAVMEVT.m

CIAVMEVT ;MSC/IND/DKM - VueCentric Host Event Support ;04-May-2006 08:19;DKM

 ;;1.1V2;VUECENTRIC FRAMEWORK;;Mar 20, 2007

 ;;Copyright 2000-2006, Medsphere Systems Corporation

 ;=================================================================

 ; These entry points are for backward compatibility only.

GETVAR(NAME,DFLT,NMSP) ;

 Q $$GETVAR^CIANBUTL(.NAME,.DFLT,.NMSP)

SETVAR(NAME,VALUE,NMSP) ;

 N X

 S X=$$SETVAR^CIANBUTL(.NAME,.VALUE,.NMSP)

 Q:$Q X

 Q

CLRVAR(NMSP) ;

 N X

 S X=$$CLRVAR^CIANBUTL(.NMSP)

 Q:$Q X

 Q

BCAST(DATA,EVENT,LST) ;

 N STUB,USERS

 M STUB=LST("S"),USERS=LST("U")

 D BCAST^CIANBEVT(.DATA,.EVENT,.STUB,.USERS)

 Q

SIGNAL(STUB) ;

 D SIGNAL^CIANBEVT(.STUB)

 Q

BRDCAST(TYPE,STUB,USR) ;

 N X

 S X=$$BRDCAST^CIANBEVT(.TYPE,.STUB,.USR)

 Q:$Q X

 Q

CIAVMEVT  ;MSC/IND/DKM - VueCentric Host Event Support ;04-May-2006 08:19;DKM

 +1       ;;1.1V2;VUECENTRIC FRAMEWORK;;Mar 20, 2007

 +2       ;;Copyright 2000-2006, Medsphere Systems Corporation

 +3       ;=================================================================

 +4       ; These entry points are for backward compatibility only.

GETVAR(NAME,DFLT,NMSP) ;

 +1        QUIT $$GETVAR^CIANBUTL(.NAME,.DFLT,.NMSP)

SETVAR(NAME,VALUE,NMSP) ;

 +1        NEW X

 +2        SET X=$$SETVAR^CIANBUTL(.NAME,.VALUE,.NMSP)

 +3        IF $QUIT

               QUIT X

 +4        QUIT 

CLRVAR(NMSP) ;

 +1        NEW X

 +2        SET X=$$CLRVAR^CIANBUTL(.NMSP)

 +3        IF $QUIT

               QUIT X

 +4        QUIT 

BCAST(DATA,EVENT,LST) ;

 +1        NEW STUB,USERS

 +2        MERGE STUB=LST("S"),USERS=LST("U")

 +3        DO BCAST^CIANBEVT(.DATA,.EVENT,.STUB,.USERS)

 +4        QUIT 

SIGNAL(STUB) ;

 +1        DO SIGNAL^CIANBEVT(.STUB)

 +2        QUIT 

BRDCAST(TYPE,STUB,USR) ;

 +1        NEW X

 +2        SET X=$$BRDCAST^CIANBEVT(.TYPE,.STUB,.USR)

 +3        IF $QUIT

               QUIT X

 +4        QUIT