| [613] | 1 | DIP4 ;SFISC/XAK-QUEUE & DEQUEUE ;12:34 PM 13 Apr 2000
|
|---|
| 2 | ;;22.0;VA FileMan;**34**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S:('$D(DQTIME)#2)&($D(ZTQUEUED)) DQTIME="NOW"
|
|---|
| 5 | S:($G(DDXP)=4)&($D(IO("Q"))) DDXPQ=1 K IO("Q") S %DT="TEX",X="" I $D(DQTIME)#2 S X=DQTIME,%DT="XT"
|
|---|
| 6 | W I '$D(DQTIME) S %DT("A")="Requested Time To Print: ",%DT("B")="NOW"
|
|---|
| 7 | S:$D(DQTIME) X=DQTIME
|
|---|
| 8 | S %DT="FRX" S:'$D(DQTIME) %DT=%DT_"AE" S %DT(0)="NOW" D ^%DT K %DT G:Y<1 X^DIP3:$D(DQTIME),X^DIP3:X[U,X^DIP3:$D(DTOUT),W S X=+Y D H^%DTC S Y=%H_","_%T
|
|---|
| 9 | W:'$D(ZTQUEUED) ! S ZTDTH=Y X ^%ZOSF("UCI") S ZTUCI=Y,ZTRTN="ZTSK^DIP4",ZTDESC=DHD
|
|---|
| 10 | S ZTSAVE("^UTILITY(""DIP2"",$J,")=""
|
|---|
| 11 | I $P($G(DPP(0,"IX")),U,2)["$J" S ZTSAVE("^"_$P(DPP(0,"IX"),U,2))=""
|
|---|
| 12 | I $G(DPP(1,"IX"))["^UTILITY(" S ZTSAVE("^UTILITY(U,$J,")=""
|
|---|
| 13 | S ZTIO=$S($D(ION)#2:ION,1:IO) I $G(IOST)]"" S ZTIO=ZTIO_";"_IOST
|
|---|
| 14 | I $G(IO("DOC"))]"" S ZTIO=ZTIO_";"_IO("DOC") G ZTM
|
|---|
| 15 | I $G(IOM) S ZTIO=ZTIO_";"_IOM I $G(IOSL) S ZTIO=ZTIO_";"_IOSL
|
|---|
| 16 | ZTM S ZTSAVE("*")="" D ^%ZTLOAD
|
|---|
| 17 | K ^UTILITY("DIP2",$J),^UTILITY(U,$J),DIS,DXS,DX,DHD,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTUCI,FLDS,DCC,DIPT,X
|
|---|
| 18 | W:'$D(ZTQUEUED) "REQUEST QUEUED!",!,"Task number: "_$G(ZTSK),! X $G(^%ZIS("C")) G Q^DIP
|
|---|
| 19 | ;
|
|---|
| 20 | ZTSK ;
|
|---|
| 21 | K DISYS D CLEAN^DIEFU
|
|---|
| 22 | I $G(DPP(1))]"",'$D(DPP(1,"GET")) Q:$G(DK)="" D
|
|---|
| 23 | . S DIPCRIT=+$G(DIPCRIT),DISUPNO=$S($D(DISUPNO)#2:DISUPNO,1:1)
|
|---|
| 24 | . N S,Q S DIFM=+$G(L),S=+$P($G(@(DK_"0)")),U,2),Q="""" N DIBTRPT,DICNVDPP,DITYP,DJ,DU,DV
|
|---|
| 25 | . S DICNVDPP=1 D CNVCM^DIP11,T1^DIP11
|
|---|
| 26 | . Q
|
|---|
| 27 | D 0^DICRW G DQ^DITC1:$D(DIT),^DIP5
|
|---|
