BQIMUHLP ;VNGT/HS/BEE-Get MU Glossary Information ; 08 Oct 2007 3:58 PM
;;2.2;ICARE MANAGEMENT SYSTEM;;Jul 28, 2011;Build 37
;
Q
;
GLOS(DATA,TYP,OBJ) ;EP -- BQI GET MU GLOSSARY
;
;Input
; TYP - E (EP) or H (Hospital/CAH)
; OBJ - A specific objective. If null, gets all objectives
;
NEW UID,II,OIEN,TYPE
;
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUHLP",UID))
K @DATA
;
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S OBJ=$G(OBJ,"")
S TYP=$G(TYP,""),TYPE=$S(TYP="E":"EP",TYP="H":"HOSPITAL/CAH",1:"")
;
S @DATA@(II)="T00050OBJ_SNAME^T00008CMSET^T01024STAGE1_OBJECTIVE^T01024STAGE1_DEN_DESC^T01024STAGE1_NUM_DESC^"
S @DATA@(II)=@DATA@(II)_"T01024STAGE1_LOGIC^T01024STAGE1_TARGET"_$C(30)
;
;Process single APCM MU OBJECTIVE
I OBJ]"" D G XGLOS
. S OIEN="" F S OIEN=$O(^APCMMUM("C",OBJ,OIEN)) Q:OIEN="" D GETOBJ(OIEN,TYP)
;
;Loop through APCM MU OBJECTIVES
S OBJ="" F S OBJ=$O(^APCMMUM("C",OBJ)) Q:OBJ="" D
. S OIEN="" F S OIEN=$O(^APCMMUM("C",OBJ,OIEN)) Q:OIEN="" D GETOBJ(OIEN,TYP)
;
XGLOS ;
S II=II+1,@DATA@(II)=$C(31)
Q
;
GETOBJ(OIEN,TYP) N N,CT,APCM,OBJSNM,CMSET,S1OBJ,DENDSC,NUMDSC,S1LOG,S1TRG
;
;Pull information for the entry
D GETS^DIQ(9001300.02,OIEN_",","**","","APCM")
;
;Pull EP or Hospital
I TYPE]"",$G(APCM(9001300.02,OIEN_",",.02))'=TYPE Q
;
;Pull OBJECTIVE SHORT NAME
S OBJSNM=$G(APCM(9001300.02,OIEN_",",.05))
;
;Pull CORE OR MENU SET
S CMSET=$G(APCM(9001300.02,OIEN_",",.03))
;
S II=II+1,@DATA@(II)=OBJSNM_U_CMSET_U
;
;Stage 1 Objective
S N=0,CT=1 F S N=$O(APCM(9001300.02,OIEN_",",1100,N)) Q:'N S CT=CT+1,S1OBJ(CT)=APCM(9001300.02,OIEN_",",1100,N)
S N=0 F S N=$O(S1OBJ(N)) Q:'N S II=II+1,@DATA@(II)=S1OBJ(N)_$S($O(S1OBJ(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;Stage 1 Denominator Description
S N=0,CT=1 F S N=$O(APCM(9001300.02,OIEN_",",1400,N)) Q:'N S CT=CT+1,DENDSC(CT)=APCM(9001300.02,OIEN_",",1400,N)
S N=0 F S N=$O(DENDSC(N)) Q:'N S II=II+1,@DATA@(II)=DENDSC(N)_$S($O(DENDSC(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;Stage 1 Numerator Description
S N=0,CT=1 F S N=$O(APCM(9001300.02,OIEN_",",1600,N)) Q:'N S CT=CT+1,NUMDSC(CT)=APCM(9001300.02,OIEN_",",1600,N)
S N=0 F S N=$O(NUMDSC(N)) Q:'N S II=II+1,@DATA@(II)=NUMDSC(N)_$S($O(NUMDSC(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;Stage 1 Logic
S N=0,CT=1 F S N=$O(APCM(9001300.02,OIEN_",",1800,N)) Q:'N S CT=CT+1,S1LOG(CT)=APCM(9001300.02,OIEN_",",1800,N)
S N=0 F S N=$O(S1LOG(N)) Q:'N S II=II+1,@DATA@(II)=S1LOG(N)_$S($O(S1LOG(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;Stage 1 Target
S N=0,CT=1 F S N=$O(APCM(9001300.02,OIEN_",",1300,N)) Q:'N S CT=CT+1,S1TRG(CT)=APCM(9001300.02,OIEN_",",1300,N)
S N=0 F S N=$O(S1TRG(N)) Q:'N S II=II+1,@DATA@(II)=S1TRG(N)_$S($O(S1TRG(N))]"":$C(10),1:"")
;
S @DATA@(II)=@DATA@(II)_$C(30)
;
Q
;
CQGLOS(DATA,TYP) ;EP -- BQI GET MU CQ GLOSSARY
;
;Input
; TYP - E (Eligible Providers CQ - ie all Non-HOSPITAL MEASURES entries - C/A/M)
; H (HOSPITAL MEASURES)
; C (CORE MEASURES)
; A (ALTERNATE CORE MEASURES)
; M (MENU SET MEASURES)
;
NEW UID,II,OIEN,TYPE,OTYP
;
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUHLP",UID))
K @DATA
;
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S TYP=$G(TYP,""),TYPE=""
I TYP]"" S TYPE=$S(TYP="E":"EP",1:$$STC^BQIUL2(90595.11,.04,TYP))
;
S @DATA@(II)="T00005MEAS_NUMB^T00075TITLE^T01024MEAS_DESC^T01024DENOMINATOR^T01024NUMERATOR^T01024EXCL_LOGIC"_$C(30)
;
;Loop through BGPMU 11 MEASURES
S OTYP="" F S OTYP=$O(^BGPMUIND(90595.11,"AMS",OTYP)) Q:OTYP="" D
. S OIEN="" F S OIEN=$O(^BGPMUIND(90595.11,"AMS",OTYP,OIEN)) Q:OIEN="" D GETCQ(OIEN,TYP)
;
XCQGLOS ;
S II=II+1,@DATA@(II)=$C(31)
Q
;
GETCQ(OIEN,TYP) N N,CT,BGPM,TFLG,MDESC,MDEN,MNUM,MEXC
;
;Pull information for the entry
D GETS^DIQ(90595.11,OIEN_",","**","","BGPM")
;
;Pull MEASURE SET
I TYPE]"" D I $G(TFLG)=1 Q
. N MSET
. S MSET=$G(BGPM(90595.11,OIEN_",",.04)) I MSET="" S TFLG=1 Q
. I TYP="E",MSET="HOSPITAL MEASURES" S TFLG=1 Q
. I TYP'="E",TYPE'=MSET S TFLG=1 Q
;
;MEASURE NUMBER
S II=II+1,@DATA@(II)=$G(BGPM(90595.11,OIEN_",",.01))
;
;TITLE/SELECTION TITLE
S @DATA@(II)=@DATA@(II)_U_$G(BGPM(90595.11,OIEN_",",.03))_U
;
;MEASURE DESCRIPTION
S N=0,CT=1 F S N=$O(BGPM(90595.11,OIEN_",",1200,N)) Q:'N S CT=CT+1,MDESC(CT)=BGPM(90595.11,OIEN_",",1200,N)
S N=0 F S N=$O(MDESC(N)) Q:'N S II=II+1,@DATA@(II)=MDESC(N)_$S($O(MDESC(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;DENOMINATOR
S N=0,CT=1 F S N=$O(BGPM(90595.11,OIEN_",",1400,N)) Q:'N S CT=CT+1,MDEN(CT)=BGPM(90595.11,OIEN_",",1400,N)
S N=0 F S N=$O(MDEN(N)) Q:'N S II=II+1,@DATA@(II)=MDEN(N)_$S($O(MDEN(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;NUMERATOR
S N=0,CT=1 F S N=$O(BGPM(90595.11,OIEN_",",1500,N)) Q:'N S CT=CT+1,MNUM(CT)=BGPM(90595.11,OIEN_",",1500,N)
S N=0 F S N=$O(MNUM(N)) Q:'N S II=II+1,@DATA@(II)=MNUM(N)_$S($O(MNUM(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)_"^"
;
;EXCLUSION LOGIC
S N=0,CT=1 F S N=$O(BGPM(90595.11,OIEN_",",1600,N)) Q:'N S CT=CT+1,MEXC(CT)=BGPM(90595.11,OIEN_",",1600,N)
S N=0 F S N=$O(MEXC(N)) Q:'N S II=II+1,@DATA@(II)=MEXC(N)_$S($O(MEXC(N))]"":$C(10),1:"")
S @DATA@(II)=@DATA@(II)
;
S @DATA@(II)=@DATA@(II)_$C(30)
;
Q
;
TGET(DATA,FAKE) ;EP -- BQI MU GET TIP DEF
;Input
; FAKE - Null, needed for BMXNET
;
NEW UID,II,HDR,PPRF,HPRF,PCQ,HCQ
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUHLP",UID))
K @DATA
;
S II=0
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S HDR="T00001PRV_PERF^T00001HSP_PERF^T00001PRV_CQ^T00001HSP_CQ"
S @DATA@(II)=HDR_$C(30)
;
S PPRF=$$GET1^DIQ(90505,DUZ_",",2.01,"I") S:PPRF="" PPRF="S"
S HPRF=$$GET1^DIQ(90505,DUZ_",",2.02,"I") S:HPRF="" HPRF="S"
S PCQ=$$GET1^DIQ(90505,DUZ_",",2.03,"I") S:PCQ="" PCQ="S"
S HCQ=$$GET1^DIQ(90505,DUZ_",",2.04,"I") S:HCQ="" HCQ="S"
S II=II+1,@DATA@(II)=PPRF_U_HPRF_U_PCQ_U_HCQ_$C(30)
S II=II+1,@DATA@(II)=$C(31)
Q
;
TUPD(DATA,PPRF,HPRF,PCQ,HCQ) ;EP -- BQI MU SET TIP DEF
;
;Description
; Set the user's MU Tip display defaults
;
;Input
; PPRF - Provider Performance Tip
; HPRF - Hospital Performance Tip
; PCQ - Provider CQ Tip
; HCQ - Hospital CQ Tip
;
;Output
; Returns 1-Successful save/-1 - Unsuccessful save
;
;Expects
; DUZ - the internal entry number of the person signed on
;
NEW UID,II,BQIUPD,ERROR
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIMUHLP",UID))
K @DATA
;
S II=0
S @DATA@(II)="I00010RESULT"_$C(30)
;
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S:PPRF]"" BQIUPD(90505,DUZ_",",2.01)=PPRF
S:HPRF]"" BQIUPD(90505,DUZ_",",2.02)=HPRF
S:PCQ]"" BQIUPD(90505,DUZ_",",2.03)=PCQ
S:HCQ]"" BQIUPD(90505,DUZ_",",2.04)=HCQ
;
D FILE^DIE("","BQIUPD","ERROR")
K BQIUPD
S II=II+1
I '$D(ERROR) S @DATA@(II)="1"_$C(30)
I $D(ERROR) S @DATA@(II)="-1"_$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
BQIMUHLP ;VNGT/HS/BEE-Get MU Glossary Information ; 08 Oct 2007 3:58 PM
+1 ;;2.2;ICARE MANAGEMENT SYSTEM;;Jul 28, 2011;Build 37
+2 ;
+3 QUIT
+4 ;
GLOS(DATA,TYP,OBJ) ;EP -- BQI GET MU GLOSSARY
+1 ;
+2 ;Input
+3 ; TYP - E (EP) or H (Hospital/CAH)
+4 ; OBJ - A specific objective. If null, gets all objectives
+5 ;
+6 NEW UID,II,OIEN,TYPE
+7 ;
+8 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+9 SET DATA=$NAME(^TMP("BQIMUHLP",UID))
+10 KILL @DATA
+11 ;
+12 SET II=0
+13 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER"
+14 ;
+15 SET OBJ=$GET(OBJ,"")
+16 SET TYP=$GET(TYP,"")
SET TYPE=$SELECT(TYP="E":"EP",TYP="H":"HOSPITAL/CAH",1:"")
+17 ;
+18 SET @DATA@(II)="T00050OBJ_SNAME^T00008CMSET^T01024STAGE1_OBJECTIVE^T01024STAGE1_DEN_DESC^T01024STAGE1_NUM_DESC^"
+19 SET @DATA@(II)=@DATA@(II)_"T01024STAGE1_LOGIC^T01024STAGE1_TARGET"_$CHAR(30)
+20 ;
+21 ;Process single APCM MU OBJECTIVE
+22 IF OBJ]""
Begin DoDot:1
+23 SET OIEN=""
FOR
SET OIEN=$ORDER(^APCMMUM("C",OBJ,OIEN))
IF OIEN=""
QUIT
DO GETOBJ(OIEN,TYP)
End DoDot:1
GOTO XGLOS
+24 ;
+25 ;Loop through APCM MU OBJECTIVES
+26 SET OBJ=""
FOR
SET OBJ=$ORDER(^APCMMUM("C",OBJ))
IF OBJ=""
QUIT
Begin DoDot:1
+27 SET OIEN=""
FOR
SET OIEN=$ORDER(^APCMMUM("C",OBJ,OIEN))
IF OIEN=""
QUIT
DO GETOBJ(OIEN,TYP)
End DoDot:1
+28 ;
XGLOS ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
GETOBJ(OIEN,TYP) NEW N,CT,APCM,OBJSNM,CMSET,S1OBJ,DENDSC,NUMDSC,S1LOG,S1TRG
+1 ;
+2 ;Pull information for the entry
+3 DO GETS^DIQ(9001300.02,OIEN_",","**","","APCM")
+4 ;
+5 ;Pull EP or Hospital
+6 IF TYPE]""
IF $GET(APCM(9001300.02,OIEN_",",.02))'=TYPE
QUIT
+7 ;
+8 ;Pull OBJECTIVE SHORT NAME
+9 SET OBJSNM=$GET(APCM(9001300.02,OIEN_",",.05))
+10 ;
+11 ;Pull CORE OR MENU SET
+12 SET CMSET=$GET(APCM(9001300.02,OIEN_",",.03))
+13 ;
+14 SET II=II+1
SET @DATA@(II)=OBJSNM_U_CMSET_U
+15 ;
+16 ;Stage 1 Objective
+17 SET N=0
SET CT=1
FOR
SET N=$ORDER(APCM(9001300.02,OIEN_",",1100,N))
IF 'N
QUIT
SET CT=CT+1
SET S1OBJ(CT)=APCM(9001300.02,OIEN_",",1100,N)
+18 SET N=0
FOR
SET N=$ORDER(S1OBJ(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=S1OBJ(N)_$SELECT($ORDER(S1OBJ(N))]"":$CHAR(10),1:"")
+19 SET @DATA@(II)=@DATA@(II)_"^"
+20 ;
+21 ;Stage 1 Denominator Description
+22 SET N=0
SET CT=1
FOR
SET N=$ORDER(APCM(9001300.02,OIEN_",",1400,N))
IF 'N
QUIT
SET CT=CT+1
SET DENDSC(CT)=APCM(9001300.02,OIEN_",",1400,N)
+23 SET N=0
FOR
SET N=$ORDER(DENDSC(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=DENDSC(N)_$SELECT($ORDER(DENDSC(N))]"":$CHAR(10),1:"")
+24 SET @DATA@(II)=@DATA@(II)_"^"
+25 ;
+26 ;Stage 1 Numerator Description
+27 SET N=0
SET CT=1
FOR
SET N=$ORDER(APCM(9001300.02,OIEN_",",1600,N))
IF 'N
QUIT
SET CT=CT+1
SET NUMDSC(CT)=APCM(9001300.02,OIEN_",",1600,N)
+28 SET N=0
FOR
SET N=$ORDER(NUMDSC(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=NUMDSC(N)_$SELECT($ORDER(NUMDSC(N))]"":$CHAR(10),1:"")
+29 SET @DATA@(II)=@DATA@(II)_"^"
+30 ;
+31 ;Stage 1 Logic
+32 SET N=0
SET CT=1
FOR
SET N=$ORDER(APCM(9001300.02,OIEN_",",1800,N))
IF 'N
QUIT
SET CT=CT+1
SET S1LOG(CT)=APCM(9001300.02,OIEN_",",1800,N)
+33 SET N=0
FOR
SET N=$ORDER(S1LOG(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=S1LOG(N)_$SELECT($ORDER(S1LOG(N))]"":$CHAR(10),1:"")
+34 SET @DATA@(II)=@DATA@(II)_"^"
+35 ;
+36 ;Stage 1 Target
+37 SET N=0
SET CT=1
FOR
SET N=$ORDER(APCM(9001300.02,OIEN_",",1300,N))
IF 'N
QUIT
SET CT=CT+1
SET S1TRG(CT)=APCM(9001300.02,OIEN_",",1300,N)
+38 SET N=0
FOR
SET N=$ORDER(S1TRG(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=S1TRG(N)_$SELECT($ORDER(S1TRG(N))]"":$CHAR(10),1:"")
+39 ;
+40 SET @DATA@(II)=@DATA@(II)_$CHAR(30)
+41 ;
+42 QUIT
+43 ;
CQGLOS(DATA,TYP) ;EP -- BQI GET MU CQ GLOSSARY
+1 ;
+2 ;Input
+3 ; TYP - E (Eligible Providers CQ - ie all Non-HOSPITAL MEASURES entries - C/A/M)
+4 ; H (HOSPITAL MEASURES)
+5 ; C (CORE MEASURES)
+6 ; A (ALTERNATE CORE MEASURES)
+7 ; M (MENU SET MEASURES)
+8 ;
+9 NEW UID,II,OIEN,TYPE,OTYP
+10 ;
+11 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+12 SET DATA=$NAME(^TMP("BQIMUHLP",UID))
+13 KILL @DATA
+14 ;
+15 SET II=0
+16 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER"
+17 ;
+18 SET TYP=$GET(TYP,"")
SET TYPE=""
+19 IF TYP]""
SET TYPE=$SELECT(TYP="E":"EP",1:$$STC^BQIUL2(90595.11,.04,TYP))
+20 ;
+21 SET @DATA@(II)="T00005MEAS_NUMB^T00075TITLE^T01024MEAS_DESC^T01024DENOMINATOR^T01024NUMERATOR^T01024EXCL_LOGIC"_$CHAR(30)
+22 ;
+23 ;Loop through BGPMU 11 MEASURES
+24 SET OTYP=""
FOR
SET OTYP=$ORDER(^BGPMUIND(90595.11,"AMS",OTYP))
IF OTYP=""
QUIT
Begin DoDot:1
+25 SET OIEN=""
FOR
SET OIEN=$ORDER(^BGPMUIND(90595.11,"AMS",OTYP,OIEN))
IF OIEN=""
QUIT
DO GETCQ(OIEN,TYP)
End DoDot:1
+26 ;
XCQGLOS ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
GETCQ(OIEN,TYP) NEW N,CT,BGPM,TFLG,MDESC,MDEN,MNUM,MEXC
+1 ;
+2 ;Pull information for the entry
+3 DO GETS^DIQ(90595.11,OIEN_",","**","","BGPM")
+4 ;
+5 ;Pull MEASURE SET
+6 IF TYPE]""
Begin DoDot:1
+7 NEW MSET
+8 SET MSET=$GET(BGPM(90595.11,OIEN_",",.04))
IF MSET=""
SET TFLG=1
QUIT
+9 IF TYP="E"
IF MSET="HOSPITAL MEASURES"
SET TFLG=1
QUIT
+10 IF TYP'="E"
IF TYPE'=MSET
SET TFLG=1
QUIT
End DoDot:1
IF $GET(TFLG)=1
QUIT
+11 ;
+12 ;MEASURE NUMBER
+13 SET II=II+1
SET @DATA@(II)=$GET(BGPM(90595.11,OIEN_",",.01))
+14 ;
+15 ;TITLE/SELECTION TITLE
+16 SET @DATA@(II)=@DATA@(II)_U_$GET(BGPM(90595.11,OIEN_",",.03))_U
+17 ;
+18 ;MEASURE DESCRIPTION
+19 SET N=0
SET CT=1
FOR
SET N=$ORDER(BGPM(90595.11,OIEN_",",1200,N))
IF 'N
QUIT
SET CT=CT+1
SET MDESC(CT)=BGPM(90595.11,OIEN_",",1200,N)
+20 SET N=0
FOR
SET N=$ORDER(MDESC(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=MDESC(N)_$SELECT($ORDER(MDESC(N))]"":$CHAR(10),1:"")
+21 SET @DATA@(II)=@DATA@(II)_"^"
+22 ;
+23 ;DENOMINATOR
+24 SET N=0
SET CT=1
FOR
SET N=$ORDER(BGPM(90595.11,OIEN_",",1400,N))
IF 'N
QUIT
SET CT=CT+1
SET MDEN(CT)=BGPM(90595.11,OIEN_",",1400,N)
+25 SET N=0
FOR
SET N=$ORDER(MDEN(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=MDEN(N)_$SELECT($ORDER(MDEN(N))]"":$CHAR(10),1:"")
+26 SET @DATA@(II)=@DATA@(II)_"^"
+27 ;
+28 ;NUMERATOR
+29 SET N=0
SET CT=1
FOR
SET N=$ORDER(BGPM(90595.11,OIEN_",",1500,N))
IF 'N
QUIT
SET CT=CT+1
SET MNUM(CT)=BGPM(90595.11,OIEN_",",1500,N)
+30 SET N=0
FOR
SET N=$ORDER(MNUM(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=MNUM(N)_$SELECT($ORDER(MNUM(N))]"":$CHAR(10),1:"")
+31 SET @DATA@(II)=@DATA@(II)_"^"
+32 ;
+33 ;EXCLUSION LOGIC
+34 SET N=0
SET CT=1
FOR
SET N=$ORDER(BGPM(90595.11,OIEN_",",1600,N))
IF 'N
QUIT
SET CT=CT+1
SET MEXC(CT)=BGPM(90595.11,OIEN_",",1600,N)
+35 SET N=0
FOR
SET N=$ORDER(MEXC(N))
IF 'N
QUIT
SET II=II+1
SET @DATA@(II)=MEXC(N)_$SELECT($ORDER(MEXC(N))]"":$CHAR(10),1:"")
+36 SET @DATA@(II)=@DATA@(II)
+37 ;
+38 SET @DATA@(II)=@DATA@(II)_$CHAR(30)
+39 ;
+40 QUIT
+41 ;
TGET(DATA,FAKE) ;EP -- BQI MU GET TIP DEF
+1 ;Input
+2 ; FAKE - Null, needed for BMXNET
+3 ;
+4 NEW UID,II,HDR,PPRF,HPRF,PCQ,HCQ
+5 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+6 SET DATA=$NAME(^TMP("BQIMUHLP",UID))
+7 KILL @DATA
+8 ;
+9 SET II=0
+10 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIMUHLP D UNWIND^%ZTER"
+11 ;
+12 SET HDR="T00001PRV_PERF^T00001HSP_PERF^T00001PRV_CQ^T00001HSP_CQ"
+13 SET @DATA@(II)=HDR_$CHAR(30)
+14 ;
+15 SET PPRF=$$GET1^DIQ(90505,DUZ_",",2.01,"I")
IF PPRF=""
SET PPRF="S"
+16 SET HPRF=$$GET1^DIQ(90505,DUZ_",",2.02,"I")
IF HPRF=""
SET HPRF="S"
+17 SET PCQ=$$GET1^DIQ(90505,DUZ_",",2.03,"I")
IF PCQ=""
SET PCQ="S"
+18 SET HCQ=$$GET1^DIQ(90505,DUZ_",",2.04,"I")
IF HCQ=""
SET HCQ="S"
+19 SET II=II+1
SET @DATA@(II)=PPRF_U_HPRF_U_PCQ_U_HCQ_$CHAR(30)
+20 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+21 QUIT
+22 ;
TUPD(DATA,PPRF,HPRF,PCQ,HCQ) ;EP -- BQI MU SET TIP DEF
+1 ;
+2 ;Description
+3 ; Set the user's MU Tip display defaults
+4 ;
+5 ;Input
+6 ; PPRF - Provider Performance Tip
+7 ; HPRF - Hospital Performance Tip
+8 ; PCQ - Provider CQ Tip
+9 ; HCQ - Hospital CQ Tip
+10 ;
+11 ;Output
+12 ; Returns 1-Successful save/-1 - Unsuccessful save
+13 ;
+14 ;Expects
+15 ; DUZ - the internal entry number of the person signed on
+16 ;
+17 NEW UID,II,BQIUPD,ERROR
+18 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+19 SET DATA=$NAME(^TMP("BQIMUHLP",UID))
+20 KILL @DATA
+21 ;
+22 SET II=0
+23 SET @DATA@(II)="I00010RESULT"_$CHAR(30)
+24 ;
+25 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER"
+26 ;
+27 IF PPRF]""
SET BQIUPD(90505,DUZ_",",2.01)=PPRF
+28 IF HPRF]""
SET BQIUPD(90505,DUZ_",",2.02)=HPRF
+29 IF PCQ]""
SET BQIUPD(90505,DUZ_",",2.03)=PCQ
+30 IF HCQ]""
SET BQIUPD(90505,DUZ_",",2.04)=HCQ
+31 ;
+32 DO FILE^DIE("","BQIUPD","ERROR")
+33 KILL BQIUPD
+34 SET II=II+1
+35 IF '$DATA(ERROR)
SET @DATA@(II)="1"_$CHAR(30)
+36 IF $DATA(ERROR)
SET @DATA@(II)="-1"_$CHAR(30)
+37 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+38 QUIT
+39 ;
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
