Routine: BQIPLLAY

BQIPLLAY ;VNGT/HS/ALA-Panel Layouts ; 20 Jul 2009  10:41 AM

 ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

GET(DATA,OWNR,PLIEN) ; EP - BQI GET PANEL LAYOUTS

 NEW UID,II,IENS,DA,YEAR,GIEN,DISPLAY,SORT,SDIR,SD,SR,GVALUE,STVCD,SVALUE,DVALUE

 NEW RIEN,CARE,CRN,DEF,TIEN,TYP,TEMPL

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("BQIPLLAY",UID))

 K @DATA

 S II=0

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLLAY D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 S @DATA@(II)="I00010TEMPL_IEN^T00040TEMPLATE_NAME^T00001DEFAULT^T00001TYPE^T00120DISPLAY_ORDER^T00120SORT_ORDER^T00120SORT_DIRECTION^D00030LAST_EDIT"_$C(30)

 S OWNR=$G(OWNR,$G(DUZ)),PLIEN=$G(PLIEN,"") ; If no owner supplied use DUZ

PT ; for Patient view

 . ; If there is a template

 . I $$TMPL^BQIPLVWC() Q

 . ; If there is a customized view

 . I $$CVW^BQIPLVWC() D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

 . ; Get default

 . S TIEN="",TEMPL="",DEF="",TYP="D"

 . S DISPLAY=$$DFNC^BQIPLVW()

 . S SORT=$$SFNC^BQIPLVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

GP ; for Natl measures

 . ; If there is a template

 . I $$TMPL^BQIGPVW() Q

 . ; If there is a customized view

 . I $$CVW^BQIGPVW() D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

 . ; Get default

 . S TIEN="",TEMPL="",DEF="",TYP="G"

 . S DISPLAY=$$DFNC^BQIGPVW()_$C(29)_$$GDEF^BQIGPVW()

 . S SORT=$$SFNC^BQIGPVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

RM ; for Reminders

 . ; If there is a template

 . I $$TMPL^BQIPLRVW() Q

 . ; If there is a customized view

 . I $$CVW^BQIPLRVW() D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . S TIEN="",TEMPL="",DEF="",TYP="R"

 . S DISPLAY=$$DFNC^BQIGPVW()_$C(29)_$$RDEF^BQIRMPL()

 . S SORT=$$SFNC^BQIGPVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

CN ; for Consults

 . ; If there is a template

 . I $$TMPL^BQIPLCNV() Q

 . ; If there is a customized view

 . I $$CVW^BQIPLCNV() D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . S TIEN="",TEMPL="",DEF="",TYP="CN",CARE="Consults"

 . S DISPLAY=$$DFNC^BQIGPVW()_$C(29)_$$CDEF^BQICMVW()

 . S SORT=$$SFNC^BQIGPVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

RF ; for Referrals

 . ; If there is a template

 . I $$TMPL^BQIPLRFV() Q

 . ; If there is a customized view

 . I $$CVW^BQIPLRFV() D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . S TIEN="",TEMPL="",DEF="",TYP="RF",CARE="Referrals"

 . S DISPLAY=$$DFNC^BQIGPVW()_$C(29)_$$CDEF^BQICMVW()

 . S SORT=$$SFNC^BQIGPVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

CM ; for Care Management

 NEW TDATA

 D TAB^BQIUTB(.TDATA,"CARE")

 F CN=1:1 S CARE=$P(@TDATA@(CN),U,2) Q:CARE=""  D

. ;

 . N TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

. ;

 . ;Check for a template

 . I $$TMPL^BQICMVW(CARE) Q

. ;

 . ;Check for a customized view

 . I $$CVW^BQICMVW(CARE) D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . ;System Default

 . S TIEN="",TEMPL="",DEF=""

 . S CRN=$O(^BQI(90506.5,"B",CARE,"")),TYP=$P(^BQI(90506.5,CRN,0),U,2)

 . S DISPLAY=$$DFNC^BQICMVW()_$C(29)_$$CDEF^BQICMVW()

 . S SORT=$$SFNC^BQICMVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

 K @TDATA

