ABMDTCOV.m

ABMDTCOV ; IHS/ASDST/DMJ - Table Maintenance of COVERAGE TYPES ;

 ;;2.6;IHS 3P BILLING SYSTEM;**14**;NOV 12, 2009;Build 238

 ;IHS/SD/SDR - 2.6*14 - ICD10 Added UNBILLABLE DIAGNOSIS to prompt

 ;

 S U="^"

INS W !! K DIC S DIC="^AUTNINS(",DIC("S")="I $P($G(^(1)),U,7)'=0",DIC("A")="Select INSURER: ",DIC(0)="QEAM" D ^DIC K DIC

 G XIT:X=""!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G INS

 S ABM("INS")=+Y

 ;

EDIT W !! K DIC S DIC="^AUTTPIC(",DIC("A")="Select COVERAGE TYPE to Edit: ",DIC(0)="QEALM",DIC("S")="I $P(^(0),U,2)=ABM(""INS"")",DIC("DR")=".02////"_ABM("INS") D ^DIC K DIC

 G XIT:X=""!$D(DUOUT)!$D(DTOUT)

 I +Y<1 G EDIT

 S DA=+Y

 S DIE="^AUTTPIC("

 ;start old code abm*2.6*14 ICD10

 ;I $P(^AUTNINS(ABM("INS"),0),U)="MEDICARE" S DR="W !;.04;11;13;15"

 ;E  S DR="W !;.01;.03;.04;.05;11;13;15"

 ;end old start new code abm*2.6*14 ICD10

 I $P(^AUTNINS(ABM("INS"),0),U)="MEDICARE" S DR="W !;.04;11;13UNBILLABLE DIAGNOSIS;15"

 E  S DR="W !;.01;.03;.04;.05;11;13UNBILLABLE DIAGNOSIS;15"

 ;end new abm*2.6*14 ICD10

 D ^ABMDDIE K DR G XIT:$D(ABM("DIE-FAIL"))

 G INS

 ;

XIT K ABM,DIR,DIC,DIE

 Q

ABMDTCOV  ; IHS/ASDST/DMJ - Table Maintenance of COVERAGE TYPES ;

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**14**;NOV 12, 2009;Build 238

 +2       ;IHS/SD/SDR - 2.6*14 - ICD10 Added UNBILLABLE DIAGNOSIS to prompt

 +3       ;

 +4        SET U="^"

INS        WRITE !!

           KILL DIC

           SET DIC="^AUTNINS("

           SET DIC("S")="I $P($G(^(1)),U,7)'=0"

           SET DIC("A")="Select INSURER: "

           SET DIC(0)="QEAM"

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO INS

 +3        SET ABM("INS")=+Y

 +4       ;

EDIT       WRITE !!

           KILL DIC

           SET DIC="^AUTTPIC("

           SET DIC("A")="Select COVERAGE TYPE to Edit: "

           SET DIC(0)="QEALM"

           SET DIC("S")="I $P(^(0),U,2)=ABM(""INS"")"

           SET DIC("DR")=".02////"_ABM("INS")

           DO ^DIC

           KILL DIC

 +1        IF X=""!$DATA(DUOUT)!$DATA(DTOUT)

               GOTO XIT

 +2        IF +Y<1

               GOTO EDIT

 +3        SET DA=+Y

 +4        SET DIE="^AUTTPIC("

 +5       ;start old code abm*2.6*14 ICD10

 +6       ;I $P(^AUTNINS(ABM("INS"),0),U)="MEDICARE" S DR="W !;.04;11;13;15"

 +7       ;E  S DR="W !;.01;.03;.04;.05;11;13;15"

 +8       ;end old start new code abm*2.6*14 ICD10

 +9        IF $PIECE(^AUTNINS(ABM("INS"),0),U)="MEDICARE"

               SET DR="W !;.04;11;13UNBILLABLE DIAGNOSIS;15"

 +10      IF '$TEST

               SET DR="W !;.01;.03;.04;.05;11;13UNBILLABLE DIAGNOSIS;15"

 +11      ;end new abm*2.6*14 ICD10

 +12       DO ^ABMDDIE

           KILL DR

           IF $DATA(ABM("DIE-FAIL"))

               GOTO XIT

 +13       GOTO INS

 +14      ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT