source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRWD.m@ 1604

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

initial load of WorldVistAEHR

File size: 792 bytes
Line 
1LRWD ;SLC/RWF-DISPLAY NAMES OF PATIENTS WITH RECENTLY VERIFIED DATA ;8/11/97
2 ;;5.2;LAB SERVICE;**121,221**;Sep 27, 1994
3 D D K DIC,LRDC,LRDFN,DFN,LRDPF
4 Q
5D S DIC=44,DIC(0)="AEMOQZ" D ^DIC I Y<1 Q
6 S LROLLOC=+Y,LRTREA=$P(Y(0),U,20)
7 S LRLLOC=$P(Y(0),U,2)
8 I $$VER^LR7OU1<3 S ORL=+Y_";SC(" ;OE/RR 2.5
9 Q:LRLLOC=""
10 Q:'$D(^LRO(69,"AN",LRLLOC)) S LRDC=0
11 S LRDFN=0 F S LRDFN=$O(^LRO(69,"AN",LRLLOC,LRDFN)) Q:LRDFN<1 I $D(^(LRDFN))[0 S ^(LRDFN)="" D WRT
12 Q:LRDC W !,"There is patient data. Want to see the FULL list" S %=2 D YN^DICN Q:%'=1
13 S LRDFN=0 F S LRDFN=$O(^LRO(69,"AN",LRLLOC,LRDFN)) Q:LRDFN<1 D WRT
14 Q
15WRT I 'LRDC W !!,$C(7),"PATIENTS with NEW lab data",!,$C(7) S LRDC=1
16 S X=$S($D(^LR(LRDFN,0)):^(0),1:""),DFN=$P(X,U,3),LRDPF=$P(X,U,2) I LRDPF=2 D DEM^LRX W !,SSN,?16,VADM(1)
17 Q
Note: See TracBrowser for help on using the repository browser.