source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORX3.m@ 1141

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1ORX3 ; 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
4NOTE ;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
Note: See TracBrowser for help on using the repository browser.