CE ; for Care Event (CMET)

 N CARE

 F CARE="Events","Tracked Events","Followup Events" D

. ;

 . N TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

. ;

 . ;Check for a template

 . I $$TMPL^BQICEVW(CARE) Q

. ;

 . ;Check for a customized view

 . I $$CVW^BQICEVW(CARE) D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . ;System Default

 . S TIEN="",TEMPL="",DEF=""

 . S CRN=$O(^BQI(90506.5,"B",CARE,"")),TYP=$P(^BQI(90506.5,CRN,0),U,2)

 . S DISPLAY=$$DFNC^BQICEVW()_$C(29)_$$CDEF^BQICEVW()

 . S SORT=$$SFNC^BQICEVW(CRN,TYP)

 . I CARE="Followup Events" S SDIR="A"_$C(29)_"A"_$C(29)_"A",TEMPL="System Default"

 . E  S SDIR="A"_$C(29)_"D"_$C(29)_"A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

 K CARE

DFD ; for Definition Detail

 NEW CARE,BQCN

 S BQCN=0

 F  S BQCN=$O(^BQI(90506.5,BQCN)) Q:'BQCN  D

 . I $P(^BQI(90506.5,BQCN,0),U,15)'=1 Q

 . I $P(^BQI(90506.5,BQCN,0),U,10)=1 Q

 . S CARE=$P(^BQI(90506.5,BQCN,0),U,1)

 . N TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

. ;

 . ;Check for a template

 . I $$TMPL^BQICMVW(CARE) Q

. ;

 . ;Check for a customized view

 . I $$CVW^BQICMVW(CARE) D  Q

 .. S @DATA@(II)=$TR(@DATA@(II),$C(30))

 .. S $P(@DATA@(II),U,8)=""

 .. I $E(@DATA@(II),$L(@DATA@(II)))'=$C(30) S @DATA@(II)=@DATA@(II)_$C(30)

. ;

 . ;System Default

 . S TIEN="",TEMPL="",DEF=""

 . S CRN=$O(^BQI(90506.5,"B",CARE,"")),TYP=$P(^BQI(90506.5,CRN,0),U,2)

 . S DISPLAY=$$DFNC^BQICMVW()_$C(29)_$$CDEF^BQICMVW()

 . S SORT=$$SFNC^BQICMVW()

 . S SDIR="A",TEMPL="System Default"

 . S II=II+1,@DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$C(30)

DONE ;

 S II=II+1,@DATA@(II)=$C(31)

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)

UPD(DATA,OWNR,PLIEN,TYPE,TEMPL,SOR,SDIR,DOR) ; EP - BQI SET PANEL LAYOUTS

 NEW UID,II,IEN,LIST,BN

 K ERROR

 S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)

 S DATA=$NA(^TMP("BQIPLYUP",UID))

 K @DATA

 S II=0

 S @DATA@(II)="I00010RESULT"_$C(30)

 NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLLAY D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2

 S TEMPL=$G(TEMPL,""),SOR=$G(SOR,""),SDIR=$G(SDIR,""),DOR=$G(DOR,"")

 I DOR="" D

 . S LIST="",BN=""

 . F  S BN=$O(DOR(BN)) Q:BN=""  S LIST=LIST_DOR(BN)

 . K DOR

 . S DOR=LIST

 . K LIST

 I TYPE="D" D FIL^BQIPLVWC(OWNR,PLIEN,$G(TEMPL),SOR,SDIR,DOR) G FIN

 I TYPE="G" D FIL^BQIGPVW(OWNR,PLIEN,$G(YEAR),$G(TEMPL),SOR,SDIR,DOR) G FIN

 I TYPE="R" D FIL^BQIPLRVW(OWNR,PLIEN,$G(TEMPL),SOR,SDIR,DOR) G FIN

 I TYPE="CN" D FIL^BQIPLCNV(OWNR,PLIEN,$G(TEMPL),SOR,SDIR,DOR) G FIN

 I TYPE="RF" D FIL^BQIPLRFV(OWNR,PLIEN,$G(TEMPL),SOR,SDIR,DOR) G FIN

 S CRN=$O(^BQI(90506.5,"C",TYPE,""))

 I CRN'="" D

 . S CARE=$P(^BQI(90506.5,CRN,0),"^",1)

 . I $P(^BQI(90506.5,CRN,0),U,10)=1 Q

 . D FIL^BQICMVW(OWNR,PLIEN,CARE,$G(TEMPL),SOR,SDIR,DOR)

