Changeset 368 for ccr

Timestamp:

Feb 14, 2009, 10:56:46 PM (15 years ago)

Author:

George Lilly

Message:

initial CCR ELEMENT FILE

Location:

ccr/trunk/p

Files:

• C0CE_1_0_1_T1.KID (added)
• C0CFM2.m (added)
• GPLLABS.m (modified) (6 diffs)

ccr/trunk/p/GPLLABS.m

@@ -84 +84 @@
  . ;D QOPEN^GPLXPATH("C0CRBLD",C0CRTMP,C0CIS) ;1ST PART OF XML
  . D QUEUE^GPLXPATH("C0CRBLD",C0CRTMP,2,@C0CRTMP@(0)-4) ;UP TO <Test>
- . I $D(@C0CMAP@("M","TESTS",0)) D  ; TESTS EXIST
- . . S C0CJN=@C0CMAP@("M","TESTS",0) ; NUMBER OF TESTS
+ . I $D(@C0CMAP@("M","TEST",0)) D  ; TESTS EXIST
+ . . S C0CJN=@C0CMAP@("M","TEST",0) ; NUMBER OF TESTS
  . . K C0CTO ; CLEAR OUTPUT VARIABLE
  . . F C0CJ=1:1:C0CJN D   ;FOR EACH TEST RESULT
  . . . K C0CTMAP ; EMPTY MAPS FOR TEST RESULTS
  . . . S C0CTMP=$NA(@C0CRBASE@(C0CI,C0CJ)) ;WORK AREA FOR TEST RESULTS
- . . . S C0CTMAP=$NA(@C0CMAP@("M","TESTS",C0CJ)) ;
+ . . . S C0CTMAP=$NA(@C0CMAP@("M","TEST",C0CJ)) ;
  . . . I 'C0CQT W "MAPOBX:",C0CTMAP,!
  . . . D MAP^GPLXPATH("C0CTT",C0CTMAP,C0CTMP) ; MAP TO TMP
@@ -142 +142 @@
  . W "LAB LOOKUP FAILED, NO SSN",!
  . S C0CNSSN=1 ; SET NO SSN FLAG
- S C0CSPC="*" ; LOOKING FOR ALL LAB TYPES
- ;I $D(^TMP("GPLCCR","LABLIMIT")) D  ; IS LAB LIMIT SET? MOVE THIS TO PARMS
- ;. S C0CLLMT=^TMP("GPLCCR","LABLIMIT") ;USE THE LAB LIMIT PARAMATER
- ;E  S C0CLLMT="T-360" ;START DATE LONG AGO TO GET EVERYTHING
- S C0CLLMT=$$GET^C0CPARMS("LABLIMIT") ; GET THE LIMIT PARM
- S C0CLSTRT=$$GET^C0CPARMS("LABSTART") ; GET START PARM
- D DT^DILF(,C0CLLMT,.C0CSDT) ;
- W "LAB LIMIT: ",C0CLLMT,!
- D DT^DILF(,C0CLSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
+ S C0CSPC="*" ; LOOKING FOR ALL LABS
+ I $D(^TMP("GPLCCR","RPMS")) D  ; RUNNING RPMS
+ . D DT^DILF(,"T-365",.C0CSDT) ; START DATE ONE YEAR AGO TO LIMIT VOLUME
+ E  D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING
+ D DT^DILF(,"T",.C0CEDT) ; END DATE TODAY 
  S C0CR=$$GCPR^LA7QRY(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q
@@ -161 +157 @@
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
  I '$D(^KVAI(0)) D SETTBL ; INITIALIZE LAB TABLE
- I ^TMP("GPLCCR","LABTBL",0)'="V2" 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(^TMP("GPLCCR","LABTBL")) ; BASE OF OBX TABLE
+ S C0CTAB=$NA(^KBAI) ; BASE OF OBX TABLE
  S C0CHB=$NA(^TMP("HLS",$J))
  S C0CI=""
@@ -203 +199 @@
  . . . S XV("RESULTTESTCODINGSYSTEM")=C0CVAR("C3") ; PRIMARY DISPLAY NAME
  . . . S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2") ; USE PRIMARY TEXT
- . . N C0CZG S C0CZG=XV("RESULTTESTNORMALDESCRIPTIONTEXT") ;
- . . S XV("RESULTTESTNORMALDESCRIPTIONTEXT")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
+ . . N C0CZG S C0CZG=XV("RESULTTESTNORMALDESCTEXT") ;
+ . . S XV("RESULTTESTNORMALDESCTEXT")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
  . . S C0CZG=XV("RESULTTESTVALUE")
  . . S XV("RESULTTESTVALUE")=$$SYMENC^MXMLUTL(C0CZG) ;ESCAPE
  . I C0CTYP="OBX" D  ; PROCESS TEST RESULTS
  . . I C0CLOBX=0 D  ; FIRST TEST RESULT FOR THIS SECTION
- . . . S C0CLB2=$NA(@C0CLB@(C0CLI,"M","TESTS")) ; INDENT FOR TEST RESULTS
+ . . . S C0CLB2=$NA(@C0CLB@(C0CLI,"M","TEST")) ; INDENT FOR TEST RESULTS
  . . S C0CLOBX=C0CLOBX+1 ; INCREMENT TEST COUNT
  . . S @C0CLB2@(0)=C0CLOBX ; STORE THE TEST COUNT
@@ -368 +364 @@
  S X("OBX","OBX5")="5^00561^Observation Results^RESULTTESTVALUE"
  S X("OBX","OBX6")="6^00562^Units^RESULTTESTUNITS"
- S X("OBX","OBX7")="7^00563^Reference Range^RESULTTESTNORMALDESCRIPTIONTEXT"
+ S X("OBX","OBX7")="7^00563^Reference Range^RESULTTESTNORMALDESCTEXT"
  S X("OBX","OBX8")="8^00564^Abnormal Flags^RESULTTESTFLAG"
  S X("OBX","OBX9")="9^00639^Probability"
@@ -379 +375 @@
  S X("OBX","OBX16")="16^00584^Responsible Observer"
  S X("OBX","OBX17")="17^00936^Observation Method"
- M ^TMP("GPLCCR","LABTBL")=X ; SET VALUES IN ^TMP("GPLCCR","LABTBL")
- S ^TMP("GPLCCR","LABTBL",0)="V2"
- Q
- ;
+ M ^KBAI=X ; SET VALUES IN ^KBAI
+ S ^KBAI(0)="V2"
+ Q
+ ;