VistA Analysis » VistA Reference » RPCs » ORWDXM3 ISUDQO

ORWDXM3 ISUDQO

Properties

Property Value
Label ISUDQO
MUMPS Implementation ORWDXM3
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method ISUDQO^ORWDXM3
Method Comment True: is unit dose quick order
Input Parameters DLGID
Code 
 S ORY=0
 Q:'$D(^ORD(101.41,DLGID,0))
 N CLODGRP,CLIVDGRP,UDGRP1,UDGRP2,DLGTYP,DLGGRP
 S UDGRP1=$O(^ORD(100.98,"B","UD RX",0))
 S UDGRP2=$O(^ORD(100.98,"B","I RX",0))
 S CLODGRP=$O(^ORD(100.98,"B","CLINIC MEDICATIONS",""))
 S CLIVDGRP=$O(^ORD(100.98,"B","CLINIC INFUSIONS",""))
 S DLGTYP=$P($G(^ORD(101.41,DLGID,0)),U,4)
 S DLGGRP=$P($G(^ORD(101.41,DLGID,0)),U,5)
 I (DLGTYP="Q"),((DLGGRP=UDGRP1)!(DLGGRP=UDGRP2)!(DLGGRP=CLODGRP)!(DLGGRP=CLIVDGRP)) S ORY=1

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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