BDGDSEVT.m

BDGDSEVT ;cmi/anch/maw - BDG Day Surgery Movement Events 11/20/2008 1:37:41 PM

 ;;5.3;PIMS;**1010**;MAY 28, 2004

 ;

 ;new functionality that will allow users to tag items off of the BDGDS MOVEMENT EVENTS protocol

 ;

 ;

MOVE ;EP - main event driver

 N OROLD D INP^VADPT S X=$O(^ORD(101,"B","BDGDS MOVEMENT EVENTS",0))_";ORD(101," D EN1^XQOR:X K VAIN,X

 Q

 ;

BDGDSEVT  ;cmi/anch/maw - BDG Day Surgery Movement Events 11/20/2008 1:37:41 PM

 +1       ;;5.3;PIMS;**1010**;MAY 28, 2004

 +2       ;

 +3       ;new functionality that will allow users to tag items off of the BDGDS MOVEMENT EVENTS protocol

 +4       ;

 +5       ;

MOVE      ;EP - main event driver

 +1        NEW OROLD

           DO INP^VADPT

           SET X=$ORDER(^ORD(101,"B","BDGDS MOVEMENT EVENTS",0))_";ORD(101,"

           IF X

               DO EN1^XQOR

           KILL VAIN,X

 +2        QUIT 

 +3       ;