Last change
on this file since 810 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
886 bytes
|
Line | |
---|
1 | LR7OGMU ;SLC/STAFF- Interim report rpc memo utility ;6/6/97 16:15
|
---|
2 | ;;5.2;LAB SERVICE;**187,312**;Sep 27, 1994
|
---|
3 | ;
|
---|
4 | NEWOLD(Y,DFN) ; from ORWLRR
|
---|
5 | N LRDFN
|
---|
6 | D DEMO^LR7OGU(DFN,.LRDFN)
|
---|
7 | S Y=$$NEWEST(LRDFN)_U_$$OLDEST(LRDFN)
|
---|
8 | Q
|
---|
9 | ;
|
---|
10 | NEWEST(LRDFN) ;
|
---|
11 | N IDT,FIRSTCH,FIRSTMI
|
---|
12 | S (FIRSTCH,FIRSTMI)=""
|
---|
13 | S IDT=0 F S IDT=$O(^LR(LRDFN,"CH",IDT)) Q:IDT<1 I $P($G(^(IDT,0)),U,3) S FIRSTCH=9999999-IDT Q
|
---|
14 | S IDT=0 F S IDT=$O(^LR(LRDFN,"MI",IDT)) Q:IDT<1 S FIRSTMI=9999999-IDT Q
|
---|
15 | I FIRSTCH>FIRSTMI Q FIRSTCH
|
---|
16 | I FIRSTCH'>FIRSTMI Q FIRSTMI
|
---|
17 | Q ""
|
---|
18 | ;
|
---|
19 | OLDEST(LRDFN) ;
|
---|
20 | N IDT,FIRSTCH,FIRSTMI
|
---|
21 | S (FIRSTCH,FIRSTMI)=""
|
---|
22 | S IDT="" F S IDT=$O(^LR(LRDFN,"CH",IDT),-1) Q:IDT="" I $P($G(^(IDT,0)),U,3) S FIRSTCH=9999999-IDT Q
|
---|
23 | S IDT="" F S IDT=$O(^LR(LRDFN,"MI",IDT),-1) Q:IDT="" S FIRSTMI=9999999-IDT Q
|
---|
24 | I FIRSTMI="" Q FIRSTCH
|
---|
25 | I FIRSTCH="" Q FIRSTMI
|
---|
26 | I FIRSTCH<FIRSTMI Q FIRSTCH
|
---|
27 | I FIRSTCH'<FIRSTMI Q FIRSTMI
|
---|
28 | Q ""
|
---|
Note:
See
TracBrowser
for help on using the repository browser.