source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLP.m@ 1763

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

initial load of WorldVistAEHR

File size: 687 bytes
Line 
1TIUFLP ;SLC/AJB - Print Form Letter Progress Notes ;06Mar07
2 ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997
3DEVICE(TIUFLAG,TIUSPG) ; pick your device
4 K IOP S %ZIS="Q" D ^%ZIS I POP K POP G EXIT
5 I $D(IO("Q")) K IO("Q") D G EXIT
6 .S ZTRTN="ENTRY1^TIUFLP",ZTSAVE("^TMP(""TIUPR"",$J,")=""
7 .S ZTDESC="TIU FORM LETTER PRINT"
8 .D ^%ZTLOAD W !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!")
9 .K ZTSK,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE
10 .D HOME^%ZIS
11 U IO D ENTRY1,^%ZISC
12 Q
13ENTRY ;
14 N TIUSPG
15 U IO
16ENTRY1 ; Entry point from above
17 N TIUERR,D0,DN,Y,DTOUT,DUOUT,DIRUT,DIROUT
18 K ^TMP("TIULQ",$J)
19 I $D(ZTQUEUED) S ZTREQ="@"
20 D PRINT^TIUFLP1
21EXIT K ^TMP("TIULQ",$J),^TMP("TIUPR",$J)
22 Q
Note: See TracBrowser for help on using the repository browser.