Changeset 1361 for qrda/C0Q/trunk/p
- Timestamp:
- Feb 16, 2012, 7:24:53 PM (13 years ago)
- Location:
- qrda/C0Q/trunk/p
- Files:
-
- 15 edited
-
C0QERTIM.m (modified) (1 diff)
-
C0QGMRAD.m (modified) (1 diff)
-
C0QGMTSA.m (modified) (1 diff)
-
C0QGMTSG.m (modified) (1 diff)
-
C0QHF.m (modified) (1 diff)
-
C0QIMMUN.m (modified) (1 diff)
-
C0QINIT.m (modified) (1 diff)
-
C0QMAIN.m (modified) (1 diff)
-
C0QMU12.m (modified) (5 diffs)
-
C0QNOTES.m (modified) (1 diff)
-
C0QPQRI.m (modified) (1 diff)
-
C0QPRML.m (modified) (1 diff)
-
C0QSET.m (modified) (1 diff)
-
C0QUPDT.m (modified) (1 diff)
-
C0QUTIL.m (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
qrda/C0Q/trunk/p/C0QERTIM.m
r1335 r1361 1 1 C0QERTIM ; Time from admission to leaving a hospital location ; 2 ;;0.1;C0Q;;;Build 2 32 ;;0.1;C0Q;;;Build 26 3 3 EN ;Get Location 4 4 S DIC=42,DIC(0)="AEMQ" D ^DIC I Y<1 G EXIT -
qrda/C0Q/trunk/p/C0QGMRAD.m
r1335 r1361 1 1 C0QGMRAD ;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 2 32 ;;4.0;Adverse Reaction Tracking;**2,10**;Mar 29, 1996;Build 26 3 3 EN1 ; ENTRY TO GATHER PATIENT A/AR DATA 4 4 ;INPUT VARIABLES: -
qrda/C0Q/trunk/p/C0QGMTSA.m
r1335 r1361 1 1 C0QGMTSA ; SLC/DLT,KER - Brief Adverse Reaction/Allergy ; 02/27/2002 2 ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 2 32 ;;2.7;Health Summary;**28,49**;Oct 20, 1995;Build 26 3 3 ; 4 4 ; External References -
qrda/C0Q/trunk/p/C0QGMTSG.m
r1335 r1361 1 1 C0QGMTSG ; SLC/DLT,KER - Allergies ; 01/06/2003 2 ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 2 32 ;;2.7;Health Summary;**9,28,49,58**;Oct 20, 1995;Build 26 3 3 ; 4 4 ; External References -
qrda/C0Q/trunk/p/C0QHF.m
r1335 r1361 1 1 C0QHF ; GPL - Health Factor Utility Routines ;9/02/11 17:05 2 ;;0.1;C0Q;nopatch;noreleasedate;Build 2 32 ;;0.1;C0Q;nopatch;noreleasedate;Build 26 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
qrda/C0Q/trunk/p/C0QIMMUN.m
r1335 r1361 1 1 C0QIMMUN ;Prep Immunization Order data for HL7 Message creation ; 2 ;;0.1;C0Q;nopatch;noreleasedate;Build 2 32 ;;0.1;C0Q;nopatch;noreleasedate;Build 26 3 3 ; ^XTMP("C0QIMMUN",0)=purge date^create date 4 4 ; ^XTMP("C0QIMMUN",order_date,order#,item_name)=item_value -
qrda/C0Q/trunk/p/C0QINIT.m
r1335 r1361 1 1 C0QINIT ; GPL - Quality Reporting Initialization Routines ;12/01/11 17:05 2 ;;0.1;C0Q;nopatch;noreleasedate;Build 2 32 ;;0.1;C0Q;nopatch;noreleasedate;Build 26 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
qrda/C0Q/trunk/p/C0QMAIN.m
r1335 r1361 1 1 C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10 17:05 2 ;;0.1;C0Q;nopatch;noreleasedate;Build 2 32 ;;0.1;C0Q;nopatch;noreleasedate;Build 26 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
qrda/C0Q/trunk/p/C0QMU12.m
r1335 r1361 1 C0Q MU12 ;JJOH/ZAG/GPL - Patient Reminder List for 2012;7/5/11 8:50pm2 ;;1.0;MU PACKAGE;;;Build 2 01 C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm 2 ;;1.0;MU PACKAGE;;;Build 26 3 3 ; 4 4 ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU … … 21 21 ; GPL - THIS ROUTINE IS A COPY OF JJOHMU11 THAT HAS BEEN MODIFIED 22 22 ; FOR MEANINGFUL USE CALCULATION FOR FISCAL YEAR 2012 AT OROVILLE HOSPITAL 23 ; 24 C0QPFN() Q 1130580001.401 ; PARAMETER FILE 25 C0QPCFN() Q 1130580001.411 ; CLINIC SUBFILE 26 C0QMFN() Q 1130580001.201 ; FILE NUMBER FOR C0Q MEASUREMENT FILE 27 C0QMMFN() Q 1130580001.2011 ; FN FOR MEASURE SUBFILE 28 INIT(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 23 61 ; 24 62 BUILD ; CALL ALL AND DIS AND BUILD THE GRSLT ARRAY or print or create … … 49 87 . D UPDATE^C0QUPDT(.G,10) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR 50 88 . D UPDATE^C0QUPDT(.G,11) ; UPDATE THE MU MEASUREMENT SET - CHANGE EVERY YR 89 Q 90 ; 91 BUILD2 ; 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 ; 117 INITCLST ; 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")="" 51 130 Q 52 131 ; … … 738 817 ; 739 818 DOEP ; DO EP COMPUTATIONS 740 S DTE=3111000 819 S ZYR="MU12-" 820 N C0QPARM,C0QCLNC 821 D INIT("C0QPARM","EP") ; INITIALIZE PARAMETERS 741 822 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") 747 832 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 749 835 . D DEMO 750 836 . D PROBLEM … … 755 841 . D VITALS 756 842 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 758 848 Q 759 849 ; -
qrda/C0Q/trunk/p/C0QNOTES.m
r1335 r1361 1 1 C0QNOTES ;GPL - Utility to look up patient notes ;9/5/11 8:50pm 2 ;;1.0;MU PACKAGE;;;Build 2 32 ;;1.0;MU PACKAGE;;;Build 26 3 3 ; 4 4 ;2011 George Lilly <glilly@glilly.net> - Licensed under the terms of the GNU -
qrda/C0Q/trunk/p/C0QPQRI.m
r1335 r1361 1 1 C0QPQRI ; GPL - GENERATES A PQRI XML FILE ;6/14/11 17:05 2 ;;0.1;C0C;nopatch;noreleasedate;Build 2 32 ;;0.1;C0C;nopatch;noreleasedate;Build 26 3 3 ;Copyright 2011 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
qrda/C0Q/trunk/p/C0QPRML.m
r1335 r1361 1 1 C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm 2 ;;1.0;MU PACKAGE;;;Build 2 32 ;;1.0;MU PACKAGE;;;Build 26 3 3 ; 4 4 ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU -
qrda/C0Q/trunk/p/C0QSET.m
r1335 r1361 1 1 C0QSET ;GPL - SET OPERATIONS ON LISTS ;818/11 8:50pm 2 ;;1.0;MU PACKAGE;;;Build 2 32 ;;1.0;MU PACKAGE;;;Build 26 3 3 ; 4 4 ;2011 George Lilly glilly@glilly.net - Licensed under the terms of the GNU -
qrda/C0Q/trunk/p/C0QUPDT.m
r1335 r1361 1 1 C0QUPDT ; GPL - Quality Reporting List Update Routines ;8/29/11 17:05 2 ;;0.1;C0Q;nopatch;noreleasedate;Build 2 32 ;;0.1;C0Q;nopatch;noreleasedate;Build 26 3 3 ;Copyright 2009 George Lilly. Licensed under the terms of the GNU 4 4 ;General Public License See attached copy of the License. -
qrda/C0Q/trunk/p/C0QUTIL.m
r1335 r1361 1 1 C0QUTIL ;JJOH/ZAG/GPL - Utilities for C0Q Package ;9/2/11 4:30pm 2 ;;1.0;MU PACKAGE;;;Build 2 32 ;;1.0;MU PACKAGE;;;Build 26 3 3 ; 4 4 ;2011 Licensed under the terms of the GNU General Public License
Note:
See TracChangeset
for help on using the changeset viewer.
