Code |
N ZTQUEUED,ORHFS,ORSUB,ORIO,ORSTATUS,ROOT,ORERR,ORWIN,ORHANDLE N IOM,IOSL,IOST,IOF,IOT,IOS S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORWIN=1,ORHANDLE="ORWTIU" S ORY=$NA(^TMP(ORSUB,$J,1)) S ORHFS=$$HFS^ORWRP() D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W") I POP D Q . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file for TIU print") D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80") N $ETRAP,$ESTACK S $ETRAP="D ERR^ORWRP Q" U IO D RPC^TIUPD(.ORERR,ORDA,ORIO,ORFLG,ORWIN) D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
|