FIN ; Finish up

 I $D(ERROR) S II=II+1,@DATA@(II)="-1"_$C(30)

 I '$D(ERROR) S II=II+1,@DATA@(II)="1"_$C(30)

 K ERROR

 S II=II+1,@DATA@(II)=$C(31)

BQIPLLAY  ;VNGT/HS/ALA-Panel Layouts ; 20 Jul 2009  10:41 AM

 +1       ;;2.6;ICARE MANAGEMENT SYSTEM;;Jul 07, 2017;Build 72

 +2       ;

GET(DATA,OWNR,PLIEN) ; EP - BQI GET PANEL LAYOUTS

 +1        NEW UID,II,IENS,DA,YEAR,GIEN,DISPLAY,SORT,SDIR,SD,SR,GVALUE,STVCD,SVALUE,DVALUE

 +2        NEW RIEN,CARE,CRN,DEF,TIEN,TYP,TEMPL

 +3        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +4        SET DATA=$NAME(^TMP("BQIPLLAY",UID))

 +5        KILL @DATA

 +6        SET II=0

 +7       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BQIPLLAY D UNWIND^%ZTER"

 +8       ;

 +9        SET @DATA@(II)="I00010TEMPL_IEN^T00040TEMPLATE_NAME^T00001DEFAULT^T00001TYPE^T00120DISPLAY_ORDER^T00120SORT_ORDER^T00120SORT_DIRECTION^D00030LAST_EDIT"_$CHAR(30)

 +10      ;

 +11      ; If no owner supplied use DUZ

           SET OWNR=$GET(OWNR,$GET(DUZ))

           SET PLIEN=$GET(PLIEN,"")

 +12      ;

PT        ; for Patient view

 +1        Begin DoDot:1

 +2       ; If there is a template

 +3            IF $$TMPL^BQIPLVWC()

                   QUIT

 +4       ; If there is a customized view

 +5            IF $$CVW^BQIPLVWC()

                   Begin DoDot:2

 +6                    SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +7                    SET $PIECE(@DATA@(II),U,8)=""

 +8                    IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                           SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                   End DoDot:2

                   QUIT

 +9       ; Get default

 +10           SET TIEN=""

               SET TEMPL=""

               SET DEF=""

               SET TYP="D"

 +11           SET DISPLAY=$$DFNC^BQIPLVW()

 +12           SET SORT=$$SFNC^BQIPLVW()

 +13           SET SDIR="A"

               SET TEMPL="System Default"

 +14           SET II=II+1

               SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

           End DoDot:1

 +15      ;

GP        ; for Natl measures

 +1        Begin DoDot:1

 +2       ; If there is a template

 +3            IF $$TMPL^BQIGPVW()

                   QUIT

 +4       ; If there is a customized view

 +5            IF $$CVW^BQIGPVW()

                   Begin DoDot:2

 +6                    SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +7                    SET $PIECE(@DATA@(II),U,8)=""

 +8                    IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                           SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                   End DoDot:2

                   QUIT

 +9       ; Get default

 +10           SET TIEN=""

               SET TEMPL=""

               SET DEF=""

               SET TYP="G"

 +11           SET DISPLAY=$$DFNC^BQIGPVW()_$CHAR(29)_$$GDEF^BQIGPVW()

 +12           SET SORT=$$SFNC^BQIGPVW()

 +13           SET SDIR="A"

               SET TEMPL="System Default"

 +14           SET II=II+1

               SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

           End DoDot:1

 +15      ;

