BQICASPM.m

BQICASPM ;GDHS/HCD/ALA-Comm Alert Site Params ; 15 Feb 2016  12:30 PM

 ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27

 ;

 ;

GET(DATA,FAKE) ;EP -- BQI GET COMM ALERTS POPUP

 NEW UID,II,EM

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

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

 K @DATA

 S II=0

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

 ;

 S HDR="T00003DISPLAY_POPUP"

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

 S II=II+1,@DATA@(II)=$$GET1^DIQ(90508,"1,",16,"E")_$C(30)

 ;

DONE ;

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

 Q

 ;

ERR ;

 D ^%ZTER

 NEW Y,ERRDTM

 S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y

 S BMXSEC="Recording that an error occurred at "_ERRDTM

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

 Q

 Q

 ;

SAV(DATA,PARM) ;EP -- BQI SET COMM ALERTS POPUP

 NEW RESULT,ERROR,RESULT,BQIUPD,MSG,DA

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

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

 K @DATA

 ;

 S II=0

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

 S @DATA@(II)="I00010RESULT^T01024ERROR"_$C(30)

 ;

 S RESULT=1,PARM=$G(PARM,""),MSG=""

 S DA=$$SPM^BQIGPUTL()

 I PARM'="" S BQIUPD(90508,DA_",",16)=PARM

 I $D(BQIUPD) D FILE^DIE("E","BQIUPD","ERROR")

 I $D(ERROR) S RESULT=-1,MSG=$G(ERROR("DIERR",1,"TEXT",1))

 ;

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

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

 Q

BQICASPM  ;GDHS/HCD/ALA-Comm Alert Site Params ; 15 Feb 2016  12:30 PM

 +1       ;;2.5;ICARE MANAGEMENT SYSTEM;;May 24, 2016;Build 27

 +2       ;

 +3       ;

GET(DATA,FAKE) ;EP -- BQI GET COMM ALERTS POPUP

 +1        NEW UID,II,EM

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

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

 +4        KILL @DATA

 +5        SET II=0

 +6       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

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

 +7       ;

 +8        SET HDR="T00003DISPLAY_POPUP"

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

 +10       SET II=II+1

           SET @DATA@(II)=$$GET1^DIQ(90508,"1,",16,"E")_$CHAR(30)

 +11      ;

DONE      ;

 +1        SET II=II+1

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

 +2        QUIT 

 +3       ;

ERR       ;

 +1        DO ^%ZTER

 +2        NEW Y,ERRDTM

 +3        SET Y=$$NOW^XLFDT()

           XECUTE ^DD("DD")

           SET ERRDTM=Y

 +4        SET BMXSEC="Recording that an error occurred at "_ERRDTM

 +5        IF $DATA(II)

               IF $DATA(DATA)

                   SET II=II+1

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

 +6        QUIT 

 +7        QUIT 

 +8       ;

SAV(DATA,PARM) ;EP -- BQI SET COMM ALERTS POPUP

 +1        NEW RESULT,ERROR,RESULT,BQIUPD,MSG,DA

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

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

 +4        KILL @DATA

 +5       ;

 +6        SET II=0

 +7       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

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

 +8        SET @DATA@(II)="I00010RESULT^T01024ERROR"_$CHAR(30)

 +9       ;

 +10       SET RESULT=1

           SET PARM=$GET(PARM,"")

           SET MSG=""

 +11       SET DA=$$SPM^BQIGPUTL()

 +12       IF PARM'=""

               SET BQIUPD(90508,DA_",",16)=PARM

 +13       IF $DATA(BQIUPD)

               DO FILE^DIE("E","BQIUPD","ERROR")

 +14       IF $DATA(ERROR)

               SET RESULT=-1

               SET MSG=$GET(ERROR("DIERR",1,"TEXT",1))

 +15      ;

 +16       SET II=II+1

           SET @DATA@(II)=RESULT_U_MSG_$CHAR(30)

 +17       SET II=II+1

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

 +18       QUIT