| 1 | LRMIUT ;SLC/CJS/BA/AVAMC/REG - MICROBIOLOGY UTILITIES ; 10/9/87 16:19 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**254,266**;Sep 27, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^DIC(42 supported by IA #10039
|
|---|
| 5 | ; Reference to ^%ZTLOAD supported by DBIA #10063
|
|---|
| 6 | ; Reference to ^DIC supported by DBIA #10006
|
|---|
| 7 | ; Reference to IN5^VADPT supported by DBIA #10061
|
|---|
| 8 | ;
|
|---|
| 9 | STF ;from LRMIEDZ2, LRMISTF1
|
|---|
| 10 | I $D(LRSB),$L(LRSB),$D(^LR(LRDFN,"MI",LRIDT,LRSB)) S D=$P(^(LRSB),U),^LRO(68,LRAA,1,LRAD,"AC",LRSB,LRAN)=DUZ_U_D
|
|---|
| 11 | S:'$D(D) D=0 D TSKM:$P(LRPARAM,U,5)&D
|
|---|
| 12 | ; CareVue supported ward - now tasking routine for CareVue-PWC-10/00
|
|---|
| 13 | I $G(D)>0 D
|
|---|
| 14 | . N I,LR7DLOC D IN5^VADPT S LR7DLOC=$G(^DIC(42,+$P($G(VAIP(5)),"^"),44))
|
|---|
| 15 | . Q:'LR7DLOC D:$D(^LAB(62.487,"C",LR7DLOC)) ;good ward location
|
|---|
| 16 | .. S LRH="",LRSS="MI",ZTRTN="^LA7DLOC",ZTIO="",ZTDTH=$H
|
|---|
| 17 | .. S ZTSAVE("L*")="",ZTDESC="LAB AUTOMATION CAREVUE SUPPORTED WARDS"
|
|---|
| 18 | .. D ^%ZTLOAD
|
|---|
| 19 | .. K ZTRTN,ZTDTH,ZTSAVE,ZTIO,ZTSK,ZTDESC,ZTQUEUED,ZTREQ
|
|---|
| 20 | Q
|
|---|
| 21 | TSKM ;from LRMINEW1
|
|---|
| 22 | S LRH="",LRSS="MI",LRWRDVEW="",ZTRTN="DQ^LRTP",ZTIO="",ZTDTH=$H,ZTSAVE("L*")="" D ^%ZTLOAD
|
|---|
| 23 | K LRH,LRWRDVEW,ZTSK,ZTRTN,ZTIO,ZTDTH,ZTSAVE
|
|---|
| 24 | Q
|
|---|
| 25 | LRAA ;from LRMINEW, LRMIPLOG, LRMISEZ, LRMISTF, LRMIVER
|
|---|
| 26 | K DIC S DIC=68,DIC(0)="AEMOQ",DIC("S")="I $P(^(0),U,2)=""MI""" D ^DIC
|
|---|
| 27 | S LRAA=+Y K DIC
|
|---|
| 28 | Q
|
|---|
| 29 | LRAN ;from LRMINEW1, LRMIPLOG, LRMISTF1, LRMIVER1
|
|---|
| 30 | K LRAN F I=0:0 R !,"Enter #'s: ",X:DTIME D:X'="?" NUMS Q:X=""!(X=U) I X="?" W !,"Enter a string of numbers separated with , . ^ or space,",!,"or a range of numbers, e.g. 50-75. You may enter more than one line."
|
|---|
| 31 | Q
|
|---|
| 32 | NUMS S D=$S(X[",":",",X[".":".",X[U:U,1:" ") F I=1:1 S LRAN=$P(X,D,I) D:LRAN["-" RANGE Q:LRAN="" S LRAN(+LRAN)=""
|
|---|
| 33 | Q
|
|---|
| 34 | RANGE F R=$P(LRAN,"-"):1:$P(LRAN,"-",2) S LRAN(R)=""
|
|---|
| 35 | K R Q
|
|---|
