- 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 Feb 19, 2025@00:04:26 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