BQIUTB2 ;PRXM/HC/ALA-Get Reminders List and Help ; 15 Feb 2007 5:35 PM
;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23
;
Q
;
EN(DATA,FAKE) ;EP -- BQI GET REMINDERS LIST
NEW UID,II,BQILOC,LII,BI
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIUTB2",UID))
K @DATA
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIUTB1 D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
D EN^BQIMSLST(.BQILOC,"D")
S LII=$O(@BQILOC@(""),-1)
F II=0:1:LII-1 S @DATA@(II)=@BQILOC@(II)
D EN^BQIMSLST(.BQILOC,"R")
S LII=$O(@BQILOC@(""),-1)
F BI=1:1:LII-1 S II=II+1,@DATA@(II)=@BQILOC@(BI)
DONE ;
S II=II+1,@DATA@(II)=$C(31)
K @BQILOC
Q
;
VFL(DATA,FTYP) ;EP - Get list of Vfiles
S II=0
S @DATA@(II)="I00010IEN^T00030^T00100SORT_ORDER^T00100SORT_DIR^T00001FILTER^T00001VIEW_ONLY"_$C(30)
NEW IEN,IACT,SORT,SN,SIEN,COLMN,SDIR,DIR
S IEN=0
F S IEN=$O(^BQI(90506.3,"D",FTYP,IEN)) Q:'IEN D
. NEW DNDSP
. ; If vfile entry is flagged 'Do not display or extract', quit
. I $$GET1^DIQ(90506.3,IEN_",",.05,"I")=1 Q
. S DNDSP="N" I +$$GET1^DIQ(90506.3,IEN_",",.05,"I") S DNDSP="Y"
. S IACT=$$GET1^DIQ(90506.3,IEN_",",.03,"I")
. S NAME=$$GET1^DIQ(90506.3,IEN_",",.01,"E")
. ; If a sub-definition, do not pull
. I $$GET1^DIQ(90506.3,IEN_",",.07,"I")=1 Q
. S FILTER=$S($D(^BQI(90506.3,IEN,7)):"Y",1:"N")
. ;
. ; Get Sort Order
. S SORT="",SN="",SDIR=""
. F S SN=$O(^BQI(90506.3,IEN,10,"D",SN)) Q:SN="" D
.. S SIEN=""
.. F S SIEN=$O(^BQI(90506.3,IEN,10,"D",SN,SIEN)) Q:SIEN="" D
... ; If the field is inactive, quit
... I $P(^BQI(90506.3,IEN,10,SIEN,0),U,11)=1 Q
... S COLMN=$P(^BQI(90506.3,IEN,10,SIEN,0),U,2)
... S DIR=$P(^BQI(90506.3,IEN,10,SIEN,0),U,13)
... ; Strip off the size and only keep the name
... S COLMN=$E(COLMN,7,$L(COLMN))
... S SORT=SORT_COLMN_$C(29)
... S SDIR=SDIR_DIR_$C(29)
. S SORT=$$TKO^BQIUL1(SORT,$C(29))
. S SDIR=$$TKO^BQIUL1(SDIR,$C(29))
. S II=II+1,@DATA@(II)=IEN_U_$S(IACT=1:"*",1:"")_NAME_U_SORT_U_SDIR_U_FILTER_U_DNDSP_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
APST(DATA) ;EP - Get appointment statuses
NEW SDATA,II,BI
S II=0
S @DATA@(II)="T00003IEN^T00045"_$C(30)
S SDATA=$P($G(^DD(2.98,3,0)),U,3) I SDATA="" Q
S II=II+1,@DATA@(II)="AC^ACTIVE"_$C(30)
F BI=1:1:$L(SDATA,";")-1 D
. S II=II+1,@DATA@(II)=$P($P(SDATA,";",BI),":",1)_"^"_$P($P(SDATA,";",BI),":",2)_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
PRST(DATA) ;EP - Get problem list statuses
NEW SDATA,II,BI,CODE,DESC,ACT
S II=0
S @DATA@(II)="T00003IEN^T00045^T00001ACTIVE"_$C(30)
S SDATA=$P($G(^DD(9000011,.12,0)),U,3) I SDATA="" Q
F BI=1:1:$L(SDATA,";")-1 D
. S CODE=$P($P(SDATA,";",BI),":",1),DESC=$P($P(SDATA,";",BI),":",2)
. S ACT="Y"
. I DESC="DELETED"!(DESC="INACTIVE") S ACT="N"
. S II=II+1,@DATA@(II)=CODE_"^"_DESC_"^"_ACT_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
EPLIST(DATA) ;EP - Get EHR personal lists
NEW TDATA,II,BI
K TDATA
D PLSTLST^BEHOPTP2(.TDATA)
S II=0,BI=0
S @DATA@(II)="T00003IEN^T00060"_$C(30)
F S BI=$O(TDATA(BI)) Q:BI="" D
. S II=II+1,@DATA@(II)=TDATA(BI)_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
UCL(DATA) ;EP - Get User Classes
NEW UN
S II=0,UN=0
S @DATA@(II)="T00003IEN^T00060"_$C(30)
F S UN=$O(^USR(8930,UN)) Q:'UN D
. I $P(^USR(8930,UN,0),U,3)'=1 Q
. S II=II+1,@DATA@(II)=UN_U_$S($P(^USR(8930,UN,0),U,4)'="":$P(^USR(8930,UN,0),U,4),1:$P(^USR(8930,UN,0),U,1))_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
FLTR(DATA) ;EP - Get list of filters
S II=0
S @DATA@(II)="I00010VDEF_IEN^T00030VDEF_TYPE^T00030FILTER_NAME^T00030FILTER_CATEGORY^T00030FILTER_CLINICAL_GROUP"_$C(30)
NEW IEN,VALUE,FN,FLN,CGRP,CLN,CAT,NAME
S IEN=0
F S IEN=$O(^BQI(90506.3,IEN)) Q:'IEN D
. ; If vfile entry is flagged 'Do not display or extract', quit
. I $$GET1^DIQ(90506.3,IEN_",",.05,"I")=1 Q
. S II=II+1
. S VALUE=IEN_U_$P(^BQI(90506.3,IEN,0),U,1)
. S FN=0
. F S FN=$O(^BQI(90506.3,IEN,7,FN)) Q:'FN D
.. NEW DA,IENS
.. S DA(1)=IEN,DA=FN,IENS=$$IENS^DILF(.DA)
.. S NAME=$$GET1^DIQ(90506.38,IENS,.01,"E")
.. S FLN=$$GET1^DIQ(90506.38,IENS,.01,"I")
.. S CLN=0,CAT="",CGRP=""
.. I $O(^BQI(90506.5,FLN,6,CLN))="" S II=II+1,@DATA@(II)=VALUE_U_NAME_U_CAT_U_CGRP_$C(30) Q
.. F S CLN=$O(^BQI(90506.5,FLN,6,CLN)) Q:'CLN D
... S CGRP=$P(^BQI(90506.5,FLN,6,CLN,0),U,2)
... S II=II+1,@DATA@(II)=VALUE_U_NAME_U_CAT_U_CGRP_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
IPCAT(DATA) ;EP - Get the table of IPC categories
NEW IEN,TEXT,CAT2,CAT1,SBN,SBN,CRIPC
S II=0
S @DATA@(II)="T00010IEN^T00030CAT1^T00030CAT2"_$C(30)
S CRIPC=$P($G(^BQI(90508,1,11)),U,1)
;S CRIPC="IPCMH"
;
S IEN=0
F S IEN=$O(^BQI(90506.8,IEN)) Q:'IEN D
. I $P(^BQI(90506.8,IEN,0),U,3)'="C" Q
. S CAT1=$P(^BQI(90506.8,IEN,0),"^",1)
. S CAT2=$$GET1^DIQ(90506.8,IEN_",",.04,"E")
. I CAT2'="" S TEXT=CAT2,CAT2=CAT1
. I CAT2="" S TEXT=CAT1
. ; If inactive
. I '$D(^BQI(90506.8,"AC",IEN)) S II=II+1,@DATA@(II)=IEN_"^"_TEXT_"^"_CAT2_$C(30) Q
. S SBN=""
. F S SBN=$O(^BQI(90506.8,"AC",IEN,SBN)) Q:SBN="" D
.. I $P(^BQI(90506.8,SBN,0),"^",2)=1 Q
.. I $P(^BQI(90506.8,SBN,0),U,5)'=CRIPC Q
.. S CAT1=$P(^BQI(90506.8,SBN,0),"^",1)
.. S CAT2=$$GET1^DIQ(90506.8,SBN_",",.04,"E")
.. I CAT2'="" S TEXT=CAT2,CAT2=CAT1
.. I CAT2="" S TEXT=CAT1
.. S II=II+1,@DATA@(II)=SBN_"^"_TEXT_"^"_CAT2_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
CLIN(DATA) ;EP - Get the clinic codes
NEW IEN,TEXT
S II=0
S @DATA@(II)="T00010IEN^T00030"_$C(30)
S IEN=0
F S IEN=$O(^DIC(40.7,IEN)) Q:'IEN D
. S TEXT=$P(^DIC(40.7,IEN,0),"^",1)_" ("_$P(^(0),U,2)_")"
. S II=II+1,@DATA@(II)=IEN_"^"_TEXT_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
IPCL(DATA) ;EP - Get the IPC clinic codes
Q
;
DPCP(DATA) ;EP - Get DPCPs
NEW IEN,TEXT
S II=0
S @DATA@(II)="T00010IEN^T00030"_$C(30)
S IEN=""
F S IEN=$O(^AUPNPAT("AK",IEN)) Q:IEN="" D
. S TEXT=$P(^VA(200,IEN,0),U,1)
. S II=II+1,@DATA@(II)=IEN_"^"_TEXT_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
MUT(DATA) ;EP - Get MU Tabs
S II=0
S @DATA@(II)="T00001CHOICE_TAB^T00030CHOICE_TEXT"_$C(30)
S II=II+1,@DATA@(II)="P^Performance Measures"_$C(30)
S II=II+1,@DATA@(II)="C^Clinical Quality Measures"_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
BQIUTB2 ;PRXM/HC/ALA-Get Reminders List and Help ; 15 Feb 2007 5:35 PM
+1 ;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23
+2 ;
+3 QUIT
+4 ;
EN(DATA,FAKE) ;EP -- BQI GET REMINDERS LIST
+1 NEW UID,II,BQILOC,LII,BI
+2 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+3 SET DATA=$NAME(^TMP("BQIUTB2",UID))
+4 KILL @DATA
+5 SET II=0
+6 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIUTB1 D UNWIND^%ZTER"
+7 ;
+8 DO EN^BQIMSLST(.BQILOC,"D")
+9 SET LII=$ORDER(@BQILOC@(""),-1)
+10 FOR II=0:1:LII-1
SET @DATA@(II)=@BQILOC@(II)
+11 DO EN^BQIMSLST(.BQILOC,"R")
+12 SET LII=$ORDER(@BQILOC@(""),-1)
+13 FOR BI=1:1:LII-1
SET II=II+1
SET @DATA@(II)=@BQILOC@(BI)
DONE ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 KILL @BQILOC
+3 QUIT
+4 ;
VFL(DATA,FTYP) ;EP - Get list of Vfiles
+1 SET II=0
+2 SET @DATA@(II)="I00010IEN^T00030^T00100SORT_ORDER^T00100SORT_DIR^T00001FILTER^T00001VIEW_ONLY"_$CHAR(30)
+3 NEW IEN,IACT,SORT,SN,SIEN,COLMN,SDIR,DIR
+4 SET IEN=0
+5 FOR
SET IEN=$ORDER(^BQI(90506.3,"D",FTYP,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+6 NEW DNDSP
+7 ; If vfile entry is flagged 'Do not display or extract', quit
+8 IF $$GET1^DIQ(90506.3,IEN_",",.05,"I")=1
QUIT
+9 SET DNDSP="N"
IF +$$GET1^DIQ(90506.3,IEN_",",.05,"I")
SET DNDSP="Y"
+10 SET IACT=$$GET1^DIQ(90506.3,IEN_",",.03,"I")
+11 SET NAME=$$GET1^DIQ(90506.3,IEN_",",.01,"E")
+12 ; If a sub-definition, do not pull
+13 IF $$GET1^DIQ(90506.3,IEN_",",.07,"I")=1
QUIT
+14 SET FILTER=$SELECT($DATA(^BQI(90506.3,IEN,7)):"Y",1:"N")
+15 ;
+16 ; Get Sort Order
+17 SET SORT=""
SET SN=""
SET SDIR=""
+18 FOR
SET SN=$ORDER(^BQI(90506.3,IEN,10,"D",SN))
IF SN=""
QUIT
Begin DoDot:2
+19 SET SIEN=""
+20 FOR
SET SIEN=$ORDER(^BQI(90506.3,IEN,10,"D",SN,SIEN))
IF SIEN=""
QUIT
Begin DoDot:3
+21 ; If the field is inactive, quit
+22 IF $PIECE(^BQI(90506.3,IEN,10,SIEN,0),U,11)=1
QUIT
+23 SET COLMN=$PIECE(^BQI(90506.3,IEN,10,SIEN,0),U,2)
+24 SET DIR=$PIECE(^BQI(90506.3,IEN,10,SIEN,0),U,13)
+25 ; Strip off the size and only keep the name
+26 SET COLMN=$EXTRACT(COLMN,7,$LENGTH(COLMN))
+27 SET SORT=SORT_COLMN_$CHAR(29)
+28 SET SDIR=SDIR_DIR_$CHAR(29)
End DoDot:3
End DoDot:2
+29 SET SORT=$$TKO^BQIUL1(SORT,$CHAR(29))
+30 SET SDIR=$$TKO^BQIUL1(SDIR,$CHAR(29))
+31 SET II=II+1
SET @DATA@(II)=IEN_U_$SELECT(IACT=1:"*",1:"")_NAME_U_SORT_U_SDIR_U_FILTER_U_DNDSP_$CHAR(30)
End DoDot:1
+32 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+33 QUIT
+34 ;
APST(DATA) ;EP - Get appointment statuses
+1 NEW SDATA,II,BI
+2 SET II=0
+3 SET @DATA@(II)="T00003IEN^T00045"_$CHAR(30)
+4 SET SDATA=$PIECE($GET(^DD(2.98,3,0)),U,3)
IF SDATA=""
QUIT
+5 SET II=II+1
SET @DATA@(II)="AC^ACTIVE"_$CHAR(30)
+6 FOR BI=1:1:$LENGTH(SDATA,";")-1
Begin DoDot:1
+7 SET II=II+1
SET @DATA@(II)=$PIECE($PIECE(SDATA,";",BI),":",1)_"^"_$PIECE($PIECE(SDATA,";",BI),":",2)_$CHAR(30)
End DoDot:1
+8 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+9 QUIT
+10 ;
PRST(DATA) ;EP - Get problem list statuses
+1 NEW SDATA,II,BI,CODE,DESC,ACT
+2 SET II=0
+3 SET @DATA@(II)="T00003IEN^T00045^T00001ACTIVE"_$CHAR(30)
+4 SET SDATA=$PIECE($GET(^DD(9000011,.12,0)),U,3)
IF SDATA=""
QUIT
+5 FOR BI=1:1:$LENGTH(SDATA,";")-1
Begin DoDot:1
+6 SET CODE=$PIECE($PIECE(SDATA,";",BI),":",1)
SET DESC=$PIECE($PIECE(SDATA,";",BI),":",2)
+7 SET ACT="Y"
+8 IF DESC="DELETED"!(DESC="INACTIVE")
SET ACT="N"
+9 SET II=II+1
SET @DATA@(II)=CODE_"^"_DESC_"^"_ACT_$CHAR(30)
End DoDot:1
+10 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+11 QUIT
+12 ;
EPLIST(DATA) ;EP - Get EHR personal lists
+1 NEW TDATA,II,BI
+2 KILL TDATA
+3 DO PLSTLST^BEHOPTP2(.TDATA)
+4 SET II=0
SET BI=0
+5 SET @DATA@(II)="T00003IEN^T00060"_$CHAR(30)
+6 FOR
SET BI=$ORDER(TDATA(BI))
IF BI=""
QUIT
Begin DoDot:1
+7 SET II=II+1
SET @DATA@(II)=TDATA(BI)_$CHAR(30)
End DoDot:1
+8 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+9 QUIT
+10 ;
UCL(DATA) ;EP - Get User Classes
+1 NEW UN
+2 SET II=0
SET UN=0
+3 SET @DATA@(II)="T00003IEN^T00060"_$CHAR(30)
+4 FOR
SET UN=$ORDER(^USR(8930,UN))
IF 'UN
QUIT
Begin DoDot:1
+5 IF $PIECE(^USR(8930,UN,0),U,3)'=1
QUIT
+6 SET II=II+1
SET @DATA@(II)=UN_U_$SELECT($PIECE(^USR(8930,UN,0),U,4)'="":$PIECE(^USR(8930,UN,0),U,4),1:$PIECE(^USR(8930,UN,0),U,1))_$CHAR(30)
End DoDot:1
+7 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+8 QUIT
+9 ;
FLTR(DATA) ;EP - Get list of filters
+1 SET II=0
+2 SET @DATA@(II)="I00010VDEF_IEN^T00030VDEF_TYPE^T00030FILTER_NAME^T00030FILTER_CATEGORY^T00030FILTER_CLINICAL_GROUP"_$CHAR(30)
+3 NEW IEN,VALUE,FN,FLN,CGRP,CLN,CAT,NAME
+4 SET IEN=0
+5 FOR
SET IEN=$ORDER(^BQI(90506.3,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+6 ; If vfile entry is flagged 'Do not display or extract', quit
+7 IF $$GET1^DIQ(90506.3,IEN_",",.05,"I")=1
QUIT
+8 SET II=II+1
+9 SET VALUE=IEN_U_$PIECE(^BQI(90506.3,IEN,0),U,1)
+10 SET FN=0
+11 FOR
SET FN=$ORDER(^BQI(90506.3,IEN,7,FN))
IF 'FN
QUIT
Begin DoDot:2
+12 NEW DA,IENS
+13 SET DA(1)=IEN
SET DA=FN
SET IENS=$$IENS^DILF(.DA)
+14 SET NAME=$$GET1^DIQ(90506.38,IENS,.01,"E")
+15 SET FLN=$$GET1^DIQ(90506.38,IENS,.01,"I")
+16 SET CLN=0
SET CAT=""
SET CGRP=""
+17 IF $ORDER(^BQI(90506.5,FLN,6,CLN))=""
SET II=II+1
SET @DATA@(II)=VALUE_U_NAME_U_CAT_U_CGRP_$CHAR(30)
QUIT
+18 FOR
SET CLN=$ORDER(^BQI(90506.5,FLN,6,CLN))
IF 'CLN
QUIT
Begin DoDot:3
+19 SET CGRP=$PIECE(^BQI(90506.5,FLN,6,CLN,0),U,2)
+20 SET II=II+1
SET @DATA@(II)=VALUE_U_NAME_U_CAT_U_CGRP_$CHAR(30)
End DoDot:3
End DoDot:2
End DoDot:1
+21 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+22 QUIT
+23 ;
IPCAT(DATA) ;EP - Get the table of IPC categories
+1 NEW IEN,TEXT,CAT2,CAT1,SBN,SBN,CRIPC
+2 SET II=0
+3 SET @DATA@(II)="T00010IEN^T00030CAT1^T00030CAT2"_$CHAR(30)
+4 SET CRIPC=$PIECE($GET(^BQI(90508,1,11)),U,1)
+5 ;S CRIPC="IPCMH"
+6 ;
+7 SET IEN=0
+8 FOR
SET IEN=$ORDER(^BQI(90506.8,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+9 IF $PIECE(^BQI(90506.8,IEN,0),U,3)'="C"
QUIT
+10 SET CAT1=$PIECE(^BQI(90506.8,IEN,0),"^",1)
+11 SET CAT2=$$GET1^DIQ(90506.8,IEN_",",.04,"E")
+12 IF CAT2'=""
SET TEXT=CAT2
SET CAT2=CAT1
+13 IF CAT2=""
SET TEXT=CAT1
+14 ; If inactive
+15 IF '$DATA(^BQI(90506.8,"AC",IEN))
SET II=II+1
SET @DATA@(II)=IEN_"^"_TEXT_"^"_CAT2_$CHAR(30)
QUIT
+16 SET SBN=""
+17 FOR
SET SBN=$ORDER(^BQI(90506.8,"AC",IEN,SBN))
IF SBN=""
QUIT
Begin DoDot:2
+18 IF $PIECE(^BQI(90506.8,SBN,0),"^",2)=1
QUIT
+19 IF $PIECE(^BQI(90506.8,SBN,0),U,5)'=CRIPC
QUIT
+20 SET CAT1=$PIECE(^BQI(90506.8,SBN,0),"^",1)
+21 SET CAT2=$$GET1^DIQ(90506.8,SBN_",",.04,"E")
+22 IF CAT2'=""
SET TEXT=CAT2
SET CAT2=CAT1
+23 IF CAT2=""
SET TEXT=CAT1
+24 SET II=II+1
SET @DATA@(II)=SBN_"^"_TEXT_"^"_CAT2_$CHAR(30)
End DoDot:2
End DoDot:1
+25 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+26 QUIT
+27 ;
CLIN(DATA) ;EP - Get the clinic codes
+1 NEW IEN,TEXT
+2 SET II=0
+3 SET @DATA@(II)="T00010IEN^T00030"_$CHAR(30)
+4 SET IEN=0
+5 FOR
SET IEN=$ORDER(^DIC(40.7,IEN))
IF 'IEN
QUIT
Begin DoDot:1
+6 SET TEXT=$PIECE(^DIC(40.7,IEN,0),"^",1)_" ("_$PIECE(^(0),U,2)_")"
+7 SET II=II+1
SET @DATA@(II)=IEN_"^"_TEXT_$CHAR(30)
End DoDot:1
+8 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+9 QUIT
+10 ;
IPCL(DATA) ;EP - Get the IPC clinic codes
+1 QUIT
+2 ;
DPCP(DATA) ;EP - Get DPCPs
+1 NEW IEN,TEXT
+2 SET II=0
+3 SET @DATA@(II)="T00010IEN^T00030"_$CHAR(30)
+4 SET IEN=""
+5 FOR
SET IEN=$ORDER(^AUPNPAT("AK",IEN))
IF IEN=""
QUIT
Begin DoDot:1
+6 SET TEXT=$PIECE(^VA(200,IEN,0),U,1)
+7 SET II=II+1
SET @DATA@(II)=IEN_"^"_TEXT_$CHAR(30)
End DoDot:1
+8 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+9 QUIT
+10 ;
MUT(DATA) ;EP - Get MU Tabs
+1 SET II=0
+2 SET @DATA@(II)="T00001CHOICE_TAB^T00030CHOICE_TEXT"_$CHAR(30)
+3 SET II=II+1
SET @DATA@(II)="P^Performance Measures"_$CHAR(30)
+4 SET II=II+1
SET @DATA@(II)="C^Clinical Quality Measures"_$CHAR(30)
+5 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+6 QUIT
