BRNUSER.m

BRNUSER ; IHS/PHXAO/TMJ - ROI USER INITAITED WORKLOAD REPORT AND (BY DATE RANGE) ;  

 ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 ;;IHS/OIT/LJF 10/05/2007 PATCH 1 Added choice to print by

 ;             01/23/2008 PATCH 1 Added date range limits

 ;             01/242/008 PATCH 1 Added choice of facility

 ;

 ;

 ;

 ;

BD ;get beginning date

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

 W !! S DIR(0)="D^:"_DT_":EP",DIR("A")="Enter beginning ROI Initiated Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1  ;IHS/OIT/LJF 01/23/2008 PATCH 1

 I $D(DIRUT) G END

 S BRNBD=Y

ED ;get ending date

 ;W ! S DIR(0)="D^"_BRNBD_"::EP",DIR("A")="Enter ending ROI Initiation Date"  D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 W ! S DIR(0)="D^"_BRNBD_":"_DT_":EP",DIR("A")="Enter ending ROI Initiation Date"  D ^DIR K DIR S:$D(DUOUT) DIRUT=1  ;IHS/OIT/LJF 01/23/2008 PATCH 1

 I $D(DIRUT) G BD

 S BRNED=Y

 S X1=BRNBD,X2=-1 D C^%DTC S BRNSD=X

 W !

 ;

REPORT ; ask which user field to use in reporting workload ;IHS/OIT/LJF 10/05/2007 PATCH 1

 NEW BRNROLE

 W ! S DIR(0)="S^I:User Who INITIATED Request;A:User Who was ASSIGNED Request;C:User Who CLOSED Request"

 S DIR("A")="Select USER'S ROLE for Workload Reporting"

 S DIR("?")="There are 3 possible users handling request.  For which role do you want a report?"

 D ^DIR K DIR

 G:$D(DIRUT) BD

 S BRNROLE=Y

 ;IHS/OIT/LJF 10/05/2007 PATCH 1 end of code additions

 ;

ASK ;Ask if a particular User

 S BRNUSE=1,BRNUSE1=10000

 ;

 ;IHS/OIT/LJF 10/05/2007 PATCH 1

 ;W ! S DIR(0)="Y0",DIR("A")="Want to INCLUDE a particular User who Initiated the Disclosure",DIR("B")="NO"

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

 ;

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

 D ^DIR K DIR

 G:$D(DIRUT) BD

 I 'Y G PRINT

USER ;ROI Disclosure USER

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

 D ^DIC K DIC

 Q:$D(DIRUT)

 G:Y=0 ASK

 S BRNUSE=+Y,BRNUSE1=+Y

 ;

PRINT ;PRINT CLOSED DISCLOSURES BY DATE

 ;

 ;select facility

 NEW BRNFAC D ASKFAC^BRNU(.BRNFAC) I BRNFAC="" D END Q  ;IHS/OIT/LJF 01/24/2008 PATCH 1

 ;

 ;set up print

 S FLDS="[BRN DISCLOSURE INFO]",BY(0)="^BRNREC(""AD""," S L(0)=3,DIC="^BRNREC(",L=0

 ;

 ;IHS/OIT/LJF 10/05/2007 PATCH 1 reset print template based on user role selected

 S FLDS="[BRN DISCLOSURE "_$S(BRNROLE="I":"INFO]",BRNROLE="A":"ASSIGNED]",1:"CLOSED]")

 S BY(0)="^BRNREC"_$S(BRNROLE="I":"(""AD"",",BRNROLE="A":"(""AF"",",1:"(""AG"",")

 ;

 S FR(0,1)=BRNUSE,TO(0,1)=BRNUSE1

 S FR(0,2)=BRNBD,TO(0,2)=BRNED

 I BRNFAC>0 S DIS(0)="I $P(^BRNREC(D0,0),U,22)=BRNFAC"  ;IHS/OIT/LJF 01/24/2008 PATCH 1

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BRNROLE   ;IHS/OIT/LJF 10/05/2007 PATCH 1

 K BRNBD,BRNED,BRNSD,BRNUSE,BRNUSE1,X,DD0,B Q

BRNUSER   ; IHS/PHXAO/TMJ - ROI USER INITAITED WORKLOAD REPORT AND (BY DATE RANGE) ;  

 +1       ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 +2       ;;IHS/OIT/LJF 10/05/2007 PATCH 1 Added choice to print by

 +3       ;             01/23/2008 PATCH 1 Added date range limits

 +4       ;             01/242/008 PATCH 1 Added choice of facility

 +5       ;

 +6       ;

 +7       ;

 +8       ;

