TIUSUPN2 ;SLC/TT - DAILY SEARCH FOR SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/29/04
;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
;
Q
EN ;Entry point to send mail
D SNDMAIL
Q
;
SNDMAIL ; SEND MAIL
;
N TIUSTDT,TIUEDT,TIUTOTAL,TIUINFO,TIUDTIME,TIUDA,TIUI,TIUTEXT
K ^TMP("TIUP180",$J)
S TIUSTDT=DT,TIUEDT=DT+1,TIUTOTAL=0
F S TIUSTDT=$O(^TIU(8925,"F",TIUSTDT)) Q:'TIUSTDT!(TIUSTDT>TIUEDT) D
.S TIUDA=$O(^TIU(8925,"F",TIUSTDT,0)) S TIUTOTAL=TIUTOTAL+$$GATHER^TIUSUPN2(TIUDA)
I TIUTOTAL D
.S TIUDTIME=0,TIUI=3
.F S TIUDTIME=$O(^TMP("TIUP180",$J,TIUDTIME)) Q:'TIUDTIME D
..S TIUINFO=$G(^TMP("TIUP180",$J,TIUDTIME))
..S TIUI=TIUI+1,TIUTEXT(TIUI)=$P(TIUINFO,U)
.D CRTML
Q
;
CRTML ; CREAT MAIL
;
N XMSUB,XMTEXT,XMDUZ,XMY
S XMDUZ="PATCH TIU*1*180"
S XMY("G.TIU SIGNED/UNSIGNED DOC")="",XMY(.5)=""
S TIUTEXT(1)="Below "_$S(TIUTOTAL=1:"is IEN for uncosigned or completed document",1:"are IENs for uncosigned/completed documents")_" with unsigned "_$S(TIUTOTAL=1:"status.",1:"statuses.")
S TIUTEXT(2)="Please run ""TIU SIGNED/UNSIGNED PN"" option for more detail."
S TIUTEXT(3)=""
S XMTEXT="TIUTEXT(",XMSUB="TIU SIGNED/UNSIGNED DOCUMENTS"
D ^XMD
Q
;
GATHER(TIUIEN) ; GET SIGNED DOCUMENT BUT UNSIGNED STATUS
; Input -- TIUIEN: TIU Document file (#8925) IEN
; Output -- CNT: Total documents found
; TIUDOC - TIU DOCUMENT NAME
; TIUPTN - PATIENT NAME
; TIUSIGDT - SIGNATURE DATE/TIME
;
N TIUD0,TIUD15,TIUDOC,TIUPTN,TIUSIGDT,TIUCNT
S TIUCNT=0
I TIUIEN'>0 Q 0
I '$D(^TIU(8925,TIUIEN,0))!('$D(^TIU(8925,TIUIEN,15))) Q 0
S TIUD0=$G(^TIU(8925,TIUIEN,0)),TIUD15=$G(^TIU(8925,TIUIEN,15))
I $P(TIUD0,U,5)=5,$P(TIUD15,U,1)>0 D
.S TIUSIGDT=$P(TIUD15,U),TIUCNT=TIUCNT+1
.S ^TMP("TIUP180",$J,TIUSIGDT)=TIUIEN
Q TIUCNT
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUSUPN2 1800 printed Dec 13, 2024@02:46:16 Page 2
TIUSUPN2 ;SLC/TT - DAILY SEARCH FOR SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/29/04
+1 ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
+2 ;
+3 QUIT
EN ;Entry point to send mail
+1 DO SNDMAIL
+2 QUIT
+3 ;
SNDMAIL ; SEND MAIL
+1 ;
+2 NEW TIUSTDT,TIUEDT,TIUTOTAL,TIUINFO,TIUDTIME,TIUDA,TIUI,TIUTEXT
+3 KILL ^TMP("TIUP180",$JOB)
+4 SET TIUSTDT=DT
SET TIUEDT=DT+1
SET TIUTOTAL=0
+5 FOR
SET TIUSTDT=$ORDER(^TIU(8925,"F",TIUSTDT))
if 'TIUSTDT!(TIUSTDT>TIUEDT)
QUIT
Begin DoDot:1
+6 SET TIUDA=$ORDER(^TIU(8925,"F",TIUSTDT,0))
SET TIUTOTAL=TIUTOTAL+$$GATHER^TIUSUPN2(TIUDA)
End DoDot:1
+7 IF TIUTOTAL
Begin DoDot:1
+8 SET TIUDTIME=0
SET TIUI=3
+9 FOR
SET TIUDTIME=$ORDER(^TMP("TIUP180",$JOB,TIUDTIME))
if 'TIUDTIME
QUIT
Begin DoDot:2
+10 SET TIUINFO=$GET(^TMP("TIUP180",$JOB,TIUDTIME))
+11 SET TIUI=TIUI+1
SET TIUTEXT(TIUI)=$PIECE(TIUINFO,U)
End DoDot:2
+12 DO CRTML
End DoDot:1
+13 QUIT
+14 ;
CRTML ; CREAT MAIL
+1 ;
+2 NEW XMSUB,XMTEXT,XMDUZ,XMY
+3 SET XMDUZ="PATCH TIU*1*180"
+4 SET XMY("G.TIU SIGNED/UNSIGNED DOC")=""
SET XMY(.5)=""
+5 SET TIUTEXT(1)="Below "_$SELECT(TIUTOTAL=1:"is IEN for uncosigned or completed document",1:"are IENs for uncosigned/completed documents")_" with unsigned "_$SELECT(TIUTOTAL=1:"status.",1:"statuses.")
+6 SET TIUTEXT(2)="Please run ""TIU SIGNED/UNSIGNED PN"" option for more detail."
+7 SET TIUTEXT(3)=""
+8 SET XMTEXT="TIUTEXT("
SET XMSUB="TIU SIGNED/UNSIGNED DOCUMENTS"
+9 DO ^XMD
+10 QUIT
+11 ;
GATHER(TIUIEN) ; GET SIGNED DOCUMENT BUT UNSIGNED STATUS
+1 ; Input -- TIUIEN: TIU Document file (#8925) IEN
+2 ; Output -- CNT: Total documents found
+3 ; TIUDOC - TIU DOCUMENT NAME
+4 ; TIUPTN - PATIENT NAME
+5 ; TIUSIGDT - SIGNATURE DATE/TIME
+6 ;
+7 NEW TIUD0,TIUD15,TIUDOC,TIUPTN,TIUSIGDT,TIUCNT
+8 SET TIUCNT=0
+9 IF TIUIEN'>0
QUIT 0
+10 IF '$DATA(^TIU(8925,TIUIEN,0))!('$DATA(^TIU(8925,TIUIEN,15)))
QUIT 0
+11 SET TIUD0=$GET(^TIU(8925,TIUIEN,0))
SET TIUD15=$GET(^TIU(8925,TIUIEN,15))
+12 IF $PIECE(TIUD0,U,5)=5
IF $PIECE(TIUD15,U,1)>0
Begin DoDot:1
+13 SET TIUSIGDT=$PIECE(TIUD15,U)
SET TIUCNT=TIUCNT+1
+14 SET ^TMP("TIUP180",$JOB,TIUSIGDT)=TIUIEN
End DoDot:1
+15 QUIT TIUCNT
