TIUSUPN2.m

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

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