| [613] | 1 | PXRRPCR1 ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
|
|---|
| 2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
|
|---|
| 3 | VIS ;_._._._._._._._._._._._.Clinic Workload_._._._._._._._._._._._.
|
|---|
| 4 | D HDR^PXRRPCR S PXRRQ=1 I $D(PXRSTPNM) W !?1,"Clinic Stop: ",PXRSTPNM,!
|
|---|
| 5 | W ?1,"Encounter Date Range: ",$$FMTE^XLFDT($P(PXRRBDT,"."))," through ",$$FMTE^XLFDT($P(PXRREDT,".")),!
|
|---|
| 6 | D COL^PXRRPCR,PRINT,FTR^PXRRPCR
|
|---|
| 7 | Q
|
|---|
| 8 | PRINT ;_._.Set local varaibles and print report_._.
|
|---|
| 9 | S PX=0 F S PX=$O(PXRRCLIN(PX)) Q:PX="" S PXRRCLIN=$P(PXRRCLIN(PX),U) D:PXRRQ
|
|---|
| 10 | . I '$D(^TMP($J,"CL",1,PXRRCLIN))&('+$G(^TMP($J,PXRRCLIN,"TOT"))) W ?0,$E(PXRRCLIN,1,25) F I=32,41,53,62,69,74,79,95,106,117 W @"?I",0 I I=117 W !
|
|---|
| 11 | . S PXRRTVCO=^TMP($J,"TVCO")
|
|---|
| 12 | . S PXRRAV=$J((PXRRTVCO/PXRRCN),2,1)
|
|---|
| 13 | . Q:'$D(^TMP($J,"CL",1,PXRRCLIN))&('+$G(^TMP($J,PXRRCLIN,"TOT")))
|
|---|
| 14 | . S PXRRNEW=^TMP($J,PXRRCLIN,"NEW")
|
|---|
| 15 | . S PXRREST=^TMP($J,PXRRCLIN,"ESTABLISHED")
|
|---|
| 16 | . S PXRRCON=^TMP($J,PXRRCLIN,"CONSULT")
|
|---|
| 17 | . S PXRRENT=^TMP($J,PXRRCLIN,"ENT")
|
|---|
| 18 | . S PXRRTOT=^TMP($J,PXRRCLIN,"TOT")
|
|---|
| 19 | . S PXRRNS=^TMP($J,PXRRCLIN,"NS")
|
|---|
| 20 | . S PXRRCA=^TMP($J,PXRRCLIN,"CA")
|
|---|
| 21 | . S PXRRUN=^TMP($J,PXRRCLIN,"UN")
|
|---|
| 22 | . S PXRRNVCP=^TMP($J,PXRRCLIN,"NVCPT")
|
|---|
| 23 | . S PXRROTH=^TMP($J,PXRRCLIN,"OTHER")
|
|---|
| 24 | . S PXRROCP=^TMP($J,PXRRCLIN,"OTHER CPT")
|
|---|
| 25 | . S PXRRPCT=$S($G(^TMP($J,PXRRCLIN,"TOT"))>0:(PXRRENT/PXRRTOT)*100,1:0)
|
|---|
| 26 | . I $Y>(IOSL-5),IOST'?1"C-".E W @IOF,! D COL^PXRRPCR
|
|---|
| 27 | . I $Y>(IOSL-5),IOST?1"C-".E S DIR(0)="E" D ^DIR K DIR S PXRRQ=Y W:Y @IOF,! D:PXRRQ COL^PXRRPCR
|
|---|
| 28 | . W ?0,$E(PXRRCLIN,1,23),?32,PXRRNEW,?41,PXRREST,?53,PXRRCON,?62,PXRROTH,?69,PXRROCP,?74,PXRRNVCP,?79,PXRRENT,?95,PXRRUN,?106,PXRRNS,?117,PXRRCA,!
|
|---|
| 29 | Q
|
|---|
| 30 |
|
|---|
