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

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PXRRPRSC ;ISL/PKR - PCE reports provider selection criteria routines. ;12/11/96
2 ;;1.0;PCE PATIENT CARE ENCOUNTER;**12,18**;Aug 12, 1996
3 ;
4 ;=======================================================================
5PRTYPE ;Select the type of report.
6 N X,Y
7 K DIRUT,DTOUT,DUOUT
8 S DIR(0)="S"_U_"S:Summary;D:Detail by clinic and date"
9 S DIR("A")="Which type of report"
10 S DIR("B")="S"
11 S DIR("?",1)="Choose between a detailed report that gives the number of encounters by clinic"
12 S DIR("?",2)="and date for each provider or the summary report that gives only the total"
13 S DIR("?")="encounters for each provider."
14 D ^DIR K DIR
15 I $D(DIROUT) S DTOUT=1
16 I $D(DTOUT)!($D(DUOUT)) Q
17 S PXRRPRTY=Y_U_Y(0)
18 Q
19 ;
20 ;=======================================================================
21 ;
22PRV ;Establish the Provider selection criteria.
23 N X,Y
24 K DIRUT,DTOUT,DUOUT
25 S DIR(0)="S"_U_"A:All Providers (with encounters);"
26 S DIR(0)=DIR(0)_"P:Primary Providers (with encounters);"
27 S DIR(0)=DIR(0)_"S:Selected Providers;"
28 S DIR(0)=DIR(0)_"C:Selected Person Classes"
29 S DIR("A")="Select ENCOUNTER PROVIDER CRITERIA"
30 S DIR("B")="S"
31 D ^DIR K DIR
32 I $D(DIROUT) S DTOUT=1
33 I $D(DTOUT)!($D(DUOUT)) Q
34 S PXRRPRSC=Y_U_Y(0)
35 ;
36 ;If Providers are to be selected individually or by class get the list.
37 I Y="S" D PRV^PXRRPRPL
38 I $D(DTOUT) Q
39 I $D(DUOUT) G PRV
40 I Y="C" D PCLASS^PXRRPECS
41 I $D(DTOUT) Q
42 I $D(DUOUT) G PRV
43 Q
44 ;
Note: See TracBrowser for help on using the repository browser.