source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRPCR3.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.7 KB
RevLine 
[613]1PXRRPCR3 ;HIN/MjK - Clinic Specfic Workload Reports - Demographics ;6/7/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3DEMOGR D SET^PXRRPCR4,DEMOG^PXRRPCR S PXRS=1
4 I '$D(^TMP($J,"CLINIC TOTALS",PXRRCLIN)) W !?5,"o There were no encounters recorded for this clinic within the",!?7,"selected date range." G QT
5 W ?2,"Number of patient encounters",?55,$P($J(PXRRRTVS,5,1),".")
6 W ?65,"-",?74,"-"
7 W !?2,"Number of clinic sessions",?55,$P($J(PXRRSESS,5,1),".")
8 W ?65,"-",?74,"-"
9 W !?2,"Number of patients per clinic session",?55,$J(PXRRPTSS,5,1)
10 W ?65,"-",?74,"-"
11 W !?2,"Median patient age in years",?55,$P($J(PXRRAG,5,1),".")
12 W ?65,"-",?74,"-"
13 W !?2,"Patients with:",?17,"Coronary Artery Disease",?55,$P($J(PXRRCAD,5,1),".")
14 W ?64,$J(PXRR("CAD"),5,1),?73,$J(^TMP($J,"MEAN",5),5,1)
15 W !?17,"Diabetes ",?55,$P($J(PXRRDM,5,1),".")
16 W ?64,$J(PXRR("DM"),5,1),?73,$J(^TMP($J,"MEAN",7),5,1)
17 W !?17,"Hypertension",?55,$P($J(PXRRHTN,5,1),".")
18 W ?64,$J(PXRR("HTN"),5,1),?73,$J(^TMP($J,"MEAN",9),5,1)
19 W !?17,"Hyperlipidemia",?55,$P($J(PXRRHLIP,5,1),".")
20 W ?64,$J(PXRR("HLIP"),5,1),?73,$J(^TMP($J,"MEAN",25),5,1)
21 W !?17,"Diabetes and Hypertension",?55,$P($J(PXRRHTDM,5,1),".")
22 W ?64,$J(PXRR("HTDM"),5,1),?73,$J(^TMP($J,"MEAN",11),5,1)
23 W ! F L=1:1:IOM W "_"
24 D HOLD G:'+PXRS QT
25 W ! D PREVMD^PXRRPCR D HOLD G:'+PXRS QT
26 W !?2,"Patients who smoke.",?55,$P($J(PXRRSMYR,5,1),"."),?64,$J(PXRR("SMOKE"),5,1)
27 W ?73,$J(^TMP($J,"MEAN",22),5,1) D HOLD G:'+PXRS QT
28 W !?2,"Females >50 who had a mammogram in the last year",?55,$S(PXRR("MAMGRM")="N/A":"N/A",1:$P($J(PXRRMMYR,5,1),"."))
29 W ?64,$S(PXRR("MAMGRM")="N/A":"N/A",1:$J(PXRR("MAMGRM"),5,1))
30 W ?73,$S(PXRR("MAMGRM")="N/A":"N/A",1:$J(^TMP($J,"MEAN",23),5,1))
31 W !?4,"(There were ",PXRRF50," females >50 years of age)."
32 D HOLD G:'+PXRS QT
33 W ! D QLM^PXRRPCR
34QLM W !?2,"Average HBA1C of your patients with Diabetes",?64,$S(+PXRRHBA1:$J(PXRRHBA1,5,1),1:PXRRHBA1)
35 W ?73,$S(+^TMP($J,"MEAN",12):$J(^TMP($J,"MEAN",12),5,1),1:^TMP($J,"MEAN",12))
36 W !?2,"Patients with HBA1C> 7%",?64,$P($J(PXRRHBG7,5,1),".")
37 W ?73,$J(^TMP($J,"MEAN",30),5,1)
38 W !?2,"Patients w/ Coronary Artery Disease who smoke",?64,$P($J(PXRRCDSM,5,1),".")
39 W ?73,$J(^TMP($J,"MEAN",13),5,1)
40 W !?2,"Ave. LDL for patients with Coronary Artery Disease",?64,$S(+PXRRLDL:$J(PXRRLDL,5,1),1:PXRRLDL)
41 W ?73,$S(^TMP($J,"MEAN",14)="N/A":"N/A",1:$J(^TMP($J,"MEAN",14),5,1))
42 W !?5,"(",PXRRNOLD," of ",PXRRCDSX," pats. with CAD had no LDL results.)"
43 W !?2,"Number of patients with:",?27,"Glucose >240",?64,$P($J(PXRRGL,5,1),".")
44 W ?73,$J(^TMP($J,"MEAN",31),5,1)
45 W !?27,"Cholesterol >200",?64,$P($J(PXRRCHOL,5,1),".")
46 W ?73,$J(^TMP($J,"MEAN",32),5,1)
47 W !?27,"Either a Systolic bp >160 or",!?36,"Diastolic bp > 90"
48 W ?64,$P($J(PXRRBPT,5,1),"."),?73,$J(^TMP($J,"MEAN",36),5,1)
49 W !?2,"Unscheduled encounters per patient.",?64,$J(PXRR("SXUN"),5,1)
50 W ?73,$J(^TMP($J,"MEAN",16),5,1)
51 W !?2,"Emergency Room encounters per patient.",?64,$J(PXRR("SXER"),5,1)
52 W ?73,$J(^TMP($J,"MEAN",17),5,1)
53 W !?2,"Hospitalizations per patient.",?64,$J(PXRR("SXHP"),5,1)
54 W ?73,$J(^TMP($J,"MEAN",18),5,1)
55 D HOLD G:'+PXRS QT
56 W ! F L=1:1:IOM W "_"
57 W ! D UTIL^PXRRPCR
58 W !?2,"Number of male patients",?64,$P($J(PXRRMPAT,5,1),".")
59 W ?74,"-"
60 W !?2,"Number of female patients",?64,$P($J(PXRRFPAT,5,1),".")
61 W ?74,"-"
62 W !?2,"Average number of encounters per patient",?64,$J(PXRRUTVS,5,1)
63 W ?73,$J(^TMP($J,"MEAN",21),5,1)
64 W !?2,"Average number of active outpt. medications per patient"
65 W ?64,$J(PXRRPSUT,5,1)
66 W ?73,$J(^TMP($J,"MEAN",34),5,1)
67 W !?2,"Average pharmacy cost per patient",?61,"$",?64,$J(PXRRCOST,5,1)
68 W ?73,$J(^TMP($J,"MEAN",35),5,1)
69 D HOLD G:'+PXRS QT
70QT D CLEAN^PXRRPCEQ Q
71HOLD I (IOST?1"C-".E)&($Y>(IOSL-6)) S DIR(0)="E" D ^DIR K DIR S PXRS=+Y W:Y @IOF
72 Q
Note: See TracBrowser for help on using the repository browser.