VistA Analysis » VistA Reference » RPCs » ORWRP SAVE DEFAULT PRINTER

ORWRP SAVE DEFAULT PRINTER

Saves printer as user’s default printer.

Properties

Property Value
Label SAVDFPRT
MUMPS Implementation ORWRP
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method SAVDFPRT^ORWRP
Method Comment Save new default printer for user
Input Parameters ORDEV
Code
 N ORPAR,ORERR,ORWINDEF
Q:$L(ORDEV)=0
S ORPAR="ORWDP WINPRINT DEFAULT"
I ORDEV="WIN" S ORWINDEF="Y"
E S ORWINDEF="N"
I $$GET^XPAR(DUZ_";VA(200,",ORPAR,1)'="" D CHG^XPAR(DUZ_";VA(200,",ORPAR,1,ORWINDEF,.ORERR)
E D ADD^XPAR(DUZ_";VA(200,",ORPAR,1,ORWINDEF,.ORERR)
Q:ORDEV="WIN"
S ORPAR="ORWDP DEFAULT PRINTER",ORDEV="`"_ORDEV
I $$GET^XPAR(DUZ_";VA(200,",ORPAR,1)'="" D CHG^XPAR(DUZ_";VA(200,",ORPAR,1,ORDEV,.ORERR)
E D ADD^XPAR(DUZ_";VA(200,",ORPAR,1,ORDEV,.ORERR)

CPRS

File Type Description
Pascal File rReports.pas


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