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

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

initial load of WorldVistAEHR

File size: 1.6 KB
Line 
1PXRRPCR1 ;HIN/MjK - Clinic Specfic Workload Reports ;6/7/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996
3VIS ;_._._._._._._._._._._._.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
8PRINT ;_._.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
Note: See TracBrowser for help on using the repository browser.