- 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