PXRRPRSC.m

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 ---PXRRPRSC   1609     printed  Apr 09, 2024@21:28:56                                                                                                                                                                                                    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      ;