BQISYWEB.m

BQISYWEB ;APTIV/HC/ALA-iCare Web Links ; 11 Apr 2008  6:26 PM

 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 ;

GET(DATA,FAKE) ;EP -- BQI GET ICARE WEB LINKS

 ; Get the iCare Web links

 NEW UID,II,IEN

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

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

 K @DATA

 ;

 S II=0

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

 ;

 S @DATA@(II)="T00025CATEGORY^T00200LINK^T00100TOPIC"_$C(30)

 ;

 S IEN=0

 F  S IEN=$O(^BQI(90507.1,IEN)) Q:'IEN  D

 . S II=II+1,@DATA@(II)=$$GET1^DIQ(90507.1,IEN_",",.02,"E")_U_$$GET1^DIQ(90507.1,IEN_",",.01,"E")_U_$$GET1^DIQ(90507.1,IEN_",",.03,"E")_$C(30)

 ;

 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

BQISYWEB  ;APTIV/HC/ALA-iCare Web Links ; 11 Apr 2008  6:26 PM

 +1       ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011

 +2       ;

GET(DATA,FAKE) ;EP -- BQI GET ICARE WEB LINKS

 +1       ; Get the iCare Web links

 +2        NEW UID,II,IEN

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

 +4        SET DATA=$NAME(^TMP("BQISYWEB",UID))

 +5        KILL @DATA

 +6       ;

 +7        SET II=0

 +8       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

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

 +9       ;

 +10       SET @DATA@(II)="T00025CATEGORY^T00200LINK^T00100TOPIC"_$CHAR(30)

 +11      ;

 +12       SET IEN=0

 +13       FOR 

               SET IEN=$ORDER(^BQI(90507.1,IEN))

               IF 'IEN

                   QUIT 

               Begin DoDot:1

 +14               SET II=II+1

                   SET @DATA@(II)=$$GET1^DIQ(90507.1,IEN_",",.02,"E")_U_$$GET1^DIQ(90507.1,IEN_",",.01,"E")_U_$$GET1^DIQ(90507.1,IEN_",",.03,"E")_$CHAR(30)

               End DoDot:1

 +15      ;

 +16       SET II=II+1

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

 +17       QUIT 

 +18      ;

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