Last change
on this file since 1449 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.4 KB
|
Rev | Line | |
---|
[628] | 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.