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