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

Timestamp:

Nov 14, 2008, 9:43:58 AM (15 years ago)

Author:

George Lilly

Message:

fixes for Labs not found and some Meds template fixes

File:

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

ccr/trunk/p/GPLLABS.m

@@ -102 +102 @@
  ;
  ;
+ N C0CNSSN ; IS THERE AN SSN FLAG
+ S C0CNSSN=0
+ S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
  D GHL7 ; GET HL7 MESSAGE FOR THIS PATIENT
- S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
+ I C0CNSSN=1 D  Q  ; NO SSN, CAN'T GET HL7 FOR THIS PATIENT
+ . S @C0CLB@(0)=0
  K @C0CLB ; CLEAR OUT OLD VARS IF ANY
  N QTSAV S QTSAV=C0CQT ;SAVE QUIET FLAG
@@ -119 +123 @@
  I C0CPTID="" D  Q  ; NO SSN, COMPLAIN AND QUIT
  . W "LAB LOOKUP FAILED, NO SSN",!
+ . S C0CNSSN=1 ; SET NO SSN FLAG
  S C0CSPC="*" ; LOOKING FOR ALL LABS
  D DT^DILF(,"T-5000",.C0CSDT) ; START DATE LONG AGO TO GET EVERYTHING