Changeset 277 for ccr/trunk/p/GPLLABS.m

Timestamp:

Nov 12, 2008, 2:09:42 PM (15 years ago)

Author:

George Lilly

Message:

repairs to Lab processing

File:

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

ccr/trunk/p/GPLLABS.m

@@ -59 +59 @@
  . W "DFN:",DFN,!
  . ;D PARY^GPLXPATH("C0CT") ; SECTION TEMPLATE
- . D PARY^GPLXPATH("C0CRT") ;REQUEST TEMPLATE (OCR)
- . D PARY^GPLXPATH("C0CTT") ;TEST TEMPLATE (OCX)
+ . ;D PARY^GPLXPATH("C0CRT") ;REQUEST TEMPLATE (OCR)
+ . ;D PARY^GPLXPATH("C0CTT") ;TEST TEMPLATE (OCX)
  D EXTRACT("C0CT",DFN,) ; FIRST CALL EXTRACT
  I '$D(@C0CV@(0)) D  Q  ; NO VARS THERE
  . S @C0CO@(0)=0 ; PASS BACK NO RESULTS INDICATOR
+ S RIMVARS=$NA(^TMP("GPLRIM","VARS",DFN,"RESULTS"))
+ K @RIMVARS
+ M @RIMVARS=@C0CV ; UPDATE RIMVARS SO THEY STAY IN SYNCH
  N C0CI,C0CJ,C0CMAP,C0CTMAP,C0CTMP
  S C0CIN=@C0CV@(0) ; COUNT OF RESULTS (OBR)
@@ -86 +89 @@
  . . . ;
  . . . D PUSHA^GPLXPATH("C0CTO","C0CTMP") ;ADD THE TEST TO BUFFER
- . . I 'C0CQT D PARY^GPLXPATH("C0CTO")
+ . . ; I 'C0CQT D PARY^GPLXPATH("C0CTO")
  . . D INSINNER^GPLXPATH("C0CRTMP","C0CTO","//Results/Result/Test") ;INSERT TST
  . I C0CI=1 D  ; FIRST TIME, COPY INSTEAD OF INSERT
@@ -143 +146 @@
  . . 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 XV("RESULTOBJECTID")="RESULT_"_C0CLI
+ . . S C0CX1=XV("RESULTSOURCEACTORID") ; SOURCE FROM OBR
+ . . S XV("RESULTSOURCEACTORID")="ACTORPROVIDER_"_$P($P(C0CX1,"^",1),"-",1)
+ . . S C0CX1=XV("RESULTASSESSMENTDATETIME") ;DATE TIME IN HL7 FORMAT
+ . . S C0CX2=$$HL7TFM^XLFDT(C0CX1,"L") ;FM DT LOCAL
+ . . S XV("RESULTASSESSMENTDATETIME")=$$FMDTOUTC^CCRUTIL(C0CX2,"DT") ;UTC TIME
+ . . M @C0CLB@(C0CLI)=XV ; PERSIST THE OBR VARS
  . . S C0CLOBX=0 ; MARK THE BEGINNING OF A NEW SECTION
  . I C0CTYP="OBX" D  ; SPECIAL CASE FOR OBX3
@@ -171 +180 @@
  . . S @C0CLB2@(0)=C0CLOBX ; STORE THE TEST COUNT
  . . S XV("RESULTTESTOBJECTID")="RESULTTEST_"_C0CLI_"_"_C0CLOBX
- . . I 'C0CQT ZWR XV
+ . . S C0CX1=XV("RESULTTESTSOURCEACTORID") ; TEST SOURCE
+ . . S C0CX2=$P($P(C0CX1,"^",1),"-",1) ; PULL OUT STATION NUMBER
+ . . S XV("RESULTTESTSOURCEACTORID")="ACTORORGANIZATION_"_C0CX2
+ . . S XV("RESULTTESTNORMALSOURCEACTORID")=XV("RESULTTESTSOURCEACTORID")
+ . . S C0CX1=XV("RESULTTESTDATETIME") ;DATE TIME IN HL7 FORMAT
+ . . S C0CX2=$$HL7TFM^XLFDT(C0CX1,"L") ;FM DT LOCAL
+ . . S XV("RESULTTESTDATETIME")=$$FMDTOUTC^CCRUTIL(C0CX2,"DT") ;UTC TIME
+ . . ; I 'C0CQT ZWR XV
  . . M @C0CLB2@(C0CLOBX)=XV ; PERSIST THE TEST RESULT VARIABLES
  . I 'C0CQT D  ;