Last change
on this file since 1763 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
687 bytes
|
Line | |
---|
1 | LRTP ;SLC/RWF - HANDLE TASKED PROCESSING ;2/7/91 08:54 ;
|
---|
2 | ;;5.2;LAB SERVICE;**153**;Sep 27, 1994
|
---|
3 | DQ ;
|
---|
4 | I $D(ZTQUEUED) S ZTREQ="@"
|
---|
5 | S LRLLOC=$S($D(LRLLOC):LRLLOC,1:""),LRSS=$S($D(LRSS):LRSS,1:0)
|
---|
6 | D STAT:LRLLOC]""
|
---|
7 | K ZTSK,LRCUT,LRURG
|
---|
8 | Q
|
---|
9 | STAT N LRION
|
---|
10 | S DA=$O(^LAB(64.6,"AS",LRLLOC,0)) G KILL:DA<1 S LRION=^LAB(64.6,DA,0),LRCUT=$P(LRION,"^",5),LRION=$P(LRION,"^",4) G KILL:LRION']"" I LRCUT'="" D URG G KILL:LRURG>LRCUT
|
---|
11 | D KILL
|
---|
12 | I LRSS="MI" S ZTRTN="DQ^LRMIPSZ1"
|
---|
13 | E S ZTRTN="DQ^LRRP2"
|
---|
14 | S ZTIO=LRION,ZTSAVE("LR*")=""
|
---|
15 | D ^%ZTLOAD
|
---|
16 | Q
|
---|
17 | KILL S:$D(ZTQUEUED) ZTREQ="@" Q
|
---|
18 | URG S LRURG=9999,J=0 F S J=$O(^LRO(68,LRAA,1,LRAD,1,LRAN,4,J)) Q:J<1 S X=^(J,0) I $P(X,"^",2)<LRURG S LRURG=$P(X,"^",2)
|
---|
19 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.