Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BRNUSER

BRNUSER.m

Go to the documentation of this file.
  1. BRNUSER ; IHS/PHXAO/TMJ - ROI USER INITAITED WORKLOAD REPORT AND (BY DATE RANGE) ;
  1. ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003
  1. ;;IHS/OIT/LJF 10/05/2007 PATCH 1 Added choice to print by
  1. ; 01/23/2008 PATCH 1 Added date range limits
  1. ; 01/242/008 PATCH 1 Added choice of facility
  1. ;
  1. ;
  1. ;
  1. ;
  1. 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
  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
  1. I $D(DIRUT) G END
  1. S BRNBD=Y
  1. 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
  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
  1. I $D(DIRUT) G BD
  1. S BRNED=Y
  1. S X1=BRNBD,X2=-1 D C^%DTC S BRNSD=X
  1. W !
  1. ;
  1. REPORT ; ask which user field to use in reporting workload ;IHS/OIT/LJF 10/05/2007 PATCH 1
  1. NEW BRNROLE
  1. W ! S DIR(0)="S^I:User Who INITIATED Request;A:User Who was ASSIGNED Request;C:User Who CLOSED Request"
  1. S DIR("A")="Select USER'S ROLE for Workload Reporting"
  1. S DIR("?")="There are 3 possible users handling request. For which role do you want a report?"
  1. D ^DIR K DIR
  1. G:$D(DIRUT) BD
  1. S BRNROLE=Y
  1. ;IHS/OIT/LJF 10/05/2007 PATCH 1 end of code additions
  1. ;
  1. ASK ;Ask if a particular User
  1. S BRNUSE=1,BRNUSE1=10000
  1. ;
  1. ;IHS/OIT/LJF 10/05/2007 PATCH 1
  1. ;W ! S DIR(0)="Y0",DIR("A")="Want to INCLUDE a particular User who Initiated the Disclosure",DIR("B")="NO"
  1. W ! S DIR(0)="Y0",DIR("A")="Want to INCLUDE a particular User",DIR("B")="NO"
  1. ;
  1. S DIR("?")="To RESTRICT to a particular User - Answer Yes."
  1. D ^DIR K DIR
  1. G:$D(DIRUT) BD
  1. I 'Y G PRINT
  1. USER ;ROI Disclosure USER
  1. S DIC=200,DIC(0)="AEMQ",DIC("A")="Enter User Name: "
  1. D ^DIC K DIC
  1. Q:$D(DIRUT)
  1. G:Y=0 ASK
  1. S BRNUSE=+Y,BRNUSE1=+Y
  1. ;
  1. PRINT ;PRINT CLOSED DISCLOSURES BY DATE
  1. ;
  1. ;select facility
  1. NEW BRNFAC D ASKFAC^BRNU(.BRNFAC) I BRNFAC="" D END Q ;IHS/OIT/LJF 01/24/2008 PATCH 1
  1. ;
  1. ;set up print
  1. S FLDS="[BRN DISCLOSURE INFO]",BY(0)="^BRNREC(""AD""," S L(0)=3,DIC="^BRNREC(",L=0
  1. ;
  1. ;IHS/OIT/LJF 10/05/2007 PATCH 1 reset print template based on user role selected
  1. S FLDS="[BRN DISCLOSURE "_$S(BRNROLE="I":"INFO]",BRNROLE="A":"ASSIGNED]",1:"CLOSED]")
  1. S BY(0)="^BRNREC"_$S(BRNROLE="I":"(""AD"",",BRNROLE="A":"(""AF"",",1:"(""AG"",")
  1. ;
  1. S FR(0,1)=BRNUSE,TO(0,1)=BRNUSE1
  1. S FR(0,2)=BRNBD,TO(0,2)=BRNED
  1. I BRNFAC>0 S DIS(0)="I $P(^BRNREC(D0,0),U,22)=BRNFAC" ;IHS/OIT/LJF 01/24/2008 PATCH 1
  1. K DHIT,DIOEND,DIOBEG
  1. D EN1^DIP
  1. END ;
  1. K BRNROLE ;IHS/OIT/LJF 10/05/2007 PATCH 1
  1. K BRNBD,BRNED,BRNSD,BRNUSE,BRNUSE1,X,DD0,B Q