VistA Analysis » VistA Reference » RPCs » ORWRP PRINT WINDOWS LAB REMOTE

ORWRP PRINT WINDOWS LAB REMOTE

Prints remote CPRS GUI information to windows printer.

Properties

Property Value
Label PRINTWR
MUMPS Implementation ORWRPL
Return Type GLOBAL ARRAY

MUMPS Method Description

Property Value
Method PRINTWR^ORWRPL
Method Comment Windows Remote device print
Input Parameters ORDFN, RPTID, ORHANDS
Code
 N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE
N IOM,IOSL,IOST,IOF,IOT,IOS
S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
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")
D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
N $ETRAP,$ESTACK
S $ETRAP="D ERR^ORWRP Q"
U IO
D DEQUE
D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)

CPRS

File Type Description
Pascal File rLabs.pas


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