| 1 | ORB3LAB ; slc/CLA/TC - Routine to trigger Lab-related notifications ;10/14/03
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210,243**;Dec 17, 1997;Build 242
|
|---|
| 3 | ;
|
|---|
| 4 | LAB(ORDFN,ORLRDFN,ORLRI,ORLRA,ORLRSS,ORXQA) ;trigger Lab Anatomic Path notifs
|
|---|
| 5 | ; called by SEND^LRAPRES1 (DBIA #4287)
|
|---|
| 6 | ;
|
|---|
| 7 | N ORBMSG,ORAPMD,ORBADUZ,ORSRPT,ORACCNO
|
|---|
| 8 | I '$D(ORXQA) D
|
|---|
| 9 | . S ORAPMD=$S(ORLRSS="AU":$P(ORLRA,U,12),1:$P(ORLRA,U,7)) ;provider/physician "ordering" the ap test
|
|---|
| 10 | . I $L(ORAPMD) S ORBADUZ(ORAPMD)=""
|
|---|
| 11 | I $D(ORXQA) M ORBADUZ=ORXQA
|
|---|
| 12 | S ORSRPT=$S($D(^LR(ORLRDFN,84,0))!($D(^LR(ORLRDFN,ORLRSS,ORLRI,1.2,0))):" supplmntl rpt",1:"") ; AP supplmntl rpt - DBIA #5157
|
|---|
| 13 | S ORBMSG=$S(ORLRSS="AU":"Autopsy",ORLRSS="CY":"Cytology",ORLRSS="SP":"Surgical Pathology",ORLRSS="EM":"Electron Microscopy",1:"Anatomic Pathology")
|
|---|
| 14 | S ORBMSG=ORBMSG_ORSRPT_" results available."
|
|---|
| 15 | S ORACCNO=$P(ORLRA,U,6) ;accession # of lab section
|
|---|
| 16 | D EN^ORB3(71,ORDFN,"",.ORBADUZ,ORBMSG,ORLRSS_U_ORACCNO_U_ORLRI) ;XQADATA="Lab section^Accession#^DT specimen taken (inverse format)"
|
|---|
| 17 | Q
|
|---|
