Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORX3

ORX3.m

Go to the documentation of this file.
  1. 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
  1. Q
  1. NOTE ;called by DGOERNOT - triggered by MAS protocols, options and fields in the patient file
  1. ;
  1. ;notifications triggered by DGOERNOT:
  1. ;18 - ADMISSION
  1. ;19 - UNSCHEDULED VISIT
  1. ;20 - DECEASED PATIENT
  1. ;
  1. ;possible variables:
  1. ;ORNOTE array of Notification file iens (#100.9) [req'd]
  1. ;ORVP ien from Patient file (#2) [req'd]
  1. ;ORBADUZ array of pkg-defined recipient DUZs [optional]
  1. ;ORBPMSG pkg-defined message [optional]
  1. ;ORBXDATA pkg-defined data for follow-up action [optinal]
  1. ;
  1. Q:'$D(ORNOTE) Q:'$D(ORVP)
  1. N ORN,ORBDFN,DA
  1. S ORBDFN=$P(ORVP,";")
  1. S:'$L($G(ORBADUZ)) ORBADUZ=""
  1. S:'$L($G(ORBPMSG)) ORBPMSG=""
  1. S:'$L($G(ORBXDATA)) ORBXDATA=""
  1. S ORN=0,ORN=$O(ORNOTE(ORN)) Q:'ORN I $D(^ORD(100.9,ORN)) D
  1. .;if not Admission notification (#18), send to OE/RR 3 entry point
  1. .;(Admission notif is triggered by Patient Admission MLM)
  1. .I $G(ORN)'=18 D EN^ORB3(ORN,ORBDFN,"",ORBADUZ,ORBPMSG,ORBXDATA)
  1. K ORBADUZ,ORBPMSG,ORBXDATA,ORNOTE,ORVP
  1. Q