VistA Analysis » VistA Reference » RPCs » ORWRP PRINT WINDOWS REPORT

ORWRP PRINT WINDOWS REPORT

Prints CPRS GUI information to windows printer.

Properties

Property Value
Label PRINTW
MUMPS Implementation ORWRPP
Return Type GLOBAL ARRAY

MUMPS Method Description

Property Value
Method PRINTW^ORWRPP
Method Comment Windows device print
Input Parameters ORDFN, ORRPTID, ORHSTYPE, ORDTRNG, OREXAMID, ORCOMP, ORALPHA, OROMEGA
Code
 N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE,ORWINDEV
N IOM,IOSL,IOST,IOF,IOT,IOS,ORHSTAG,POP
S ORHSTAG=$P($G(ORRPTID),"~",2),ORRPTID=$P($G(ORRPTID),"~"),ORRPTID=$P($P(ORRPTID,";"),":")
S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
I '$$CHK() S @ORTEXT@(0)=ORY G PRINTWQ
S ORHFS=$$HFS^ORWRP(),ORWINDEV=1 ;Flag for printing to windows device
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 rReports.pas


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