BLRQUE.m

BLRQUE ; IHS/HQT/MJL -Put requested transaction in a queue to refile ;

 ;;5.2;LR;**1010,1020**;SEP 13, 2005

 ;;MAR 01, 2001

 ;

TOP(BLRLOGDA,BLRQUIET)        ; EP

 Q:BLRLOGDA=""

 D ^BLREVTQ("M","REFILE","REFILE",,BLRLOGDA)

 Q

 ;

BLRQUE    ; IHS/HQT/MJL -Put requested transaction in a queue to refile ;

 +1       ;;5.2;LR;**1010,1020**;SEP 13, 2005

 +2       ;;MAR 01, 2001

 +3       ;

TOP(BLRLOGDA,BLRQUIET) ; EP

 +1        IF BLRLOGDA=""

               QUIT 

 +2        DO ^BLREVTQ("M","REFILE","REFILE",,BLRLOGDA)

 +3        QUIT 

 +4       ;