Changeset 636 for FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRSRVR6.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/LRSRVR6.m (modified) (2 diffs)

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

@@ -1 +1 @@
 LRSRVR6 ;DALIO/JMC - LAB DATA SERVER CONT'D SNOMED EXTRACT ;Aug 17, 2006
- ;;5.2;LAB SERVICE;**346,378**;Sep 27, 1994;Build 1
+ ;;5.2;LAB SERVICE;**346**;Sep 27, 1994;Build 10
  ; Produces SNOMED extract via LRLABSERVER option
  ;
@@ -119 +119 @@
  S LRINSTR("ADDR FLAGS")="R"
  S LRINSTR("FROM")="LAB_PACKAGE"
- S LRMSUBJ=$E(LRMSUBJ,1,65)
  D SENDMSG^XMXAPI(.5,LRMSUBJ,"^TMP($J,""LRDATA"")",.LRTO,.LRINSTR,.LRTASK)
  Q