BQIMUTSK.m

BQIMUTSK ;GDIT/HS/ALA-MU Tasks ; 02 Dec 2011  11:44 AM

 ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59

 ;

 ;

STAT(DATA,TASK) ;EP -- BQI GET MU REPORT STATUS

 NEW UID,II,HDR

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("BQIMUTSK",UID))

 K @DATA

 S II=0

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMURPT D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 S HDR="T00030STATUS"

 S @DATA@(II)=HDR_$C(30)

 NEW ZTSK

 S ZTSK=TASK

 D STAT^%ZTLOAD

 S II=II+1,@DATA@(II)=$G(ZTSK(2))_$C(30)

 S II=II+1,@DATA@(II)=$C(31)

 Q

BQIMUTSK  ;GDIT/HS/ALA-MU Tasks ; 02 Dec 2011  11:44 AM

 +1       ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59

 +2       ;

 +3       ;

STAT(DATA,TASK) ;EP -- BQI GET MU REPORT STATUS

 +1        NEW UID,II,HDR

 +2        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +3        SET DATA=$NAME(^TMP("BQIMUTSK",UID))

 +4        KILL @DATA

 +5        SET II=0

 +6       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BQIMURPT D UNWIND^%ZTER"

 +7        SET HDR="T00030STATUS"

 +8        SET @DATA@(II)=HDR_$CHAR(30)

 +9        NEW ZTSK

 +10       SET ZTSK=TASK

 +11       DO STAT^%ZTLOAD

 +12       SET II=II+1

           SET @DATA@(II)=$GET(ZTSK(2))_$CHAR(30)

 +13       SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +14       QUIT