Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRRPCR

PXRRPCR.m

Go to the documentation of this file.
  1. PXRRPCR ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**146**;Aug 12, 1996
  1. HDR D TITLE I $D(^TMP($J)) W @IOF,?(IOM-20),$E($$HTE^XLFDT($H),1,18)
  1. W @$S($D(^TMP($J)):"!?((IOM/2)-($L(PXRROPT)/2))",1:"!!?((IOM/2)-($L(PXRROPT)/2))"),PXRROPT,!!
  1. Q
  1. ADMH W !,"Admission",?13,"Discharge",?30,"Patient",?61,"SSN",?69,"Room-Bed",!,"==========",?13,"========",?30,"=======",?57,"=========",?69,"======="
  1. Q
  1. ERH W !,"ER Encounter Dt",?30,"Patient",?61,"SSN",!,"============",?30,"=======",?56,"============"
  1. Q
  1. LABH W !,"LAB Date",?13,"Patient",?38,"SSN",?48,"Lab Test/Value",?73,"Hi/Low",!,"============",?13,"================",?35,"===========",?50,"=================",?73,"====="
  1. Q
  1. DEMOG D HDR W ?1,"Clinic: ",$P($G(^SC(PXRRCLIN,0)),U),!
  1. W ?1,"Compared to the mean of: " D
  1. . I $D(PXRSTPNM) W ?26,PXRSTPNM," Clinic Stop",!?26,"for ",PXRRCNUM," of ",PXRCLNUM," clinics with data" Q
  1. . W ?27,$P($G(PXRRCLIN(1)),U) F I=2:1 Q:'$D(PXRRCLIN(I)) D
  1. .. I ($L($P(PXRRCLIN(I),U))+$X+3)<IOM W ", ",$P(PXRRCLIN(I),U) Q
  1. .. W !?27,$P($G(PXRRCLIN(I)),U)
  1. D LINE
  1. 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
  1. . W ?52,"|",?56,"#",?60,"|",?65,"%",?69,"|",?73,"Mean %" D DASH
  1. W ! Q
  1. 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
  1. W ! Q
  1. 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
  1. Q
  1. 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
  1. Q
  1. 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.",!
  1. Q
  1. XD ;_._._._._._._._.Execute DD node for Date Format_._._._._._._._._._.
  1. S Y=$$FMTE^XLFDT(Y) Q
  1. TITLE ;_._._._._._.Set Common Title From Option file Name_._._._._.
  1. D OP^XQCHK S PXRROPT=$P(XQOPT,U,2)
  1. Q
  1. COL ;_._._._._._._._._.Column Headings for WL report_._._._._._._._._
  1. W !?30,"|-------------PCE ENCOUNTERS DOCUMENTED----------------|"
  1. W ?89,"|---------SCHEDULING DATA------------|",!
  1. W ?30,"|-------E&M PATIENT CATEGORIES-------| NON NO TOTAL |"
  1. W ?89,"| WALK-INS NO-SHOW CANCELLED |",!
  1. W ?0,"CLINIC NAME"
  1. W ?30,"|NEW ESTABLISHED CONSULT OTHER | E&M CPT ENCTRS |"
  1. W ?89,"| APPTS APPTS |",!
  1. F I=1:1:127 W "="
  1. W ! Q
  1. FTR ;_._._._._._._._._._._.Footer for WL report_._._._._._._._.__._._
  1. W !! F Z=1:1:127 W "="
  1. W !,?0,"TOTAL NUMBER OF CLINIC(S):",?64,$P($J(PXRRCN,4,1),".")
  1. W !,?0,"AVERAGE NUMBER OF PCE ENCOUNTERS PER CLINIC = ",?64,$J(PXRRAV,4,1)
  1. W !!,"This report presents a distribution of Clinic Encounters based"
  1. W " on CPT procedures associated with encounters. CPT",!
  1. 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."
  1. Q
  1. BDT ;_._._.Help for Beginning Date Range_._._._.
  1. W !,"This is the beginning date for encounters that should be included in the creation of this report."
  1. Q
  1. EDT ;_._._.Help for Ending Date Range_._._._.
  1. W !,"This is the ending date for encounters that should be included in the creation of this report."
  1. Q
  1. LINE ;_._.Write a line_._.
  1. W ! F I=1:1:IOM W "_"
  1. Q
  1. DASH ;_._.Write a line of dashes_._.
  1. W ! F I=1:1:IOM W "-"
  1. Q