Changeset 1441

Timestamp:

May 30, 2012, 12:58:32 PM (13 years ago)

Author:

George Lilly

Message:

new version

File:

• qrda/C0Q/trunk/p/C0QMUERX.m (modified) (5 diffs)

qrda/C0Q/trunk/p/C0QMUERX.m

@@ -1 @@
-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 +58 @@
  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 +80 @@
  . 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 +86 @@
  ; 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 +174 @@
  ;
  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