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