- LRTP ;SLC/RWF - HANDLE TASKED PROCESSING ;2/7/91 08:54 ;
- ;;5.2T9;LR;**1018**;Nov 17, 2004
- ;;5.2;LAB SERVICE;**153**;Sep 27, 1994
- DQ ;
- I $D(ZTQUEUED) S ZTREQ="@"
- S LRLLOC=$S($D(LRLLOC):LRLLOC,1:""),LRSS=$S($D(LRSS):LRSS,1:0)
- D STAT:LRLLOC]""
- K ZTSK,LRCUT,LRURG
- Q
- STAT N LRION
- 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
- D KILL
- I LRSS="MI" S ZTRTN="DQ^LRMIPSZ1"
- E S ZTRTN="DQ^LRRP2"
- S ZTIO=LRION,ZTSAVE("LR*")=""
- D ^%ZTLOAD
- Q
- KILL S:$D(ZTQUEUED) ZTREQ="@" Q
- 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)
- Q
- LRTP ;SLC/RWF - HANDLE TASKED PROCESSING ;2/7/91 08:54 ;
- +1 ;;5.2T9;LR;**1018**;Nov 17, 2004
- +2 ;;5.2;LAB SERVICE;**153**;Sep 27, 1994
- DQ ;
- +1 IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 SET LRLLOC=$SELECT($DATA(LRLLOC):LRLLOC,1:"")
- SET LRSS=$SELECT($DATA(LRSS):LRSS,1:0)
- +3 IF LRLLOC]""
- DO STAT
- +4 KILL ZTSK,LRCUT,LRURG
- +5 QUIT
- STAT NEW LRION
- +1 SET DA=$ORDER(^LAB(64.6,"AS",LRLLOC,0))
- IF DA<1
- GOTO KILL
- SET LRION=^LAB(64.6,DA,0)
- SET LRCUT=$PIECE(LRION,"^",5)
- SET LRION=$PIECE(LRION,"^",4)
- IF LRION']""
- GOTO KILL
- IF LRCUT'=""
- DO URG
- IF LRURG>LRCUT
- GOTO KILL
- +2 DO KILL
- +3 IF LRSS="MI"
- SET ZTRTN="DQ^LRMIPSZ1"
- +4 IF '$TEST
- SET ZTRTN="DQ^LRRP2"
- +5 SET ZTIO=LRION
- SET ZTSAVE("LR*")=""
- +6 DO ^%ZTLOAD
- +7 QUIT
- KILL IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- QUIT
- URG SET LRURG=9999
- SET J=0
- FOR
- SET J=$ORDER(^LRO(68,LRAA,1,LRAD,1,LRAN,4,J))
- IF J<1
- QUIT
- SET X=^(J,0)
- IF $PIECE(X,"^",2)<LRURG
- SET LRURG=$PIECE(X,"^",2)
- +1 QUIT
