Changeset 1364 for qrda/C0Q/trunk/p/C0QMU12.m

Timestamp:

Feb 19, 2012, 11:09:05 PM (12 years ago)

Author:

George Lilly

Message:

parameter file and bug fixes

File:

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

qrda/C0Q/trunk/p/C0QMU12.m

@@ -1 +1 @@
 C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm
- ;;1.0;MU PACKAGE;;;Build 26
+ ;;1.0;MU PACKAGE;;;Build 27
  ;
  ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -67 +67 @@
  I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
  S ZYR="MU12-"
- N G1 ; ONE SET OF VALUES - RNF1 FORMAT
- ; INITIALIZE LISTS
- ; this is done so that if there are no matching patients, the patient list
- ; will be zeroed out
- S C0QLIST(ZYR_"HasDemographics")=""
- S C0QLIST(ZYR_"Patient")=""
- S C0QLIST(ZYR_"HasProblem")=""
- S C0QLIST(ZYR_"HasAllergy")=""
- S C0QLIST(ZYR_"HasMed")=""
- S C0QLIST(ZYR_"HasVitalSigns")=""
- S C0QLIST(ZYR_"HasMedOrders")=""
- S C0QLIST(ZYR_"HasSmokingStatus")=""
- D ALL ; all currently admitted patients in the hospital
- D DIS ; all patients discharged since the reporting period began
- I C0QSS ZWR GRSLT
- D ICUPAT ; GENERATE ICU PATIENT LIST
- I C0QPL D  ;
- . D FILE ; FILE THE PATIENT LISTS
- . D UPDATE^C0QUPDT(.G,10) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR
- . D UPDATE^C0QUPDT(.G,11) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR
- Q
- ;
-BUILD2 ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create
- ; patient lists
- ;N GRSLT ; ARRAY FOR RESULTS
- I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array
- I '$D(C0QPR) S C0QPR=0 ;default don't print out results
- I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
- S ZYR="MU12-"
  D INITCLST ; initialize C0QLIST
  N G1 ; ONE SET OF VALUES - RNF1 FORMAT
@@ -107 +78 @@
  . D DIS ; all patients discharged since the reporting period began
  . I C0QSS ZWR GRSLT
- . D ICUPAT ; GENERATE ICU PATIENT LIST
+ . ;D ICUPAT ; GENERATE ICU PATIENT LIST
  . I C0QPL D  ;
  . . D FILE ; FILE THE PATIENT LISTS
@@ -212 +183 @@
  ; DELETED MEDS, MEDS2, AND MEDS3 FOR 2012 TO USE ONLY MEDS4
  N BEG,END
- S BEG=$$DT^C0PCUR("JULY 3,2011")
- S END=$$DT^C0PCUR("NOW")
+ S BEG=$$DT^C0QUTIL("JULY 3,2011")
+ S END=$$DT^C0QUTIL("NOW")
  D OCL^PSOORRL(DFN,BEG,END)  ;DBIA #2400
  N C0QMEDS
@@ -832 +803 @@
  S DFN=""
  S ZYR=ZYR_"EP-"
- F  S DFN=$O(C0QLIST(ZYR_"EP-ALL-PATIENTS",DFN)) Q:DFN=""  D  ; EACH PATIENT
+ F  S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN=""  D  ; EACH PATIENT
  . D DEMO
  . D PROBLEM