Changeset 1361 for qrda


Ignore:
Timestamp:
Feb 16, 2012, 7:24:53 PM (13 years ago)
Author:
George Lilly
Message:

update

Location:
qrda/C0Q/trunk
Files:
1 added
15 edited

Legend:

Unmodified
Added
Removed

  • qrda/C0Q/trunk/p/C0QERTIM.m

    r1335 r1361  
    11C0QERTIM        ; Time from admission to leaving a hospital location ;
    2         ;;0.1;C0Q;;;Build 23
     2        ;;0.1;C0Q;;;Build 26
    33EN      ;Get Location
    44        S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT

  • qrda/C0Q/trunk/p/C0QGMRAD.m

    r1335 r1361  
    11C0QGMRAD        ;HIRMFO/RM,WAA-UTILITY TO GATHER PATIENT DATA ;1/15/98  13:47
    2         ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 23
     2        ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 26
    33EN1     ; ENTRY TO GATHER PATIENT A/AR DATA
    44        ;INPUT VARIABLES:

  • qrda/C0Q/trunk/p/C0QGMTSA.m

    r1335 r1361  
    11C0QGMTSA        ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002
    2         ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 23
     2        ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 26
    33        ;                 
    44        ; External References

  • qrda/C0Q/trunk/p/C0QGMTSG.m

    r1335 r1361  
    11C0QGMTSG        ; SLC/DLT,KER - Allergies ; 01/06/2003
    2         ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 23
     2        ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 26
    33        ;                 
    44        ; External References

  • qrda/C0Q/trunk/p/C0QHF.m

    r1335 r1361  
    11C0QHF   ; GPL - Health Factor Utility Routines ;9/02/11  17:05
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0Q;nopatch;noreleasedate;Build 26
    33        ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.

  • qrda/C0Q/trunk/p/C0QIMMUN.m

    r1335 r1361  
    11C0QIMMUN        ;Prep Immunization Order data for HL7 Message creation ;
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0Q;nopatch;noreleasedate;Build 26
    33        ;  ^XTMP("C0QIMMUN",0)=purge date^create date
    44        ;  ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value

  • qrda/C0Q/trunk/p/C0QINIT.m

    r1335 r1361  
    11C0QINIT ; GPL - Quality Reporting Initialization Routines ;12/01/11  17:05
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0Q;nopatch;noreleasedate;Build 26
    33        ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.

  • qrda/C0Q/trunk/p/C0QMAIN.m

    r1335 r1361  
    11C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10  17:05
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0Q;nopatch;noreleasedate;Build 26
    33        ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.

  • qrda/C0Q/trunk/p/C0QMU12.m

    r1335 r1361  
    1 C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List for 2012 ;7/5/11 8:50pm
    2  ;;1.0;MU PACKAGE;;;Build 20
     1C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm
     2 ;;1.0;MU PACKAGE;;;Build 26
    33 ;
    44 ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
    … …  
    2121 ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED
    2222 ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL
     23 ;
     24C0QPFN() Q 1130580001.401 ; PARAMETER FILE
     25C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE
     26C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE
     27C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE
     28INIT(ZARY,ZTYP) ; INITIALIZE THE PARAMETERS FOR BUILDING PATIENT LISTS
     29 ; ZARY IS PASSED BY NAME
     30 ; ZTYP IS "INP" OR "EP"
     31 N ZMU S ZMU="MU12" ; THIS IS THE ONLY HARD CODED VALUE LEFT
     32 ; TBD - CHANGE IT TO A READ FROM SYSTEM PARAMETERS
     33 K @ZARY ; CLEAR RETURN ARRAY
     34 N ZIEN,ZCNT,ZX
     35 I $O(^C0Q(401,"MUTYP",ZMU,ZTYP,""))="" D  Q  ; OOPS NO RECORD THERE
     36 . W !,"ERROR, NO PARAMETERS AVAILABLE"
     37 S ZIEN=""
     38 S ZCNT=0
     39 F  S ZIEN=$O(^C0Q(401,"MUTYP",ZMU,ZTYP,ZIEN)) Q:ZIEN=""  D  ;
     40 . S ZCNT=ZCNT+1
     41 . S @ZARY@(ZCNT,"MU")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.02)
     42 . S @ZARY@(ZCNT,"TYPE")=$$GET1^DIQ($$C0QPFN,ZIEN_",",.03)
     43 . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",1,"I")
     44 . S @ZARY@(ZCNT,"InpatientMeasurementSet")=ZX
     45 . S @ZARY@(ZCNT,"InpatientBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
     46 . S @ZARY@(ZCNT,"InpatientEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
     47 . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I")
     48 . S ZX=$$GET1^DIQ($$C0QPFN,ZIEN_",",2,"I")
     49 . S @ZARY@(ZCNT,"EPMeasurementSet")=ZX
     50 . S @ZARY@(ZCNT,"EPBeginDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.02,"I")
     51 . S @ZARY@(ZCNT,"EPEndDate")=$$GET1^DIQ($$C0QMFN,ZX_",",.03,"I")
     52 . S @ZARY@(ZCNT,"EPQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",2.1,"I")
     53 . S @ZARY@(ZCNT,"InpatientQualitySet")=$$GET1^DIQ($$C0QPFN,ZIEN_",",1.1,"I")
     54 . D CLEAN^DILF
     55 . D LIST^DIC($$C0QPCFN,","_ZIEN_",",".01I")
     56 . I $D(^TMP("DIERR",$J)) D  Q  ; ERROR READING CLINIC LIST
     57 . . W !,"ERROR READING CLINIC PARAMETER LIST"
     58 . M @ZARY@(ZCNT,"CLINICS")=^TMP("DILIST",$J)
     59 ;
     60 Q
    2361 ;
    2462BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create
    … …  
    4987 . D UPDATE^C0QUPDT(.G,10) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR
    5088 . D UPDATE^C0QUPDT(.G,11) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR
     89 Q
     90 ;
     91BUILD2 ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create
     92 ; patient lists
     93 ;N GRSLT ; ARRAY FOR RESULTS
     94 I '$D(C0QSS) S C0QSS=0 ;default don't build spreadsheet array
     95 I '$D(C0QPR) S C0QPR=0 ;default don't print out results
     96 I '$D(C0QPL) S C0QPL=1 ;default do create patient lists
     97 S ZYR="MU12-"
     98 D INITCLST ; initialize C0QLIST
     99 N G1 ; ONE SET OF VALUES - RNF1 FORMAT
     100 N C0QPARM
     101 D INIT("C0QPARM","INP") ; initialize inpatient parms
     102 I $O(C0QPARM(""))="" D  Q  ; no parms for inpatient
     103 . W !,"No inpatient parameters"
     104 N ZDIV S ZDIV=""
     105 F  S ZDIV=$O(C0QPARM(ZDIV)) Q:ZDIV=""  D  ; for each inpatient division
     106 . D ALL ; all currently admitted patients in the hospital
     107 . D DIS ; all patients discharged since the reporting period began
     108 . I C0QSS ZWR GRSLT
     109 . D ICUPAT ; GENERATE ICU PATIENT LIST
     110 . I C0QPL D  ;
     111 . . D FILE ; FILE THE PATIENT LISTS
     112 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
     113 . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
     114 . K C0QLIST
     115 Q
     116 ;
     117INITCLST ; initialize C0QLIST
     118 ; INITIALIZE LISTS
     119 ; this is done so that if there are no matching patients, the patient list
     120 ; will be zeroed out
     121 K C0QLIST
     122 S C0QLIST(ZYR_"HasDemographics")=""
     123 S C0QLIST(ZYR_"Patient")=""
     124 S C0QLIST(ZYR_"HasProblem")=""
     125 S C0QLIST(ZYR_"HasAllergy")=""
     126 S C0QLIST(ZYR_"HasMed")=""
     127 S C0QLIST(ZYR_"HasVitalSigns")=""
     128 S C0QLIST(ZYR_"HasMedOrders")=""
     129 S C0QLIST(ZYR_"HasSmokingStatus")=""
    51130 Q
    52131 ;
    … …  
    738817 ;
    739818DOEP ; DO EP COMPUTATIONS
    740  S DTE=3111000
     819 S ZYR="MU12-"
     820 N C0QPARM,C0QCLNC
     821 D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS
    741822 K C0QLIST ; CLEAR THE LIST
    742  S PRE="MU12-EP-OIM-BOWEN-"
    743  S ZYR=PRE
    744  D LOCPAT(PRE,"OIM-BOWEN") ; GET THE PATIENTS
    745  ZWR C0QLIST
    746  ;B
     823 N ZI S ZI=""
     824 F  S ZI=$O(C0QPARM(ZI)) Q:ZI=""  D  ; FOR EACH EP
     825 . S DTE=C0QPARM(ZI,"EPBeginDate") ; beginning of measurement period
     826 . S EDTE=C0QPARM(ZI,"EPEndDate") ; end of measurement period -- tbd use this
     827 . S C0QCLNC=C0QPARM(ZI,"CLINICS",1,1) ; only one clinic for now
     828 . S PRE=ZYR_"EP-"_C0QCLNC_"-"
     829 . D LOCPAT(PRE,C0QCLNC) ; GET THE PATIENTS
     830 . I $D(DEBUG) ZWR C0QLIST
     831 . M C0QLIST(ZYR_"EP-ALL-PATIENTS")=C0QLIST(PRE_"Patient")
    747832 S DFN=""
    748  F  S DFN=$O(C0QLIST(PRE_"Patient",DFN)) Q:DFN=""  D  ; FOR EACH PATIENT
     833 S ZYR=ZYR_"EP-"
     834 F  S DFN=$O(C0QLIST(ZYR_"EP-ALL-PATIENTS",DFN)) Q:DFN=""  D  ; EACH PATIENT
    749835 . D DEMO
    750836 . D PROBLEM
    … …  
    755841 . D VITALS
    756842 D FILE ; FILE THE PATIENT LISTS
    757  D UPDATE^C0QUPDT(.G,12) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR
     843 N C0QCIEN
     844 S ZI=""
     845 F  S ZI=$O(C0QPARM(ZI)) Q:ZI=""  D  ;
     846 . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set
     847 . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET
    758848 Q
    759849 ;

  • qrda/C0Q/trunk/p/C0QNOTES.m

    r1335 r1361  
    11C0QNOTES        ;GPL - Utility to look up patient notes  ;9/5/11 8:50pm
    2         ;;1.0;MU PACKAGE;;;Build 23
     2        ;;1.0;MU PACKAGE;;;Build 26
    33        ;
    44        ;2011 George Lilly <glilly@glilly.net> - Licensed under the terms of the GNU

  • qrda/C0Q/trunk/p/C0QPQRI.m

    r1335 r1361  
    11C0QPQRI   ; GPL - GENERATES A PQRI XML FILE ;6/14/11  17:05
    2         ;;0.1;C0C;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0C;nopatch;noreleasedate;Build 26
    33        ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.

  • qrda/C0Q/trunk/p/C0QPRML.m

    r1335 r1361  
    11C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm
    2         ;;1.0;MU PACKAGE;;;Build 23
     2        ;;1.0;MU PACKAGE;;;Build 26
    33        ;
    44        ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU

  • qrda/C0Q/trunk/p/C0QSET.m

    r1335 r1361  
    11C0QSET  ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm
    2         ;;1.0;MU PACKAGE;;;Build 23
     2        ;;1.0;MU PACKAGE;;;Build 26
    33        ;
    44        ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU

  • qrda/C0Q/trunk/p/C0QUPDT.m

    r1335 r1361  
    11C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11  17:05
    2         ;;0.1;C0Q;nopatch;noreleasedate;Build 23
     2        ;;0.1;C0Q;nopatch;noreleasedate;Build 26
    33        ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
    44        ;General Public License See attached copy of the License.

  • qrda/C0Q/trunk/p/C0QUTIL.m

    r1335 r1361  
    11C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ;9/2/11 4:30pm
    2         ;;1.0;MU PACKAGE;;;Build 23
     2        ;;1.0;MU PACKAGE;;;Build 26
    33        ;
    44        ;2011 Licensed under the terms of the GNU General Public License
Note: See TracChangeset for help on using the changeset viewer.