VistA Analysis » VistA Reference » RPCs » ORWRP WINPRINT LAB REPORTS

ORWRP WINPRINT LAB REPORTS

Prints text from CPRS GUI to a windows printer.

Properties

Property Value
Label PRINTW
MUMPS Implementation ORWRPL
Return Type GLOBAL ARRAY

MUMPS Method Description

Property Value
Method PRINTW^ORWRPL
Method Comment Windows device print
Input Parameters ORDFN, RPTID, ORDAYSBK, ORTESTS, ORALPHA, OROMEGA
Code 
 N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO
 N IOM,IOSL,IOST,IOF,IOT,IOS
 S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS"
 S ORTEXT=$NA(^TMP(ORSUB,$J,1))
 I '$$CHK() S @ORTEXT@(0)=ORY G PRINTWQ
 S ORHFS=$$HFS^ORWRP()
 D HFSOPEN^ORWRP("ORWRP",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("ORWRP",ORHFS)

CPRS

File Type Description
Pascal File rLabs.pas


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