RM        ; for Reminders

 +1        Begin DoDot:1

 +2       ; If there is a template

 +3            IF $$TMPL^BQIPLRVW()

                   QUIT

 +4       ; If there is a customized view

 +5            IF $$CVW^BQIPLRVW()

                   Begin DoDot:2

 +6                    SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +7                    SET $PIECE(@DATA@(II),U,8)=""

 +8                    IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                           SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                   End DoDot:2

                   QUIT

 +9       ;

 +10           SET TIEN=""

               SET TEMPL=""

               SET DEF=""

               SET TYP="R"

 +11           SET DISPLAY=$$DFNC^BQIGPVW()_$CHAR(29)_$$RDEF^BQIRMPL()

 +12           SET SORT=$$SFNC^BQIGPVW()

 +13           SET SDIR="A"

               SET TEMPL="System Default"

 +14           SET II=II+1

               SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

           End DoDot:1

 +15      ;

CN        ; for Consults

 +1        Begin DoDot:1

 +2       ; If there is a template

 +3            IF $$TMPL^BQIPLCNV()

                   QUIT

 +4       ; If there is a customized view

 +5            IF $$CVW^BQIPLCNV()

                   Begin DoDot:2

 +6                    SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +7                    SET $PIECE(@DATA@(II),U,8)=""

 +8                    IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                           SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                   End DoDot:2

                   QUIT

 +9       ;

 +10           SET TIEN=""

               SET TEMPL=""

               SET DEF=""

               SET TYP="CN"

               SET CARE="Consults"

 +11           SET DISPLAY=$$DFNC^BQIGPVW()_$CHAR(29)_$$CDEF^BQICMVW()

 +12           SET SORT=$$SFNC^BQIGPVW()

 +13           SET SDIR="A"

               SET TEMPL="System Default"

 +14           SET II=II+1

               SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

           End DoDot:1

 +15      ;

RF        ; for Referrals

 +1        Begin DoDot:1

 +2       ; If there is a template

 +3            IF $$TMPL^BQIPLRFV()

                   QUIT

 +4       ; If there is a customized view

 +5            IF $$CVW^BQIPLRFV()

                   Begin DoDot:2

 +6                    SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +7                    SET $PIECE(@DATA@(II),U,8)=""

 +8                    IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                           SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                   End DoDot:2

                   QUIT

 +9       ;

 +10           SET TIEN=""

               SET TEMPL=""

               SET DEF=""

               SET TYP="RF"

               SET CARE="Referrals"

 +11           SET DISPLAY=$$DFNC^BQIGPVW()_$CHAR(29)_$$CDEF^BQICMVW()

 +12           SET SORT=$$SFNC^BQIGPVW()

 +13           SET SDIR="A"

               SET TEMPL="System Default"

 +14           SET II=II+1

               SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

           End DoDot:1

 +15      ;

CM        ; for Care Management

 +1        NEW TDATA

 +2        DO TAB^BQIUTB(.TDATA,"CARE")

 +3        FOR CN=1:1

               SET CARE=$PIECE(@TDATA@(CN),U,2)

               IF CARE=""

                   QUIT

               Begin DoDot:1

 +4       ;

 +5                NEW TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

 +6       ;

 +7       ;Check for a template

 +8                IF $$TMPL^BQICMVW(CARE)

                       QUIT

 +9       ;

 +10      ;Check for a customized view

 +11               IF $$CVW^BQICMVW(CARE)

                       Begin DoDot:2

 +12                       SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +13                       SET $PIECE(@DATA@(II),U,8)=""

 +14                       IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                               SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                       End DoDot:2

                       QUIT

 +15      ;

 +16      ;System Default

 +17               SET TIEN=""

                   SET TEMPL=""

                   SET DEF=""

 +18               SET CRN=$ORDER(^BQI(90506.5,"B",CARE,""))

                   SET TYP=$PIECE(^BQI(90506.5,CRN,0),U,2)

 +19               SET DISPLAY=$$DFNC^BQICMVW()_$CHAR(29)_$$CDEF^BQICMVW()

 +20               SET SORT=$$SFNC^BQICMVW()

 +21               SET SDIR="A"

                   SET TEMPL="System Default"

 +22               SET II=II+1

                   SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

               End DoDot:1

 +23      ;

 +24       KILL @TDATA

 +25      ;

