BMCRR10.m

BMCRR10 ; IHS/PHXAO/TMJ - list patients for which medical and/or cost data has not been received ;  

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;IHS/ITSC/FCJ ADDED ABILITY TO SELECT BEG AND END DATE OF REPORT

 ;

 ;

START ;

 W !!,"This report prints out a list of all referrals that are still active",!,"(not closed), sorted by the outside provider.  Optionally, you may print",!,"out each outside provider's list on a separate page.",!!

 W "In-House Referrals are NOT included in this report output",!

PAGE ;separate page for each

 S BMCSPAGE=""

 S DIR(0)="Y",DIR("A")="Do you want each Facility Referred To on a separate page",DIR("B")="N" K DA D ^DIR K DIR

 I $D(DIRUT) G XIT

 S BMCSPAGE=Y

BD ;get beginning date and end date for report

 D BD^BMCRUTL

 G:$D(DIRUT) XIT

ZIS ;call to XBDBQUE

 K BMCOPT

 W ! S DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen",DIR("A")="Do you wish to",DIR("B")="P" K DA D ^DIR K DIR

 I $D(DIRUT) S BMCQUIT="" Q

 S BMCOPT=Y

 G:$G(BMCQUIT) PAGE

 I $G(BMCOPT)="B" D BROWSE,XIT Q

 S XBRP="^BMCRR10P",XBRC="^BMCRR101",XBRX="XIT^BMCRR10",XBNS="BMC"

 D ^XBDBQUE

 D XIT

 Q

BROWSE ;

 S XBRP="VIEWR^XBLM(""^BMCRR10P"")"

 S XBRC="^BMCRR101",XBRX="XIT^BMCRR10",XBIOP=0 D ^XBDBQUE

 Q

XIT ;EP - CALLED FROM BMCRR10

 D KILL^AUPNPAT

 K BMC80D,BMC80E,BMCBT,BMCBTH,BMCET,BMCFAC,BMCJOB,BMCOPT,BMCPG,BMCQUIT,BMCRCNT,BMCREF,BMCRREC,BMCSPAGE

 K BMCBD,BMCED,BMCBDD,BMCEDD,BMCSD,BMCCT

 K DA,DFN,DIR,DIRUT,DTOUT,X,Y

 Q

BMCRR10   ; IHS/PHXAO/TMJ - list patients for which medical and/or cost data has not been received ;  

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;IHS/ITSC/FCJ ADDED ABILITY TO SELECT BEG AND END DATE OF REPORT

 +3       ;

 +4       ;

START     ;

 +1        WRITE !!,"This report prints out a list of all referrals that are still active",!,"(not closed), sorted by the outside provider.  Optionally, you may print",!,"out each outside provider's list on a separate page.",!!

 +2        WRITE "In-House Referrals are NOT included in this report output",!

PAGE      ;separate page for each

 +1        SET BMCSPAGE=""

 +2        SET DIR(0)="Y"

           SET DIR("A")="Do you want each Facility Referred To on a separate page"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO XIT

 +4        SET BMCSPAGE=Y

BD        ;get beginning date and end date for report

 +1        DO BD^BMCRUTL

 +2        IF $DATA(DIRUT)

               GOTO XIT

ZIS       ;call to XBDBQUE

 +1        KILL BMCOPT

 +2        WRITE !

           SET DIR(0)="S^P:PRINT Output;B:BROWSE Output on Screen"

           SET DIR("A")="Do you wish to"

           SET DIR("B")="P"

           KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               SET BMCQUIT=""

               QUIT 

 +4        SET BMCOPT=Y

 +5        IF $GET(BMCQUIT)

               GOTO PAGE

 +6        IF $GET(BMCOPT)="B"

               DO BROWSE

               DO XIT

               QUIT 

 +7        SET XBRP="^BMCRR10P"

           SET XBRC="^BMCRR101"

           SET XBRX="XIT^BMCRR10"

           SET XBNS="BMC"

 +8        DO ^XBDBQUE

 +9        DO XIT

 +10       QUIT 

BROWSE    ;

 +1        SET XBRP="VIEWR^XBLM(""^BMCRR10P"")"

 +2        SET XBRC="^BMCRR101"

           SET XBRX="XIT^BMCRR10"

           SET XBIOP=0

           DO ^XBDBQUE

 +3        QUIT 

XIT       ;EP - CALLED FROM BMCRR10

 +1        DO KILL^AUPNPAT

 +2        KILL BMC80D,BMC80E,BMCBT,BMCBTH,BMCET,BMCFAC,BMCJOB,BMCOPT,BMCPG,BMCQUIT,BMCRCNT,BMCREF,BMCRREC,BMCSPAGE

 +3        KILL BMCBD,BMCED,BMCBDD,BMCEDD,BMCSD,BMCCT

 +4        KILL DA,DFN,DIR,DIRUT,DTOUT,X,Y

 +5        QUIT