RCEVDD1.m

RCEVDD1 ;WASH-ISC@ALTOONA,PA/RGY-Process event driver DD fields ;6/17/93  1:01 PM

V ;;4.5;Accounts Receivable;;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

EVNNUM ;Input transform for EVENT NUMBER (341.1,.02)

 I $O(^RC(341.1,"AC",X,0)),$O(^(0))'=DA W !,"*** Already being used for '",$P($G(^RC(341.1,$O(^(0)),0)),"^"),"' ***",! K X

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCEVDD1   378     printed  Apr 09, 2024@20:52:03                                                                                                                                                                                                      Page 2

RCEVDD1   ;WASH-ISC@ALTOONA,PA/RGY-Process event driver DD fields ;6/17/93  1:01 PM

V         ;;4.5;Accounts Receivable;;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

EVNNUM    ;Input transform for EVENT NUMBER (341.1,.02)

 +1        IF $ORDER(^RC(341.1,"AC",X,0))

               IF $ORDER(^(0))'=DA

                   WRITE !,"*** Already being used for '",$PIECE($GET(^RC(341.1,$ORDER(^(0)),0)),"^"),"' ***",!

                   KILL X

 +2        QUIT