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
Q
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)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFLP 709 printed Dec 13, 2024@02:41:18 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
