Last change
on this file since 1608 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
626 bytes
|
Line | |
---|
1 | ORB3LAB ; slc/CLA - Routine to trigger Lab-related notifications ;10/14/03
|
---|
2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**210**;Dec 17, 1997
|
---|
3 | ;
|
---|
4 | LAB(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.