Ignore:
Timestamp:
Oct 18, 2012, 1:33:05 PM (12 years ago)
Author:
Sam Habiel
Message:

Final updated routines for patch 5

File:
1 edited

Legend:

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

    r1572 r1577  
    1 C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/10/12 11:28am
    2         ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32
     1C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm
     2        ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32
    33        ;
    44        ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
     
    6767        . I C0QPL D  ;
    6868        . . D FILE ; FILE THE PATIENT LISTS
    69         . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; 
    70         . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; 
     69        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
     70        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
    7171        . K C0QLIST
    7272        Q
     
    7676        ; this is done so that if there are no matching patients, the patient list
    7777        ; will be zeroed out
    78         K C0QLIST
     78        ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!!
    7979        S C0QLIST(ZYR_"HasDemographics")=""
    8080        S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
     
    8787        S C0QLIST(ZYR_"HasMedOrders")=""
    8888        S C0QLIST(ZYR_"HasSmokingStatus")=""
     89        S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5
    8990        Q
    9091        ;
     
    124125        K PROBL
    125126        Q
    126         ; 
     127        ;
    127128ALLERGY ; ALLERGY LIST
    128129        ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL
     
    162163RECON   ; MEDICATIONS RECONCILIATION
    163164        ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL
    164         ; 
     165        ;
    165166        I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D  ;
    166167        . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
     
    240241        Q
    241242        ;
     243        ;
     244        ;
    242245COD     ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE
    243246        I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D  ;
     
    251254        I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0
    252255        I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0
    253         I FOUND D  ; 
     256        I FOUND D  ;
    254257        . S C0QLIST(ZYR_"HasEDtime",DFN)=""
    255258        E  S C0QLIST(ZYR_"NoEDtime",DFN)=""
     
    281284        S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination
    282285        D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
    283         ; 
     286        ;
    284287        ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE
    285288        ;
     
    404407        . D VITALS
    405408        D FILE ; FILE THE PATIENT LISTS
    406         ; 
     409        ;
    407410        ; Now process eRx MU measures for these patients
    408411        ; Check for eRx template and code first; if they exist, run the code
Note: See TracChangeset for help on using the changeset viewer.