source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRMIUT.m@ 1147

Last change on this file since 1147 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 1.6 KB
RevLine 
[613]1LRMIUT ;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 ;
9STF ;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
21TSKM ;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
25LRAA ;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
29LRAN ;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
32NUMS 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
34RANGE F R=$P(LRAN,"-"):1:$P(LRAN,"-",2) S LRAN(R)=""
35 K R Q
Note: See TracBrowser for help on using the repository browser.