TIUPRPN ;SLC/MJC - Print SF 509 Progress Notes ;;7-6-95 9:00pm
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
; Writes SF 509- Progress Note to screen or paper.
DEVICE(TIUFLAG,TIUSPG) ; pick your device
;
W ! K IOP S %ZIS="Q" D ^%ZIS I POP K POP G EXIT
S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG)
I $D(IO("Q")) K IO("Q") D G EXIT
.S ZTRTN="ENTRY1^TIUPRPN",ZTSAVE("^TMP(""TIUPR"",$J,")=""
.S ZTSAVE("TIUFLAG")="",ZTSAVE("TIUSPG")="",ZTDESC="TIU PRT PNS"
.D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
.K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,TIUFLAG,TIUSPG
.D HOME^%ZIS
U IO D ENTRY1,^%ZISC
Q
ENTRY ; Entry point to print progress notes-called from ^TIUA
N TIUSPG
U IO
ENTRY1 ; Entry point from above
N TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT
I $E(IOST)="C" S (TIUSPG,TIUFLAG)=1
I '+$G(TIUFLAG) S TIUSPG=1
K ^TMP("TIULQ",$J)
I $D(ZTQUEUED) S ZTREQ="@" ; Tell TaskMan to delete Task log entry
D PRINT^TIUPRPN1($G(TIUFLAG),$G(TIUSPG))
EXIT K ^TMP("TIULQ",$J),^TMP("TIUPR",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPRPN 1043 printed Dec 13, 2024@02:43:45 Page 2
TIUPRPN ;SLC/MJC - Print SF 509 Progress Notes ;;7-6-95 9:00pm
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ; Writes SF 509- Progress Note to screen or paper.
DEVICE(TIUFLAG,TIUSPG) ; pick your device
+1 ;
+2 WRITE !
KILL IOP
SET %ZIS="Q"
DO ^%ZIS
IF POP
KILL POP
GOTO EXIT
+3 SET TIUFLAG=+$GET(TIUFLAG)
SET TIUSPG=+$GET(TIUSPG)
+4 IF $DATA(IO("Q"))
KILL IO("Q")
Begin DoDot:1
+5 SET ZTRTN="ENTRY1^TIUPRPN"
SET ZTSAVE("^TMP(""TIUPR"",$J,")=""
+6 SET ZTSAVE("TIUFLAG")=""
SET ZTSAVE("TIUSPG")=""
SET ZTDESC="TIU PRT PNS"
+7 DO ^%ZTLOAD
WRITE !,$SELECT($DATA(ZTSK):"Request Queued!",1:"Request Canceled!")
+8 KILL ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,TIUFLAG,TIUSPG
+9 DO HOME^%ZIS
End DoDot:1
GOTO EXIT
+10 USE IO
DO ENTRY1
DO ^%ZISC
+11 QUIT
ENTRY ; Entry point to print progress notes-called from ^TIUA
+1 NEW TIUSPG
+2 USE IO
ENTRY1 ; Entry point from above
+1 NEW TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT
+2 IF $EXTRACT(IOST)="C"
SET (TIUSPG,TIUFLAG)=1
+3 IF '+$GET(TIUFLAG)
SET TIUSPG=1
+4 KILL ^TMP("TIULQ",$JOB)
+5 ; Tell TaskMan to delete Task log entry
IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+6 DO PRINT^TIUPRPN1($GET(TIUFLAG),$GET(TIUSPG))
EXIT KILL ^TMP("TIULQ",$JOB),^TMP("TIUPR",$JOB)
+1 QUIT
