ABMDE2X5.m

ABMDE2X5 ; IHS/ASDST/DMJ - PAGE 2 - Primary Insurer Check-CONT ;  

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

 ;

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

 ;   Fix for <UNDEF>EXP+1^ABMDE2X5

 ;

 ; *********************************************************************

 ;

EXP ;EP - Entry Point for setting billing parms

 S ABM("H")=$S($P($G(^ABMDPARM(DUZ(2),1,2)),U,9):$P(^(2),U,9),1:2)

 I '$D(ABMP("EXP")) D EXP^ABMDEVAR

 S $P(ABMV("X6"),U)=ABMP("EXP")

 I '$D(ABMP("FEE")) S ABMP("FEE")=$S($P(^ABMDPARM(DUZ(2),1,0),U,9)]"":$P(^(0),U,9),1:1)

 S ABMP("PX")=$S($P(ABMV("X6"),U,2)]"":$P(ABMV("X6"),U,2),1:"C"),$P(ABMV("X6"),U,2)=ABMP("PX")

 D PAGE^ABMDEVAR

 Q

 ;

COV ;EP - Entry Point for setting Coverage Types

 Q:'$G(ABM("XIEN"))

 S ABMX=0

 S ABMP("COV")=""

 F  S ABMX=$O(@(ABMP("GL")_"13,"_ABM("XIEN")_",11,"_ABMX_")")) Q:'ABMX  S ABMP("COV")=$S(ABMP("COV")]"":ABMP("COV")_";"_ABMX,1:ABMX)

 Q

ABMDE2X5  ; IHS/ASDST/DMJ - PAGE 2 - Primary Insurer Check-CONT ;  

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

 +2       ;

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

 +4       ;   Fix for <UNDEF>EXP+1^ABMDE2X5

 +5       ;

 +6       ; *********************************************************************

 +7       ;

EXP       ;EP - Entry Point for setting billing parms

 +1        SET ABM("H")=$SELECT($PIECE($GET(^ABMDPARM(DUZ(2),1,2)),U,9):$PIECE(^(2),U,9),1:2)

 +2        IF '$DATA(ABMP("EXP"))

               DO EXP^ABMDEVAR

 +3        SET $PIECE(ABMV("X6"),U)=ABMP("EXP")

 +4        IF '$DATA(ABMP("FEE"))

               SET ABMP("FEE")=$SELECT($PIECE(^ABMDPARM(DUZ(2),1,0),U,9)]"":$PIECE(^(0),U,9),1:1)

 +5        SET ABMP("PX")=$SELECT($PIECE(ABMV("X6"),U,2)]"":$PIECE(ABMV("X6"),U,2),1:"C")

           SET $PIECE(ABMV("X6"),U,2)=ABMP("PX")

 +6        DO PAGE^ABMDEVAR

 +7        QUIT 

 +8       ;

COV       ;EP - Entry Point for setting Coverage Types

 +1        IF '$GET(ABM("XIEN"))

               QUIT 

 +2        SET ABMX=0

 +3        SET ABMP("COV")=""

 +4        FOR 

               SET ABMX=$ORDER(@(ABMP("GL")_"13,"_ABM("XIEN")_",11,"_ABMX_")"))

               IF 'ABMX

                   QUIT 

               SET ABMP("COV")=$SELECT(ABMP("COV")]"":ABMP("COV")_";"_ABMX,1:ABMX)

 +5        QUIT