BD        ;get beginning date

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

 +2       ;IHS/OIT/LJF 01/23/2008 PATCH 1

           WRITE !!

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

           SET DIR("A")="Enter beginning ROI Initiated Date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO END

 +4        SET BRNBD=Y

ED        ;get ending date

 +1       ;W ! S DIR(0)="D^"_BRNBD_"::EP",DIR("A")="Enter ending ROI Initiation Date"  D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 +2       ;IHS/OIT/LJF 01/23/2008 PATCH 1

           WRITE !

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

           SET DIR("A")="Enter ending ROI Initiation Date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +3        IF $DATA(DIRUT)

               GOTO BD

 +4        SET BRNED=Y

 +5        SET X1=BRNBD

           SET X2=-1

           DO C^%DTC

           SET BRNSD=X

 +6        WRITE !

 +7       ;

REPORT    ; ask which user field to use in reporting workload ;IHS/OIT/LJF 10/05/2007 PATCH 1

 +1        NEW BRNROLE

 +2        WRITE !

           SET DIR(0)="S^I:User Who INITIATED Request;A:User Who was ASSIGNED Request;C:User Who CLOSED Request"

 +3        SET DIR("A")="Select USER'S ROLE for Workload Reporting"

 +4        SET DIR("?")="There are 3 possible users handling request.  For which role do you want a report?"

 +5        DO ^DIR

           KILL DIR

 +6        IF $DATA(DIRUT)

               GOTO BD

 +7        SET BRNROLE=Y

 +8       ;IHS/OIT/LJF 10/05/2007 PATCH 1 end of code additions

 +9       ;

ASK       ;Ask if a particular User

 +1        SET BRNUSE=1

           SET BRNUSE1=10000

 +2       ;

 +3       ;IHS/OIT/LJF 10/05/2007 PATCH 1

 +4       ;W ! S DIR(0)="Y0",DIR("A")="Want to INCLUDE a particular User who Initiated the Disclosure",DIR("B")="NO"

 +5        WRITE !

           SET DIR(0)="Y0"

           SET DIR("A")="Want to INCLUDE a particular User"

           SET DIR("B")="NO"

 +6       ;

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

 +8        DO ^DIR

           KILL DIR

 +9        IF $DATA(DIRUT)

               GOTO BD

 +10       IF 'Y

               GOTO PRINT

USER      ;ROI Disclosure USER

 +1        SET DIC=200

           SET DIC(0)="AEMQ"

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

 +2        DO ^DIC

           KILL DIC

 +3        IF $DATA(DIRUT)

               QUIT 

 +4        IF Y=0

               GOTO ASK

 +5        SET BRNUSE=+Y

           SET BRNUSE1=+Y

 +6       ;

PRINT     ;PRINT CLOSED DISCLOSURES BY DATE

 +1       ;

 +2       ;select facility

 +3       ;IHS/OIT/LJF 01/24/2008 PATCH 1

           NEW BRNFAC

           DO ASKFAC^BRNU(.BRNFAC)

           IF BRNFAC=""

               DO END

               QUIT 

 +4       ;

 +5       ;set up print

 +6        SET FLDS="[BRN DISCLOSURE INFO]"

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

           SET L(0)=3

           SET DIC="^BRNREC("

           SET L=0

 +7       ;

 +8       ;IHS/OIT/LJF 10/05/2007 PATCH 1 reset print template based on user role selected

 +9        SET FLDS="[BRN DISCLOSURE "_$SELECT(BRNROLE="I":"INFO]",BRNROLE="A":"ASSIGNED]",1:"CLOSED]")

 +10       SET BY(0)="^BRNREC"_$SELECT(BRNROLE="I":"(""AD"",",BRNROLE="A":"(""AF"",",1:"(""AG"",")

 +11      ;

 +12       SET FR(0,1)=BRNUSE

           SET TO(0,1)=BRNUSE1

 +13       SET FR(0,2)=BRNBD

           SET TO(0,2)=BRNED

 +14      ;IHS/OIT/LJF 01/24/2008 PATCH 1

           IF BRNFAC>0

               SET DIS(0)="I $P(^BRNREC(D0,0),U,22)=BRNFAC"

 +15       KILL DHIT,DIOEND,DIOBEG

 +16       DO EN1^DIP

END       ;

 +1       ;IHS/OIT/LJF 10/05/2007 PATCH 1

           KILL BRNROLE

 +2        KILL BRNBD,BRNED,BRNSD,BRNUSE,BRNUSE1,X,DD0,B

           QUIT