PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
HDR D TITLE I $D(^TMP($J)) W @IOF,?(IOM-20),$E($$HTE^XLFDT($H),1,18)
W @$S($D(^TMP($J)):"!?((IOM/2)-($L(PXRROPT)/2))",1:"!!?((IOM/2)-($L(PXRROPT)/2))"),PXRROPT,!!
Q
ADMH W !,"Admission",?13,"Discharge",?30,"Patient",?61,"SSN",?69,"Room-Bed",!,"==========",?13,"========",?30,"=======",?57,"=========",?69,"======="
Q
ERH W !,"ER Encounter Dt",?30,"Patient",?61,"SSN",!,"============",?30,"=======",?56,"============"
Q
LABH W !,"LAB Date",?13,"Patient",?38,"SSN",?48,"Lab Test/Value",?73,"Hi/Low",!,"============",?13,"================",?35,"===========",?50,"=================",?73,"====="
Q
DEMOG D HDR W ?1,"Clinic: ",$P($G(^SC(PXRRCLIN,0)),U),!
W ?1,"Compared to the mean of: " D
. I $D(PXRSTPNM) W ?26,PXRSTPNM," Clinic Stop",!?26,"for ",PXRRCNUM," of ",PXRCLNUM," clinics with data" Q
. W ?27,$P($G(PXRRCLIN(1)),U) F I=2:1 Q:'$D(PXRRCLIN(I)) D
.. I ($L($P(PXRRCLIN(I),U))+$X+3)<IOM W ", ",$P(PXRRCLIN(I),U) Q
.. W !?27,$P($G(PXRRCLIN(I)),U)
D LINE
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
. W ?52,"|",?56,"#",?60,"|",?65,"%",?69,"|",?73,"Mean %" D DASH
W ! Q
QLM 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
W ! Q
PREVMD 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
Q
UTIL D LINE W !?1,"UTILIZATION DATA (12 monoths prior to ",PXRREDT(1),?61,"| Number | Overall" S Y=$P(PXRRYR,".") D XD W !?1,Y," to " W PXRREDT(1),?61,"| # | Mean #" D DASH
Q
MEAN 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.",!
Q
XD ;_._._._._._._._.Execute DD node for Date Format_._._._._._._._._._.
S Y=$$FMTE^XLFDT(Y) Q
TITLE ;_._._._._._.Set Common Title From Option file Name_._._._._.
D OP^XQCHK S PXRROPT=$P(XQOPT,U,2)
Q
COL ;_._._._._._._._._.Column Headings for WL report_._._._._._._._._
W !?30,"|-------------PCE ENCOUNTERS DOCUMENTED----------------|"
W ?89,"|---------SCHEDULING DATA------------|",!
W ?30,"|-------E&M PATIENT CATEGORIES-------| NON NO TOTAL |"
W ?89,"| WALK-INS NO-SHOW CANCELLED |",!
W ?0,"CLINIC NAME"
W ?30,"|NEW ESTABLISHED CONSULT OTHER | E&M CPT ENCTRS |"
W ?89,"| APPTS APPTS |",!
F I=1:1:127 W "="
W ! Q
FTR ;_._._._._._._._._._._.Footer for WL report_._._._._._._._.__._._
W !! F Z=1:1:127 W "="
W !,?0,"TOTAL NUMBER OF CLINIC(S):",?64,$P($J(PXRRCN,4,1),".")
W !,?0,"AVERAGE NUMBER OF PCE ENCOUNTERS PER CLINIC = ",?64,$J(PXRRAV,4,1)
W !!,"This report presents a distribution of Clinic Encounters based"
W " on CPT procedures associated with encounters. CPT",!
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."
Q
BDT ;_._._.Help for Beginning Date Range_._._._.
W !,"This is the beginning date for encounters that should be included in the creation of this report."
Q
EDT ;_._._.Help for Ending Date Range_._._._.
W !,"This is the ending date for encounters that should be included in the creation of this report."
Q
LINE ;_._.Write a line_._.
W ! F I=1:1:IOM W "_"
Q
DASH ;_._.Write a line of dashes_._.
W ! F I=1:1:IOM W "-"
Q
PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
HDR DO TITLE
IF $DATA(^TMP($JOB))
WRITE @IOF,?(IOM-20),$EXTRACT($$HTE^XLFDT($HOROLOG),1,18)
+1 WRITE @$SELECT($DATA(^TMP($JOB)):"!?((IOM/2)-($L(PXRROPT)/2))",1:"!!?((IOM/2)-($L(PXRROPT)/2))"),PXRROPT,!!
+2 QUIT
ADMH WRITE !,"Admission",?13,"Discharge",?30,"Patient",?61,"SSN",?69,"Room-Bed",!,"==========",?13,"========",?30,"=======",?57,"=========",?69,"======="
+1 QUIT
ERH WRITE !,"ER Encounter Dt",?30,"Patient",?61,"SSN",!,"============",?30,"=======",?56,"============"
+1 QUIT
LABH WRITE !,"LAB Date",?13,"Patient",?38,"SSN",?48,"Lab Test/Value",?73,"Hi/Low",!,"============",?13,"================",?35,"===========",?50,"=================",?73,"====="
+1 QUIT
DEMOG DO HDR
WRITE ?1,"Clinic: ",$PIECE($GET(^SC(PXRRCLIN,0)),U),!
+1 WRITE ?1,"Compared to the mean of: "
Begin DoDot:1
+2 IF $DATA(PXRSTPNM)
WRITE ?26,PXRSTPNM," Clinic Stop",!?26,"for ",PXRRCNUM," of ",PXRCLNUM," clinics with data"
QUIT
+3 WRITE ?27,$PIECE($GET(PXRRCLIN(1)),U)
FOR I=2:1
IF '$DATA(PXRRCLIN(I))
QUIT
Begin DoDot:2
+4 IF ($LENGTH($PIECE(PXRRCLIN(I),U))+$X+3)<IOM
WRITE ", ",$PIECE(PXRRCLIN(I),U)
QUIT
+5 WRITE !?27,$PIECE($GET(PXRRCLIN(I)),U)
End DoDot:2
End DoDot:1
+6 DO LINE
+7 WRITE !
IF $DATA(^TMP($JOB,"CLINIC TOTALS",PXRRCLIN))
WRITE ?1,"CASELOAD DEMOGRAPHICS for Encounter date range",?52,"| Clinic |",?72,"Overall"
SET Y=$PIECE(PXRRBDT,".")
DO XD
WRITE !?1,Y," to "
SET Y=$PIECE(PXRREDT,".")
DO XD
SET PXRREDT(1)=Y
WRITE Y
Begin DoDot:1
+8 WRITE ?52,"|",?56,"#",?60,"|",?65,"%",?69,"|",?73,"Mean %"
DO DASH
End DoDot:1
+9 WRITE !
QUIT
QLM DO LINE
WRITE !?1,"QUALITY OF CARE MARKERS (6 mos. prior to ",PXRREDT(1),")",?61,"| Clinic",?71,"|Overall"
SET Y=$PIECE(PXRRSXMO,".")
DO XD
WRITE !?1,Y," to "
WRITE PXRREDT(1),?61,"| #",?71,"| Mean #"
DO DASH
+1 WRITE !
QUIT
PREVMD DO LINE
WRITE !?1,"PREVENTIVE MEDICINE (12 mos. prior to ",PXRREDT(1),")",?52,"| Clinic |Overall"
SET Y=$PIECE(PXRRYR,".")
DO XD
WRITE !?1,Y," to "
WRITE PXRREDT(1),?52,"| #",?61,"| %",?71,"| Mean %"
DO DASH
+1 QUIT
UTIL DO LINE
WRITE !?1,"UTILIZATION DATA (12 monoths prior to ",PXRREDT(1),?61,"| Number | Overall"
SET Y=$PIECE(PXRRYR,".")
DO XD
WRITE !?1,Y," to "
WRITE PXRREDT(1),?61,"| # | Mean #"
DO DASH
+1 QUIT
MEAN WRITE ?1,"The overall mean values for this report will be for the clinic(s) selected",!?1,"which had encounters during the selected date range.",!
+1 QUIT
XD ;_._._._._._._._.Execute DD node for Date Format_._._._._._._._._._.
+1 SET Y=$$FMTE^XLFDT(Y)
QUIT
TITLE ;_._._._._._.Set Common Title From Option file Name_._._._._.
+1 DO OP^XQCHK
SET PXRROPT=$PIECE(XQOPT,U,2)
+2 QUIT
COL ;_._._._._._._._._.Column Headings for WL report_._._._._._._._._
+1 WRITE !?30,"|-------------PCE ENCOUNTERS DOCUMENTED----------------|"
+2 WRITE ?89,"|---------SCHEDULING DATA------------|",!
+3 WRITE ?30,"|-------E&M PATIENT CATEGORIES-------| NON NO TOTAL |"
+4 WRITE ?89,"| WALK-INS NO-SHOW CANCELLED |",!
+5 WRITE ?0,"CLINIC NAME"
+6 WRITE ?30,"|NEW ESTABLISHED CONSULT OTHER | E&M CPT ENCTRS |"
+7 WRITE ?89,"| APPTS APPTS |",!
+8 FOR I=1:1:127
WRITE "="
+9 WRITE !
QUIT
FTR ;_._._._._._._._._._._.Footer for WL report_._._._._._._._.__._._
+1 WRITE !!
FOR Z=1:1:127
WRITE "="
+2 WRITE !,?0,"TOTAL NUMBER OF CLINIC(S):",?64,$PIECE($JUSTIFY(PXRRCN,4,1),".")
+3 WRITE !,?0,"AVERAGE NUMBER OF PCE ENCOUNTERS PER CLINIC = ",?64,$JUSTIFY(PXRRAV,4,1)
+4 WRITE !!,"This report presents a distribution of Clinic Encounters based"
+5 WRITE " on CPT procedures associated with encounters. CPT",!
+6 WRITE "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."
+7 QUIT
BDT ;_._._.Help for Beginning Date Range_._._._.
+1 WRITE !,"This is the beginning date for encounters that should be included in the creation of this report."
+2 QUIT
EDT ;_._._.Help for Ending Date Range_._._._.
+1 WRITE !,"This is the ending date for encounters that should be included in the creation of this report."
+2 QUIT
LINE ;_._.Write a line_._.
+1 WRITE !
FOR I=1:1:IOM
WRITE "_"
+2 QUIT
DASH ;_._.Write a line of dashes_._.
+1 WRITE !
FOR I=1:1:IOM
WRITE "-"
+2 QUIT
