| [613] | 1 | LRAPS ;AVAMC/REG/CYM - AP PATIENT SCREEN DISPLAY ;8/6/97 14:06 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;**173**;Sep 27, 1994
|
|---|
| 3 | Q:'$D(DUZ)
|
|---|
| 4 | S LR("Q")=0,LRS(5)=1,IOP="HOME" D L^LRU,EN^LRUA,^%ZIS S LRDPAF=1
|
|---|
| 5 | W @IOF,!?15,"DISPLAY cum path data summary for a patient"
|
|---|
| 6 | GETP W ! S LRA("A")="" K DIC D ^LRDPA I LRDFN=-1 D V^LRU Q
|
|---|
| 7 | W !!,"Is this the patient " S %=1 D YN^LRU Q:%<1 G:%=2 GETP
|
|---|
| 8 | I '$D(^LR(LRDFN,"CY")),'$D(^("SP")),'$D(^("EM")),'$D(^("AU")) W $C(7),!!,"No tissue pathology results for this patient.",!! G GETP
|
|---|
| 9 | I DOB[1700 S DOB=""
|
|---|
| 10 | G:'$D(^LR(LRDFN,"SP"))&('$D(^("CY")))&('$D(^("EM"))) AU
|
|---|
| 11 | D HDR,S^LRAPS1 G:LRA("A")]"" GETP
|
|---|
| 12 | AU I $D(^LR(LRDFN,"AU")),+^("AU") D ^LRAPS2 K LRAU
|
|---|
| 13 | G GETP
|
|---|
| 14 | M F X=0:0 Q:$Y>(IOSL-4) W !
|
|---|
| 15 | Q:LRA("A")]"" R !!,"'^' TO STOP: ",LRA("A"):DTIME S:'$T LRA("A")="^" Q:LRA("A")="^" I LRA("A")]"" S LRA("A")="" W $C(7) G M
|
|---|
| 16 | Q
|
|---|
| 17 | HDR W @IOF,$E(LRP,1,30),?31,SSN,?50,"DOB: ",DOB,?68,"LOC: ",$E(LRLLOC,1,5) Q
|
|---|
