- 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