BQIRGAGL.m

BQIRGAGL ;VNGT/HS/BEE-Get ASTHMA Glossary ; 25 Sep 2008  12:30 PM

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

 ;

GLS(DATA,FAKE) ;EP - BQI GET ASTHMA GLOSSARY

 NEW UID,II,TRIEN,CAT,TIT,SORT,RMK,REMARK,CT,NXT,GLIEN,IEN

 ;

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

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

 K @DATA

 ;

 S II=0

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

 ;

 S @DATA@(II)="T32767REPORT_TEXT"_$C(30)

 S GLIEN=$O(^BQI(90508.2,"B","ASTHMA","")) I GLIEN="" S BMXSEC="Problem with ASTHMA definition in file 90508.2" G DONE

 S IEN=0 F  S IEN=$O(^BQI(90508.2,GLIEN,1,IEN)) Q:'IEN  D

 . S II=II+1,@DATA@(II)=$G(^BQI(90508.2,GLIEN,1,IEN,0))

 I II>0 S @DATA@(II)=@DATA@(II)_$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

BQIRGAGL  ;VNGT/HS/BEE-Get ASTHMA Glossary ; 25 Sep 2008  12:30 PM

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

 +2       ;

GLS(DATA,FAKE) ;EP - BQI GET ASTHMA GLOSSARY

 +1        NEW UID,II,TRIEN,CAT,TIT,SORT,RMK,REMARK,CT,NXT,GLIEN,IEN

 +2       ;

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

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

 +5        KILL @DATA

 +6       ;

 +7        SET II=0

 +8       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

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

 +9       ;

 +10       SET @DATA@(II)="T32767REPORT_TEXT"_$CHAR(30)

 +11       SET GLIEN=$ORDER(^BQI(90508.2,"B","ASTHMA",""))

           IF GLIEN=""

               SET BMXSEC="Problem with ASTHMA definition in file 90508.2"

               GOTO DONE

 +12       SET IEN=0

           FOR 

               SET IEN=$ORDER(^BQI(90508.2,GLIEN,1,IEN))

               IF 'IEN

                   QUIT 

               Begin DoDot:1

 +13               SET II=II+1

                   SET @DATA@(II)=$GET(^BQI(90508.2,GLIEN,1,IEN,0))

               End DoDot:1

 +14       IF II>0

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

 +15      ;

DONE       SET II=II+1

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

 +1        QUIT 

 +2       ;

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