ORX3.m

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

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