ORB3LAB.m

ORB3LAB ; slc/CLA/TC - Routine to trigger Lab-related notifications ;10/14/03

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210,243**;Dec 17, 1997;Build 242

 ;

LAB(ORDFN,ORLRDFN,ORLRI,ORLRA,ORLRSS,ORXQA) ;trigger Lab Anatomic Path notifs

 ; called by SEND^LRAPRES1 (DBIA #4287)

 ;

 N ORBMSG,ORAPMD,ORBADUZ,ORSRPT,ORACCNO

 I '$D(ORXQA) D

 . S ORAPMD=$S(ORLRSS="AU":$P(ORLRA,U,12),1:$P(ORLRA,U,7))  ;provider/physician "ordering" the ap test

 . I $L(ORAPMD) S ORBADUZ(ORAPMD)=""

 I $D(ORXQA) M ORBADUZ=ORXQA

 S ORSRPT=$S($D(^LR(ORLRDFN,84,0))!($D(^LR(ORLRDFN,ORLRSS,ORLRI,1.2,0))):" supplmntl rpt",1:"") ; AP supplmntl rpt - DBIA #5157

 S ORBMSG=$S(ORLRSS="AU":"Autopsy",ORLRSS="CY":"Cytology",ORLRSS="SP":"Surgical Pathology",ORLRSS="EM":"Electron Microscopy",1:"Anatomic Pathology")

 S ORBMSG=ORBMSG_ORSRPT_" results available."

 S ORACCNO=$P(ORLRA,U,6)  ;accession # of lab section

 D EN^ORB3(71,ORDFN,"",.ORBADUZ,ORBMSG,ORLRSS_U_ORACCNO_U_ORLRI)  ;XQADATA="Lab section^Accession#^DT specimen taken (inverse format)"

 Q

ORB3LAB   ; slc/CLA/TC - Routine to trigger Lab-related notifications ;10/14/03

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210,243**;Dec 17, 1997;Build 242

 +2       ;

LAB(ORDFN,ORLRDFN,ORLRI,ORLRA,ORLRSS,ORXQA) ;trigger Lab Anatomic Path notifs

 +1       ; called by SEND^LRAPRES1 (DBIA #4287)

 +2       ;

 +3        NEW ORBMSG,ORAPMD,ORBADUZ,ORSRPT,ORACCNO

 +4        IF '$DATA(ORXQA)

               Begin DoDot:1

 +5       ;provider/physician "ordering" the ap test

                   SET ORAPMD=$SELECT(ORLRSS="AU":$PIECE(ORLRA,U,12),1:$PIECE(ORLRA,U,7))

 +6                IF $LENGTH(ORAPMD)

                       SET ORBADUZ(ORAPMD)=""

               End DoDot:1

 +7        IF $DATA(ORXQA)

               MERGE ORBADUZ=ORXQA

 +8       ; AP supplmntl rpt - DBIA #5157

           SET ORSRPT=$SELECT($DATA(^LR(ORLRDFN,84,0))!($DATA(^LR(ORLRDFN,ORLRSS,ORLRI,1.2,0))):" supplmntl rpt",1:"")

 +9        SET ORBMSG=$SELECT(ORLRSS="AU":"Autopsy",ORLRSS="CY":"Cytology",ORLRSS="SP":"Surgical Pathology",ORLRSS="EM":"Electron Microscopy",1:"Anatomic Pathology")

 +10       SET ORBMSG=ORBMSG_ORSRPT_" results available."

 +11      ;accession # of lab section

           SET ORACCNO=$PIECE(ORLRA,U,6)

 +12      ;XQADATA="Lab section^Accession#^DT specimen taken (inverse format)"

           DO EN^ORB3(71,ORDFN,"",.ORBADUZ,ORBMSG,ORLRSS_U_ORACCNO_U_ORLRI)

 +13       QUIT