- 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