- BQIPLVW ;PRXM/HC/ALA-Panel View ; 17 Oct 2005 1:19 PM
- ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59
- ;
- Q
- ;
- LST(DATA,FAKE) ; EP - BQI GET PANEL VIEW
- ;Description
- ; This returns the standard display and sort order list
- ;Input
- ; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
- ;Output
- ; DATA - name of global (passed by reference) in which the data
- ; is stored
- ;Variables used
- ; UID - TMP global subscript. Will be either $J or "Z" plus the
- ; TaskMan Task ID
- ;
- NEW UID,II,IEN,DOR,DVALUE,SOR,SVALUE,X,STVCD,KEY
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIPLVW",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPLVW D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- S @DATA@(II)="T00120DISPLAY_ORDER^T00120SORT_ORDER^T00120SORT_DIRECTION"_$C(30)
- ;
- S II=II+1
- S @DATA@(II)=$$DFNC()_"^"_$$SFNC()_"^A"_$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
- ;
- DFNC() ;EP - Get the standard display order
- S DVALUE=""
- S DOR="" F S DOR=$O(^BQI(90506.1,"AD","D",DOR)) Q:DOR="" D
- . S IEN=""
- . F S IEN=$O(^BQI(90506.1,"AD","D",DOR,IEN)) Q:IEN="" D
- .. S KEY=$$GET1^DIQ(90506.1,IEN_",",3.1,"E")
- .. I KEY'="",'$$KEYCHK^BQIULSC(KEY,DUZ) Q
- .. I $$GET1^DIQ(90506.1,IEN_",",3.04,"I")'="O" D
- ... S STVCD=$$GET1^DIQ(90506.1,IEN_",",.01,"E")
- ... S DVALUE=DVALUE_STVCD_$C(29)
- S DVALUE=$$TKO^BQIUL1(DVALUE,$C(29))
- Q DVALUE
- ;
- SFNC() ;EP - Get the standard sort order
- S SVALUE=""
- S SOR="" F S SOR=$O(^BQI(90506.1,"AE","D",SOR)) Q:SOR="" D
- . S IEN=""
- . F S IEN=$O(^BQI(90506.1,"AE","D",SOR,IEN)) Q:IEN="" D
- .. S KEY=$$GET1^DIQ(90506.1,IEN_",",3.1,"E")
- .. I KEY'="",'$$KEYCHK^BQIULSC(KEY,DUZ) Q
- .. I $$GET1^DIQ(90506.1,IEN_",",3.04,"I")'="O" D
- ... S STVCD=$$GET1^DIQ(90506.1,IEN_",",.01,"E")
- ... S SVALUE=SVALUE_STVCD_$C(29)
- S SVALUE=$$TKO^BQIUL1(SVALUE,$C(29))
- Q SVALUE
- BQIPLVW ;PRXM/HC/ALA-Panel View ; 17 Oct 2005 1:19 PM
- +1 ;;2.3;ICARE MANAGEMENT SYSTEM;;Apr 18, 2012;Build 59
- +2 ;
- +3 QUIT
- +4 ;
- LST(DATA,FAKE) ; EP - BQI GET PANEL VIEW
- +1 ;Description
- +2 ; This returns the standard display and sort order list
- +3 ;Input
- +4 ; FAKE - extra 'blank' parameter required by BMXNET async 'feature'
- +5 ;Output
- +6 ; DATA - name of global (passed by reference) in which the data
- +7 ; is stored
- +8 ;Variables used
- +9 ; UID - TMP global subscript. Will be either $J or "Z" plus the
- +10 ; TaskMan Task ID
- +11 ;
- +12 NEW UID,II,IEN,DOR,DVALUE,SOR,SVALUE,X,STVCD,KEY
- +13 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +14 SET DATA=$NAME(^TMP("BQIPLVW",UID))
- +15 KILL @DATA
- +16 SET II=0
- +17 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BQIPLVW D UNWIND^%ZTER"
- +18 ;
- +19 SET @DATA@(II)="T00120DISPLAY_ORDER^T00120SORT_ORDER^T00120SORT_DIRECTION"_$CHAR(30)
- +20 ;
- +21 SET II=II+1
- +22 SET @DATA@(II)=$$DFNC()_"^"_$$SFNC()_"^A"_$CHAR(30)
- +23 ;
- 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 ;
- DFNC() ;EP - Get the standard display order
- +1 SET DVALUE=""
- +2 SET DOR=""
- FOR
- SET DOR=$ORDER(^BQI(90506.1,"AD","D",DOR))
- IF DOR=""
- QUIT
- Begin DoDot:1
- +3 SET IEN=""
- +4 FOR
- SET IEN=$ORDER(^BQI(90506.1,"AD","D",DOR,IEN))
- IF IEN=""
- QUIT
- Begin DoDot:2
- +5 SET KEY=$$GET1^DIQ(90506.1,IEN_",",3.1,"E")
- +6 IF KEY'=""
- IF '$$KEYCHK^BQIULSC(KEY,DUZ)
- QUIT
- +7 IF $$GET1^DIQ(90506.1,IEN_",",3.04,"I")'="O"
- Begin DoDot:3
- +8 SET STVCD=$$GET1^DIQ(90506.1,IEN_",",.01,"E")
- +9 SET DVALUE=DVALUE_STVCD_$CHAR(29)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +10 SET DVALUE=$$TKO^BQIUL1(DVALUE,$CHAR(29))
- +11 QUIT DVALUE
- +12 ;
- SFNC() ;EP - Get the standard sort order
- +1 SET SVALUE=""
- +2 SET SOR=""
- FOR
- SET SOR=$ORDER(^BQI(90506.1,"AE","D",SOR))
- IF SOR=""
- QUIT
- Begin DoDot:1
- +3 SET IEN=""
- +4 FOR
- SET IEN=$ORDER(^BQI(90506.1,"AE","D",SOR,IEN))
- IF IEN=""
- QUIT
- Begin DoDot:2
- +5 SET KEY=$$GET1^DIQ(90506.1,IEN_",",3.1,"E")
- +6 IF KEY'=""
- IF '$$KEYCHK^BQIULSC(KEY,DUZ)
- QUIT
- +7 IF $$GET1^DIQ(90506.1,IEN_",",3.04,"I")'="O"
- Begin DoDot:3
- +8 SET STVCD=$$GET1^DIQ(90506.1,IEN_",",.01,"E")
- +9 SET SVALUE=SVALUE_STVCD_$CHAR(29)
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +10 SET SVALUE=$$TKO^BQIUL1(SVALUE,$CHAR(29))
- +11 QUIT SVALUE
