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

ORWRP PRINT LAB REPORTS

This rpc is used to print a report on the Labs tabin CPRS.

Properties

Property Value
Label PRINT
MUMPS Implementation ORWRPL
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
DEVICE LITERAL 100 true Name of the device where the report should print.Format: <device name> ; <right margin> ; <page length>Right margin and page length are optional.
DFN LITERAL 20 true Internal entry number of entry in the Patient file.
REPORT ID LITERAL 20 true Identification number of the desired report.
DATE RANGE LITERAL 5 true This parameter indicates the number of days from TODAYthat the report should search for information.

MUMPS Method Description

Property Value
Method PRINT^ORWRPL
Method Comment print report entry point
Input Parameters ORIO, ORDFN, RPTID, ORDAYSBK, ORTESTS, ORALPHA, OROMEGA
First Comment
  See RPC definition for details on input and output parameters
Code
 IF '$$CHK() G PRINTQ
N ZTDTH,ZTRTN,ZTSK,ZTDESC,ZTSAVE
S ZTIO=ORIO,ZTDTH=$H
S ZTDESC="GUI Lab Report Print"
S ZTRTN="DEQUE^ORWRPL"
S ZTSAVE("ORDFN")="",ZTSAVE("RPTID")="",ZTSAVE("ORDAYSBK")="",ZTSAVE("DUZ(")="",ZTSAVE("ORTESTS(")="",ZTSAVE("ORALPHA")="",ZTSAVE("OROMEGA")=""
D ^%ZTLOAD
I $D(ZTSK) D
. S ORY="0^Report queued. (Task #"_ZTSK_")"
E D
. S ORY="99^Task Rejected."

CPRS

File Type Description
Pascal File rLabs.pas


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