Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
687 bytes
|
Rev | Line | |
---|
[613] | 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.