[613] | 1 | DGJBGJ1 ;ALB/MAF - IRT BACKGROUND JOB (CONT.) - MAY 3 1993
|
---|
| 2 | ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
|
---|
| 3 | MSG N DGJCNT,DGJDV,DGJDT,DGJCA
|
---|
| 4 | S (DGJCNT,DGJDV,DGJDT,DGJCA)=0
|
---|
| 5 | 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)
|
---|
| 6 | I '$D(DGJMSG(1)) G Q
|
---|
| 7 | ;quit it no text in message
|
---|
| 8 | S XMSUB="PATIENTS DISCHARGED LESS THAN 48 HOURS"
|
---|
| 9 | S XMTEXT="DGJMSG("
|
---|
| 10 | S DGJB=+$P($G(^DG(43,1,"NOT")),"^",14)
|
---|
| 11 | S XMY("G."_$P($G(^XMB(3.8,DGJB,0)),"^",1))="" ; pass mailgroup
|
---|
| 12 | ; makes sure it gets sent to someone
|
---|
| 13 | I '$D(XMY) S XMY(.5)=""
|
---|
| 14 | ; make postmaster the sender so it will show up as new to DUZ
|
---|
| 15 | S XMDUZ=.5
|
---|
| 16 | D ^XMD:$D(XMY)
|
---|
| 17 | Q K DGSM,DGB,DGTEXT,XMR,DGII,XMY,XMTEXT,XMDUZ,XMSUB Q
|
---|
| 18 | ;
|
---|
| 19 | ERRMSG ; Send error message.
|
---|
| 20 | Q:'$D(DGJERR)
|
---|
| 21 | S Y=DGJRUN D DD^%DT S DGJRUN=Y
|
---|
| 22 | K DGJMSG
|
---|
| 23 | S DGJMSG(1)="The following error(s) were reported during the Incomplete Records menu run:"
|
---|
| 24 | S DGJMSG(2)="IRT Update Std. Def. Background Job [DGJ IRT UPDATE (Background)"
|
---|
| 25 | S DGJMSG(3)=" or"
|
---|
| 26 | S DGJMSG(4)="IRT Update Std. Deficiencies [DGJ IRT UPDATE STD. DEFIC.]"
|
---|
| 27 | S DGJMSG(5)=" "
|
---|
| 28 | S DGJMSG(6)="Verify the following patient information. Manually run the option:"
|
---|
| 29 | S DGJMSG(7)="IRT UPDATE Std. Deficiencies [DGJ IRT UPDATE STD. DEFIC.]"
|
---|
| 30 | S DGJMSG(8)="for the run time listed below."
|
---|
| 31 | S DGJMSG(9)=" "
|
---|
| 32 | S DGJMSG(10)="Run time: "_DGJRUN
|
---|
| 33 | S DGJMSG(11)="Errors encountered during menu run:"
|
---|
| 34 | S DGJMSG(12)="-----------------------------------------"
|
---|
| 35 | S TXT=12,I=0
|
---|
| 36 | F S I=$O(DGJERR(I)) Q:I="" D
|
---|
| 37 | . S DFN=0 F S DFN=$O(DGJERR(I,DFN)) Q:'DFN D
|
---|
| 38 | . . S DGJMT=0 F S DGJMT=$O(DGJERR(I,DFN,DGJMT)) Q:'DGJMT D
|
---|
| 39 | . . . S Y=DGJMT D DD^%DT
|
---|
| 40 | . . .S DGJMSG(TXT+1)=$P(^DPT(DFN,0),"^",1)_"("_$E($P(^DPT(DFN,0),"^",9),6,9)_") Mvmt: ("_Y_") has "_$P($T(@(I)),";",3)
|
---|
| 41 | ;
|
---|
| 42 | S XMSUB="IRT Update Std. Defic. Error List"
|
---|
| 43 | S XMTEXT="DGJMSG("
|
---|
| 44 | S DGJB=+$P($G(^DG(43,1,"NOT")),"^",14)
|
---|
| 45 | I DGJB S XMY("G."_$P($G(^XMB(3.8,DGJB,0)),"^",1))="" ; pass mailgroup
|
---|
| 46 | I '$D(XMY) S XMY(.5)=""
|
---|
| 47 | I DUZ>0 S XMY(DUZ)=""
|
---|
| 48 | ; make postmaster the sender so it will show up as new to DUZ
|
---|
| 49 | S XMDUZ=.5
|
---|
| 50 | D ^XMD:$D(XMY)
|
---|
| 51 | K XMTEXT,XMSUB,DGJB,XMY,DGJMSG,XMDUZ,I,DFN,DGJMT,Y Q
|
---|
| 52 | ;
|
---|
| 53 | ERRMSG1 ; Error listing
|
---|
| 54 | ERR1 ;ERR1;No Ward Location found."
|
---|