source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORB3LAB.m@ 767

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

revised back to 6/30/08 version

File size: 626 bytes
Line 
1ORB3LAB ; slc/CLA - Routine to trigger Lab-related notifications ;10/14/03
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210**;Dec 17, 1997
3 ;
4LAB(DFN,LRDFN,LRI,LRA,LRSS) ;trigger Lab Anatomic Path notifs
5 ; called by ADD^LRWOMEN (DBIA #4287)
6 ;
7 N ORBMSG,APMD,ORBADUZ,SRPT
8 S APMD=$P(LRA,U,7) ;provider/physician "ordering" the ap test
9 I $L(APMD) S ORBADUZ(APMD)=""
10 S SRPT=$P(LRA,U,15) ;original release date
11 S SRPT=$S($L(SRPT):" supplmntl rpt",1:"")
12 S ORBMSG=$S(LRSS="CY":"Cytology",LRSS="SP":"Surgical Pathology",1:"Anatomic Pathology")
13 S ORBMSG=ORBMSG_SRPT_" results available."
14 D EN^ORB3(71,DFN,"",.ORBADUZ,ORBMSG,"")
15 Q
Note: See TracBrowser for help on using the repository browser.