Changeset 1679 for cprs/trunk/CPRS-Chart/Orders/fODReleaseEvent.pas
- Timestamp:
- May 7, 2015, 12:34:29 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/trunk/CPRS-Chart/Orders/fODReleaseEvent.pas
r829 r1679 118 118 SendReleaseOrders(OrdersLst); 119 119 LastCheckedPtEvt := ''; 120 121 //CQ #15813 Modired code to look for error string mentioned in CQ and change strings to conts - JCS 120 122 with OrdersLst do if Count > 0 then for i := 0 to Count - 1 do 121 123 begin … … 123 125 begin 124 126 OrderText := FindOrderText(Piece(OrdersLst[i], U, 1)); 125 if Piece(OrdersLst[i],U,4) = 'Invalid Pharmacy order number'then127 if Piece(OrdersLst[i],U,4) = TX_SAVERR_PHARM_ORD_NUM_SEARCH_STRING then 126 128 InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText + CRLF + CRLF + 127 'The changes to this order have not been saved. You must contact Pharmacy to complete any action on this order.', 128 TC_SAVERR, MB_OK) 129 TX_SAVERR_PHARM_ORD_NUM, TC_SAVERR, MB_OK) 130 else if Piece(OrdersLst[i],U,4) = TX_SAVERR_IMAGING_PROC_SEARCH_STRING then 131 InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText + CRLF + CRLF + 132 TX_SAVERR_IMAGING_PROC, TC_SAVERR, MB_OK) 129 133 else 130 134 InfoBox(TX_SAVERR1 + Piece(OrdersLst[i], U, 4) + TX_SAVERR2 + OrderText,
Note:
See TracChangeset
for help on using the changeset viewer.