source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRTP.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 687 bytes
Line 
1LRTP ;SLC/RWF - HANDLE TASKED PROCESSING ;2/7/91 08:54 ;
2 ;;5.2;LAB SERVICE;**153**;Sep 27, 1994
3DQ ;
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
9STAT 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
17KILL S:$D(ZTQUEUED) ZTREQ="@" Q
18URG 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.