Last change
on this file since 1005 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.4 KB
|
Line | |
---|
1 | PXRRPRSC ;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 | ;=======================================================================
|
---|
5 | PRTYPE ;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 | ;
|
---|
22 | PRV ;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.