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

TIUDEV.m

Go to the documentation of this file.
  1. TIUDEV ; SLC/JER - Device Handling Utilities ;6/19/98@16:24:11
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**1,20**;Jun 20, 1997
  1. DEVICE(IO,TIUDEV,TIUZIS,TIUSCR,TIUIOP) ; Calls to Device Handler
  1. N %I,%T,%Y,POP,%ZIS,IOP
  1. I $G(TIUDEV)="LAST" S TIUDEV=$$LAST
  1. S:$D(TIUDEV) %ZIS("B")=TIUDEV
  1. S:$G(TIUSCR)]"" %ZIS("S")=TIUSCR
  1. S:$D(TIUIOP) IOP=TIUIOP
  1. S %ZIS=$G(TIUZIS,"Q") D ^%ZIS
  1. I +$G(POP) S ION="" W !,$C(7),"TRY LATER"
  1. Q ION
  1. QUE(ZTRTN,ZTIO) ; Queue output
  1. N %,ZTDTH,ZTSAVE,ZTSK
  1. Q:'$D(ZTRTN) K IO("Q"),ZTSAVE
  1. F %="DA","DFN","TIU*","VALM*","^TMP(""TIURIDX"",$J," S ZTSAVE(%)=""
  1. F %="OR*","^TMP(""OR"",$J," S ZTSAVE(%)=""
  1. S:'$D(ZTDESC) ZTDESC="PRINT DOCUMENTS"
  1. D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!")
  1. K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE D ^%ZISC
  1. S IOP="HOME" D ^%ZIS
  1. Q
  1. LAST() ; Get last device
  1. N TIUDIEN,TIUDNM
  1. S TIUDIEN=$G(^DISV(DUZ,"^%ZIS(1,"))
  1. I +TIUDIEN'>0 S TIUDNM="" G LASTX
  1. I $L($G(^%ZIS(1,+TIUDIEN,"TYPE"))),(";HFS;MT;BAR;VTRM;RES;CHAN;IMPC;"[(";"_^("TYPE")_";")) S TIUDNM="" G LASTX
  1. S TIUDNM=$P($G(^%ZIS(1,TIUDIEN,0)),U)
  1. LASTX Q $G(TIUDNM)