VistA Analysis » VistA Reference » RPCs » ORWTIU WINPRINT NOTE

ORWTIU WINPRINT NOTE

Returns a formatted global of a TIU document for output to a Windows printdevice.

Properties

Property Value
Label PRINTW
MUMPS Implementation ORWTIU
Return Type GLOBAL ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
Note IEN LITERAL 20 true IEN of document in file 8925.
Chart Copy? LITERAL 2   If true, print chart copy, else print work copy.

MUMPS Method Description

Property Value
Method PRINTW^ORWTIU
Method Comment TIU print to windows printer
Input Parameters ORDA, ORFLG
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)

CPRS

File Type Description
Pascal File rTIU.pas


Document generated on August 31st 2022, 2:55:43 pm