AMQQSRV.m

AMQQSRV ; IHS/CMI/THL - RETURN ARRAY OR $T ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;-----

 I $D(AMQQARRY) S AMQQYY=AMQQARRY D OUTPUT^AMQQCMPS I 1

 S AMQQY=1

 K AMQQARRY,AMQQSURV

 Q

AMQQSRV   ; IHS/CMI/THL - RETURN ARRAY OR $T ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;-----

 +3        IF $DATA(AMQQARRY)

               SET AMQQYY=AMQQARRY

               DO OUTPUT^AMQQCMPS

               IF 1

 +4        SET AMQQY=1

 +5        KILL AMQQARRY,AMQQSURV

 +6        QUIT