| [613] | 1 | ORX3 ; slc/CLA - Support reference (DBIA #868) for notifications ;11/19/96 10:50
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
|
|---|
| 3 | Q
|
|---|
| 4 | NOTE ;called by DGOERNOT - triggered by MAS protocols, options and fields in the patient file
|
|---|
| 5 | ;
|
|---|
| 6 | ;notifications triggered by DGOERNOT:
|
|---|
| 7 | ;18 - ADMISSION
|
|---|
| 8 | ;19 - UNSCHEDULED VISIT
|
|---|
| 9 | ;20 - DECEASED PATIENT
|
|---|
| 10 | ;
|
|---|
| 11 | ;possible variables:
|
|---|
| 12 | ;ORNOTE array of Notification file iens (#100.9) [req'd]
|
|---|
| 13 | ;ORVP ien from Patient file (#2) [req'd]
|
|---|
| 14 | ;ORBADUZ array of pkg-defined recipient DUZs [optional]
|
|---|
| 15 | ;ORBPMSG pkg-defined message [optional]
|
|---|
| 16 | ;ORBXDATA pkg-defined data for follow-up action [optinal]
|
|---|
| 17 | ;
|
|---|
| 18 | Q:'$D(ORNOTE) Q:'$D(ORVP)
|
|---|
| 19 | N ORN,ORBDFN,DA
|
|---|
| 20 | S ORBDFN=$P(ORVP,";")
|
|---|
| 21 | S:'$L($G(ORBADUZ)) ORBADUZ=""
|
|---|
| 22 | S:'$L($G(ORBPMSG)) ORBPMSG=""
|
|---|
| 23 | S:'$L($G(ORBXDATA)) ORBXDATA=""
|
|---|
| 24 | S ORN=0,ORN=$O(ORNOTE(ORN)) Q:'ORN I $D(^ORD(100.9,ORN)) D
|
|---|
| 25 | .;if not Admission notification (#18), send to OE/RR 3 entry point
|
|---|
| 26 | .;(Admission notif is triggered by Patient Admission MLM)
|
|---|
| 27 | .I $G(ORN)'=18 D EN^ORB3(ORN,ORBDFN,"",ORBADUZ,ORBPMSG,ORBXDATA)
|
|---|
| 28 | K ORBADUZ,ORBPMSG,ORBXDATA,ORNOTE,ORVP
|
|---|
| 29 | Q
|
|---|
