source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1016 bytes
Line 
1TIUPRPN ;SLC/MJC - Print SF 509 Progress Notes ;;7-6-95 9:00pm
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3 ; Writes SF 509- Progress Note to screen or paper.
4DEVICE(TIUFLAG,TIUSPG) ; pick your device
5 ;
6 W ! K IOP S %ZIS="Q" D ^%ZIS I POP K POP G EXIT
7 S TIUFLAG=+$G(TIUFLAG),TIUSPG=+$G(TIUSPG)
8 I $D(IO("Q")) K IO("Q") D G EXIT
9 .S ZTRTN="ENTRY1^TIUPRPN",ZTSAVE("^TMP(""TIUPR"",$J,")=""
10 .S ZTSAVE("TIUFLAG")="",ZTSAVE("TIUSPG")="",ZTDESC="TIU PRT PNS"
11 .D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
12 .K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,TIUFLAG,TIUSPG
13 .D HOME^%ZIS
14 U IO D ENTRY1,^%ZISC
15 Q
16ENTRY ; Entry point to print progress notes-called from ^TIUA
17 N TIUSPG
18 U IO
19ENTRY1 ; Entry point from above
20 N TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT
21 I $E(IOST)="C" S (TIUSPG,TIUFLAG)=1
22 I '+$G(TIUFLAG) S TIUSPG=1
23 K ^TMP("TIULQ",$J)
24 I $D(ZTQUEUED) S ZTREQ="@" ; Tell TaskMan to delete Task log entry
25 D PRINT^TIUPRPN1($G(TIUFLAG),$G(TIUSPG))
26EXIT K ^TMP("TIULQ",$J),^TMP("TIUPR",$J)
27 Q
Note: See TracBrowser for help on using the repository browser.