Changeset 636 for FOIAVistA/tag/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7QRY2.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 )
• AUTOMATED_LAB_INSTRUMENTS-LA/LA7QRY2.m (modified) (2 diffs)

FOIAVistA/tag/r/AUTOMATED_LAB_INSTRUMENTS-LA/LA7QRY2.m

@@ -1 @@
-LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ; 12/10/03 10:39am
- ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,69**;Sep 27, 1994
+LA7QRY2 ;DALOI/JMC - Lab HL7 Query Utility ;1/30/07  19:05
+ ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,69,73**;Sep 27, 1994;Build 7
  ;
  Q
@@ -9 +9 @@
  ;
  S (DFN,LRDFN)="",LA7PTYP=0
+ ; VOE changes, Use HRN cross reference, Daou;;June 8,2005
+ S LA7X=$O(^AUPNPAT("D",LA7PTID,""))
+ I LA7X>0 D SETDFN(LA7X) S LA7PTYP=1
  ;
- ; SSN passed as patient identifier
- I LA7PTID?9N.1A D
- . S LA7PTYP=1
- . S LA7X=$O(^DPT("SSN",LA7PTID,0))
- . I LA7X>0 D SETDFN(LA7X)
+ ; See if SSN passed as patient identifier
+ I DFN'>0 S LA7X=$O(^DPT("SSN",LA7PTID,0)) I LA7X>0 D SETDFN(LA7X) S LA7PTYP=1
  ;
  ; MPI/ICN (integration control number) passed as patient identifier
- I LA7PTID?10N1"V"6N D
- . S LA7PTYP=2
- . S LA7X=$$GETDFN^MPIF001($P(LA7PTID,"V"))
- . I LA7X>0 D SETDFN(LA7X)
+ I DFN'>0 S LA7X=$$GETDFN^MPIF001($P(LA7PTID,"V")) I LA7X>0 D SETDFN(LA7X) S LA7PTYP=2
  ;
  ; If no patient identified/no laboratory record - return exception message