VistA Analysis » VistA Reference » RPCs » ORWD2 MANUAL

ORWD2 MANUAL

Returns device information for manual prints done via CPRS GUI.

Properties

Property Value
Label MANUAL
MUMPS Implementation ORWD2
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method MANUAL^ORWD2
Method Comment return device info for manual prints
Input Parameters LOC, ORDERS
Code 
 N DOCHT,DOLBL,DOREQ,DOWRK,ORDERID,I
 N PRMTCHT,PRMTLBL,PRMTREQ,PRMTWRK  ; (so undefined for DEFDEV call)
 S (DOCHT,DOLBL,DOREQ,DOWRK,I,J)=0,LOC=+LOC_";SC("
 N BBPKG S BBPKG=+$O(^DIC(9.4,"B","VBECS",0))
 D INSRTBB(.ORDERS) ; insert any blood bank child lab orders into ORDERS array
 F  S I=$O(ORDERS(I)) Q:'I  D  Q:DOCHT&DOLBL&DOREQ&DOWRK
 . S ORDERID=$P(ORDERS(I),U)
 . I $$HASFMTC,$$NOTBB(+ORDERS(I)) S DOCHT=1
 . I $$HASFMTL S DOLBL=1
 . I $$HASFMTR S DOREQ=1
 . I $$HASFMTW,$$NOTBB(+ORDERS(I)) S DOWRK=1
 S REC=$$DEFDEV

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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