ABMDREL.m

ABMDREL ; IHS/ASDST/DMJ - List holders of medicare a, b, medicaid or priv ins ;

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;Original;TMD;

 ;

START I '$G(DUZ(2)) W $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",! Q

 I '$D(ABMDRPT) W !,$C(7),$C(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",! Q

 D GETINFO G:$D(ABMD("Q")) QUIT

 W !!,"This option will print a list of Patients who are registered at",!,"the facility that you select who are currently enrolled in ",ABMD("INF"),".",!

 W !,"You will be asked to enter an 'As of' date to be used in determining",!,"those patients who are 'actively' enrolled.",!

 W !,"The report will be sorted alphabetically by Patient Name.",!

F ;

 S DIC("A")="Which Facility: ",DIC="^AUTTLOC(",DIC(0)="AEMQ" D ^DIC K DIC,DA G:Y<0 QUIT

 S ABMD("SU")=+Y

AOD ;

 S %DT("A")="Patients are to be considered ACTIVE as of what date: ",%DT="AEPX" W ! D ^%DT

 I Y=-1 G F

 S ABMD("ACE")=Y D DD^%DT S ABMD("ACEY")=Y

 S ABMD("$J")=DUZ_"-"_$P($H,",",1)_"-"_$P($H,",",2)

 S ABMQ("RC")="^ABMDREL2",ABMQ("RP")="^ABMDREL1",ABMQ("RX")="EOJ^ABMDREL0",ABMQ("NS")="ABMD"

 D ^ABMDRDBQ

QUIT K ABMD,ABMDRPT

 Q

 ;

GETINFO ;

 I $T(@(ABMDRPT))="" W !!,$C(7),$C(7),"REPORT INFORMATION MISSING!! NOTIFY PROGRAMMER!",!! S ABMD("Q")="" Q

 S ABMD("INFO")=$T(@(ABMDRPT)),ABMD("VAL")=$P(ABMD("INFO"),";;",2),ABMD("PROC")=$P(ABMD("INFO"),";;",4),ABMD("INF")=$P(ABMD("INFO"),";;",3),ABMD("TITL")=$P(ABMD("INFO"),";;",5)

 Q

 ;

MCD ;;X;;Medicaid;;MCD;;ACTIVE MEDICAID ENROLLEES

MCRA ;;A;;Medicare Part A;;MCRA;;ACTIVE MEDICARE PART A ENROLLEES

MCRB ;;B;;Medicare Part B;;MCRA;;ACTIVE MEDICARE PART B ENROLLEES

PI ;;X;;Private Insurance;;PI;;ACTIVE PRIVATE INSURANCE ENROLLEES

ABMDREL   ; IHS/ASDST/DMJ - List holders of medicare a, b, medicaid or priv ins ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;Original;TMD;

 +3       ;

START      IF '$GET(DUZ(2))

               WRITE $CHAR(7),$CHAR(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!

               QUIT 

 +1        IF '$DATA(ABMDRPT)

               WRITE !,$CHAR(7),$CHAR(7),"REPORT TYPE MISSING!!  NOTIFY PROGRAMMER",!

               QUIT 

 +2        DO GETINFO

           IF $DATA(ABMD("Q"))

               GOTO QUIT

 +3        WRITE !!,"This option will print a list of Patients who are registered at",!,"the facility that you select who are currently enrolled in ",ABMD("INF"),".",!

 +4        WRITE !,"You will be asked to enter an 'As of' date to be used in determining",!,"those patients who are 'actively' enrolled.",!

 +5        WRITE !,"The report will be sorted alphabetically by Patient Name.",!

F         ;

 +1        SET DIC("A")="Which Facility: "

           SET DIC="^AUTTLOC("

           SET DIC(0)="AEMQ"

           DO ^DIC

           KILL DIC,DA

           IF Y<0

               GOTO QUIT

 +2        SET ABMD("SU")=+Y

AOD       ;

 +1        SET %DT("A")="Patients are to be considered ACTIVE as of what date: "

           SET %DT="AEPX"

           WRITE !

           DO ^%DT

 +2        IF Y=-1

               GOTO F

 +3        SET ABMD("ACE")=Y

           DO DD^%DT

           SET ABMD("ACEY")=Y

 +4        SET ABMD("$J")=DUZ_"-"_$PIECE($HOROLOG,",",1)_"-"_$PIECE($HOROLOG,",",2)

 +5        SET ABMQ("RC")="^ABMDREL2"

           SET ABMQ("RP")="^ABMDREL1"

           SET ABMQ("RX")="EOJ^ABMDREL0"

           SET ABMQ("NS")="ABMD"

 +6        DO ^ABMDRDBQ

QUIT       KILL ABMD,ABMDRPT

 +1        QUIT 

 +2       ;

GETINFO   ;

 +1        IF $TEXT(@(ABMDRPT))=""

               WRITE !!,$CHAR(7),$CHAR(7),"REPORT INFORMATION MISSING!! NOTIFY PROGRAMMER!",!!

               SET ABMD("Q")=""

               QUIT 

 +2        SET ABMD("INFO")=$TEXT(@(ABMDRPT))

           SET ABMD("VAL")=$PIECE(ABMD("INFO"),";;",2)

           SET ABMD("PROC")=$PIECE(ABMD("INFO"),";;",4)

           SET ABMD("INF")=$PIECE(ABMD("INFO"),";;",3)

           SET ABMD("TITL")=$PIECE(ABMD("INFO"),";;",5)

 +3        QUIT 

 +4       ;

MCD       ;;X;;Medicaid;;MCD;;ACTIVE MEDICAID ENROLLEES

MCRA      ;;A;;Medicare Part A;;MCRA;;ACTIVE MEDICARE PART A ENROLLEES

MCRB      ;;B;;Medicare Part B;;MCRA;;ACTIVE MEDICARE PART B ENROLLEES

PI        ;;X;;Private Insurance;;PI;;ACTIVE PRIVATE INSURANCE ENROLLEES