VistA Analysis » VistA Reference » RPCs » ORIMO IMOOD

ORIMO IMOOD

Properties

Property Value
Label IMOOD
MUMPS Implementation ORIMO
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method IMOOD^ORIMO
Method Comment Is it an IMO order?
Input Parameters ORDERID
Code
 Q:'$D(^OR(100,+ORDERID,0))
N PIMO,DGRP,CMGRP,CIGRP
S (DGRP,CMGRP,CIGRP,ORY)=0
S DGRP=$P($G(^OR(100,+ORDERID,0)),U,11)
S CMGRP=$O(^ORD(100.98,"B","CLINIC MEDICATIONS",""))
S CIGRP=$O(^ORD(100.98,"B","CLINIC INFUSIONS",""))
I DGRP=CMGRP S ORY=1
I DGRP=CIGRP S ORY=1

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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