Routine: TIUFLP

TIUFLP ;SLC/AJB - Print Form Letter Progress Notes ;06Mar07

 ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997

DEVICE(TIUFLAG,TIUSPG) ; pick your device

 K IOP S %ZIS="Q" D ^%ZIS I POP K POP G EXIT

 I $D(IO("Q")) K IO("Q") D  G EXIT

 .S ZTRTN="ENTRY1^TIUFLP",ZTSAVE("^TMP(""TIUPR"",$J,")=""

 .S ZTDESC="TIU FORM LETTER PRINT"

 .D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")

 .K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 .D HOME^%ZIS

 U IO D ENTRY1,^%ZISC

ENTRY ;

 N TIUSPG

 U IO

ENTRY1 ; Entry point from above

 N TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT

 K ^TMP("TIULQ",$J)

 I $D(ZTQUEUED) S ZTREQ="@"

 D PRINT^TIUFLP1

EXIT K ^TMP("TIULQ",$J),^TMP("TIUPR",$J)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFLP   709     printed  Feb 19, 2025@00:07:46                                                                                                                                                                                                       Page 2

TIUFLP    ;SLC/AJB - Print Form Letter Progress Notes ;06Mar07

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997

DEVICE(TIUFLAG,TIUSPG) ; pick your device

 +1        KILL IOP

           SET %ZIS="Q"

           DO ^%ZIS

           IF POP

               KILL POP

               GOTO EXIT

 +2        IF $DATA(IO("Q"))

               KILL IO("Q")

               Begin DoDot:1

 +3                SET ZTRTN="ENTRY1^TIUFLP"

                   SET ZTSAVE("^TMP(""TIUPR"",$J,")=""

 +4                SET ZTDESC="TIU FORM LETTER PRINT"

 +5                DO ^%ZTLOAD

                   WRITE !,$SELECT($DATA(ZTSK):"Request Queued!",1:"Request Canceled!")

 +6                KILL ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE

 +7                DO HOME^%ZIS

               End DoDot:1

               GOTO EXIT

 +8        USE IO

           DO ENTRY1

           DO ^%ZISC

 +9        QUIT

ENTRY     ;

 +1        NEW TIUSPG

 +2        USE IO

ENTRY1    ; Entry point from above

 +1        NEW TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT

 +2        KILL ^TMP("TIULQ",$JOB)

 +3        IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

 +4        DO PRINT^TIUFLP1

EXIT       KILL ^TMP("TIULQ",$JOB),^TMP("TIUPR",$JOB)

 +1        QUIT

TIUFLP.m