Changeset 1441 for qrda


Ignore:
Timestamp:
May 30, 2012, 12:58:32 PM (13 years ago)
Author:
George Lilly
Message:

new version

File:
1 edited

Legend:

Unmodified
Added
Removed
  • qrda/C0Q/trunk/p/C0QMUERX.m

    r1440 r1441  
    1 C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/29/12 4:29pm
    2  ;;
    3  QUIT ; No Entry from the top
     1C0QMUERX ; VEN - Analyze ERx Data for Patients ; 5/30/12 10:21am
     2 ;;1.0;C0Q;;May 21, 2012;Build 44
     3 QUIT  ; No Entry from the top
    44 ;
    55UT ; Unit Tests
     
    5858 FOR  SET C0QWALK=$O(@C0QLIST@(C0QWALK)) QUIT:C0QDONE  DO
    5959 . ; Are we done?
    60  . I C0QB,C0QWALK="" S C0QDONE=1 QUIT ; If in index and we are out, done
    61  . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT ; If not in index and we are not numeric, done
     60 . I C0QB,C0QWALK="" S C0QDONE=1 QUIT  ; If in index and we are out, done
     61 . I 'C0QB,'+C0QWALK S C0QDONE=1 QUIT  ; If not in index and we are not numeric, done
    6262 . ;
    6363 . N C0QDFN ; DFN of Patient
     
    8080 . W:$G(C0QDEBUG) "Calling GETMEDS6 SOAP Web Service Call for "_C0QDFN,!
    8181 . D SOAP^C0PWS2("C0POUT","GETMEDS6",DUZ,C0QDFN)
     82 . Q:$G(^TMP($J,C0QDFN,1,"RowCount"))=0 ; WS says no data
    8283 . M ^TMP($J,C0QDFN)=C0POUT
    8384 ;
     
    8586 ; Appendix G: Meaningful Use Certification FAQ Question 10
    8687 ;
    87  ; DENOMINATOR  NUMERATOR
    88  ; DeaClassCode = 0, 9  DeaClassCode = 0, 9
    89  ; PharmacyType = 1     PharmacyType = 1
    90  ; PharmacyDetailType = 1, 2    PharmacyDetailType = 1, 2
    91  ; FinalDestinationType = 1, 2, 3, 4    FinalDestinationType = 3, 4
    92  ; FinalStatusType = 1, 4, 5    FinalStatusType = 1, 5
     88 ; DENOMINATOR                        NUMERATOR
     89 ; DeaClassCode = 0, 9                DeaClassCode = 0, 9
     90 ; PharmacyType = 1                   PharmacyType = 1
     91 ; PharmacyDetailType = 1, 2          PharmacyDetailType = 1, 2
     92 ; FinalDestinationType = 1, 2, 3, 4  FinalDestinationType = 3, 4
     93 ; FinalStatusType = 1, 4, 5          FinalStatusType = 1, 5
    9394 ;
    9495 ; DeMorgan's Law
     
    173174 ;
    174175 S ^TMP($J)=C0QN_U_C0QD
     176 ;
     177 ; TODO: Over here, do something with the numerator and denominator..
     178 ; Probably store them somewhere.
     179 ;
    175180 I '$G(C0QDEBUG) K ^TMP($J) ; Empty out in production not testing
    176181 QUIT
    177 
     182 ;
    178183HASERX(DFN) ; $$ - Private; Has E-Prescriptions?
    179184 ; Parameters
Note: See TracChangeset for help on using the changeset viewer.