BRNAGE1.m

BRNAGE1 ; IHS/PHXAO/TMJ - ROI AGING REPORT (BY AGE STARTING POINT) ; 

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

 ;IHS/OIT/LJF 10/11/2007 PATCH 1 added ;EP to ASK line label

 ;            01/24/2008 PATCH 1 Added choice of facility

 ;

 ;

ASK ;EP - Ask For Beginning Aging Range ;IHS/OIT/LJF 10/11/2007 PATCH 1

 ; now called by DRIVER^BRNAGE2

 S BRNOLDB=0,BRNOLDE=1000

 W ! S DIR(0)="Y0",DIR("A")="Would you like to include a particular Aging Starting Range",DIR("B")="NO"

 S DIR("?")="To Include a Particular Number of Days Old Starting Point-Answer Yes."

 D ^DIR K DIR

 G:$D(DIRUT) END

 I 'Y G PRINT

 ;

OLD1 ;ROI Disclosure DAYS OLD SCREEN

 S DIR(0)="S^30:30 DAYS +;60:60 DAYS +;90:90 DAYS +;120:120 DAYS +",DIR("A")="Enter the Number Starting Point"

 K DA D ^DIR K DIR

 G:$D(DIRUT) ASK

 G:Y=0 ASK

 S BRNOLDB=Y

 ;

 ;

PRINT ;PRINT MASTER DISCLOSURE LOG

 ;

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

 ;select facility

 NEW BRNFAC,BRNFACN D ASKFAC^BRNU(.BRNFAC) I BRNFAC="" D END Q

 I BRNFAC>0 S BRNFACN=$$GET1^DIQ(90264.2,BRNFAC,.01)

 ;

 ;set up print

 ;S FLDS="[BRN GS AGING RPT]",BY="@23,(#.04),.08,@.01",DIC="^BRNREC(",L=0

 ;S FR=BRNOLDB,TO=BRNOLDE

 S FLDS="[BRN GS AGING RPT]",BY="FACILITY;S1,@23,(#.04),.08,@.01",DIC="^BRNREC(",L=0

 I BRNFAC=0 S FR="@,"_BRNOLDB,TO="ZZZ,"_BRNOLDE

 E  S FR=BRNFACN_","_BRNOLDB,TO=BRNFACN_","_BRNOLDE

 ;end of PATCH 1 changes

 ;

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BRNOLDB,BRNOLDE,DD0,B,X Q

BRNAGE1   ; IHS/PHXAO/TMJ - ROI AGING REPORT (BY AGE STARTING POINT) ; 

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

 +2       ;IHS/OIT/LJF 10/11/2007 PATCH 1 added ;EP to ASK line label

 +3       ;            01/24/2008 PATCH 1 Added choice of facility

 +4       ;

 +5       ;

ASK       ;EP - Ask For Beginning Aging Range ;IHS/OIT/LJF 10/11/2007 PATCH 1

 +1       ; now called by DRIVER^BRNAGE2

 +2        SET BRNOLDB=0

           SET BRNOLDE=1000

 +3        WRITE !

           SET DIR(0)="Y0"

           SET DIR("A")="Would you like to include a particular Aging Starting Range"

           SET DIR("B")="NO"

 +4        SET DIR("?")="To Include a Particular Number of Days Old Starting Point-Answer Yes."

 +5        DO ^DIR

           KILL DIR

 +6        IF $DATA(DIRUT)

               GOTO END

 +7        IF 'Y

               GOTO PRINT

 +8       ;

OLD1      ;ROI Disclosure DAYS OLD SCREEN

 +1        SET DIR(0)="S^30:30 DAYS +;60:60 DAYS +;90:90 DAYS +;120:120 DAYS +"

           SET DIR("A")="Enter the Number Starting Point"

 +2        KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO ASK

 +4        IF Y=0

               GOTO ASK

 +5        SET BRNOLDB=Y

 +6       ;

 +7       ;

PRINT     ;PRINT MASTER DISCLOSURE LOG

 +1       ;

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

 +3       ;select facility

 +4        NEW BRNFAC,BRNFACN

           DO ASKFAC^BRNU(.BRNFAC)

           IF BRNFAC=""

               DO END

               QUIT 

 +5        IF BRNFAC>0

               SET BRNFACN=$$GET1^DIQ(90264.2,BRNFAC,.01)

 +6       ;

 +7       ;set up print

 +8       ;S FLDS="[BRN GS AGING RPT]",BY="@23,(#.04),.08,@.01",DIC="^BRNREC(",L=0

 +9       ;S FR=BRNOLDB,TO=BRNOLDE

 +10       SET FLDS="[BRN GS AGING RPT]"

           SET BY="FACILITY;S1,@23,(#.04),.08,@.01"

           SET DIC="^BRNREC("

           SET L=0

 +11       IF BRNFAC=0

               SET FR="@,"_BRNOLDB

               SET TO="ZZZ,"_BRNOLDE

 +12      IF '$TEST

               SET FR=BRNFACN_","_BRNOLDB

               SET TO=BRNFACN_","_BRNOLDE

 +13      ;end of PATCH 1 changes

 +14      ;

 +15       KILL DHIT,DIOEND,DIOBEG

 +16       DO EN1^DIP

END       ;

 +1        KILL BRNOLDB,BRNOLDE,DD0,B,X

           QUIT