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

XUDHGUI.m

Go to the documentation of this file.
  1. XUDHGUI ;ISF/STAFF,SLC/KCM - Device Utilites for Windows Calls ;03/24/10 10:34
  1. ;;8.0;KERNEL;**220,542**;Jul 10, 1995;Build 5
  1. ;
  1. DEVICE(LST,FROM,DIR,RMAR) ; Return a subset of entries from the Device file
  1. ; Return up to 20 entries.
  1. ; .LST(n)=IEN^Name^DisplayName^Location^RMar^PLen
  1. ; FROM=text to $O from. Allow the DisplayName to be used.
  1. ; Allow "NAME*" to get count limit from that starting point.
  1. ; DIR=$O direction
  1. ; [RMAR]=min RM value or min-max value (Default to 80).
  1. N I,IEN,CNT,FR,SHOW,X,RML,RMH
  1. S I=0,CNT=$G(CNT,20),RMAR=$G(RMAR,80)
  1. I '$G(DIR) S DIR=1
  1. S RML=+RMAR,RMH=$S(RMAR["-":$P(RMAR,"-",2),1:99999)
  1. ;Allow the DisplayName to be used.
  1. I FROM[" <" S FROM=$RE($P($RE(FROM),"< ",2))
  1. S FR=FROM I FROM["*" S FROM=$P(FROM,"*",1),FR=""
  1. F Q:I'<CNT S FROM=$O(^%ZIS(1,"B",FROM),DIR) Q:(FROM="") D
  1. . I $L(FR),($E(FROM,1,$L(FR))'=FR) Q
  1. . S IEN=0 F S IEN=$O(^%ZIS(1,"B",FROM,IEN)) Q:'IEN D
  1. .. N X0,X1,X90,X91,X95,XTYPE,XSTYPE,XTIME,%A,%C,%H,%L,%X,EXT
  1. .. Q:'$D(^%ZIS(1,IEN,0)) S X0=^(0),X1=$G(^(1)),X90=$G(^(90)),X91=$G(^(91)),X95=$G(^(95)),XSTYPE=$G(^("SUBTYPE")),XTIME=$G(^("TIME")),XTYPE=$G(^("TYPE"))
  1. .. I $E($G(^%ZIS(2,+XSTYPE,0)))'="P" Q ;Printers only
  1. .. S X=$P(XTYPE,"^") I X'="TRM",X'="HG",X'="HFS",X'="CHAN" Q ;Device Types
  1. .. I ($P(X0,U,2)="0")!($P(X0,U,12)=2) Q ;Queuing allowed
  1. .. S X=+X90 I X,(X'>DT) Q ;Out of Service
  1. .. ;%C is current time, %L is lower limit, %H is upper limit
  1. .. S %A=$P(XTIME,"^") I $L(%A) S %C=$P($H,",",2),%C=%C\60#60+(%C\3600*100),%H=$P(%A,"-",2),%L=+%A I $S(%H'<%L:(%C'>%H&(%C'<%L)),1:(%C'<%L!(%C'>%H))) Q ;Prohibited Times
  1. .. S EXT=0
  1. .. I X95]"" S %X=$G(DUZ(0)) I %X'="@" S EXT=1 F %A=1:1:$L(%X) I X95[$E(%X,%A) S EXT=0 Q
  1. .. Q:EXT ;Security check
  1. .. I '+X91 S X91=$G(^%ZIS(2,+XSTYPE,1),"80^#^60^") ;Get default width & page length p542
  1. .. I RML>0,(+X91<RML)!(+X91>RMH) Q
  1. .. S SHOW=$P(X0,U) I SHOW'=FROM S SHOW=FROM_" <"_SHOW_">"
  1. .. S I=I+1,LST(I)=IEN_U_$P(X0,U)_U_SHOW_U_$P(X1,U)_U_$P(X91,U)_U_$P(X91,U,3)
  1. Q