| 1 | LRNIGHT ;SLC/CJS/AVAMC/REG - NIGHTLY LAB CLEANUP ;6/5/90 21:08 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**291**;Sep 27, 1994
|
|---|
| 3 | ;D REQUE ;REQUED BY TASKMAN
|
|---|
| 4 | Q:'$D(^LAB(69.9,1,0)) S:$D(ZTQUEUED) DUZ(0)="@",ZTREQ="@" K ^LRO(69,"AN") K ^LRO(69,DT-1,1,"AD") I $P(^LAB(69.9,1,0),U,14) D MANUAL
|
|---|
| 5 | S %DT="",X="T-"_$S($P(^LAB(69.9,1,0),"^",9):$P(^(0),"^",9),1:7) D ^%DT S LRSAVE=Y
|
|---|
| 6 | F L=0:0 S L=$O(^LRO(69,"AT",L)) Q:L'>0 F T=0:0 S T=$O(^LRO(69,"AT",L,T)) Q:T'>0 F S=0:0 S S=$O(^LRO(69,"AT",L,T,S)) Q:S'>0 S X=-LRSAVE,X1=LRSAVE F X=X:0 S X=$O(^LRO(69,"AT",L,T,S,X)) Q:X=""!(X'<X1) K ^LRO(69,"AT",L,T,S,X)
|
|---|
| 7 | K %,%H,%X,%Y,L,LRIOZERO,LRSAVE,POP,S,T,X,X1,Z,Y
|
|---|
| 8 | STDQC ;Cleanup the XTMP("LRCAP" global
|
|---|
| 9 | D XTMP^LRCAPPH
|
|---|
| 10 | ;Check roll-up date; process pending panels if appropriate date
|
|---|
| 11 | S X=$T(EN^LRBEBA5) I X'="" D EN^LRBEBA5
|
|---|
| 12 | Q
|
|---|
| 13 | REQUE S ZTDTH=$H+1_",1",ZTIO="",ZTRTN="^LRNIGHT" D ^%ZTLOAD K ZTDTH,ZTIO,ZTRTN,ZTSK Q
|
|---|
| 14 | END K DUOUT,DTOUT,%DT,LRW,D,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12,S13,S14,S15,LRDFN,DFN,LRCD
|
|---|
| 15 | Q
|
|---|
| 16 | MANUAL ;
|
|---|
| 17 | RANGE ;
|
|---|
| 18 | S ZTRTN="LRCAPV2",ZTIO="",ZTDTH=$H,ZTDESC="TALLY CAP WORKLOAD" D ^%ZTLOAD Q
|
|---|
