Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BQIPLUSR

BQIPLUSR.m

Go to the documentation of this file.
  1. BQIPLUSR ;PRXM/HC/ALA-User Preferences ; 19 Oct 2005 6:29 PM
  1. ;;2.7;ICARE MANAGEMENT SYSTEM;;Dec 19, 2017;Build 23
  1. ;
  1. Q
  1. ;
  1. OWNR(USR) ;EP -- Check owner
  1. ;
  1. ;Description
  1. ; Check if this user who has signed into iCare is already
  1. ; in ICARE USER File #90505
  1. ;Input
  1. ; DUZ - User internal entry number signed into iCare
  1. ;Output
  1. ; 1 - if user exists or if user added okay
  1. ; 0 - if there was an error adding user
  1. ;
  1. I $G(^BQICARE(USR,0))'="" Q 1
  1. I $D(^BQICARE(USR)),$G(^BQICARE(USR,0))="" D Q 1
  1. . NEW DIE,DA,DR
  1. . S DIE="^BQICARE(",DA=USR,DR=".01///^S X=USR" D ^DIE
  1. ;
  1. CR ; Create new entry
  1. NEW IENARRY,BQIUSR,ERROR
  1. S IENARRY(1)=USR
  1. S BQIUSR(90505,"+1,",.01)=USR
  1. D UPDATE^DIE("","BQIUSR","IENARRY","ERROR")
  1. I $D(ERROR) Q 0
  1. Q 1
  1. ;
  1. USPF(DATA,FAKE) ;EP -- BQI GET USER PREFS
  1. ;
  1. ;Description
  1. ; Get the user's preferences
  1. ;Input
  1. ; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
  1. ;Output
  1. ; DATA - name of global (passed by reference) in which the data
  1. ; is stored
  1. ;Expects
  1. ; DUZ - the internal entry number of the person signed on
  1. ;
  1. I '$$OWNR(DUZ) S BMXSEC="Unable to access user record" Q
  1. ;
  1. NEW UID,II,COD,NAME,PLIEN,PLNM,PLID,PTSRCH,X,PTVIEW,RCVIEW,CMVIEW,MUVIEW,CMFIL,CMTIP,FLFIL,FLTIP
  1. NEW CHLOC,FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPQTIP,MPQFIL,PQTIP,PQFIL
  1. NEW MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,OWNR,TRFIL,TRTIP,I,TRFND,PTFND
  1. NEW IPATIP,IPAFIL,IFATIP,IFAFIL,ITATIP,ITAFIL
  1. ;
  1. S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1. S DATA=$NA(^TMP("BQIPLUSR",UID))
  1. K @DATA
  1. ;
  1. S II=0
  1. S @DATA@(II)="T00001DEFAULT_VIEW^I00010OWNER^I00099PANEL_IEN^I00010PANEL_ID^T00001PAT_SEARCH^"
  1. S @DATA@(II)=@DATA@(II)_"I00010PATIENT_VIEW^T00001RECORD_VIEW^T00001CMET_VIEW^T00001EVENT_TIP^"
  1. S @DATA@(II)=@DATA@(II)_"T00001EVENT_FILTER^T00001TRACKED_TIP^T00001TRACKED_FILTER^T00001TRACKED_FINDING^"
  1. S @DATA@(II)=@DATA@(II)_"T00001FOLLOWUP_TIP^T00001FOLLOWUP_FILTER^T00001MU_VIEW^"
  1. S @DATA@(II)=@DATA@(II)_"T00045CHRT_LOC^T00045FOL_LOC^T00045TEL_LOC^T00002IPC_VIEW^"
  1. S @DATA@(II)=@DATA@(II)_"T00010PANEL_VIEW^T00001PANEL_SIZE^T00001IPC_PT_TIP^T00001IPC_PT_FILTER^"
  1. S @DATA@(II)=@DATA@(II)_"T00001IPC_PV_TIP^T00001IPC_PV_FILTER^T00001MPQTIP^T00001MPQFIL^"
  1. S @DATA@(II)=@DATA@(II)_"T00001PANEL_EVENT_TIP^T00001PANEL_EVENT_FILTER^T00001PANEL_TRACKED_FINDING^"
  1. S @DATA@(II)=@DATA@(II)_"T00001MPTIP^T00001MPFIL^T00001MHTIP^T00001MPATIP^T00001MPAFIL^"
  1. S @DATA@(II)=@DATA@(II)_"T00001MHFIL^T00001MHQTIP^T00001MHQFIL^T00001MQATIP^T00001MQAFIL^"
  1. S @DATA@(II)=@DATA@(II)_"T00001IPC_PA_TIP^T00001IPC_PA_FILTER^T00001IPC_FA_TIP^T00001IPC_FA_FILTER^"
  1. S @DATA@(II)=@DATA@(II)_"T00001IPC_TA_TIP^T00001IPC_TA_FILTER"_$C(30)
  1. ;
  1. NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1. ;
  1. S PLIEN="",PLID=""
  1. S COD=$$GET1^DIQ(90505,DUZ_",",.02,"E")
  1. S NAME=$$GET1^DIQ(90505,DUZ_",",.02,"E")
  1. S PLNM=$$GET1^DIQ(90505,DUZ_",",.03,"E")
  1. S OWNR=$$GET1^DIQ(90505,DUZ_",",.04,"I")
  1. S PTSRCH=$$GET1^DIQ(90505,DUZ_",",.05,"I")
  1. S PTVIEW=$$GET1^DIQ(90505,DUZ_",",.07,"I") S:PTVIEW="" PTVIEW=$O(^BQI(90506.4,"B","Cover Sheet",""))
  1. S RCVIEW=$$GET1^DIQ(90505,DUZ_",",.08,"I") S:RCVIEW="" RCVIEW="N"
  1. S CMVIEW=$$GET1^DIQ(90505,DUZ_",",.09,"I")
  1. S CMTIP=$$GET1^DIQ(90505,DUZ_",",.1,"I") S:CMTIP="" CMTIP="S"
  1. S CMFIL=$$GET1^DIQ(90505,DUZ_",",.11,"I") S:CMFIL="" CMFIL="S"
  1. S TRTIP=$$GET1^DIQ(90505,DUZ_",",.12,"I") S:TRTIP="" TRTIP="S"
  1. S TRFIL=$$GET1^DIQ(90505,DUZ_",",.13,"I") S:TRFIL="" TRFIL="S"
  1. S TRFND=$$GET1^DIQ(90505,DUZ_",",2.21,"I") S:TRFND="" TRFND="I"
  1. S FLTIP=$$GET1^DIQ(90505,DUZ_",",.14,"I") S:FLTIP="" FLTIP="S"
  1. S FLFIL=$$GET1^DIQ(90505,DUZ_",",.15,"I") S:FLFIL="" FLFIL="S"
  1. S MUVIEW=$$GET1^DIQ(90505,DUZ_",",14.01,"I") S:MUVIEW="" MUVIEW="E"
  1. S CHLOC=$$GET1^DIQ(90505,DUZ_",",.18,"I")
  1. S FLLOC=$$GET1^DIQ(90505,DUZ_",",.19,"I")
  1. S TLLOC=$$GET1^DIQ(90505,DUZ_",",.2,"I")
  1. S IPCVIEW=$$GET1^DIQ(90505,DUZ_",",.21,"I") S:IPCVIEW="" IPCVIEW="PD"
  1. S PNVIEW=$$GET1^DIQ(90505,DUZ_",",2.05,"I")
  1. S PNSIZE=$$GET1^DIQ(90505,DUZ_",",2.06,"I") S:PNSIZE="" PNSIZE="N"
  1. S IPTTIP=$$GET1^DIQ(90505,DUZ_",",2.07,"I") S:IPTTIP="" IPTTIP="S"
  1. S IPTFIL=$$GET1^DIQ(90505,DUZ_",",2.08,"I") S:IPTFIL="" IPTFIL="S"
  1. S IPVTIP=$$GET1^DIQ(90505,DUZ_",",2.09,"I") S:IPVTIP="" IPVTIP="S"
  1. S IPVFIL=$$GET1^DIQ(90505,DUZ_",",2.1,"I") S:IPVFIL="" IPVFIL="S"
  1. S IPATIP=$$GET1^DIQ(90505,DUZ_",",2.23,"I") S:IPATIP="" IPATIP="S"
  1. S IPAFIL=$$GET1^DIQ(90505,DUZ_",",2.24,"I") S:IPAFIL="" IPAFIL="S"
  1. S IFATIP=$$GET1^DIQ(90505,DUZ_",",2.25,"I") S:IFATIP="" IFATIP="S"
  1. S IFAFIL=$$GET1^DIQ(90505,DUZ_",",2.26,"I") S:IFAFIL="" IFAFIL="S"
  1. S ITATIP=$$GET1^DIQ(90505,DUZ_",",2.27,"I") S:ITATIP="" ITATIP="S"
  1. S ITAFIL=$$GET1^DIQ(90505,DUZ_",",2.28,"I") S:ITAFIL="" ITAFIL="S"
  1. S MPQTIP=$$GET1^DIQ(90505,DUZ_",",2.11,"I") S:MPQTIP="" MPQTIP="S"
  1. S MPQFIL=$$GET1^DIQ(90505,DUZ_",",2.12,"I") S:MPQFIL="" MPQFIL="S"
  1. S PQTIP=$$GET1^DIQ(90505,DUZ_",",2.13,"I") S:PQTIP="" PQTIP="S"
  1. S PQFIL=$$GET1^DIQ(90505,DUZ_",",2.14,"I") S:PQFIL="" PQFIL="S"
  1. S PTFND=$$GET1^DIQ(90505,DUZ_",",2.22,"I") S:PTFND="" PTFND="I"
  1. S MPTIP=$$GET1^DIQ(90505,DUZ_",",2.01,"I") S:MPTIP="" MPTIP="S"
  1. S MPFIL=$$GET1^DIQ(90505,DUZ_",",2.15,"I") S:MPFIL="" MPFIL="S"
  1. S MHTIP=$$GET1^DIQ(90505,DUZ_",",2.02,"I") S:MHTIP="" MHTIP="S"
  1. S MHFIL=$$GET1^DIQ(90505,DUZ_",",2.16,"I") S:MHFIL="" MHFIL="S"
  1. S MHQTIP=$$GET1^DIQ(90505,DUZ_",",2.04,"I") S:MHQTIP="" MHQTIP="S"
  1. S MHQFIL=$$GET1^DIQ(90505,DUZ_",",2.17,"I") S:MHQFIL="" MHQFIL="S"
  1. S MQATIP=$$GET1^DIQ(90505,DUZ_",",2.03,"I") S:MQATIP="" MQATIP="S"
  1. S MQAFIL=$$GET1^DIQ(90505,DUZ_",",2.18,"I") S:MQAFIL="" MQAFIL="S"
  1. S MPATIP=$$GET1^DIQ(90505,DUZ_",",2.2,"I") S:MPATIP="" MPATIP="S"
  1. S MPAFIL=$$GET1^DIQ(90505,DUZ_",",2.19,"I") S:MPAFIL="" MPAFIL="S"
  1. I PTSRCH="" S PTSRCH="A"
  1. I OWNR="" S OWNR=DUZ
  1. ;
  1. I PLNM'="" D
  1. . NEW DIC,DA
  1. . S DA(1)=OWNR,DIC="^BQICARE("_DA(1)_",1,",X=PLNM,DIC(0)="Z"
  1. . D ^DIC
  1. . S PLIEN=+Y
  1. . S PLID=$$PLID^BQIUG1(OWNR,PLIEN)
  1. ;
  1. S II=II+1,@DATA@(II)=COD_U_OWNR_U_PLIEN_U_PLID_U_PTSRCH_U
  1. S @DATA@(II)=@DATA@(II)_PTVIEW_U_RCVIEW_U_CMVIEW_U_CMTIP_U
  1. S @DATA@(II)=@DATA@(II)_CMFIL_U_TRTIP_U_TRFIL_U_TRFND_U
  1. S @DATA@(II)=@DATA@(II)_FLTIP_U_FLFIL_U_MUVIEW_U
  1. S @DATA@(II)=@DATA@(II)_CHLOC_U_FLLOC_U_TLLOC_U_IPCVIEW_U
  1. S @DATA@(II)=@DATA@(II)_PNVIEW_U_PNSIZE_U_IPTTIP_U_IPTFIL_U
  1. S @DATA@(II)=@DATA@(II)_IPVTIP_U_IPVFIL_U_MPQTIP_U_MPQFIL_U
  1. S @DATA@(II)=@DATA@(II)_PQTIP_U_PQFIL_U_PTFND_U
  1. S @DATA@(II)=@DATA@(II)_MPTIP_U_MPFIL_U_MHTIP_U_MPATIP_U_MPAFIL_U
  1. S @DATA@(II)=@DATA@(II)_MHFIL_U_MHQTIP_U_MHQFIL_U_MQATIP_U_MQAFIL_U
  1. S @DATA@(II)=@DATA@(II)_IPATIP_U_IPAFIL_U_IFATIP_U_IFAFIL_U_ITATIP_U_ITAFIL_$C(30)
  1. ;
  1. DONE ;
  1. S II=II+1,@DATA@(II)=$C(31)
  1. Q
  1. ;
  1. ERR ;
  1. D ^%ZTER
  1. NEW Y,ERRDTM
  1. S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
  1. S BMXSEC="Recording that an error occurred at "_ERRDTM
  1. I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
  1. Q
  1. ;
  1. SVUP(DATA,TYPE,PARMS) ;EP -- BQI SET USER PREFS
  1. ;
  1. ; Input
  1. ; TYPE - the type of save (S-Startup View, P-Patient View, CE-CMET Events, PQ-CMET Panel Event Tips/Filters
  1. ; CT-CMET Tracked, CF-CMET Followups,PN-Panel View,IP-Pat Det Tips/Filters,IR-Prv Det Tips/Filters,
  1. ; MP-MU Peformance, MQ-MU Clinical Quality)
  1. ; VIEW - the default view code
  1. ; OWNR - the owner
  1. ; PLIEN - the panel ien (if default view is specified panel)
  1. ; CMVIEW - the default CMET view (if default view is CMET or Split View CMET)
  1. ; SEARCH - Patient search criteria
  1. ; PTVIEW - Patient View opens with this tab
  1. ; RCVIEW - View is opened maximized or minimized
  1. ; CMTIP - Queued Tip show or hide
  1. ; CMFIL - Queued Filter show or hide
  1. ; TRTIP - Tracked Tip show or hide
  1. ; TRFIL - Tracked Filter show or hide
  1. ; TRFND - Tracked Finding icon or text
  1. ; FLTIP - Followup Tip show or hide
  1. ; FLFIL - Followup Filter show or hide
  1. ; MUVIEW - the default MU view (if default view is MU or Split MU)
  1. ; CHLOC - DEFAULT CHART REV LOCATION
  1. ; FLLOC - DEFAULT FOLLOWUP LTR LOCATION
  1. ; TLLOC - DEFAULT TELEPHONE LOCATION
  1. ; IPCVIEW - DEFAULT IPC View (if default view is IPC or SIPC)
  1. ; PNVIEW - Panel View opens with this tab
  1. ; PNSIZE - Panel Size is opened maximized or minimized
  1. ; IPTTIP - IPC Patient Detail Tip show or hide
  1. ; IPTFIL - IPC Patient Detail Filter show or hide
  1. ; IPVTIP - IPC Provider Detail Tip show or hide
  1. ; IPVFIL - IPC Provider Detail Filter show or hide
  1. ; MPQTIP - MU PCQ Tips show or hide
  1. ; MPQFIL - MU PCQ Filters show or hide
  1. ; PQTIP - Panel Event Tip show or hide
  1. ; PQFIL - Panel Event Filter show or hide
  1. ; PTFND - Panel Tracked Finding icon or text
  1. ; MPTIP - MU Provider Tip show or hide
  1. ; MPFIL - MU Provider Filter show or hide
  1. ; MHTIP - MU Hospital Tip show or hide
  1. ; MHFIL - MU Hospital Filter show or hide
  1. ; MHQTIP - MU HCQ Tip show or hide
  1. ; MHQFIL - MU HCQ Filter show or hide
  1. ; MQATIP - MU CQ by division Tip show or hide
  1. ; MQAFIL - MU CQ by division Filter show or hide
  1. ; MPATIP - MU Perf by division Tip show or hide
  1. ; MPAFIL - MU Perf by division Filter show or hide
  1. ;
  1. ;Output
  1. ; DATA - name of global (passed by reference) in which the data
  1. ; is stored
  1. ;Assumes DUZ the user signed onto iCare
  1. ;
  1. NEW VIEW,OWNR,PLIEN,CMVIEW,SEARCH,PTVIEW,RCVIEW,CMTIP,CMFIL,TRTIP,TRFIL,FLTIP,FLFIL,MUVIEW,CHLOC
  1. NEW FLLOC,TLLOC,IPCVIEW,PNVIEW,PNSIZE,IPTTIP,IPTFIL,IPVTIP,IPVFIL,MPTIP,MPFIL,MHTIP,MHFIL,MHQTIP,MHQFIL
  1. NEW UID,II,X,BJ,MPQTIP,MPQFIL,PQTIP,PQFIL,MPATIP,MPAFIL,MQATIP,MQAFIL,TRFND,PTFND
  1. ;
  1. S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
  1. S DATA=$NA(^TMP("BQIPLUSR",UID))
  1. K @DATA
  1. ;
  1. I '$$OWNR(DUZ) S BMXSEC="There is a problem with your entry." Q
  1. ;
  1. S II=0
  1. S @DATA@(II)="I00010RESULT"_$C(30)
  1. ;
  1. NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLUSR D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
  1. ;
  1. S VIEW=$G(VIEW,""),OWNR=$G(OWNR,""),PLIEN=$G(PLIEN,""),CMVIEW=$G(CMVIEW,""),SEARCH=$G(SEARCH,"")
  1. S PTVIEW=$G(PTVIEW,""),RCVIEW=$G(RCVIEW,""),CMTIP=$G(CMTIP,""),CMFIL=$G(CMFIL,""),TRTIP=$G(TRTIP,"")
  1. S TRFIL=$G(TRFIL,""),FLTIP=$G(FLTIP,""),FLFIL=$G(FLFIL),MUVIEW=$G(MUVIEW),CHLOC=$G(CHLOC,""),FLLOC=$G(FLLOC,"")
  1. S TLLOC=$G(TLLOC,""),IPCVIEW=$G(IPCVIEW,""),PNVIEW=$G(PNVIEW,""),PNSIZE=$G(PNSIZE,""),IPTTIP=$G(IPTTIP,"")
  1. S IPTFIL=$G(IPTFIL,""),IPVTIP=$G(IPVTIP,""),IPVFIL=$G(IPVFIL,""),TYPE=$G(TYPE,""),PARMS=$G(PARMS,"")
  1. S MPQTIP=$G(MPQTIP,""),MPQFIL=$G(MPQFIL,""),PQTIP=$G(PQTIP,""),PQFIL=$G(PQFIL,""),TRFND=$G(TRFND,"")
  1. S MPTIP=$G(MPTIP,""),MPFIL=$G(MPFIL,""),MHTIP=$G(MHTIP,""),MHFIL=$G(MHFIL,""),MHQTIP=$G(MHQTIP,"")
  1. S MHQFIL=$G(MHQFIL,""),MPATIP=$G(MPATIP,""),MPAFIL=$G(MPAFIL,""),MQATIP=$G(MQATIP,""),MQAFIL=$G(MQAFIL,"")
  1. S PTFND=$G(PTFND,"")
  1. ;
  1. ;Re-Assemble PARMS list string
  1. I PARMS="" D
  1. . N LIST,BN
  1. . S LIST="",BN=""
  1. . F S BN=$O(PARMS(BN)) Q:BN="" S LIST=LIST_PARMS(BN)
  1. . K PARMS
  1. . S PARMS=LIST
  1. . K LIST
  1. ;
  1. ;Define variables from PARMS string
  1. F BJ=1:1:$L(PARMS,$C(28)) D Q:$G(BMXSEC)'=""
  1. .N PDATA,NAME,VALUE,BP,BV
  1. .S PDATA=$P(PARMS,$C(28),BJ) Q:PDATA=""
  1. .S NAME=$P(PDATA,"=",1) Q:NAME=""
  1. .S VALUE=$P(PDATA,"=",2,99) Q:VALUE=""
  1. .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
  1. ;
  1. S:PTVIEW="" PTVIEW=$O(^BQI(90506.4,"B","Cover Sheet",""))
  1. S:RCVIEW="" RCVIEW="N"
  1. ;
  1. ;Convert Default View back to internal
  1. I VIEW]"" D
  1. . N X,Y,DIC
  1. . S X=VIEW,DIC="^BQI(90506.7," D ^DIC
  1. . I +Y>0 S VIEW=+Y
  1. ;
  1. ;Save Startup View information
  1. I TYPE="S" D
  1. . S BQIUPD(90505,DUZ_",",.02)=VIEW
  1. . S BQIUPD(90505,DUZ_",",.05)=SEARCH
  1. . S BQIUPD(90505,DUZ_",",14.01)=MUVIEW
  1. . ;
  1. . ;Save default panel information
  1. . I $G(PLIEN)'="" D
  1. .. NEW DA,IENS
  1. .. S DA(1)=OWNR,DA=PLIEN,IENS=$$IENS^DILF(.DA)
  1. .. S BQIUPD(90505,DUZ_",",.03)=$$GET1^DIQ(90505.01,IENS,.01,"E")
  1. .. S BQIUPD(90505,DUZ_",",.04)=OWNR
  1. . ;
  1. . ;Save the Default CMET view
  1. . S:CMVIEW]"" BQIUPD(90505,DUZ_",",.09)=CMVIEW
  1. . ;
  1. . ;Save the Default IPC view
  1. . S:IPCVIEW]"" BQIUPD(90505,DUZ_",",.21)=IPCVIEW
  1. ;
  1. ;Save Patient View information
  1. I TYPE="P" D
  1. . S BQIUPD(90505,DUZ_",",.07)=PTVIEW
  1. . S BQIUPD(90505,DUZ_",",.08)=RCVIEW
  1. . S BQIUPD(90505,DUZ_",",.18)=CHLOC
  1. . S BQIUPD(90505,DUZ_",",.19)=FLLOC
  1. . S BQIUPD(90505,DUZ_",",.2)=TLLOC
  1. ;
  1. ;Save Panel View information
  1. I TYPE="PN" D
  1. . S BQIUPD(90505,DUZ_",",2.05)=PNVIEW
  1. . S BQIUPD(90505,DUZ_",",2.06)=PNSIZE
  1. ;
  1. ;Save CMET Events information
  1. I TYPE="CE" D
  1. . S BQIUPD(90505,DUZ_",",.1)=CMTIP
  1. . S BQIUPD(90505,DUZ_",",.11)=CMFIL
  1. ;
  1. ;Save CMET Tracked Events information
  1. I TYPE="CT" D
  1. . S BQIUPD(90505,DUZ_",",.12)=TRTIP
  1. . S BQIUPD(90505,DUZ_",",.13)=TRFIL
  1. . S BQIUPD(90505,DUZ_",",2.21)=TRFND
  1. ;
  1. ;Save CMET Followup Events information
  1. I TYPE="CF" D
  1. . S BQIUPD(90505,DUZ_",",.14)=FLTIP
  1. . S BQIUPD(90505,DUZ_",",.15)=FLFIL
  1. ;
  1. ;Save IPC Patient Detail Tips/Filters
  1. I TYPE="IP" D
  1. . S BQIUPD(90505,DUZ_",",2.07)=IPTTIP
  1. . S BQIUPD(90505,DUZ_",",2.08)=IPTFIL
  1. ;
  1. ;Save IPC Provider Detail Tips/Filters
  1. I TYPE="IR" D
  1. . S BQIUPD(90505,DUZ_",",2.09)=IPVTIP
  1. . S BQIUPD(90505,DUZ_",",2.1)=IPVFIL
  1. ;
  1. ;Save IPC Provider Aggregate Tips/Filters
  1. I TYPE="PA" D
  1. . S BQIUPD(90505,DUZ_",",2.23)=IPATIP
  1. . S BQIUPD(90505,DUZ_",",2.24)=IPAFIL
  1. ;
  1. ;Save IPC Facility Aggregate Tips/Filters
  1. I TYPE="FA" D
  1. . S BQIUPD(90505,DUZ_",",2.25)=IFATIP
  1. . S BQIUPD(90505,DUZ_",",2.26)=IFAFIL
  1. ;
  1. ;Save IPC Team Aggregate Tips/Filters
  1. I TYPE="TA" D
  1. . S BQIUPD(90505,DUZ_",",2.27)=ITATIP
  1. . S BQIUPD(90505,DUZ_",",2.28)=ITAFIL
  1. ;
  1. ;Save MU Prov Tips/Filters
  1. I TYPE="MP" D
  1. . S BQIUPD(90505,DUZ_",",2.01)=MPTIP
  1. . S BQIUPD(90505,DUZ_",",2.15)=MPFIL
  1. ;
  1. ;Save MU Hosp Tips/Filters
  1. I TYPE="MH" D
  1. . S BQIUPD(90505,DUZ_",",2.02)=MHTIP
  1. . S BQIUPD(90505,DUZ_",",2.16)=MHFIL
  1. ;
  1. ;Save MU HCQ Tips/Filters
  1. I TYPE="MHQ" D
  1. . S BQIUPD(90505,DUZ_",",2.04)=MHQTIP
  1. . S BQIUPD(90505,DUZ_",",2.17)=MHQFIL
  1. ;
  1. ;Save MU PCQ Tips/Filters
  1. I TYPE="MPQ" D
  1. . S BQIUPD(90505,DUZ_",",2.11)=MPQTIP
  1. . S BQIUPD(90505,DUZ_",",2.12)=MPQFIL
  1. ;
  1. ;Save MU Pref by Division Tips/Filters
  1. I TYPE="MPD" D
  1. . S BQIUPD(90505,DUZ_",",2.2)=MPATIP
  1. . S BQIUPD(90505,DUZ_",",2.19)=MPAFIL
  1. ;
  1. ;Save MU CQ by Division Tips/Filters
  1. I TYPE="MCD" D
  1. . S BQIUPD(90505,DUZ_",",2.03)=MQATIP
  1. . S BQIUPD(90505,DUZ_",",2.18)=MQAFIL
  1. ;
  1. ;Save CMET Panel Event Tips/Filters
  1. I TYPE="PQ" D
  1. . S BQIUPD(90505,DUZ_",",2.13)=PQTIP
  1. . S BQIUPD(90505,DUZ_",",2.14)=PQFIL
  1. ;
  1. ; Save CMET Panel Tracked Events
  1. I TYPE="PT" D
  1. . S BQIUPD(90505,DUZ_",",2.22)=PTFND
  1. ;
  1. K ERROR
  1. D FILE^DIE("","BQIUPD","ERROR")
  1. K BQIUPD
  1. S II=II+1
  1. I '$D(ERROR) S @DATA@(II)="1"_$C(30)
  1. I $D(ERROR) S @DATA@(II)="-1"_$C(30)
  1. S II=II+1,@DATA@(II)=$C(31)
  1. Q