PXRRPRSC ;ISL/PKR - PCE reports provider selection criteria routines. ;01/30/2017
;;1.0;PCE PATIENT CARE ENCOUNTER;**12,18,211**;Aug 12, 1996;Build 454
;
;=======================================================================
PRTYPE ;Select the type of report.
N X,Y
K DIRUT,DTOUT,DUOUT
S DIR(0)="S"_U_"S:Summary;D:Detail by clinic and date"
S DIR("A")="Which type of report"
S DIR("B")="S"
S DIR("?",1)="Choose between a detailed report that gives the number of encounters by clinic"
S DIR("?",2)="and date for each provider or the summary report that gives only the total"
S DIR("?")="encounters for each provider."
D ^DIR K DIR
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
S PXRRPRTY=Y_U_Y(0)
Q
;
;=======================================================================
;
PRV ;Establish the Provider selection criteria.
N X,Y
K DIRUT,DTOUT,DUOUT
S DIR(0)="S"_U_"A:All Providers (with encounters);"
S DIR(0)=DIR(0)_"P:Primary Providers (with encounters);"
S DIR(0)=DIR(0)_"S:Selected Providers;"
S DIR(0)=DIR(0)_"C:Selected Person Classes;"
S DIR(0)=DIR(0)_"T:Select Providers by CPRS Team (OE/RR List)"
S DIR("A")="Select ENCOUNTER PROVIDER CRITERIA"
S DIR("B")="S"
D ^DIR K DIR
I $D(DIROUT) S DTOUT=1
I $D(DTOUT)!($D(DUOUT)) Q
S PXRRPRSC=Y_U_Y(0)
;
;If Providers are to be selected individually, by class, or by team
;get the list.
I Y="S" D PRV^PXRRPRPL
I $D(DTOUT) Q
I $D(DUOUT) G PRV
I Y="C" D PCLASS^PXRRPECS
I $D(DTOUT) Q
I $D(DUOUT) G PRV
I Y="T" D TEAM^PXRRPRPL
I $D(DTOUT) Q
I $D(DUOUT) G PRV
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRPRSC 1609 printed Nov 22, 2024@17:41:12 Page 2
PXRRPRSC ;ISL/PKR - PCE reports provider selection criteria routines. ;01/30/2017
+1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**12,18,211**;Aug 12, 1996;Build 454
+2 ;
+3 ;=======================================================================
PRTYPE ;Select the type of report.
+1 NEW X,Y
+2 KILL DIRUT,DTOUT,DUOUT
+3 SET DIR(0)="S"_U_"S:Summary;D:Detail by clinic and date"
+4 SET DIR("A")="Which type of report"
+5 SET DIR("B")="S"
+6 SET DIR("?",1)="Choose between a detailed report that gives the number of encounters by clinic"
+7 SET DIR("?",2)="and date for each provider or the summary report that gives only the total"
+8 SET DIR("?")="encounters for each provider."
+9 DO ^DIR
KILL DIR
+10 IF $DATA(DIROUT)
SET DTOUT=1
+11 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+12 SET PXRRPRTY=Y_U_Y(0)
+13 QUIT
+14 ;
+15 ;=======================================================================
+16 ;
PRV ;Establish the Provider selection criteria.
+1 NEW X,Y
+2 KILL DIRUT,DTOUT,DUOUT
+3 SET DIR(0)="S"_U_"A:All Providers (with encounters);"
+4 SET DIR(0)=DIR(0)_"P:Primary Providers (with encounters);"
+5 SET DIR(0)=DIR(0)_"S:Selected Providers;"
+6 SET DIR(0)=DIR(0)_"C:Selected Person Classes;"
+7 SET DIR(0)=DIR(0)_"T:Select Providers by CPRS Team (OE/RR List)"
+8 SET DIR("A")="Select ENCOUNTER PROVIDER CRITERIA"
+9 SET DIR("B")="S"
+10 DO ^DIR
KILL DIR
+11 IF $DATA(DIROUT)
SET DTOUT=1
+12 IF $DATA(DTOUT)!($DATA(DUOUT))
QUIT
+13 SET PXRRPRSC=Y_U_Y(0)
+14 ;
+15 ;If Providers are to be selected individually, by class, or by team
+16 ;get the list.
+17 IF Y="S"
DO PRV^PXRRPRPL
+18 IF $DATA(DTOUT)
QUIT
+19 IF $DATA(DUOUT)
GOTO PRV
+20 IF Y="C"
DO PCLASS^PXRRPECS
+21 IF $DATA(DTOUT)
QUIT
+22 IF $DATA(DUOUT)
GOTO PRV
+23 IF Y="T"
DO TEAM^PXRRPRPL
+24 IF $DATA(DTOUT)
QUIT
+25 IF $DATA(DUOUT)
GOTO PRV
+26 QUIT
+27 ;
