BDPLPRV.m

BDPLPRV ; IHS/CMI/TMJ - BDP LAST CURRENT PROVIDER WORKLOAD REPORT AND (BY DATE RANGE) ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

 ;

 D INFORM ;Report Explanation

 ;

BD ;get beginning date

 W !! S DIR(0)="D^::EP",DIR("A")="Enter beginning Update Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G END

 S BDPBD=Y

ED ;get ending date"DA^"_APCLBD_":DT:EP"

 K DIR

 W ! S DIR(0)="DA^"_BDPBD_":DT:EP",DIR("A")="Enter ending Update Date: "  D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 S BDPED=Y

 S X1=BDPBD,X2=-1 D C^%DTC S BDPSD=X

 W !

 ;

 ;

ASK ;Ask if a particular Provider

 S BDPUSE=1,BDPUSE1=10000

 W ! S DIR(0)="Y0",DIR("A")="Want to INCLUDE a particular Current Designated Provider",DIR("B")="NO"

 S DIR("?")="To RESTRICT to a particular Provider  - Answer Yes."

 D ^DIR K DIR

 G:$D(DIRUT) BD

 I 'Y G PRINT

PROV ;Get PROVIDER

 S DIC=200,DIC(0)="AEMQ",DIC("A")="Enter Provider Name: "

 D ^DIC K DIC

 ;

 Q:$D(DIRUT)

 G:Y=0 ASK

 S BDPUSE=+Y,BDPUSE1=+Y

 ;

 ;

PRINT ;PRINT CLOSED DISCLOSURES BY DATE

 ;W !

 S FLDS="[BDP LIST OF CURRENT PROVIDER]",BY(0)="^BDPRECN(""AD""," S L(0)=3,DIC="^BDPRECN(",L=0

 S FR(0,1)=BDPUSE,TO(0,1)=BDPUSE1

 S FR(0,2)=BDPBD,TO(0,2)=BDPED

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BDPBD,BDPED,BDPSD,BDPUSE,BDPUSE1,X,DD0,B Q

 ;

 ;

INFORM ;Report Explanation

 ;

 W !,?25,"******************************",!

 W ?10,"This Report prints a Listing of Records updated for a",!,?10,"specific date range and Current Designated Provider.",!

 W ?10,"The report output includes:",!,?10,"Category Type-Patient Name-Current Provider-Date Last Updated.",!

 W ?25,"*****************************",!

 Q

BDPLPRV   ; IHS/CMI/TMJ - BDP LAST CURRENT PROVIDER WORKLOAD REPORT AND (BY DATE RANGE) ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

 +3       ;

 +4       ;Report Explanation

           DO INFORM

 +5       ;

BD        ;get beginning date

 +1        WRITE !!

           SET DIR(0)="D^::EP"

           SET DIR("A")="Enter beginning Update Date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO END

 +3        SET BDPBD=Y

ED        ;get ending date"DA^"_APCLBD_":DT:EP"

 +1        KILL DIR

 +2        WRITE !

           SET DIR(0)="DA^"_BDPBD_":DT:EP"

           SET DIR("A")="Enter ending Update Date: "

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO BD

 +4        SET BDPED=Y

 +5        SET X1=BDPBD

           SET X2=-1

           DO C^%DTC

           SET BDPSD=X

 +6        WRITE !

 +7       ;

 +8       ;

ASK       ;Ask if a particular Provider

 +1        SET BDPUSE=1

           SET BDPUSE1=10000

 +2        WRITE !

           SET DIR(0)="Y0"

           SET DIR("A")="Want to INCLUDE a particular Current Designated Provider"

           SET DIR("B")="NO"

 +3        SET DIR("?")="To RESTRICT to a particular Provider  - Answer Yes."

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO BD

 +6        IF 'Y

               GOTO PRINT

PROV      ;Get PROVIDER

 +1        SET DIC=200

           SET DIC(0)="AEMQ"

           SET DIC("A")="Enter Provider Name: "

 +2        DO ^DIC

           KILL DIC

 +3       ;

 +4        IF $DATA(DIRUT)

               QUIT 

 +5        IF Y=0

               GOTO ASK

 +6        SET BDPUSE=+Y

           SET BDPUSE1=+Y

 +7       ;

 +8       ;

PRINT     ;PRINT CLOSED DISCLOSURES BY DATE

 +1       ;W !

 +2        SET FLDS="[BDP LIST OF CURRENT PROVIDER]"

           SET BY(0)="^BDPRECN(""AD"","

           SET L(0)=3

           SET DIC="^BDPRECN("

           SET L=0

 +3        SET FR(0,1)=BDPUSE

           SET TO(0,1)=BDPUSE1

 +4        SET FR(0,2)=BDPBD

           SET TO(0,2)=BDPED

 +5        KILL DHIT,DIOEND,DIOBEG

 +6        DO EN1^DIP

END       ;

 +1        KILL BDPBD,BDPED,BDPSD,BDPUSE,BDPUSE1,X,DD0,B

           QUIT 

 +2       ;

 +3       ;

INFORM    ;Report Explanation

 +1       ;

 +2        WRITE !,?25,"******************************",!

 +3        WRITE ?10,"This Report prints a Listing of Records updated for a",!,?10,"specific date range and Current Designated Provider.",!

 +4        WRITE ?10,"The report output includes:",!,?10,"Category Type-Patient Name-Current Provider-Date Last Updated.",!

 +5        WRITE ?25,"*****************************",!

 +6        QUIT