VistA Analysis » VistA Reference » RPCs » ORWD1 PRINTGUI

ORWD1 PRINTGUI

RPC used by CPRS GUI to print orders to a designated print device.

Properties

Property Value
Label PRINTGUI
MUMPS Implementation ORWD1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value  
Method PRINTGUI^ORWD1  
Method Comment File Print orders from GUI
Input Parameters HLOC, ORWDEV, PRTLST  
First Comment 
ORRACT is set here to identify this as a manual reprint
  
Code 
 N ADEVICE,ORRACT,ORPLST,I,PKG,DLG
 N BBPKG S BBPKG=+$O(^DIC(9.4,"B","VBECS",0))
 S PRTLST="",I=0
 K ORPLST M ORPLST=PRTLST
 S ORRACT=1,ADEVICE=$P(ORWDEV,U,1),ORESULT=1
 I +ADEVICE D GUI^ORPR02(.ORPLST,ADEVICE,"C",HLOC)
 S ADEVICE=$P(ORWDEV,U,2)
 K ORPLST M ORPLST=PRTLST
 D INSRTBB^ORWD2(.ORPLST) ; insert BB child Lab orders into ORPLST for printing labels
 I +ADEVICE D GUI^ORPR02(.ORPLST,ADEVICE,"L",HLOC)
 S ADEVICE=$P(ORWDEV,U,3)
 K ORPLST M ORPLST=PRTLST
 F  S I=$O(ORPLST(I)) Q:'I  D
 . S PKG=+$P($G(^OR(100,+ORPLST(I),0)),U,14),DLG=+$P($G(^OR(100,+ORPLST(I),0)),U,5)
 . I PKG=$O(^DIC(9.4,"B","DIETETICS",0)),DLG'=$O(^ORD(101.41,"B","FHW SPECIAL MEAL",0)) K ORPLST(I)
 D INSRTBB^ORWD2(.ORPLST) ; insert BB child Lab orders into ORPLST for printing requisitions
 I +ADEVICE,$D(ORPLST) D GUI^ORPR02(.ORPLST,ADEVICE,"R",HLOC)
 S ADEVICE=$P(ORWDEV,U,4)
 K ORPLST M ORPLST=PRTLST
 I +ADEVICE D GUI^ORPR02(.ORPLST,ADEVICE,"W",HLOC)
  

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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