Changeset 275 for ccr/trunk/p

Timestamp:

Nov 12, 2008, 9:14:51 AM (16 years ago)

Author:

George Lilly

Message:

fix for RESULTTESTFLAG

File:

• ccr/trunk/p/GPLLABS.m (modified) (4 diffs)

ccr/trunk/p/GPLLABS.m

@@ -44 +44 @@
  I RMIXML="" D  ; INPUT XML NOT PASSED
  . D LOAD^GPLCCR0("C0CT0") ; LOAD ENTIRE CCR TEMPLATE
- . D QUERY^GPLXPATH("C0CT0","//ContinuityOfCareRecord/Body/Results","C0CT")
+ . D QUERY^GPLXPATH("C0CT0","//ContinuityOfCareRecord/Body/Results","C0CT0R")
+ . S C0CT="C0CT0R" ; NAME OF EXTRACTED RESULTS TEMPLATE
  E  S C0CT=RMIXML ; WE ARE PASSED THE RESULTS PART OF THE TEMPLATE
  I RMIVAR="" D  ; LOCATION OF VARIABLES NOT PASSED
@@ -128 +129 @@
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
  I '$D(^KVAI(0)) D SETTBL ; INITIALIZE LAB TABLE
- I ^KBAI(0)'="V1" D SETTBL ; NEED NEWEST VERSION
+ I ^KBAI(0)'="V2" D SETTBL ; NEED NEWEST VERSION
  I '$D(^TMP("HLS",$J,1)) D GHL7 ; GET HL7 MGS IF NOT ALREADY DONE
  S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE
@@ -142 +143 @@
  . . S @C0CLB@(0)=@C0CLB@(0)+1 ; INCREMENT COUNT
  . . S C0CLI=@C0CLB@(0) ; INDEX FOR THIS RESULT
+ . . M @C0CLB@(C0CLI)=C0CVAR ; PERSIST THE OBR VARS
  . . S @C0CLB@(C0CLI,"RESULTOBJECTID")="RESULT_"_C0CLI
- . . M @C0CLB@(C0CLI)=C0CVAR ; PERSIST THE OBR VARS
  . . S C0CLOBX=0 ; MARK THE BEGINNING OF A NEW SECTION
  . I C0CTYP="OBX" D  ; SPECIAL CASE FOR OBX3
@@ -322 +323 @@
  S X("OBX","OBX17")="17^00936^Observation Method"
  M ^KBAI=X ; SET VALUES IN ^KBAI
- S ^KBAI(0)="V1"
- Q
- ;
+ S ^KBAI(0)="V2"
+ Q
+ ;