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

AUQUE.m

Go to the documentation of this file.
  1. AUQUE ;TRANSFER TO "MGR" AND REMOVE THIS LINE [ 03/12/87 4:01 PM ]
  1. %AUQUE ;SPECIFY A DEVICE AND SET ^%ZTSK FOR QUE [ 05/29/85 1:58 PM ]
  1. ;IHS-OKLA CITY AREA OFFICE-LMD
  1. ;IHS-OHPD-ACC ADDED CALL ON %AUKVAR TO INSURE SETUP OF DUZ(2)
  1. I $D(IOP) K:IOP'="Q" IOP
  1. DEVICE K AU("QUE"),AU("PRINT") S %IS="PQ",DTIME=300 W !! D ^%ZIS Q:POP G Q:$D(IO("Q")) S AU("PRINT")="" Q
  1. Q K IO("Q") R !,"REQUESTED TIME TO PRINT: NOW// ",X Q:X["^" S Y=$H I $P("NOW",X,1)]"" S:X'["@" X="T@"_X S %DT(0)=0,%DT="TXE" D ^%DT K %DT G Q:Y<1 S X=+Y D H^%DTC S Y=Y_"000",Y=%H_","_($E(Y,9,10)*60+$E(Y,11,12)*60)
  1. S AUQDATE=Y
  1. D ^%AUKVAR S:'$D(SITENUM) SITENUM=DUZ(2) ; GUARANTEE SITENUM AND DUZ(2)
  1. S X=AUQDATE L ^%ZTSK S (^%ZTSK(0),ZTSK)=^%ZTSK(0)+1 L X ^%ZOSF("UCI") S ^%ZTSK(ZTSK,0)="^"_DUZ_"^"_Y_"^"_$H,^("ZTSK")=ZTSK,^%ZTSCH(X,ZTSK)=IO,AU("QUE")="" S ^%ZTSK(ZTSK,"SITE")=SITENUM,^("DUZ(2)")=DUZ(2)
  1. END K AUQDATE Q
  1. KZTSK ;ENTRY POINT TO KILL ^%ZTSK AND SET ^%ZTSK(0)=1000
  1. S ^%ZTSK(0)=1000,R=0
  1. K1 S R=$O(^%ZTSK(R)) Q:R="" K ^%ZTSK(R) G K1
  1. KZTSCH ;ENTRY POINT TO KILL %ZTSCH FOR SCH BACKUP
  1. S AU=0
  1. Z1 S AU=$O(^%ZTSCH(AU)) Q:AU=""!($O(^%ZTSCH(AU,0))'=999) K ^%ZTSCH(AU,999) G Z1