ORWDPS5 LESGRP

LES will check the orders belonging to the following display group
 1.  LAB/LABORATORY  ORDERS
 2.  BLOOD BANK      ORDERS
 3.  CHEMISTRY       ORDERS

 N LABID,BLDBKID,CHMID
 S (LABID,BLDBKID,CHMID,ORY)=0
 S:$D(^ORD(100.98,"B","LAB")) LABID=$O(^ORD(100.98,"B","LAB",0))
 I 'LABID S:$D(^ORD(100.98,"B","LABORATORY")) LABID=$O(^ORD(100.98,"B","LABORATORY",0))
 S:$D(^ORD(100.98,"B","BLOOD BANK")) BLDBKID=$O(^ORD(100.98,"B","BLOOD BANK",0))
 S:$D(^ORD(100.98,"B","CHEMISTRY")) CHMID=$O(^ORD(100.98,"B","CHEMISTRY",0))
 I ('LABID)!('BLDBKID!('CHMID)) Q
 S ORY=LABID_U_BLDBKID_U_CHMID