Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BQISYWEB

BQISYWEB.m

Go to the documentation of this file.
  1. BQISYWEB ;APTIV/HC/ALA-iCare Web Links ; 11 Apr 2008 6:26 PM
  1. ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
  1. ;
  1. GET(DATA,FAKE) ;EP -- BQI GET ICARE WEB LINKS
  1. ; Get the iCare Web links
  1. NEW UID,II,IEN
  1. S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1. S DATA=$NA(^TMP("BQISYWEB",UID))
  1. K @DATA
  1. ;
  1. S II=0
  1. NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQISYWEB D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1. ;
  1. S @DATA@(II)="T00025CATEGORY^T00200LINK^T00100TOPIC"_$C(30)
  1. ;
  1. S IEN=0
  1. F S IEN=$O(^BQI(90507.1,IEN)) Q:'IEN D
  1. . 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)
  1. ;
  1. S II=II+1,@DATA@(II)=$C(31)
  1. Q
  1. ;
  1. ERR ;
  1. D ^%ZTER
  1. NEW Y,ERRDTM
  1. S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
  1. S BMXSEC="Recording that an error occurred at "_ERRDTM
  1. I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
  1. Q