BQIPLUSR ;PRXM/HC/ALA-User Preferences ; 19 Oct 2005 6:29 PM
;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23
;
Q
;
OWNR(USR) ;EP -- Check owner
;
;Description
; Check if this user who has signed into iCare is already
; in ICARE USER File #90505
;Input
; DUZ - User internal entry number signed into iCare
;Output
; 1 - if user exists or if user added okay
; 0 - if there was an error adding user
;
I $G(^BQICARE(USR,0))'="" Q 1
I $D(^BQICARE(USR)),$G(^BQICARE(USR,0))="" D Q 1
. NEW DIE,DA,DR
. S DIE="^BQICARE(",DA=USR,DR=".01///^S X=USR" D ^DIE
;
CR ; Create new entry
NEW IENARRY,BQIUSR,ERROR
S IENARRY(1)=USR
S BQIUSR(90505,"+1,",.01)=USR
D UPDATE^DIE("","BQIUSR","IENARRY","ERROR")
I $D(ERROR) Q 0
Q 1
;
USPF(DATA,FAKE) ;EP -- BQI GET USER PREFS
;
;Description
; Get the user's preferences
;Input
; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
;Output
; DATA - name of global (passed by reference) in which the data
; is stored
;Expects
; DUZ - the internal entry number of the person signed on
;
I '$$OWNR(DUZ) S BMXSEC="Unable to access user record" Q
;
NEW UID,II,COD,NAME,PLIEN,PLNM,PLID,PTSRCH,X,PTVIEW,RCVIEW,CMVIEW,MUVIEW,CMFIL,CMTIP,FLFIL,FLTIP
NEW CHLOC,FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPQTIP,MPQFIL,PQTIP,PQFIL
NEW MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,OWNR,TRFIL,TRTIP,I,TRFND,PTFND
NEW IPATIP,IPAFIL,IFATIP,IFAFIL,ITATIP,ITAFIL
;
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIPLUSR",UID))
K @DATA
;
S II=0
S @DATA@(II)="T00001DEFAULT_VIEW^I00010OWNER^I00099PANEL_IEN^I00010PANEL_ID^T00001PAT_SEARCH^"
S @DATA@(II)=@DATA@(II)_"I00010PATIENT_VIEW^T00001RECORD_VIEW^T00001CMET_VIEW^T00001EVENT_TIP^"
S @DATA@(II)=@DATA@(II)_"T00001EVENT_FILTER^T00001TRACKED_TIP^T00001TRACKED_FILTER^T00001TRACKED_FINDING^"
S @DATA@(II)=@DATA@(II)_"T00001FOLLOWUP_TIP^T00001FOLLOWUP_FILTER^T00001MU_VIEW^"
S @DATA@(II)=@DATA@(II)_"T00045CHRT_LOC^T00045FOL_LOC^T00045TEL_LOC^T00002IPC_VIEW^"
S @DATA@(II)=@DATA@(II)_"T00010PANEL_VIEW^T00001PANEL_SIZE^T00001IPC_PT_TIP^T00001IPC_PT_FILTER^"
S @DATA@(II)=@DATA@(II)_"T00001IPC_PV_TIP^T00001IPC_PV_FILTER^T00001MPQTIP^T00001MPQFIL^"
S @DATA@(II)=@DATA@(II)_"T00001PANEL_EVENT_TIP^T00001PANEL_EVENT_FILTER^T00001PANEL_TRACKED_FINDING^"
S @DATA@(II)=@DATA@(II)_"T00001MPTIP^T00001MPFIL^T00001MHTIP^T00001MPATIP^T00001MPAFIL^"
S @DATA@(II)=@DATA@(II)_"T00001MHFIL^T00001MHQTIP^T00001MHQFIL^T00001MQATIP^T00001MQAFIL^"
S @DATA@(II)=@DATA@(II)_"T00001IPC_PA_TIP^T00001IPC_PA_FILTER^T00001IPC_FA_TIP^T00001IPC_FA_FILTER^"
S @DATA@(II)=@DATA@(II)_"T00001IPC_TA_TIP^T00001IPC_TA_FILTER"_$C(30)
;
NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
;
S PLIEN="",PLID=""
S COD=$$GET1^DIQ(90505,DUZ_",",.02,"E")
S NAME=$$GET1^DIQ(90505,DUZ_",",.02,"E")
S PLNM=$$GET1^DIQ(90505,DUZ_",",.03,"E")
S OWNR=$$GET1^DIQ(90505,DUZ_",",.04,"I")
S PTSRCH=$$GET1^DIQ(90505,DUZ_",",.05,"I")
S PTVIEW=$$GET1^DIQ(90505,DUZ_",",.07,"I") S:PTVIEW="" PTVIEW=$O(^BQI(90506.4,"B","Cover Sheet",""))
S RCVIEW=$$GET1^DIQ(90505,DUZ_",",.08,"I") S:RCVIEW="" RCVIEW="N"
S CMVIEW=$$GET1^DIQ(90505,DUZ_",",.09,"I")
S CMTIP=$$GET1^DIQ(90505,DUZ_",",.1,"I") S:CMTIP="" CMTIP="S"
S CMFIL=$$GET1^DIQ(90505,DUZ_",",.11,"I") S:CMFIL="" CMFIL="S"
S TRTIP=$$GET1^DIQ(90505,DUZ_",",.12,"I") S:TRTIP="" TRTIP="S"
S TRFIL=$$GET1^DIQ(90505,DUZ_",",.13,"I") S:TRFIL="" TRFIL="S"
S TRFND=$$GET1^DIQ(90505,DUZ_",",2.21,"I") S:TRFND="" TRFND="I"
S FLTIP=$$GET1^DIQ(90505,DUZ_",",.14,"I") S:FLTIP="" FLTIP="S"
S FLFIL=$$GET1^DIQ(90505,DUZ_",",.15,"I") S:FLFIL="" FLFIL="S"
S MUVIEW=$$GET1^DIQ(90505,DUZ_",",14.01,"I") S:MUVIEW="" MUVIEW="E"
S CHLOC=$$GET1^DIQ(90505,DUZ_",",.18,"I")
S FLLOC=$$GET1^DIQ(90505,DUZ_",",.19,"I")
S TLLOC=$$GET1^DIQ(90505,DUZ_",",.2,"I")
S IPCVIEW=$$GET1^DIQ(90505,DUZ_",",.21,"I") S:IPCVIEW="" IPCVIEW="PD"
S PNVIEW=$$GET1^DIQ(90505,DUZ_",",2.05,"I")
S PNSIZE=$$GET1^DIQ(90505,DUZ_",",2.06,"I") S:PNSIZE="" PNSIZE="N"
S IPTTIP=$$GET1^DIQ(90505,DUZ_",",2.07,"I") S:IPTTIP="" IPTTIP="S"
S IPTFIL=$$GET1^DIQ(90505,DUZ_",",2.08,"I") S:IPTFIL="" IPTFIL="S"
S IPVTIP=$$GET1^DIQ(90505,DUZ_",",2.09,"I") S:IPVTIP="" IPVTIP="S"
S IPVFIL=$$GET1^DIQ(90505,DUZ_",",2.1,"I") S:IPVFIL="" IPVFIL="S"
S IPATIP=$$GET1^DIQ(90505,DUZ_",",2.23,"I") S:IPATIP="" IPATIP="S"
S IPAFIL=$$GET1^DIQ(90505,DUZ_",",2.24,"I") S:IPAFIL="" IPAFIL="S"
S IFATIP=$$GET1^DIQ(90505,DUZ_",",2.25,"I") S:IFATIP="" IFATIP="S"
S IFAFIL=$$GET1^DIQ(90505,DUZ_",",2.26,"I") S:IFAFIL="" IFAFIL="S"
S ITATIP=$$GET1^DIQ(90505,DUZ_",",2.27,"I") S:ITATIP="" ITATIP="S"
S ITAFIL=$$GET1^DIQ(90505,DUZ_",",2.28,"I") S:ITAFIL="" ITAFIL="S"
S MPQTIP=$$GET1^DIQ(90505,DUZ_",",2.11,"I") S:MPQTIP="" MPQTIP="S"
S MPQFIL=$$GET1^DIQ(90505,DUZ_",",2.12,"I") S:MPQFIL="" MPQFIL="S"
S PQTIP=$$GET1^DIQ(90505,DUZ_",",2.13,"I") S:PQTIP="" PQTIP="S"
S PQFIL=$$GET1^DIQ(90505,DUZ_",",2.14,"I") S:PQFIL="" PQFIL="S"
S PTFND=$$GET1^DIQ(90505,DUZ_",",2.22,"I") S:PTFND="" PTFND="I"
S MPTIP=$$GET1^DIQ(90505,DUZ_",",2.01,"I") S:MPTIP="" MPTIP="S"
S MPFIL=$$GET1^DIQ(90505,DUZ_",",2.15,"I") S:MPFIL="" MPFIL="S"
S MHTIP=$$GET1^DIQ(90505,DUZ_",",2.02,"I") S:MHTIP="" MHTIP="S"
S MHFIL=$$GET1^DIQ(90505,DUZ_",",2.16,"I") S:MHFIL="" MHFIL="S"
S MHQTIP=$$GET1^DIQ(90505,DUZ_",",2.04,"I") S:MHQTIP="" MHQTIP="S"
S MHQFIL=$$GET1^DIQ(90505,DUZ_",",2.17,"I") S:MHQFIL="" MHQFIL="S"
S MQATIP=$$GET1^DIQ(90505,DUZ_",",2.03,"I") S:MQATIP="" MQATIP="S"
S MQAFIL=$$GET1^DIQ(90505,DUZ_",",2.18,"I") S:MQAFIL="" MQAFIL="S"
S MPATIP=$$GET1^DIQ(90505,DUZ_",",2.2,"I") S:MPATIP="" MPATIP="S"
S MPAFIL=$$GET1^DIQ(90505,DUZ_",",2.19,"I") S:MPAFIL="" MPAFIL="S"
I PTSRCH="" S PTSRCH="A"
I OWNR="" S OWNR=DUZ
;
I PLNM'="" D
. NEW DIC,DA
. S DA(1)=OWNR,DIC="^BQICARE("_DA(1)_",1,",X=PLNM,DIC(0)="Z"
. D ^DIC
. S PLIEN=+Y
. S PLID=$$PLID^BQIUG1(OWNR,PLIEN)
;
S II=II+1,@DATA@(II)=COD_U_OWNR_U_PLIEN_U_PLID_U_PTSRCH_U
S @DATA@(II)=@DATA@(II)_PTVIEW_U_RCVIEW_U_CMVIEW_U_CMTIP_U
S @DATA@(II)=@DATA@(II)_CMFIL_U_TRTIP_U_TRFIL_U_TRFND_U
S @DATA@(II)=@DATA@(II)_FLTIP_U_FLFIL_U_MUVIEW_U
S @DATA@(II)=@DATA@(II)_CHLOC_U_FLLOC_U_TLLOC_U_IPCVIEW_U
S @DATA@(II)=@DATA@(II)_PNVIEW_U_PNSIZE_U_IPTTIP_U_IPTFIL_U
S @DATA@(II)=@DATA@(II)_IPVTIP_U_IPVFIL_U_MPQTIP_U_MPQFIL_U
S @DATA@(II)=@DATA@(II)_PQTIP_U_PQFIL_U_PTFND_U
S @DATA@(II)=@DATA@(II)_MPTIP_U_MPFIL_U_MHTIP_U_MPATIP_U_MPAFIL_U
S @DATA@(II)=@DATA@(II)_MHFIL_U_MHQTIP_U_MHQFIL_U_MQATIP_U_MQAFIL_U
S @DATA@(II)=@DATA@(II)_IPATIP_U_IPAFIL_U_IFATIP_U_IFAFIL_U_ITATIP_U_ITAFIL_$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
;
SVUP(DATA,TYPE,PARMS) ;EP -- BQI SET USER PREFS
;
; Input
; TYPE - the type of save (S-Startup View, P-Patient View, CE-CMET Events, PQ-CMET Panel Event Tips/Filters
; CT-CMET Tracked, CF-CMET Followups,PN-Panel View,IP-Pat Det Tips/Filters,IR-Prv Det Tips/Filters,
; MP-MU Peformance, MQ-MU Clinical Quality)
; VIEW - the default view code
; OWNR - the owner
; PLIEN - the panel ien (if default view is specified panel)
; CMVIEW - the default CMET view (if default view is CMET or Split View CMET)
; SEARCH - Patient search criteria
; PTVIEW - Patient View opens with this tab
; RCVIEW - View is opened maximized or minimized
; CMTIP - Queued Tip show or hide
; CMFIL - Queued Filter show or hide
; TRTIP - Tracked Tip show or hide
; TRFIL - Tracked Filter show or hide
; TRFND - Tracked Finding icon or text
; FLTIP - Followup Tip show or hide
; FLFIL - Followup Filter show or hide
; MUVIEW - the default MU view (if default view is MU or Split MU)
; CHLOC - DEFAULT CHART REV LOCATION
; FLLOC - DEFAULT FOLLOWUP LTR LOCATION
; TLLOC - DEFAULT TELEPHONE LOCATION
; IPCVIEW - DEFAULT IPC View (if default view is IPC or SIPC)
; PNVIEW - Panel View opens with this tab
; PNSIZE - Panel Size is opened maximized or minimized
; IPTTIP - IPC Patient Detail Tip show or hide
; IPTFIL - IPC Patient Detail Filter show or hide
; IPVTIP - IPC Provider Detail Tip show or hide
; IPVFIL - IPC Provider Detail Filter show or hide
; MPQTIP - MU PCQ Tips show or hide
; MPQFIL - MU PCQ Filters show or hide
; PQTIP - Panel Event Tip show or hide
; PQFIL - Panel Event Filter show or hide
; PTFND - Panel Tracked Finding icon or text
; MPTIP - MU Provider Tip show or hide
; MPFIL - MU Provider Filter show or hide
; MHTIP - MU Hospital Tip show or hide
; MHFIL - MU Hospital Filter show or hide
; MHQTIP - MU HCQ Tip show or hide
; MHQFIL - MU HCQ Filter show or hide
; MQATIP - MU CQ by division Tip show or hide
; MQAFIL - MU CQ by division Filter show or hide
; MPATIP - MU Perf by division Tip show or hide
; MPAFIL - MU Perf by division Filter show or hide
;
;Output
; DATA - name of global (passed by reference) in which the data
; is stored
;Assumes DUZ the user signed onto iCare
;
NEW VIEW,OWNR,PLIEN,CMVIEW,SEARCH,PTVIEW,RCVIEW,CMTIP,CMFIL,TRTIP,TRFIL,FLTIP,FLFIL,MUVIEW,CHLOC
NEW FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL
NEW UID,II,X,BJ,MPQTIP,MPQFIL,PQTIP,PQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,TRFND,PTFND
;
S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
S DATA=$NA(^TMP("BQIPLUSR",UID))
K @DATA
;
I '$$OWNR(DUZ) S BMXSEC="There is a problem with your entry." Q
;
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 VIEW=$G(VIEW,""),OWNR=$G(OWNR,""),PLIEN=$G(PLIEN,""),CMVIEW=$G(CMVIEW,""),SEARCH=$G(SEARCH,"")
S PTVIEW=$G(PTVIEW,""),RCVIEW=$G(RCVIEW,""),CMTIP=$G(CMTIP,""),CMFIL=$G(CMFIL,""),TRTIP=$G(TRTIP,"")
S TRFIL=$G(TRFIL,""),FLTIP=$G(FLTIP,""),FLFIL=$G(FLFIL),MUVIEW=$G(MUVIEW),CHLOC=$G(CHLOC,""),FLLOC=$G(FLLOC,"")
S TLLOC=$G(TLLOC,""),IPCVIEW=$G(IPCVIEW,""),PNVIEW=$G(PNVIEW,""),PNSIZE=$G(PNSIZE,""),IPTTIP=$G(IPTTIP,"")
S IPTFIL=$G(IPTFIL,""),IPVTIP=$G(IPVTIP,""),IPVFIL=$G(IPVFIL,""),TYPE=$G(TYPE,""),PARMS=$G(PARMS,"")
S MPQTIP=$G(MPQTIP,""),MPQFIL=$G(MPQFIL,""),PQTIP=$G(PQTIP,""),PQFIL=$G(PQFIL,""),TRFND=$G(TRFND,"")
S MPTIP=$G(MPTIP,""),MPFIL=$G(MPFIL,""),MHTIP=$G(MHTIP,""),MHFIL=$G(MHFIL,""),MHQTIP=$G(MHQTIP,"")
S MHQFIL=$G(MHQFIL,""),MPATIP=$G(MPATIP,""),MPAFIL=$G(MPAFIL,""),MQATIP=$G(MQATIP,""),MQAFIL=$G(MQAFIL,"")
S PTFND=$G(PTFND,"")
;
;Re-Assemble PARMS list string
I PARMS="" D
. N LIST,BN
. S LIST="",BN=""
. F S BN=$O(PARMS(BN)) Q:BN="" S LIST=LIST_PARMS(BN)
. K PARMS
. S PARMS=LIST
. K LIST
;
;Define variables from PARMS string
F BJ=1:1:$L(PARMS,$C(28)) D Q:$G(BMXSEC)'=""
.N PDATA,NAME,VALUE,BP,BV
.S PDATA=$P(PARMS,$C(28),BJ) Q:PDATA=""
.S NAME=$P(PDATA,"=",1) Q:NAME=""
.S VALUE=$P(PDATA,"=",2,99) Q:VALUE=""
.F BP=1:1:$L(VALUE,$C(29)) S BV=$P(VALUE,$C(29),BP),@NAME=$G(@NAME)_$S(BP=1:"",1:$C(29))_BV
;
S:PTVIEW="" PTVIEW=$O(^BQI(90506.4,"B","Cover Sheet",""))
S:RCVIEW="" RCVIEW="N"
;
;Convert Default View back to internal
I VIEW]"" D
. N X,Y,DIC
. S X=VIEW,DIC="^BQI(90506.7," D ^DIC
. I +Y>0 S VIEW=+Y
;
;Save Startup View information
I TYPE="S" D
. S BQIUPD(90505,DUZ_",",.02)=VIEW
. S BQIUPD(90505,DUZ_",",.05)=SEARCH
. S BQIUPD(90505,DUZ_",",14.01)=MUVIEW
. ;
. ;Save default panel information
. I $G(PLIEN)'="" D
.. NEW DA,IENS
.. S DA(1)=OWNR,DA=PLIEN,IENS=$$IENS^DILF(.DA)
.. S BQIUPD(90505,DUZ_",",.03)=$$GET1^DIQ(90505.01,IENS,.01,"E")
.. S BQIUPD(90505,DUZ_",",.04)=OWNR
. ;
. ;Save the Default CMET view
. S:CMVIEW]"" BQIUPD(90505,DUZ_",",.09)=CMVIEW
. ;
. ;Save the Default IPC view
. S:IPCVIEW]"" BQIUPD(90505,DUZ_",",.21)=IPCVIEW
;
;Save Patient View information
I TYPE="P" D
. S BQIUPD(90505,DUZ_",",.07)=PTVIEW
. S BQIUPD(90505,DUZ_",",.08)=RCVIEW
. S BQIUPD(90505,DUZ_",",.18)=CHLOC
. S BQIUPD(90505,DUZ_",",.19)=FLLOC
. S BQIUPD(90505,DUZ_",",.2)=TLLOC
;
;Save Panel View information
I TYPE="PN" D
. S BQIUPD(90505,DUZ_",",2.05)=PNVIEW
. S BQIUPD(90505,DUZ_",",2.06)=PNSIZE
;
;Save CMET Events information
I TYPE="CE" D
. S BQIUPD(90505,DUZ_",",.1)=CMTIP
. S BQIUPD(90505,DUZ_",",.11)=CMFIL
;
;Save CMET Tracked Events information
I TYPE="CT" D
. S BQIUPD(90505,DUZ_",",.12)=TRTIP
. S BQIUPD(90505,DUZ_",",.13)=TRFIL
. S BQIUPD(90505,DUZ_",",2.21)=TRFND
;
;Save CMET Followup Events information
I TYPE="CF" D
. S BQIUPD(90505,DUZ_",",.14)=FLTIP
. S BQIUPD(90505,DUZ_",",.15)=FLFIL
;
;Save IPC Patient Detail Tips/Filters
I TYPE="IP" D
. S BQIUPD(90505,DUZ_",",2.07)=IPTTIP
. S BQIUPD(90505,DUZ_",",2.08)=IPTFIL
;
;Save IPC Provider Detail Tips/Filters
I TYPE="IR" D
. S BQIUPD(90505,DUZ_",",2.09)=IPVTIP
. S BQIUPD(90505,DUZ_",",2.1)=IPVFIL
;
;Save IPC Provider Aggregate Tips/Filters
I TYPE="PA" D
. S BQIUPD(90505,DUZ_",",2.23)=IPATIP
. S BQIUPD(90505,DUZ_",",2.24)=IPAFIL
;
;Save IPC Facility Aggregate Tips/Filters
I TYPE="FA" D
. S BQIUPD(90505,DUZ_",",2.25)=IFATIP
. S BQIUPD(90505,DUZ_",",2.26)=IFAFIL
;
;Save IPC Team Aggregate Tips/Filters
I TYPE="TA" D
. S BQIUPD(90505,DUZ_",",2.27)=ITATIP
. S BQIUPD(90505,DUZ_",",2.28)=ITAFIL
;
;Save MU Prov Tips/Filters
I TYPE="MP" D
. S BQIUPD(90505,DUZ_",",2.01)=MPTIP
. S BQIUPD(90505,DUZ_",",2.15)=MPFIL
;
;Save MU Hosp Tips/Filters
I TYPE="MH" D
. S BQIUPD(90505,DUZ_",",2.02)=MHTIP
. S BQIUPD(90505,DUZ_",",2.16)=MHFIL
;
;Save MU HCQ Tips/Filters
I TYPE="MHQ" D
. S BQIUPD(90505,DUZ_",",2.04)=MHQTIP
. S BQIUPD(90505,DUZ_",",2.17)=MHQFIL
;
;Save MU PCQ Tips/Filters
I TYPE="MPQ" D
. S BQIUPD(90505,DUZ_",",2.11)=MPQTIP
. S BQIUPD(90505,DUZ_",",2.12)=MPQFIL
;
;Save MU Pref by Division Tips/Filters
I TYPE="MPD" D
. S BQIUPD(90505,DUZ_",",2.2)=MPATIP
. S BQIUPD(90505,DUZ_",",2.19)=MPAFIL
;
;Save MU CQ by Division Tips/Filters
I TYPE="MCD" D
. S BQIUPD(90505,DUZ_",",2.03)=MQATIP
. S BQIUPD(90505,DUZ_",",2.18)=MQAFIL
;
;Save CMET Panel Event Tips/Filters
I TYPE="PQ" D
. S BQIUPD(90505,DUZ_",",2.13)=PQTIP
. S BQIUPD(90505,DUZ_",",2.14)=PQFIL
;
; Save CMET Panel Tracked Events
I TYPE="PT" D
. S BQIUPD(90505,DUZ_",",2.22)=PTFND
;
K ERROR
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
BQIPLUSR ;PRXM/HC/ALA-User Preferences ; 19 Oct 2005 6:29 PM
+1 ;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23
+2 ;
+3 QUIT
+4 ;
OWNR(USR) ;EP -- Check owner
+1 ;
+2 ;Description
+3 ; Check if this user who has signed into iCare is already
+4 ; in ICARE USER File #90505
+5 ;Input
+6 ; DUZ - User internal entry number signed into iCare
+7 ;Output
+8 ; 1 - if user exists or if user added okay
+9 ; 0 - if there was an error adding user
+10 ;
+11 IF $GET(^BQICARE(USR,0))'=""
QUIT 1
+12 IF $DATA(^BQICARE(USR))
IF $GET(^BQICARE(USR,0))=""
Begin DoDot:1
+13 NEW DIE,DA,DR
+14 SET DIE="^BQICARE("
SET DA=USR
SET DR=".01///^S X=USR"
DO ^DIE
End DoDot:1
QUIT 1
+15 ;
CR ; Create new entry
+1 NEW IENARRY,BQIUSR,ERROR
+2 SET IENARRY(1)=USR
+3 SET BQIUSR(90505,"+1,",.01)=USR
+4 DO UPDATE^DIE("","BQIUSR","IENARRY","ERROR")
+5 IF $DATA(ERROR)
QUIT 0
+6 QUIT 1
+7 ;
USPF(DATA,FAKE) ;EP -- BQI GET USER PREFS
+1 ;
+2 ;Description
+3 ; Get the user's preferences
+4 ;Input
+5 ; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
+6 ;Output
+7 ; DATA - name of global (passed by reference) in which the data
+8 ; is stored
+9 ;Expects
+10 ; DUZ - the internal entry number of the person signed on
+11 ;
+12 IF '$$OWNR(DUZ)
SET BMXSEC="Unable to access user record"
QUIT
+13 ;
+14 NEW UID,II,COD,NAME,PLIEN,PLNM,PLID,PTSRCH,X,PTVIEW,RCVIEW,CMVIEW,MUVIEW,CMFIL,CMTIP,FLFIL,FLTIP
+15 NEW CHLOC,FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPQTIP,MPQFIL,PQTIP,PQFIL
+16 NEW MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,OWNR,TRFIL,TRTIP,I,TRFND,PTFND
+17 NEW IPATIP,IPAFIL,IFATIP,IFAFIL,ITATIP,ITAFIL
+18 ;
+19 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+20 SET DATA=$NAME(^TMP("BQIPLUSR",UID))
+21 KILL @DATA
+22 ;
+23 SET II=0
+24 SET @DATA@(II)="T00001DEFAULT_VIEW^I00010OWNER^I00099PANEL_IEN^I00010PANEL_ID^T00001PAT_SEARCH^"
+25 SET @DATA@(II)=@DATA@(II)_"I00010PATIENT_VIEW^T00001RECORD_VIEW^T00001CMET_VIEW^T00001EVENT_TIP^"
+26 SET @DATA@(II)=@DATA@(II)_"T00001EVENT_FILTER^T00001TRACKED_TIP^T00001TRACKED_FILTER^T00001TRACKED_FINDING^"
+27 SET @DATA@(II)=@DATA@(II)_"T00001FOLLOWUP_TIP^T00001FOLLOWUP_FILTER^T00001MU_VIEW^"
+28 SET @DATA@(II)=@DATA@(II)_"T00045CHRT_LOC^T00045FOL_LOC^T00045TEL_LOC^T00002IPC_VIEW^"
+29 SET @DATA@(II)=@DATA@(II)_"T00010PANEL_VIEW^T00001PANEL_SIZE^T00001IPC_PT_TIP^T00001IPC_PT_FILTER^"
+30 SET @DATA@(II)=@DATA@(II)_"T00001IPC_PV_TIP^T00001IPC_PV_FILTER^T00001MPQTIP^T00001MPQFIL^"
+31 SET @DATA@(II)=@DATA@(II)_"T00001PANEL_EVENT_TIP^T00001PANEL_EVENT_FILTER^T00001PANEL_TRACKED_FINDING^"
+32 SET @DATA@(II)=@DATA@(II)_"T00001MPTIP^T00001MPFIL^T00001MHTIP^T00001MPATIP^T00001MPAFIL^"
+33 SET @DATA@(II)=@DATA@(II)_"T00001MHFIL^T00001MHQTIP^T00001MHQFIL^T00001MQATIP^T00001MQAFIL^"
+34 SET @DATA@(II)=@DATA@(II)_"T00001IPC_PA_TIP^T00001IPC_PA_FILTER^T00001IPC_FA_TIP^T00001IPC_FA_FILTER^"
+35 SET @DATA@(II)=@DATA@(II)_"T00001IPC_TA_TIP^T00001IPC_TA_FILTER"_$CHAR(30)
+36 ;
+37 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER"
+38 ;
+39 SET PLIEN=""
SET PLID=""
+40 SET COD=$$GET1^DIQ(90505,DUZ_",",.02,"E")
+41 SET NAME=$$GET1^DIQ(90505,DUZ_",",.02,"E")
+42 SET PLNM=$$GET1^DIQ(90505,DUZ_",",.03,"E")
+43 SET OWNR=$$GET1^DIQ(90505,DUZ_",",.04,"I")
+44 SET PTSRCH=$$GET1^DIQ(90505,DUZ_",",.05,"I")
+45 SET PTVIEW=$$GET1^DIQ(90505,DUZ_",",.07,"I")
IF PTVIEW=""
SET PTVIEW=$ORDER(^BQI(90506.4,"B","Cover Sheet",""))
+46 SET RCVIEW=$$GET1^DIQ(90505,DUZ_",",.08,"I")
IF RCVIEW=""
SET RCVIEW="N"
+47 SET CMVIEW=$$GET1^DIQ(90505,DUZ_",",.09,"I")
+48 SET CMTIP=$$GET1^DIQ(90505,DUZ_",",.1,"I")
IF CMTIP=""
SET CMTIP="S"
+49 SET CMFIL=$$GET1^DIQ(90505,DUZ_",",.11,"I")
IF CMFIL=""
SET CMFIL="S"
+50 SET TRTIP=$$GET1^DIQ(90505,DUZ_",",.12,"I")
IF TRTIP=""
SET TRTIP="S"
+51 SET TRFIL=$$GET1^DIQ(90505,DUZ_",",.13,"I")
IF TRFIL=""
SET TRFIL="S"
+52 SET TRFND=$$GET1^DIQ(90505,DUZ_",",2.21,"I")
IF TRFND=""
SET TRFND="I"
+53 SET FLTIP=$$GET1^DIQ(90505,DUZ_",",.14,"I")
IF FLTIP=""
SET FLTIP="S"
+54 SET FLFIL=$$GET1^DIQ(90505,DUZ_",",.15,"I")
IF FLFIL=""
SET FLFIL="S"
+55 SET MUVIEW=$$GET1^DIQ(90505,DUZ_",",14.01,"I")
IF MUVIEW=""
SET MUVIEW="E"
+56 SET CHLOC=$$GET1^DIQ(90505,DUZ_",",.18,"I")
+57 SET FLLOC=$$GET1^DIQ(90505,DUZ_",",.19,"I")
+58 SET TLLOC=$$GET1^DIQ(90505,DUZ_",",.2,"I")
+59 SET IPCVIEW=$$GET1^DIQ(90505,DUZ_",",.21,"I")
IF IPCVIEW=""
SET IPCVIEW="PD"
+60 SET PNVIEW=$$GET1^DIQ(90505,DUZ_",",2.05,"I")
+61 SET PNSIZE=$$GET1^DIQ(90505,DUZ_",",2.06,"I")
IF PNSIZE=""
SET PNSIZE="N"
+62 SET IPTTIP=$$GET1^DIQ(90505,DUZ_",",2.07,"I")
IF IPTTIP=""
SET IPTTIP="S"
+63 SET IPTFIL=$$GET1^DIQ(90505,DUZ_",",2.08,"I")
IF IPTFIL=""
SET IPTFIL="S"
+64 SET IPVTIP=$$GET1^DIQ(90505,DUZ_",",2.09,"I")
IF IPVTIP=""
SET IPVTIP="S"
+65 SET IPVFIL=$$GET1^DIQ(90505,DUZ_",",2.1,"I")
IF IPVFIL=""
SET IPVFIL="S"
+66 SET IPATIP=$$GET1^DIQ(90505,DUZ_",",2.23,"I")
IF IPATIP=""
SET IPATIP="S"
+67 SET IPAFIL=$$GET1^DIQ(90505,DUZ_",",2.24,"I")
IF IPAFIL=""
SET IPAFIL="S"
+68 SET IFATIP=$$GET1^DIQ(90505,DUZ_",",2.25,"I")
IF IFATIP=""
SET IFATIP="S"
+69 SET IFAFIL=$$GET1^DIQ(90505,DUZ_",",2.26,"I")
IF IFAFIL=""
SET IFAFIL="S"
+70 SET ITATIP=$$GET1^DIQ(90505,DUZ_",",2.27,"I")
IF ITATIP=""
SET ITATIP="S"
+71 SET ITAFIL=$$GET1^DIQ(90505,DUZ_",",2.28,"I")
IF ITAFIL=""
SET ITAFIL="S"
+72 SET MPQTIP=$$GET1^DIQ(90505,DUZ_",",2.11,"I")
IF MPQTIP=""
SET MPQTIP="S"
+73 SET MPQFIL=$$GET1^DIQ(90505,DUZ_",",2.12,"I")
IF MPQFIL=""
SET MPQFIL="S"
+74 SET PQTIP=$$GET1^DIQ(90505,DUZ_",",2.13,"I")
IF PQTIP=""
SET PQTIP="S"
+75 SET PQFIL=$$GET1^DIQ(90505,DUZ_",",2.14,"I")
IF PQFIL=""
SET PQFIL="S"
+76 SET PTFND=$$GET1^DIQ(90505,DUZ_",",2.22,"I")
IF PTFND=""
SET PTFND="I"
+77 SET MPTIP=$$GET1^DIQ(90505,DUZ_",",2.01,"I")
IF MPTIP=""
SET MPTIP="S"
+78 SET MPFIL=$$GET1^DIQ(90505,DUZ_",",2.15,"I")
IF MPFIL=""
SET MPFIL="S"
+79 SET MHTIP=$$GET1^DIQ(90505,DUZ_",",2.02,"I")
IF MHTIP=""
SET MHTIP="S"
+80 SET MHFIL=$$GET1^DIQ(90505,DUZ_",",2.16,"I")
IF MHFIL=""
SET MHFIL="S"
+81 SET MHQTIP=$$GET1^DIQ(90505,DUZ_",",2.04,"I")
IF MHQTIP=""
SET MHQTIP="S"
+82 SET MHQFIL=$$GET1^DIQ(90505,DUZ_",",2.17,"I")
IF MHQFIL=""
SET MHQFIL="S"
+83 SET MQATIP=$$GET1^DIQ(90505,DUZ_",",2.03,"I")
IF MQATIP=""
SET MQATIP="S"
+84 SET MQAFIL=$$GET1^DIQ(90505,DUZ_",",2.18,"I")
IF MQAFIL=""
SET MQAFIL="S"
+85 SET MPATIP=$$GET1^DIQ(90505,DUZ_",",2.2,"I")
IF MPATIP=""
SET MPATIP="S"
+86 SET MPAFIL=$$GET1^DIQ(90505,DUZ_",",2.19,"I")
IF MPAFIL=""
SET MPAFIL="S"
+87 IF PTSRCH=""
SET PTSRCH="A"
+88 IF OWNR=""
SET OWNR=DUZ
+89 ;
+90 IF PLNM'=""
Begin DoDot:1
+91 NEW DIC,DA
+92 SET DA(1)=OWNR
SET DIC="^BQICARE("_DA(1)_",1,"
SET X=PLNM
SET DIC(0)="Z"
+93 DO ^DIC
+94 SET PLIEN=+Y
+95 SET PLID=$$PLID^BQIUG1(OWNR,PLIEN)
End DoDot:1
+96 ;
+97 SET II=II+1
SET @DATA@(II)=COD_U_OWNR_U_PLIEN_U_PLID_U_PTSRCH_U
+98 SET @DATA@(II)=@DATA@(II)_PTVIEW_U_RCVIEW_U_CMVIEW_U_CMTIP_U
+99 SET @DATA@(II)=@DATA@(II)_CMFIL_U_TRTIP_U_TRFIL_U_TRFND_U
+100 SET @DATA@(II)=@DATA@(II)_FLTIP_U_FLFIL_U_MUVIEW_U
+101 SET @DATA@(II)=@DATA@(II)_CHLOC_U_FLLOC_U_TLLOC_U_IPCVIEW_U
+102 SET @DATA@(II)=@DATA@(II)_PNVIEW_U_PNSIZE_U_IPTTIP_U_IPTFIL_U
+103 SET @DATA@(II)=@DATA@(II)_IPVTIP_U_IPVFIL_U_MPQTIP_U_MPQFIL_U
+104 SET @DATA@(II)=@DATA@(II)_PQTIP_U_PQFIL_U_PTFND_U
+105 SET @DATA@(II)=@DATA@(II)_MPTIP_U_MPFIL_U_MHTIP_U_MPATIP_U_MPAFIL_U
+106 SET @DATA@(II)=@DATA@(II)_MHFIL_U_MHQTIP_U_MHQFIL_U_MQATIP_U_MQAFIL_U
+107 SET @DATA@(II)=@DATA@(II)_IPATIP_U_IPAFIL_U_IFATIP_U_IFAFIL_U_ITATIP_U_ITAFIL_$CHAR(30)
+108 ;
DONE ;
+1 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+2 QUIT
+3 ;
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
+7 ;
SVUP(DATA,TYPE,PARMS) ;EP -- BQI SET USER PREFS
+1 ;
+2 ; Input
+3 ; TYPE - the type of save (S-Startup View, P-Patient View, CE-CMET Events, PQ-CMET Panel Event Tips/Filters
+4 ; CT-CMET Tracked, CF-CMET Followups,PN-Panel View,IP-Pat Det Tips/Filters,IR-Prv Det Tips/Filters,
+5 ; MP-MU Peformance, MQ-MU Clinical Quality)
+6 ; VIEW - the default view code
+7 ; OWNR - the owner
+8 ; PLIEN - the panel ien (if default view is specified panel)
+9 ; CMVIEW - the default CMET view (if default view is CMET or Split View CMET)
+10 ; SEARCH - Patient search criteria
+11 ; PTVIEW - Patient View opens with this tab
+12 ; RCVIEW - View is opened maximized or minimized
+13 ; CMTIP - Queued Tip show or hide
+14 ; CMFIL - Queued Filter show or hide
+15 ; TRTIP - Tracked Tip show or hide
+16 ; TRFIL - Tracked Filter show or hide
+17 ; TRFND - Tracked Finding icon or text
+18 ; FLTIP - Followup Tip show or hide
+19 ; FLFIL - Followup Filter show or hide
+20 ; MUVIEW - the default MU view (if default view is MU or Split MU)
+21 ; CHLOC - DEFAULT CHART REV LOCATION
+22 ; FLLOC - DEFAULT FOLLOWUP LTR LOCATION
+23 ; TLLOC - DEFAULT TELEPHONE LOCATION
+24 ; IPCVIEW - DEFAULT IPC View (if default view is IPC or SIPC)
+25 ; PNVIEW - Panel View opens with this tab
+26 ; PNSIZE - Panel Size is opened maximized or minimized
+27 ; IPTTIP - IPC Patient Detail Tip show or hide
+28 ; IPTFIL - IPC Patient Detail Filter show or hide
+29 ; IPVTIP - IPC Provider Detail Tip show or hide
+30 ; IPVFIL - IPC Provider Detail Filter show or hide
+31 ; MPQTIP - MU PCQ Tips show or hide
+32 ; MPQFIL - MU PCQ Filters show or hide
+33 ; PQTIP - Panel Event Tip show or hide
+34 ; PQFIL - Panel Event Filter show or hide
+35 ; PTFND - Panel Tracked Finding icon or text
+36 ; MPTIP - MU Provider Tip show or hide
+37 ; MPFIL - MU Provider Filter show or hide
+38 ; MHTIP - MU Hospital Tip show or hide
+39 ; MHFIL - MU Hospital Filter show or hide
+40 ; MHQTIP - MU HCQ Tip show or hide
+41 ; MHQFIL - MU HCQ Filter show or hide
+42 ; MQATIP - MU CQ by division Tip show or hide
+43 ; MQAFIL - MU CQ by division Filter show or hide
+44 ; MPATIP - MU Perf by division Tip show or hide
+45 ; MPAFIL - MU Perf by division Filter show or hide
+46 ;
+47 ;Output
+48 ; DATA - name of global (passed by reference) in which the data
+49 ; is stored
+50 ;Assumes DUZ the user signed onto iCare
+51 ;
+52 NEW VIEW,OWNR,PLIEN,CMVIEW,SEARCH,PTVIEW,RCVIEW,CMTIP,CMFIL,TRTIP,TRFIL,FLTIP,FLFIL,MUVIEW,CHLOC
+53 NEW FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL
+54 NEW UID,II,X,BJ,MPQTIP,MPQFIL,PQTIP,PQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,TRFND,PTFND
+55 ;
+56 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
+57 SET DATA=$NAME(^TMP("BQIPLUSR",UID))
+58 KILL @DATA
+59 ;
+60 IF '$$OWNR(DUZ)
SET BMXSEC="There is a problem with your entry."
QUIT
+61 ;
+62 SET II=0
+63 SET @DATA@(II)="I00010RESULT"_$CHAR(30)
+64 ;
+65 ; SAC 2006 2.2.3.3.2
NEW $ESTACK,$ETRAP
SET $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER"
+66 ;
+67 SET VIEW=$GET(VIEW,"")
SET OWNR=$GET(OWNR,"")
SET PLIEN=$GET(PLIEN,"")
SET CMVIEW=$GET(CMVIEW,"")
SET SEARCH=$GET(SEARCH,"")
+68 SET PTVIEW=$GET(PTVIEW,"")
SET RCVIEW=$GET(RCVIEW,"")
SET CMTIP=$GET(CMTIP,"")
SET CMFIL=$GET(CMFIL,"")
SET TRTIP=$GET(TRTIP,"")
+69 SET TRFIL=$GET(TRFIL,"")
SET FLTIP=$GET(FLTIP,"")
SET FLFIL=$GET(FLFIL)
SET MUVIEW=$GET(MUVIEW)
SET CHLOC=$GET(CHLOC,"")
SET FLLOC=$GET(FLLOC,"")
+70 SET TLLOC=$GET(TLLOC,"")
SET IPCVIEW=$GET(IPCVIEW,"")
SET PNVIEW=$GET(PNVIEW,"")
SET PNSIZE=$GET(PNSIZE,"")
SET IPTTIP=$GET(IPTTIP,"")
+71 SET IPTFIL=$GET(IPTFIL,"")
SET IPVTIP=$GET(IPVTIP,"")
SET IPVFIL=$GET(IPVFIL,"")
SET TYPE=$GET(TYPE,"")
SET PARMS=$GET(PARMS,"")
+72 SET MPQTIP=$GET(MPQTIP,"")
SET MPQFIL=$GET(MPQFIL,"")
SET PQTIP=$GET(PQTIP,"")
SET PQFIL=$GET(PQFIL,"")
SET TRFND=$GET(TRFND,"")
+73 SET MPTIP=$GET(MPTIP,"")
SET MPFIL=$GET(MPFIL,"")
SET MHTIP=$GET(MHTIP,"")
SET MHFIL=$GET(MHFIL,"")
SET MHQTIP=$GET(MHQTIP,"")
+74 SET MHQFIL=$GET(MHQFIL,"")
SET MPATIP=$GET(MPATIP,"")
SET MPAFIL=$GET(MPAFIL,"")
SET MQATIP=$GET(MQATIP,"")
SET MQAFIL=$GET(MQAFIL,"")
+75 SET PTFND=$GET(PTFND,"")
+76 ;
+77 ;Re-Assemble PARMS list string
+78 IF PARMS=""
Begin DoDot:1
+79 NEW LIST,BN
+80 SET LIST=""
SET BN=""
+81 FOR
SET BN=$ORDER(PARMS(BN))
IF BN=""
QUIT
SET LIST=LIST_PARMS(BN)
+82 KILL PARMS
+83 SET PARMS=LIST
+84 KILL LIST
End DoDot:1
+85 ;
+86 ;Define variables from PARMS string
+87 FOR BJ=1:1:$LENGTH(PARMS,$CHAR(28))
Begin DoDot:1
+88 NEW PDATA,NAME,VALUE,BP,BV
+89 SET PDATA=$PIECE(PARMS,$CHAR(28),BJ)
IF PDATA=""
QUIT
+90 SET NAME=$PIECE(PDATA,"=",1)
IF NAME=""
QUIT
+91 SET VALUE=$PIECE(PDATA,"=",2,99)
IF VALUE=""
QUIT
+92 FOR BP=1:1:$LENGTH(VALUE,$CHAR(29))
SET BV=$PIECE(VALUE,$CHAR(29),BP)
SET @NAME=$GET(@NAME)_$SELECT(BP=1:"",1:$CHAR(29))_BV
End DoDot:1
IF $GET(BMXSEC)'=""
QUIT
+93 ;
+94 IF PTVIEW=""
SET PTVIEW=$ORDER(^BQI(90506.4,"B","Cover Sheet",""))
+95 IF RCVIEW=""
SET RCVIEW="N"
+96 ;
+97 ;Convert Default View back to internal
+98 IF VIEW]""
Begin DoDot:1
+99 NEW X,Y,DIC
+100 SET X=VIEW
SET DIC="^BQI(90506.7,"
DO ^DIC
+101 IF +Y>0
SET VIEW=+Y
End DoDot:1
+102 ;
+103 ;Save Startup View information
+104 IF TYPE="S"
Begin DoDot:1
+105 SET BQIUPD(90505,DUZ_",",.02)=VIEW
+106 SET BQIUPD(90505,DUZ_",",.05)=SEARCH
+107 SET BQIUPD(90505,DUZ_",",14.01)=MUVIEW
+108 ;
+109 ;Save default panel information
+110 IF $GET(PLIEN)'=""
Begin DoDot:2
+111 NEW DA,IENS
+112 SET DA(1)=OWNR
SET DA=PLIEN
SET IENS=$$IENS^DILF(.DA)
+113 SET BQIUPD(90505,DUZ_",",.03)=$$GET1^DIQ(90505.01,IENS,.01,"E")
+114 SET BQIUPD(90505,DUZ_",",.04)=OWNR
End DoDot:2
+115 ;
+116 ;Save the Default CMET view
+117 IF CMVIEW]""
SET BQIUPD(90505,DUZ_",",.09)=CMVIEW
+118 ;
+119 ;Save the Default IPC view
+120 IF IPCVIEW]""
SET BQIUPD(90505,DUZ_",",.21)=IPCVIEW
End DoDot:1
+121 ;
+122 ;Save Patient View information
+123 IF TYPE="P"
Begin DoDot:1
+124 SET BQIUPD(90505,DUZ_",",.07)=PTVIEW
+125 SET BQIUPD(90505,DUZ_",",.08)=RCVIEW
+126 SET BQIUPD(90505,DUZ_",",.18)=CHLOC
+127 SET BQIUPD(90505,DUZ_",",.19)=FLLOC
+128 SET BQIUPD(90505,DUZ_",",.2)=TLLOC
End DoDot:1
+129 ;
+130 ;Save Panel View information
+131 IF TYPE="PN"
Begin DoDot:1
+132 SET BQIUPD(90505,DUZ_",",2.05)=PNVIEW
+133 SET BQIUPD(90505,DUZ_",",2.06)=PNSIZE
End DoDot:1
+134 ;
+135 ;Save CMET Events information
+136 IF TYPE="CE"
Begin DoDot:1
+137 SET BQIUPD(90505,DUZ_",",.1)=CMTIP
+138 SET BQIUPD(90505,DUZ_",",.11)=CMFIL
End DoDot:1
+139 ;
+140 ;Save CMET Tracked Events information
+141 IF TYPE="CT"
Begin DoDot:1
+142 SET BQIUPD(90505,DUZ_",",.12)=TRTIP
+143 SET BQIUPD(90505,DUZ_",",.13)=TRFIL
+144 SET BQIUPD(90505,DUZ_",",2.21)=TRFND
End DoDot:1
+145 ;
+146 ;Save CMET Followup Events information
+147 IF TYPE="CF"
Begin DoDot:1
+148 SET BQIUPD(90505,DUZ_",",.14)=FLTIP
+149 SET BQIUPD(90505,DUZ_",",.15)=FLFIL
End DoDot:1
+150 ;
+151 ;Save IPC Patient Detail Tips/Filters
+152 IF TYPE="IP"
Begin DoDot:1
+153 SET BQIUPD(90505,DUZ_",",2.07)=IPTTIP
+154 SET BQIUPD(90505,DUZ_",",2.08)=IPTFIL
End DoDot:1
+155 ;
+156 ;Save IPC Provider Detail Tips/Filters
+157 IF TYPE="IR"
Begin DoDot:1
+158 SET BQIUPD(90505,DUZ_",",2.09)=IPVTIP
+159 SET BQIUPD(90505,DUZ_",",2.1)=IPVFIL
End DoDot:1
+160 ;
+161 ;Save IPC Provider Aggregate Tips/Filters
+162 IF TYPE="PA"
Begin DoDot:1
+163 SET BQIUPD(90505,DUZ_",",2.23)=IPATIP
+164 SET BQIUPD(90505,DUZ_",",2.24)=IPAFIL
End DoDot:1
+165 ;
+166 ;Save IPC Facility Aggregate Tips/Filters
+167 IF TYPE="FA"
Begin DoDot:1
+168 SET BQIUPD(90505,DUZ_",",2.25)=IFATIP
+169 SET BQIUPD(90505,DUZ_",",2.26)=IFAFIL
End DoDot:1
+170 ;
+171 ;Save IPC Team Aggregate Tips/Filters
+172 IF TYPE="TA"
Begin DoDot:1
+173 SET BQIUPD(90505,DUZ_",",2.27)=ITATIP
+174 SET BQIUPD(90505,DUZ_",",2.28)=ITAFIL
End DoDot:1
+175 ;
+176 ;Save MU Prov Tips/Filters
+177 IF TYPE="MP"
Begin DoDot:1
+178 SET BQIUPD(90505,DUZ_",",2.01)=MPTIP
+179 SET BQIUPD(90505,DUZ_",",2.15)=MPFIL
End DoDot:1
+180 ;
+181 ;Save MU Hosp Tips/Filters
+182 IF TYPE="MH"
Begin DoDot:1
+183 SET BQIUPD(90505,DUZ_",",2.02)=MHTIP
+184 SET BQIUPD(90505,DUZ_",",2.16)=MHFIL
End DoDot:1
+185 ;
+186 ;Save MU HCQ Tips/Filters
+187 IF TYPE="MHQ"
Begin DoDot:1
+188 SET BQIUPD(90505,DUZ_",",2.04)=MHQTIP
+189 SET BQIUPD(90505,DUZ_",",2.17)=MHQFIL
End DoDot:1
+190 ;
+191 ;Save MU PCQ Tips/Filters
+192 IF TYPE="MPQ"
Begin DoDot:1
+193 SET BQIUPD(90505,DUZ_",",2.11)=MPQTIP
+194 SET BQIUPD(90505,DUZ_",",2.12)=MPQFIL
End DoDot:1
+195 ;
+196 ;Save MU Pref by Division Tips/Filters
+197 IF TYPE="MPD"
Begin DoDot:1
+198 SET BQIUPD(90505,DUZ_",",2.2)=MPATIP
+199 SET BQIUPD(90505,DUZ_",",2.19)=MPAFIL
End DoDot:1
+200 ;
+201 ;Save MU CQ by Division Tips/Filters
+202 IF TYPE="MCD"
Begin DoDot:1
+203 SET BQIUPD(90505,DUZ_",",2.03)=MQATIP
+204 SET BQIUPD(90505,DUZ_",",2.18)=MQAFIL
End DoDot:1
+205 ;
+206 ;Save CMET Panel Event Tips/Filters
+207 IF TYPE="PQ"
Begin DoDot:1
+208 SET BQIUPD(90505,DUZ_",",2.13)=PQTIP
+209 SET BQIUPD(90505,DUZ_",",2.14)=PQFIL
End DoDot:1
+210 ;
+211 ; Save CMET Panel Tracked Events
+212 IF TYPE="PT"
Begin DoDot:1
+213 SET BQIUPD(90505,DUZ_",",2.22)=PTFND
End DoDot:1
+214 ;
+215 KILL ERROR
+216 DO FILE^DIE("","BQIUPD","ERROR")
+217 KILL BQIUPD
+218 SET II=II+1
+219 IF '$DATA(ERROR)
SET @DATA@(II)="1"_$CHAR(30)
+220 IF $DATA(ERROR)
SET @DATA@(II)="-1"_$CHAR(30)
+221 SET II=II+1
SET @DATA@(II)=$CHAR(31)
+222 QUIT
