- PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**146**;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 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
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRPCR 3826 printed Feb 18, 2025@23:57:19 Page 2
- PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**146**;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 months 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