| [613] | 1 | ZISPL2 ;SF/RWF - SPOOLER CLEAN-UP ;12/03/97 14:57
|
|---|
| 2 | ;;8.0;KERNEL;**23,36,69**;Jul 10, 1995
|
|---|
| 3 | 1 N DA,DIC,DIK,ZIS,ZISPL
|
|---|
| 4 | K ^XMB(3.51,"AM") ;Clear X-ref first
|
|---|
| 5 | S DIK="^XMB(3.51," D IXALL^DIK ;Re-Index
|
|---|
| 6 | S ZISPL=$G(^XTV(8989.3,1,"SPL"),"1^1^999"),ZISDT=$$FMADD^XLFDT(DT,"-"_$P(ZISPL,"^",3))
|
|---|
| 7 | F DA=0:0 S DA=$O(^XMB(3.51,DA)) Q:DA'>0 S ZIS=^XMB(3.51,DA,0) I "rpm"[$P(ZIS,"^",3),ZISDT>$S($P(ZIS,"^",6)]"":$P(ZIS,"^",6),$P(ZIS,"^",4)]"":$P(ZIS,"^",4),1:ZISDT) D DELETE
|
|---|
| 8 | F DA=0:0 S DA=$O(^XMB(3.51,DA)) Q:DA'>0 S ZIS=^XMB(3.51,DA,0) I "ao"[$P(ZIS,"^",3),ZISDT>$S($P(ZIS,"^",6)]"":$P(ZIS,"^",6),$P(ZIS,"^",4)]"":$P(ZIS,"^",4),1:ZISDT) D CLOSE
|
|---|
| 9 | F DA=0:0 S DA=$O(^XMBS(3.519,DA)) Q:DA'>0 I '$D(^XMB(3.51,"AM",DA)) D DSD^ZISPL(DA) ;Remove Spool data w/o Spool entry
|
|---|
| 10 | Q
|
|---|
| 11 | DELETE ;REMOVE SPOOL DOC.
|
|---|
| 12 | D DSD^ZISPL($P(ZIS,U,10)) ;Delete Spool Data entry
|
|---|
| 13 | S DIK="^XMB(3.51," D ^DIK ;Delete entry
|
|---|
| 14 | Q
|
|---|
| 15 | CLOSE ;Close a SPOOL DOC that has been open too long.
|
|---|
| 16 | I $$NEWERR^%ZTER N $ESTACK,$ETRAP S $ETRAP=""
|
|---|
| 17 | S X="ET^ZISPL2",@^%ZOSF("TRAP")
|
|---|
| 18 | S %ZFN=$P(ZIS,"^",2),IO=%ZFN,IO("SPOOL")=DA
|
|---|
| 19 | D SPL3^%ZIS4 I %ZFN="" D DELETE Q
|
|---|
| 20 | X "N DA,ZIS D CLOSE^%ZIS4" Q
|
|---|
| 21 | ET ;TRAP ERROR.
|
|---|
| 22 | D DELETE Q
|
|---|
| 23 | DQP Q:'$D(^XMB(3.51,ZISDA,2,ZISDA2,0))!('$D(ZISPLC)) ;Dequeue print
|
|---|
| 24 | S ZISPL0=^XMB(3.51,ZISDA,0),FF="|TOP|",XS=$P(ZISPL0,U,10) Q:XS'>0
|
|---|
| 25 | U IO F ZISCNT=ZISPLC:-1:1 S PG=1 D OUT S $P(^(0),U,6)=$P(^XMB(3.51,ZISDA,2,ZISDA2,0),U,6)+1
|
|---|
| 26 | W:$Y>3 @IOF D NOW^%DTC S $P(^XMB(3.51,ZISDA,0),"^",3)="p",$P(^(0),"^",7)=%,$P(^XMB(3.51,ZISDA,2,ZISDA2,0),U,3,5)="^^"_%
|
|---|
| 27 | D ^%ZISC G EXIT^ZISPL
|
|---|
| 28 | ;
|
|---|
| 29 | OUT ;
|
|---|
| 30 | F I=0:0 S I=$O(^XMBS(3.519,XS,2,I)) Q:I'>0 S X=^(I,0),Y=(X=FF) W:Y @IOF W:'Y X,! I Y S PG=PG+1,$P(^XMB(3.51,ZISDA,2,ZISDA2,0),"^",3,4)=PG_"^"_I
|
|---|
| 31 | Q
|
|---|
