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

DDBRWB.m

Go to the documentation of this file.
  1. DDBRWB ;SFISC/DCL-VA FILEMAN BROWSER PROTOCOLS ;01:54 PM 3 Sep 2002
  1. ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1. ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1. ;;Licensed under the terms of the Apache License, Version 2.0.
  1. ;
  1. Q
  1. STPB ; Save To Paste Buffer
  1. I DDBSA=$NA(^TMP("DDWB",$J)) D G PS^DDBR2
  1. .N X
  1. .S X(1)="",X(2)=$$CTXT^DDBR($$EZBLD^DIALOG(7078.3),"",IOM) ;**RESTRICTED
  1. .W $$WS^DDBR1(.X),$C(7)
  1. .R X:5
  1. .Q
  1. I $E(DDBSA,1,11)="^DI(.84,920" D G PS^DDBR2
  1. .N X
  1. .S X(1)="",X(2)=$$CTXT^DDBR($$EZBLD^DIALOG(7078.4),"",IOM) ;**RESTRICTED
  1. .W $$WS^DDBR1(.X),$C(7)
  1. .R X:5
  1. .Q
  1. N X,XF,XT
  1. GTR S X(1)=$G(X(1)),X(2)=$$EZBLD^DIALOG(7078) ;**COPY TEXT
  1. W $$WS(.X)
  1. D G:X=""!(X=U) OUT
  1. .D EN^DIR0($P(DDBSY,";",3)-1,$L($G(X(2)))+2,30,1,"",100,1,"","KPW",.X)
  1. .K DIR0
  1. .Q
  1. I $E(X)="?" S X(1)=$$EZBLD^DIALOG(7078.1) G GTR ;**ENTER LINES
  1. I 'X&($E(X)'="*") G OUT
  1. I $E(X)="*" S X=$TR(X,"a","A"),XF=1,XT=DDBTL
  1. E S X=$TR(X,"a-/;|* ","A:::::"),XF=+X,XT=+$P(X,":",2)
  1. I XF<1!(XF>DDBTL) S X(1)=$$EZBLD^DIALOG(7078.2,DDBTL) G GTR ;**ERROR
  1. I XT,XT<1!(XT>DDBTL) S X(1)=$$EZBLD^DIALOG(7078.2,DDBTL) G GTR ;**
  1. I XT>0,XT<XF S X(1)=$$EZBLD^DIALOG(1511) G GTR ;**FROM LESS THAN TO
  1. D SAVE(XF,$S(XT'>0:XF,1:XT),X["A")
  1. K X
  1. S X(2)="Text Copied to Buffer"
  1. W $$WS(.X)
  1. R X:3
  1. G OUT
  1. ;
  1. SAVE(FR,TO,APN) ; Save From To (lines) APN=append to end of current list
  1. K:'APN ^TMP("DDWB",$J)
  1. N I,II
  1. S II=$O(^TMP("DDWB",$J,""),-1)+1
  1. I DDBZN D Q
  1. .F I=FR:1:TO S ^TMP("DDWB",$J,II)=@DDBSA@(I,0),II=II+1
  1. .Q
  1. F I=FR:1:TO S ^TMP("DDWB",$J,II)=@DDBSA@(I),II=II+1
  1. Q
  1. VIEW I DDBSA=$NA(^TMP("DDWB",$J)) S DDBL=0 D SDLR^DDBR0(1),RLPIR^DDBR0 Q
  1. I $E(DDBSA,1,11)="^DI(.84,920" D G PS^DDBR2
  1. .N X
  1. .S X(1)="",X(2)=$$CTXT^DDBR($$EZBLD^DIALOG(7078.5),"",IOM) ;**RESTRICTED
  1. .W $$WS^DDBR1(.X),$C(7)
  1. .R X:5
  1. .Q
  1. N DDBHA,DDBHAT S DDBHA=$NA(^TMP("DDWB",$J)),DDBHAT=0
  1. I $D(^TMP("DDWB",$J))'>9 S ^TMP("DDWB",$J,1)="< No Text >",DDBHAT=1
  1. D BROWSE^DDBR(DDBHA,"PNH","View Paste Buffer",$G(DDBHELPS),"",IOTM-1,IOBM+1)
  1. K:DDBHAT ^TMP("DDWB",$J)
  1. W @IOSTBM
  1. D PSR^DDBR0(1)
  1. Q
  1. ;
  1. SWITCH ; Switching Restricted while in View
  1. N X
  1. S X(1)="",X(2)=$$CTXT^DDBR($$EZBLD^DIALOG(7078.6),"",IOM) ;**RESTRICTED
  1. W $$WS^DDBR1(.X),$C(7)
  1. R X:5
  1. G PS^DDBR2
  1. ;
  1. OUT D PSR^DDBR0()
  1. Q
  1. ;
  1. WS(X) S DX=0,DY=$P(DDBSY,";",3)-3 X IOXY
  1. W $P(DDGLGRA,DDGLDEL)
  1. W $TR($J("",IOM)," ",$P(DDGLGRA,DDGLDEL,3))
  1. W $P(DDGLGRA,DDGLDEL,2)
  1. W !,$P(DDGLCLR,DDGLDEL),$G(X(1))
  1. W !,$P(DDGLCLR,DDGLDEL),$G(X(2))
  1. W !,$P(DDGLCLR,DDGLDEL),$G(X(3))
  1. S DY=$P(DDBSY,";",3),DX=$L($G(X(2)))+2 X IOXY
  1. Q ""