Index: qrda/C0Q/trunk/p/C0QMUERX.m
===================================================================
--- qrda/C0Q/trunk/p/C0QMUERX.m	(revision 1440)
+++ qrda/C0Q/trunk/p/C0QMUERX.m	(revision 1441)
@@ -1,5 +1,5 @@
-C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/29/12 4:29pm
- ;;
- QUIT ; No Entry from the top
+C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/30/12 10:21am
+ ;;1.0;C0Q;;May 21, 2012;Build 44
+ QUIT  ; No Entry from the top
  ;
 UT ; Unit Tests
@@ -58,6 +58,6 @@
  FOR  SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE  DO
  . ; Are we done?
- . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done
- . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done
+ . I C0QB,C0QWALK="" S C0QDONE=1 QUIT  ; If in index and we are out, done
+ . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT  ; If not in index and we are not numeric, done
  . ;
  . N C0QDFN ; DFN of Patient
@@ -80,4 +80,5 @@
  . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,!
  . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN)
+ . Q:$G(^TMP($J,C0QDFN,1,"RowCount"))=0 ; WS says no data
  . M ^TMP($J,C0QDFN)=C0POUT
  ;
@@ -85,10 +86,10 @@
  ; Appendix G: Meaningful Use Certification FAQ Question 10
  ;
- ; DENOMINATOR	NUMERATOR
- ; DeaClassCode = 0, 9	DeaClassCode = 0, 9
- ; PharmacyType = 1	PharmacyType = 1
- ; PharmacyDetailType = 1, 2	PharmacyDetailType = 1, 2
- ; FinalDestinationType = 1, 2, 3, 4	FinalDestinationType = 3, 4
- ; FinalStatusType = 1, 4, 5	FinalStatusType = 1, 5
+ ; DENOMINATOR                        NUMERATOR
+ ; DeaClassCode = 0, 9                DeaClassCode = 0, 9
+ ; PharmacyType = 1                   PharmacyType = 1
+ ; PharmacyDetailType = 1, 2          PharmacyDetailType = 1, 2
+ ; FinalDestinationType = 1, 2, 3, 4  FinalDestinationType = 3, 4
+ ; FinalStatusType = 1, 4, 5          FinalStatusType = 1, 5
  ;
  ; DeMorgan's Law
@@ -173,7 +174,11 @@
  ;
  S ^TMP($J)=C0QN_U_C0QD
+ ;
+ ; TODO: Over here, do something with the numerator and denominator..
+ ; Probably store them somewhere.
+ ; 
  I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing
  QUIT
-
+ ;
 HASERX(DFN) ; $$ - Private; Has E-Prescriptions?
  ; Parameters