BMEMSTIL.m

BMEMSTIL ; IHS/PHXAO/TMJ - Print STILL ELIGIBLE to Master List for a specific Log ; 

 ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003

 ;

START ;Do INFORM THEN ASK

 D INFORM

ASK ;Ask For Specific Log

 S BMELOG=""

 S BMEALL=0

 S BMEBY=0

 ;

 W ! S DIR(0)="Y0",DIR("A")="Would you like to INCLUDE ONLY a specific LOG Run for STILL ELIGIBLE's",DIR("B")="NO"

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

 D ^DIR K DIR

 G:$D(DIRUT) END

 G:Y<0 END

 G:$D(DIRUT) ASK

 I 'Y G PRINT

 ;

LOG ;Select a Log Run

 W !

 S DIC=90333,DIC(0)="AEMQ",DIC("A")="Enter Log Run Date or Number: "

 D ^DIC K DIC

 ;

 Q:$D(DIRUT)

 G:Y=0 ASK

 S BMELOG=+Y

 G:+BMELOG<0 ASK

 S BMEALL=1

 ;

 S BMELOGDT=$P(^BMEMLOG(BMELOG,0),U,1)

 S BMELOGDT=$P(BMELOGDT,".",1)

 G:BMELOGDT="" ASK

 S BMEBY=1

PRINT ;PRINT CLOSED DISCLOSURES BY DATE

 ;W !

 S BMEBY=$S(BMEBY=0:"[BME MASTER ELIGIBLE]",1:"@INTERNAL(#.04)")

 S FLDS="[BME MASTER STILL]",BY=BMEBY,DIC="^BMEMASTR(",L=0

 I BMEALL=1 S FR=BMELOGDT,TO=BMELOGDT

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BMEBD,BMEED,X,DD0,B,BMEALL,BMEBY,BMELOG Q

 ;

INFORM ;Report Description Introduction

 W !,?7,"***This Report prints Patient Records from the RPMS MASTER File***",!!

 W "The MASTER File contains each Patient's Historical Processing Dates, as follows:",!

 W ?10,"(First Added, Last Update, Last Still Eligible, & Last Fall Off)",!

 W !,"The User may print all STILL ELIGIBLE Records or choose a specific Monthly Log.",!

 W "   **Log Runs Only Display Records with the same Date as the Log Run**",!!

 ;

 ;

 Q

BMEMSTIL  ; IHS/PHXAO/TMJ - Print STILL ELIGIBLE to Master List for a specific Log ; 

 +1       ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003

 +2       ;

START     ;Do INFORM THEN ASK

 +1        DO INFORM

ASK       ;Ask For Specific Log

 +1        SET BMELOG=""

 +2        SET BMEALL=0

 +3        SET BMEBY=0

 +4       ;

 +5        WRITE !

           SET DIR(0)="Y0"

           SET DIR("A")="Would you like to INCLUDE ONLY a specific LOG Run for STILL ELIGIBLE's"

           SET DIR("B")="NO"

 +6        SET DIR("?")="To RESTRICT to a particular LOG RUN  - Answer Yes."

 +7        DO ^DIR

           KILL DIR

 +8        IF $DATA(DIRUT)

               GOTO END

 +9        IF Y<0

               GOTO END

 +10       IF $DATA(DIRUT)

               GOTO ASK

 +11       IF 'Y

               GOTO PRINT

 +12      ;

LOG       ;Select a Log Run

 +1        WRITE !

 +2        SET DIC=90333

           SET DIC(0)="AEMQ"

           SET DIC("A")="Enter Log Run Date or Number: "

 +3        DO ^DIC

           KILL DIC

 +4       ;

 +5        IF $DATA(DIRUT)

               QUIT 

 +6        IF Y=0

               GOTO ASK

 +7        SET BMELOG=+Y

 +8        IF +BMELOG<0

               GOTO ASK

 +9        SET BMEALL=1

 +10      ;

 +11       SET BMELOGDT=$PIECE(^BMEMLOG(BMELOG,0),U,1)

 +12       SET BMELOGDT=$PIECE(BMELOGDT,".",1)

 +13       IF BMELOGDT=""

               GOTO ASK

 +14       SET BMEBY=1

PRINT     ;PRINT CLOSED DISCLOSURES BY DATE

 +1       ;W !

 +2        SET BMEBY=$SELECT(BMEBY=0:"[BME MASTER ELIGIBLE]",1:"@INTERNAL(#.04)")

 +3        SET FLDS="[BME MASTER STILL]"

           SET BY=BMEBY

           SET DIC="^BMEMASTR("

           SET L=0

 +4        IF BMEALL=1

               SET FR=BMELOGDT

               SET TO=BMELOGDT

 +5        KILL DHIT,DIOEND,DIOBEG

 +6        DO EN1^DIP

END       ;

 +1        KILL BMEBD,BMEED,X,DD0,B,BMEALL,BMEBY,BMELOG

           QUIT 

 +2       ;

INFORM    ;Report Description Introduction

 +1        WRITE !,?7,"***This Report prints Patient Records from the RPMS MASTER File***",!!

 +2        WRITE "The MASTER File contains each Patient's Historical Processing Dates, as follows:",!

 +3        WRITE ?10,"(First Added, Last Update, Last Still Eligible, & Last Fall Off)",!

 +4        WRITE !,"The User may print all STILL ELIGIBLE Records or choose a specific Monthly Log.",!

 +5        WRITE "   **Log Runs Only Display Records with the same Date as the Log Run**",!!

 +6       ;

 +7       ;

 +8        QUIT