Changeset 636 for FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR7OV0.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• LAB_SERVICE-LR-LS/LR7OV0.m (modified) (3 diffs)

FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LR7OV0.m

@@ -1 +1 @@
 LR7OV0 ;slc/dcm - Update orderable items ;8/11/97
- ;;5.2;LAB SERVICE;**121,187,357,361**;Sep 27, 1994
+ ;;5.2;LAB SERVICE;**121,187,357,361**;Sep 27, 1994;Build 2
  ;
 TEST(TEST,ICNT) ;Process single test
@@ -41 +41 @@
  Q MFI
 SINGLE(TEST,MFICODE,MFECODE) ;Message for a single test
+ L +LR7OV0(TEST)
  ;TEST= ptr to test in file 60
  ;MFICODE=File Level Event Code
@@ -50 +51 @@
  ;W !!,$P(^LAB(60,TEST,0),"^"),! I $D(ORUPDMSG(3)) ZW ORUPDMSG
  I $D(ORUPDMSG(3)) S ORUPDMSG="ORUPDMSG" D MSG^XQOR("LR7O ORDERABLE OR",.ORUPDMSG) ;Send update message
+ L -LR7OV0(TEST)
  Q
 ADD(TEST) ;Add single record to Master file