|
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 | |
|---|
| 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.
