ORX3 ; slc/CLA - Support reference (DBIA #868) for notifications ;11/19/96 10:50
;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
Q
NOTE ;called by DGOERNOT - triggered by MAS protocols, options and fields in the patient file
;
;notifications triggered by DGOERNOT:
;18 - ADMISSION
;19 - UNSCHEDULED VISIT
;20 - DECEASED PATIENT
;
;possible variables:
;ORNOTE array of Notification file iens (#100.9) [req'd]
;ORVP ien from Patient file (#2) [req'd]
;ORBADUZ array of pkg-defined recipient DUZs [optional]
;ORBPMSG pkg-defined message [optional]
;ORBXDATA pkg-defined data for follow-up action [optinal]
;
Q:'$D(ORNOTE) Q:'$D(ORVP)
N ORN,ORBDFN,DA
S ORBDFN=$P(ORVP,";")
S:'$L($G(ORBADUZ)) ORBADUZ=""
S:'$L($G(ORBPMSG)) ORBPMSG=""
S:'$L($G(ORBXDATA)) ORBXDATA=""
S ORN=0,ORN=$O(ORNOTE(ORN)) Q:'ORN I $D(^ORD(100.9,ORN)) D
.;if not Admission notification (#18), send to OE/RR 3 entry point
.;(Admission notif is triggered by Patient Admission MLM)
.I $G(ORN)'=18 D EN^ORB3(ORN,ORBDFN,"",ORBADUZ,ORBPMSG,ORBXDATA)
K ORBADUZ,ORBPMSG,ORBXDATA,ORNOTE,ORVP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORX3 1135 printed Oct 16, 2024@18:38:27 Page 2
ORX3 ; slc/CLA - Support reference (DBIA #868) for notifications ;11/19/96 10:50
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**9**;Dec 17, 1997
+2 QUIT
NOTE ;called by DGOERNOT - triggered by MAS protocols, options and fields in the patient file
+1 ;
+2 ;notifications triggered by DGOERNOT:
+3 ;18 - ADMISSION
+4 ;19 - UNSCHEDULED VISIT
+5 ;20 - DECEASED PATIENT
+6 ;
+7 ;possible variables:
+8 ;ORNOTE array of Notification file iens (#100.9) [req'd]
+9 ;ORVP ien from Patient file (#2) [req'd]
+10 ;ORBADUZ array of pkg-defined recipient DUZs [optional]
+11 ;ORBPMSG pkg-defined message [optional]
+12 ;ORBXDATA pkg-defined data for follow-up action [optinal]
+13 ;
+14 if '$DATA(ORNOTE)
QUIT
if '$DATA(ORVP)
QUIT
+15 NEW ORN,ORBDFN,DA
+16 SET ORBDFN=$PIECE(ORVP,";")
+17 if '$LENGTH($GET(ORBADUZ))
SET ORBADUZ=""
+18 if '$LENGTH($GET(ORBPMSG))
SET ORBPMSG=""
+19 if '$LENGTH($GET(ORBXDATA))
SET ORBXDATA=""
+20 SET ORN=0
SET ORN=$ORDER(ORNOTE(ORN))
if 'ORN
QUIT
IF $DATA(^ORD(100.9,ORN))
Begin DoDot:1
+21 ;if not Admission notification (#18), send to OE/RR 3 entry point
+22 ;(Admission notif is triggered by Patient Admission MLM)
+23 IF $GET(ORN)'=18
DO EN^ORB3(ORN,ORBDFN,"",ORBADUZ,ORBPMSG,ORBXDATA)
End DoDot:1
+24 KILL ORBADUZ,ORBPMSG,ORBXDATA,ORNOTE,ORVP
+25 QUIT
