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

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

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**146**;Aug 12, 1996
3HDR D TITLE I $D(^TMP($J)) W @IOF,?(IOM-20),$E($$HTE^XLFDT($H),1,18)
4 W @$S($D(^TMP($J)):"!?((IOM/2)-($L(PXRROPT)/2))",1:"!!?((IOM/2)-($L(PXRROPT)/2))"),PXRROPT,!!
5 Q
6ADMH W !,"Admission",?13,"Discharge",?30,"Patient",?61,"SSN",?69,"Room-Bed",!,"==========",?13,"========",?30,"=======",?57,"=========",?69,"======="
7 Q
8ERH W !,"ER Encounter Dt",?30,"Patient",?61,"SSN",!,"============",?30,"=======",?56,"============"
9 Q
10LABH W !,"LAB Date",?13,"Patient",?38,"SSN",?48,"Lab Test/Value",?73,"Hi/Low",!,"============",?13,"================",?35,"===========",?50,"=================",?73,"====="
11 Q
12DEMOG D HDR W ?1,"Clinic: ",$P($G(^SC(PXRRCLIN,0)),U),!
13 W ?1,"Compared to the mean of: " D
14 . I $D(PXRSTPNM) W ?26,PXRSTPNM," Clinic Stop",!?26,"for ",PXRRCNUM," of ",PXRCLNUM," clinics with data" Q
15 . W ?27,$P($G(PXRRCLIN(1)),U) F I=2:1 Q:'$D(PXRRCLIN(I)) D
16 .. I ($L($P(PXRRCLIN(I),U))+$X+3)<IOM W ", ",$P(PXRRCLIN(I),U) Q
17 .. W !?27,$P($G(PXRRCLIN(I)),U)
18 D LINE
19 W ! I $D(^TMP($J,"CLINIC TOTALS",PXRRCLIN)) W ?1,"CASELOAD DEMOGRAPHICS for Encounter date range",?52,"| Clinic |",?72,"Overall" S Y=$P(PXRRBDT,".") D XD W !?1,Y," to " S Y=$P(PXRREDT,".") D XD S PXRREDT(1)=Y W Y D
20 . W ?52,"|",?56,"#",?60,"|",?65,"%",?69,"|",?73,"Mean %" D DASH
21 W ! Q
22QLM D LINE W !?1,"QUALITY OF CARE MARKERS (6 mos. prior to ",PXRREDT(1),")",?61,"| Clinic",?71,"|Overall" S Y=$P(PXRRSXMO,".") D XD W !?1,Y," to " W PXRREDT(1),?61,"| #",?71,"| Mean #" D DASH
23 W ! Q
24PREVMD D LINE W !?1,"PREVENTIVE MEDICINE (12 mos. prior to ",PXRREDT(1),")",?52,"| Clinic |Overall" S Y=$P(PXRRYR,".") D XD W !?1,Y," to " W PXRREDT(1),?52,"| #",?61,"| %",?71,"| Mean %" D DASH
25 Q
26UTIL D LINE W !?1,"UTILIZATION DATA (12 months prior to ",PXRREDT(1),?61,"| Number | Overall" S Y=$P(PXRRYR,".") D XD W !?1,Y," to " W PXRREDT(1),?61,"| # | Mean #" D DASH
27 Q
28MEAN W ?1,"The overall mean values for this report will be for the clinic(s) selected",!?1,"which had encounters during the selected date range.",!
29 Q
30XD ;_._._._._._._._.Execute DD node for Date Format_._._._._._._._._._.
31 S Y=$$FMTE^XLFDT(Y) Q
32TITLE ;_._._._._._.Set Common Title From Option file Name_._._._._.
33 D OP^XQCHK S PXRROPT=$P(XQOPT,U,2)
34 Q
35COL ;_._._._._._._._._.Column Headings for WL report_._._._._._._._._
36 W !?30,"|-------------PCE ENCOUNTERS DOCUMENTED----------------|"
37 W ?89,"|---------SCHEDULING DATA------------|",!
38 W ?30,"|-------E&M PATIENT CATEGORIES-------| NON NO TOTAL |"
39 W ?89,"| WALK-INS NO-SHOW CANCELLED |",!
40 W ?0,"CLINIC NAME"
41 W ?30,"|NEW ESTABLISHED CONSULT OTHER | E&M CPT ENCTRS |"
42 W ?89,"| APPTS APPTS |",!
43 F I=1:1:127 W "="
44 W ! Q
45FTR ;_._._._._._._._._._._.Footer for WL report_._._._._._._._.__._._
46 W !! F Z=1:1:127 W "="
47 W !,?0,"TOTAL NUMBER OF CLINIC(S):",?64,$P($J(PXRRCN,4,1),".")
48 W !,?0,"AVERAGE NUMBER OF PCE ENCOUNTERS PER CLINIC = ",?64,$J(PXRRAV,4,1)
49 W !!,"This report presents a distribution of Clinic Encounters based"
50 W " on CPT procedures associated with encounters. CPT",!
51 W "Evaluation and Management (E&M) procedures are categorized to provide encounters by patient type, with non E&M and ",!,"no CPT procedures making up the remaining encounters."
52 Q
53BDT ;_._._.Help for Beginning Date Range_._._._.
54 W !,"This is the beginning date for encounters that should be included in the creation of this report."
55 Q
56EDT ;_._._.Help for Ending Date Range_._._._.
57 W !,"This is the ending date for encounters that should be included in the creation of this report."
58 Q
59LINE ;_._.Write a line_._.
60 W ! F I=1:1:IOM W "_"
61 Q
62DASH ;_._.Write a line of dashes_._.
63 W ! F I=1:1:IOM W "-"
64 Q
Note: See TracBrowser for help on using the repository browser.