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

DGJBGJ1.m

Go to the documentation of this file.
  1. DGJBGJ1 ;ALB/MAF - IRT BACKGROUND JOB (CONT.) - MAY 3 1993
  1. ;;5.3;Registration;**31,44,126,1015**;Aug 13, 1993;Build 21
  1. MSG N DGJCNT,DGJDV,DGJDT,DGJCA
  1. S (DGJCNT,DGJDV,DGJDT,DGJCA)=0
  1. F S DGJDV=$O(^TMP("VAS",$J,DGJDV)) Q:DGJDV']"" F S DGJDT=$O(^TMP("VAS",$J,DGJDV,DGJDT)) Q:DGJDT']"" F S DGJCA=$O(^TMP("VAS",$J,DGJDV,DGJDT,DGJCA)) Q:DGJCA']"" S DGJCNT=DGJCNT+1 S DGJMSG(DGJCNT,0)=^TMP("VAS",$J,DGJDV,DGJDT,DGJCA,0)
  1. I '$D(DGJMSG(1)) G Q
  1. ;quit it no text in message
  1. S XMSUB="PATIENTS DISCHARGED LESS THAN 48 HOURS"
  1. S XMTEXT="DGJMSG("
  1. S DGJB=+$P($G(^DG(43,1,"NOT")),"^",14)
  1. S XMY("G."_$P($G(^XMB(3.8,DGJB,0)),"^",1))="" ; pass mailgroup
  1. ; makes sure it gets sent to someone
  1. I '$D(XMY) S XMY(.5)=""
  1. ; make postmaster the sender so it will show up as new to DUZ
  1. S XMDUZ=.5
  1. D ^XMD:$D(XMY)
  1. Q K DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB Q