CE        ; for Care Event (CMET)

 +1        NEW CARE

 +2        FOR CARE="Events","Tracked Events","Followup Events"

               Begin DoDot:1

 +3       ;

 +4                NEW TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

 +5       ;

 +6       ;Check for a template

 +7                IF $$TMPL^BQICEVW(CARE)

                       QUIT

 +8       ;

 +9       ;Check for a customized view

 +10               IF $$CVW^BQICEVW(CARE)

                       Begin DoDot:2

 +11                       SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +12                       SET $PIECE(@DATA@(II),U,8)=""

 +13                       IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                               SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                       End DoDot:2

                       QUIT

 +14      ;

 +15      ;System Default

 +16               SET TIEN=""

                   SET TEMPL=""

                   SET DEF=""

 +17               SET CRN=$ORDER(^BQI(90506.5,"B",CARE,""))

                   SET TYP=$PIECE(^BQI(90506.5,CRN,0),U,2)

 +18               SET DISPLAY=$$DFNC^BQICEVW()_$CHAR(29)_$$CDEF^BQICEVW()

 +19               SET SORT=$$SFNC^BQICEVW(CRN,TYP)

 +20               IF CARE="Followup Events"

                       SET SDIR="A"_$CHAR(29)_"A"_$CHAR(29)_"A"

                       SET TEMPL="System Default"

 +21              IF '$TEST

                       SET SDIR="A"_$CHAR(29)_"D"_$CHAR(29)_"A"

                       SET TEMPL="System Default"

 +22               SET II=II+1

                   SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

               End DoDot:1

 +23       KILL CARE

 +24      ;

DFD       ; for Definition Detail

 +1        NEW CARE,BQCN

 +2        SET BQCN=0

 +3        FOR

               SET BQCN=$ORDER(^BQI(90506.5,BQCN))

               IF 'BQCN

                   QUIT

               Begin DoDot:1

 +4                IF $PIECE(^BQI(90506.5,BQCN,0),U,15)'=1

                       QUIT

 +5                IF $PIECE(^BQI(90506.5,BQCN,0),U,10)=1

                       QUIT

 +6                SET CARE=$PIECE(^BQI(90506.5,BQCN,0),U,1)

 +7                NEW TIEN,TEMPL,DEF,CRN,TYP,DISPLAY,SORT,SDIR

 +8       ;

 +9       ;Check for a template

 +10               IF $$TMPL^BQICMVW(CARE)

                       QUIT

 +11      ;

 +12      ;Check for a customized view

 +13               IF $$CVW^BQICMVW(CARE)

                       Begin DoDot:2

 +14                       SET @DATA@(II)=$TRANSLATE(@DATA@(II),$CHAR(30))

 +15                       SET $PIECE(@DATA@(II),U,8)=""

 +16                       IF $EXTRACT(@DATA@(II),$LENGTH(@DATA@(II)))'=$CHAR(30)

                               SET @DATA@(II)=@DATA@(II)_$CHAR(30)

                       End DoDot:2

                       QUIT

 +17      ;

 +18      ;System Default

 +19               SET TIEN=""

                   SET TEMPL=""

                   SET DEF=""

 +20               SET CRN=$ORDER(^BQI(90506.5,"B",CARE,""))

                   SET TYP=$PIECE(^BQI(90506.5,CRN,0),U,2)

 +21               SET DISPLAY=$$DFNC^BQICMVW()_$CHAR(29)_$$CDEF^BQICMVW()

 +22               SET SORT=$$SFNC^BQICMVW()

 +23               SET SDIR="A"

                   SET TEMPL="System Default"

 +24               SET II=II+1

                   SET @DATA@(II)=TIEN_U_TEMPL_U_DEF_U_TYP_U_DISPLAY_U_SORT_U_SDIR_U_$CHAR(30)

               End DoDot:1

 +25      ;

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       ;

