VistA Analysis » VistA Reference » RPCs » ORQQCN SF513 WINDOWS PRINT

ORQQCN SF513 WINDOWS PRINT

Print consults Standard Form 513 to Windows device from GUI application.

Properties

Property Value
Label WPRT513
MUMPS Implementation ORQQCN2
Return Type GLOBAL ARRAY

MUMPS Method Description

Property Value
Method WPRT513^ORQQCN2
Method Comment Print SF513 to Windows device from GUI
Input Parameters GMRCO, GMRCCHT
Code 
 N ZTQUEUED,ORHFS,ORSUB,ORIO,ORSTATUS,ROOT,ORHANDLE
 N IOM,IOSL,IOST,IOF,IOT,IOS
 S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORHANDLE="ORQQCN2"
 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 SF513 print")
 D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
 N $ETRAP,$ESTACK
 S $ETRAP="D ERR^ORWRP Q"
 U IO
 D PRNT^GMRCP5A(GMRCO,0,0,GMRCCHT,0)
 D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)

CPRS

File Type Description
Pascal File Consults/rConsults.pas


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