- BQIPLMRU ;PRXM/HC/ALA - Most Recently Viewed Panels ; 17 Feb 2006 12:20 PM
- ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- ;
- Q
- ;
- RET(DATA) ; EP - BQI GET MRU PANELS
- ;Get the list of most recently viewed panels
- ;Output
- ; DATA - name of global (passed by reference) in which the data
- ; is stored
- ;Assumes
- ; DUZ - User who signed onto iCare
- ;
- NEW UID,II,BQIN,BQITXT,X
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIPLMRU",UID))
- K @DATA
- ;
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLMRU D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- S @DATA@(II)="T00250PANEL_ID_LIST"_$C(30)
- S BQIN=0,BQITXT=""
- F S BQIN=$O(^BQICARE(DUZ,5,BQIN)) Q:'BQIN D
- . NEW DA,IENS
- . S DA(1)=DUZ,DA=BQIN,IENS=$$IENS^DILF(.DA)
- . S BQITXT=BQITXT_$$GET1^DIQ(90505.5,IENS,.01,"E")_$C(29)
- S BQITXT=$$TKO^BQIUL1(BQITXT,$C(29))
- S II=II+1,@DATA@(II)=BQITXT_$C(30)
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- ERR ;
- D ^%ZTER
- NEW Y,ERRDTM
- S Y=$$NOW^XLFDT() X ^DD("DD") S ERRDTM=Y
- S BMXSEC="Recording that an error occurred at "_ERRDTM
- I $D(II),$D(DATA) S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- UPD(DATA,PLIST) ; EP - BQI SET MRU PANELS
- ;Update the list of most recently viewed panels
- ;
- ;Input
- ; PLIST - List of panel ids separated by $C(29)
- ;Assumes
- ; DUZ - User who signed onto iCare
- ;
- NEW UID,II,X,RESULT,BQI
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIPLMRU",UID))
- K @DATA
- ;
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLMRU D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- S @DATA@(II)="I00010RESULT"_$C(30)
- ;
- S PLIST=$G(PLIST,"")
- NEW DIK,DA
- D DEL
- ;
- I $G(PLIST)="" D Q
- . S II=II+1,@DATA@(II)="1"_$C(30)
- . S II=II+1,@DATA@(II)=$C(31)
- ;
- I '$D(^BQICARE(DA(1),5,0)) S ^BQICARE(DA(1),5,0)="^90505.5^^"
- S RESULT=0
- F BQI=1:1:$L(PLIST,$C(29)) D
- . NEW DA,IENS,BQIVL,DIC
- . S BQIVL=$P(PLIST,$C(29),BQI)
- . S DA(1)=DUZ,X=BQIVL,DIC(0)="L",DIC="^BQICARE("_DA(1)_",5,"
- . D ^DIC
- . I +Y>0 S RESULT=1
- ;
- S II=II+1,@DATA@(II)=RESULT_$C(30)
- S II=II+1,@DATA@(II)=$C(31)
- Q
- ;
- DEL ; Remove old panel id list first
- S DA(1)=DUZ,DA=0,DIK="^BQICARE("_DA(1)_",5,"
- F S DA=$O(^BQICARE(DA(1),5,DA)) Q:'DA D ^DIK
- Q
- BQIPLMRU ;PRXM/HC/ALA - Most Recently Viewed Panels ; 17 Feb 2006 12:20 PM
- +1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- +2 ;
- +3 QUIT
- +4 ;
- RET(DATA) ; EP - BQI GET MRU PANELS
- +1 ;Get the list of most recently viewed panels
- +2 ;Output
- +3 ; DATA - name of global (passed by reference) in which the data
- +4 ; is stored
- +5 ;Assumes
- +6 ; DUZ - User who signed onto iCare
- +7 ;
- +8 NEW UID,II,BQIN,BQITXT,X
- +9 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +10 SET DATA=$NAME(^TMP("BQIPLMRU",UID))
- +11 KILL @DATA
- +12 ;
- +13 SET II=0
- +14 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BQIPLMRU D UNWIND^%ZTER"
- +15 ;
- +16 SET @DATA@(II)="T00250PANEL_ID_LIST"_$CHAR(30)
- +17 SET BQIN=0
- SET BQITXT=""
- +18 FOR
- SET BQIN=$ORDER(^BQICARE(DUZ,5,BQIN))
- IF 'BQIN
- QUIT
- Begin DoDot:1
- +19 NEW DA,IENS
- +20 SET DA(1)=DUZ
- SET DA=BQIN
- SET IENS=$$IENS^DILF(.DA)
- +21 SET BQITXT=BQITXT_$$GET1^DIQ(90505.5,IENS,.01,"E")_$CHAR(29)
- End DoDot:1
- +22 SET BQITXT=$$TKO^BQIUL1(BQITXT,$CHAR(29))
- +23 SET II=II+1
- SET @DATA@(II)=BQITXT_$CHAR(30)
- +24 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +25 QUIT
- +26 ;
- 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,PLIST) ; EP - BQI SET MRU PANELS
- +1 ;Update the list of most recently viewed panels
- +2 ;
- +3 ;Input
- +4 ; PLIST - List of panel ids separated by $C(29)
- +5 ;Assumes
- +6 ; DUZ - User who signed onto iCare
- +7 ;
- +8 NEW UID,II,X,RESULT,BQI
- +9 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +10 SET DATA=$NAME(^TMP("BQIPLMRU",UID))
- +11 KILL @DATA
- +12 ;
- +13 SET II=0
- +14 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BQIPLMRU D UNWIND^%ZTER"
- +15 SET @DATA@(II)="I00010RESULT"_$CHAR(30)
- +16 ;
- +17 SET PLIST=$GET(PLIST,"")
- +18 NEW DIK,DA
- +19 DO DEL
- +20 ;
- +21 IF $GET(PLIST)=""
- Begin DoDot:1
- +22 SET II=II+1
- SET @DATA@(II)="1"_$CHAR(30)
- +23 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- End DoDot:1
- QUIT
- +24 ;
- +25 IF '$DATA(^BQICARE(DA(1),5,0))
- SET ^BQICARE(DA(1),5,0)="^90505.5^^"
- +26 SET RESULT=0
- +27 FOR BQI=1:1:$LENGTH(PLIST,$CHAR(29))
- Begin DoDot:1
- +28 NEW DA,IENS,BQIVL,DIC
- +29 SET BQIVL=$PIECE(PLIST,$CHAR(29),BQI)
- +30 SET DA(1)=DUZ
- SET X=BQIVL
- SET DIC(0)="L"
- SET DIC="^BQICARE("_DA(1)_",5,"
- +31 DO ^DIC
- +32 IF +Y>0
- SET RESULT=1
- End DoDot:1
- +33 ;
- +34 SET II=II+1
- SET @DATA@(II)=RESULT_$CHAR(30)
- +35 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +36 QUIT
- +37 ;
- DEL ; Remove old panel id list first
- +1 SET DA(1)=DUZ
- SET DA=0
- SET DIK="^BQICARE("_DA(1)_",5,"
- +2 FOR
- SET DA=$ORDER(^BQICARE(DA(1),5,DA))
- IF 'DA
- QUIT
- DO ^DIK
- +3 QUIT