UPD(DATA,OWNR,PLIEN,TYPE,TEMPL,SOR,SDIR,DOR) ; EP - BQI SET PANEL LAYOUTS

 +1        NEW UID,II,IEN,LIST,BN

 +2        KILL ERROR

 +3        SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)

 +4        SET DATA=$NAME(^TMP("BQIPLYUP",UID))

 +5        KILL @DATA

 +6        SET II=0

 +7        SET @DATA@(II)="I00010RESULT"_$CHAR(30)

 +8       ;

 +9       ; SAC 2006 2.2.3.3.2

           NEW $ESTACK,$ETRAP

           SET $ETRAP="D ERR^BQIPLLAY D UNWIND^%ZTER"

 +10      ;

 +11       SET TEMPL=$GET(TEMPL,"")

           SET SOR=$GET(SOR,"")

           SET SDIR=$GET(SDIR,"")

           SET DOR=$GET(DOR,"")

 +12       IF DOR=""

               Begin DoDot:1

 +13               SET LIST=""

                   SET BN=""

 +14               FOR

                       SET BN=$ORDER(DOR(BN))

                       IF BN=""

                           QUIT

                       SET LIST=LIST_DOR(BN)

 +15               KILL DOR

 +16               SET DOR=LIST

 +17               KILL LIST

               End DoDot:1

 +18      ;

 +19       IF TYPE="D"

               DO FIL^BQIPLVWC(OWNR,PLIEN,$GET(TEMPL),SOR,SDIR,DOR)

               GOTO FIN

 +20       IF TYPE="G"

               DO FIL^BQIGPVW(OWNR,PLIEN,$GET(YEAR),$GET(TEMPL),SOR,SDIR,DOR)

               GOTO FIN

 +21       IF TYPE="R"

               DO FIL^BQIPLRVW(OWNR,PLIEN,$GET(TEMPL),SOR,SDIR,DOR)

               GOTO FIN

 +22       IF TYPE="CN"

               DO FIL^BQIPLCNV(OWNR,PLIEN,$GET(TEMPL),SOR,SDIR,DOR)

               GOTO FIN

 +23       IF TYPE="RF"

               DO FIL^BQIPLRFV(OWNR,PLIEN,$GET(TEMPL),SOR,SDIR,DOR)

               GOTO FIN

 +24       SET CRN=$ORDER(^BQI(90506.5,"C",TYPE,""))

 +25       IF CRN'=""

               Begin DoDot:1

 +26               SET CARE=$PIECE(^BQI(90506.5,CRN,0),"^",1)

 +27               IF $PIECE(^BQI(90506.5,CRN,0),U,10)=1

                       QUIT

 +28               DO FIL^BQICMVW(OWNR,PLIEN,CARE,$GET(TEMPL),SOR,SDIR,DOR)

               End DoDot:1

 +29      ;

FIN       ; Finish up

 +1        IF $DATA(ERROR)

               SET II=II+1

               SET @DATA@(II)="-1"_$CHAR(30)

 +2        IF '$DATA(ERROR)

               SET II=II+1

               SET @DATA@(II)="1"_$CHAR(30)

 +3        KILL ERROR

 +4        SET II=II+1

           SET @DATA@(II)=$CHAR(31)

 +5        QUIT

BQIPLLAY.m