ABMDESEL.m

ABMDESEL ; IHS/ASDST/DMJ - Selective Report Parameters ;

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

 ;

 ; IHS/SD/SDR - v2.5 p10 - IM13359

 ;   Ask for range of patients

 ;

 K ABMY,DIR,DIC

LOOP G XIT:$D(DUOUT)!$D(DTOUT)!$D(DIROUT)

 W !!?3,"EXCLUSION PARAMETERS Selected for RESTRICTING the CLAIM LOOPING to:"

 W !?3,"==================================================================="

 I $D(ABMY("LOC")) W !?3,"- Visit Location....: ",$P(^AUTTLOC(ABMY("LOC"),0),"^",2)

 I $D(ABMY("INS")) W !?3,"- Billing Entity....: ",$P(^AUTNINS(ABMY("INS"),0),U)

 I $D(ABMY("PAT")) W !?3,"- Billing Entity....: ",$P(^DPT(ABMY("PAT"),0),U)

 I $D(ABMY("TYP")) W !?3,"- Billing Entity....: ",ABMY("TYP","NM")

 I $D(ABMY("DT")) W !?3,"- Visit Dates from..: "

 I  W $$HDT^ABMDUTL(ABMY("DT",1)),"  to: ",$$HDT^ABMDUTL(ABMY("DT",2))

 I $D(ABMY("VTYP")) W !?3,"- Visit Type........: ",$P(^ABMDVTYP(ABMY("VTYP"),0),U)

 I $D(ABMY("CLN")) W !?3,"- Clinic............: ",$P(^DIC(40.7,ABMY("CLN"),0),U)

 I $D(ABMY("PRV")) W !?3,"- Provider...........: ",$P(^VA(200,ABMY("PRV"),0),U)

 I $G(ABMY("PTYP")) W !?3,"- Eligibility Status.: ",ABMY("PTYP","NM")

 I $D(ABMY("RNG")) W !?3,"- Range of Patients..: ",ABMY("RNG",1)," thru ",ABMY("RNG",2)

 ;

PARM ;

 K DIR

 S DIR(0)="SO^1:LOCATION;2:BILLING ENTITY;3:DATE RANGE;4:VISIT TYPE;5:CLINIC;6:PROVIDER;7:ELIGIBILITY STATUS"

 I $G(ABMY("PAT"))="" S DIR(0)=DIR(0)_";8:RANGE OF PATIENTS"

 S DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"

 S DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."

 D ^DIR K DIR G XIT:$D(DIRUT)!$D(DIROUT)

 D @($S(Y=1:"LOC",Y=2:"TYP",Y=3:"DT",Y=4:"VTYP",Y=5:"CLN",Y=6:"PRV",Y=7:"ELIG",1:"RANGE")_"^ABMDESL1")

 G LOOP

 ;

INS W !!?5,"You can RESTRICT the REPORT to either a SPECIFIC INSURER or",!?5,"else a TYPE of INSURER (i.e. PRIVATE INSURANCE, MEDICAID...).",! S DIR(0)="Y",DIR("A")="Restrict Report to a SPECIFIC INSURER (Y/N)",DIR("B")="N" D ^DIR

 G XIT:$D(DIRUT)

 D @($S(Y=1:"INS",1:"TYP")_"^ABMDRSL1")

 I '$D(DTOUT)!'$D(DUOUT)!'$D(DIROUT) G LOOP

 ;

XIT G XIT2:'$D(ABM("RTYP"))!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)

 W ! K DIR S DIR(0)="SA^C:CLINC;V:VISIT TYPE",DIR("A")="Sort Report by [V]isit Type or [C]linic: ",DIR("B")="V"

 S DIR("?")="Enter 'V' to sort the report by Visit Type (inpatient, outpatient, etc.) or a 'C' to sort it by the Clinic associated with each visit."

 D ^DIR I '$D(DIROUT)!'$D(DIRUT) S ABMY("SORT")=Y

XIT2 K ABMY("I"),ABMY("X"),DIR

 Q

ABMDESEL  ; IHS/ASDST/DMJ - Selective Report Parameters ;

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

 +2       ;

 +3       ; IHS/SD/SDR - v2.5 p10 - IM13359

 +4       ;   Ask for range of patients

 +5       ;

 +6        KILL ABMY,DIR,DIC

