- BQIPTVFV ;PRXM/HC/ALA-Patient PCC V File Default List ; 21 Mar 2007 5:12 PM
- ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- Q
- ;
- EN(DATA,FAKE) ;EP -- BQI GET VFILE DISPLAY
- ;
- ; Get all V Files default views
- ;
- NEW UID,II,IEN,DOR,DVALUE,SOR,SVALUE,X,STVCD,DISP
- S UID=$S($G(ZTSK):"Z"_ZTSK,1:$J)
- S DATA=$NA(^TMP("BQIPTVFV",UID))
- K @DATA
- S II=0
- NEW $ESTACK,$ETRAP S $ETRAP="D ERR^BQIPTVFV D UNWIND^%ZTER" ; SAC 2006 2.2.3.3.2
- ;
- S HDR="T00030VFILE_NAME^T00010VFILE_NUMBER^T01024DISPLAY_ORDER^T01024SORT_ORDER^T00001SORT_DIRECTION"_$C(30)
- S @DATA@(II)=HDR
- S VFIL=0
- F S VFIL=$O(^BQI(90506.3,VFIL)) Q:'VFIL D
- . S VALUE=$$GET1^DIQ(90506.3,VFIL_",",.01,"E")_U_$$GET1^DIQ(90506.3,VFIL_",",.02,"E")
- . S DISP="",ORD=""
- . F S ORD=$O(^BQI(90506.3,VFIL,10,"C",ORD)) Q:ORD="" D
- .. S IEN=""
- .. F S IEN=$O(^BQI(90506.3,VFIL,10,"C",ORD,IEN)) Q:IEN="" D
- ... S VDATA=^BQI(90506.3,VFIL,10,IEN,0)
- ... S DISP=DISP_$P(VDATA,U,2)_$C(28)_$P(VDATA,U,1)_$C(28)_$P(VDATA,U,4)_$C(29)
- . S SORT="",ORD=""
- . F S ORD=$O(^BQI(90506.3,VFIL,10,"D",ORD)) Q:ORD="" D
- .. S IEN=""
- .. F S IEN=$O(^BQI(90506.3,VFIL,10,"D",ORD,IEN)) Q:IEN="" D
- ... S VDATA=^BQI(90506.3,VFIL,10,IEN,0)
- ... S SORT=SORT_$P(VDATA,U,2)_$C(29)
- . S DISP=$$TKO^BQIUL1(DISP,$C(29))
- . S SORT=$$TKO^BQIUL1(SORT,$C(29))
- . S SDIR="A"
- . S II=II+1,@DATA@(II)=VALUE_U_DISP_U_SORT_U_SDIR_$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
- BQIPTVFV ;PRXM/HC/ALA-Patient PCC V File Default List ; 21 Mar 2007 5:12 PM
- +1 ;;2.1;ICARE MANAGEMENT SYSTEM;;Feb 07, 2011
- +2 QUIT
- +3 ;
- EN(DATA,FAKE) ;EP -- BQI GET VFILE DISPLAY
- +1 ;
- +2 ; Get all V Files default views
- +3 ;
- +4 NEW UID,II,IEN,DOR,DVALUE,SOR,SVALUE,X,STVCD,DISP
- +5 SET UID=$SELECT($GET(ZTSK):"Z"_ZTSK,1:$JOB)
- +6 SET DATA=$NAME(^TMP("BQIPTVFV",UID))
- +7 KILL @DATA
- +8 SET II=0
- +9 ; SAC 2006 2.2.3.3.2
- NEW $ESTACK,$ETRAP
- SET $ETRAP="D ERR^BQIPTVFV D UNWIND^%ZTER"
- +10 ;
- +11 SET HDR="T00030VFILE_NAME^T00010VFILE_NUMBER^T01024DISPLAY_ORDER^T01024SORT_ORDER^T00001SORT_DIRECTION"_$CHAR(30)
- +12 SET @DATA@(II)=HDR
- +13 SET VFIL=0
- +14 FOR
- SET VFIL=$ORDER(^BQI(90506.3,VFIL))
- IF 'VFIL
- QUIT
- Begin DoDot:1
- +15 SET VALUE=$$GET1^DIQ(90506.3,VFIL_",",.01,"E")_U_$$GET1^DIQ(90506.3,VFIL_",",.02,"E")
- +16 SET DISP=""
- SET ORD=""
- +17 FOR
- SET ORD=$ORDER(^BQI(90506.3,VFIL,10,"C",ORD))
- IF ORD=""
- QUIT
- Begin DoDot:2
- +18 SET IEN=""
- +19 FOR
- SET IEN=$ORDER(^BQI(90506.3,VFIL,10,"C",ORD,IEN))
- IF IEN=""
- QUIT
- Begin DoDot:3
- +20 SET VDATA=^BQI(90506.3,VFIL,10,IEN,0)
- +21 SET DISP=DISP_$PIECE(VDATA,U,2)_$CHAR(28)_$PIECE(VDATA,U,1)_$CHAR(28)_$PIECE(VDATA,U,4)_$CHAR(29)
- End DoDot:3
- End DoDot:2
- +22 SET SORT=""
- SET ORD=""
- +23 FOR
- SET ORD=$ORDER(^BQI(90506.3,VFIL,10,"D",ORD))
- IF ORD=""
- QUIT
- Begin DoDot:2
- +24 SET IEN=""
- +25 FOR
- SET IEN=$ORDER(^BQI(90506.3,VFIL,10,"D",ORD,IEN))
- IF IEN=""
- QUIT
- Begin DoDot:3
- +26 SET VDATA=^BQI(90506.3,VFIL,10,IEN,0)
- +27 SET SORT=SORT_$PIECE(VDATA,U,2)_$CHAR(29)
- End DoDot:3
- End DoDot:2
- +28 SET DISP=$$TKO^BQIUL1(DISP,$CHAR(29))
- +29 SET SORT=$$TKO^BQIUL1(SORT,$CHAR(29))
- +30 SET SDIR="A"
- +31 SET II=II+1
- SET @DATA@(II)=VALUE_U_DISP_U_SORT_U_SDIR_$CHAR(30)
- End DoDot:1
- +32 SET II=II+1
- SET @DATA@(II)=$CHAR(31)
- +33 QUIT
- +34 ;
- 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