LOOP       IF $DATA(DUOUT)!$DATA(DTOUT)!$DATA(DIROUT)

               GOTO XIT

 +1        WRITE !!?3,"EXCLUSION PARAMETERS Selected for RESTRICTING the CLAIM LOOPING to:"

 +2        WRITE !?3,"==================================================================="

 +3        IF $DATA(ABMY("LOC"))

               WRITE !?3,"- Visit Location....: ",$PIECE(^AUTTLOC(ABMY("LOC"),0),"^",2)

 +4        IF $DATA(ABMY("INS"))

               WRITE !?3,"- Billing Entity....: ",$PIECE(^AUTNINS(ABMY("INS"),0),U)

 +5        IF $DATA(ABMY("PAT"))

               WRITE !?3,"- Billing Entity....: ",$PIECE(^DPT(ABMY("PAT"),0),U)

 +6        IF $DATA(ABMY("TYP"))

               WRITE !?3,"- Billing Entity....: ",ABMY("TYP","NM")

 +7        IF $DATA(ABMY("DT"))

               WRITE !?3,"- Visit Dates from..: "

 +8       IF $TEST

               WRITE $$HDT^ABMDUTL(ABMY("DT",1)),"  to: ",$$HDT^ABMDUTL(ABMY("DT",2))

 +9        IF $DATA(ABMY("VTYP"))

               WRITE !?3,"- Visit Type........: ",$PIECE(^ABMDVTYP(ABMY("VTYP"),0),U)

 +10       IF $DATA(ABMY("CLN"))

               WRITE !?3,"- Clinic............: ",$PIECE(^DIC(40.7,ABMY("CLN"),0),U)

 +11       IF $DATA(ABMY("PRV"))

               WRITE !?3,"- Provider...........: ",$PIECE(^VA(200,ABMY("PRV"),0),U)

 +12       IF $GET(ABMY("PTYP"))

               WRITE !?3,"- Eligibility Status.: ",ABMY("PTYP","NM")

 +13       IF $DATA(ABMY("RNG"))

               WRITE !?3,"- Range of Patients..: ",ABMY("RNG",1)," thru ",ABMY("RNG",2)

 +14      ;

PARM      ;

 +1        KILL DIR

 +2        SET DIR(0)="SO^1:LOCATION;2:BILLING ENTITY;3:DATE RANGE;4:VISIT TYPE;5:CLINIC;6:PROVIDER;7:ELIGIBILITY STATUS"

 +3        IF $GET(ABMY("PAT"))=""

               SET DIR(0)=DIR(0)_";8:RANGE OF PATIENTS"

 +4        SET DIR("A")="Select ONE or MORE of the above EXCLUSION PARAMETERS"

 +5        SET DIR("?")="The report can be restricted to one or more of the listed parameters. A parameter can be removed by reselecting it and making a null entry."

 +6        DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)!$DATA(DIROUT)

               GOTO XIT

 +7        DO @($SELECT(Y=1:"LOC",Y=2:"TYP",Y=3:"DT",Y=4:"VTYP",Y=5:"CLN",Y=6:"PRV",Y=7:"ELIG",1:"RANGE")_"^ABMDESL1")

 +8        GOTO LOOP

 +9       ;

INS        WRITE !!?5,"You can RESTRICT the REPORT to either a SPECIFIC INSURER or",!?5,"else a TYPE of INSURER (i.e. PRIVATE INSURANCE, MEDICAID...).",!

           SET DIR(0)="Y"

           SET DIR("A")="Restrict Report to a SPECIFIC INSURER (Y/N)"

           SET DIR("B")="N"

           DO ^DIR

 +1        IF $DATA(DIRUT)

               GOTO XIT

 +2        DO @($SELECT(Y=1:"INS",1:"TYP")_"^ABMDRSL1")

 +3        IF '$DATA(DTOUT)!'$DATA(DUOUT)!'$DATA(DIROUT)

               GOTO LOOP

 +4       ;

XIT        IF '$DATA(ABM("RTYP"))!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DUOUT)

               GOTO XIT2

 +1        WRITE !

           KILL DIR

           SET DIR(0)="SA^C:CLINC;V:VISIT TYPE"

           SET DIR("A")="Sort Report by [V]isit Type or [C]linic: "

           SET DIR("B")="V"

 +2        SET DIR("?")="Enter 'V' to sort the report by Visit Type (inpatient, outpatient, etc.) or a 'C' to sort it by the Clinic associated with each visit."

 +3        DO ^DIR

           IF '$DATA(DIROUT)!'$DATA(DIRUT)

               SET ABMY("SORT")=Y

XIT2       KILL ABMY("I"),ABMY("X"),DIR

 +1        QUIT