ABMDE0B.m

ABMDE0B ; IHS/ASDST/DMJ - Claim Summary-Part 2 ; 

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

 ;

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

IDEN ;EP - Entry Point from ABMDE0A for Iden display

 S ABMZ(1)="W !,""_______ Pg-1 (Claim Identifiers) ________"""

 S ABMZ(2)="W !,""Location..: "",ABM(1),?40,""|"""

 S ABMZ(3)="W !,""Clinic....: "",ABM(2),?40,""|"""

 S ABMZ(4)="W !,""Visit Type: "",ABM(3),?40,""|"""

 S ABMZ(5)="W !,""Bill From: "",ABM(4),"" Thru: "",ABM(5),?40,""|"""

 Q

 ;

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

INS ;EP - Entry Point from ABMDE0A for Insurer display

 S ABMZ(ABM("C"))="W !,""________ Pg-2 (Billing Entity) _________|"""

 D CNT

 I '$D(ABM("I1")) D

 . S ABM("I1")="NO COVERAGE FOUND"

 .S ABM("I1S")=""

 S ABMZ(ABM("C"))="W !,ABM(""I1""),?30,ABM(""I1S""),?40,""|"""

 D CNT

 ;

I2 ;

 I $D(ABM("I2")),ABM("I2")]"" D

 . S ABMZ(ABM("C"))="W !,ABM(""I2""),?30,ABM(""I2S""),?40,""|"""

 . D CNT

 ;

I3 ;

 I $D(ABM("I3")),ABM("I3")]"" D

 . S ABMZ(ABM("C"))="W !,ABM(""I3""),?30,ABM(""I3S""),?40,""|"""

 . D CNT

 Q

 ;

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

QUES ;EP - Entry Point from ABMDE0A for questions display

 S ABMZ(ABM("C"))="W !,""___________ Pg-3 (Questions) ___________|"""

 D CNT

 S ABMZ(ABM("C"))="W !,""Release Info: "",ABM(""RELS""),?20,""Assign Benef: "",ABM(""ASGN""),?40,""|"""

 D CNT

 Q

 ;

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

CNT ;

 S ABM("C")=ABM("C")+1

 Q

ABMDE0B   ; IHS/ASDST/DMJ - Claim Summary-Part 2 ; 

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

 +2       ;

 +3       ; *********************************************************************

IDEN      ;EP - Entry Point from ABMDE0A for Iden display

 +1        SET ABMZ(1)="W !,""_______ Pg-1 (Claim Identifiers) ________"""

 +2        SET ABMZ(2)="W !,""Location..: "",ABM(1),?40,""|"""

 +3        SET ABMZ(3)="W !,""Clinic....: "",ABM(2),?40,""|"""

 +4        SET ABMZ(4)="W !,""Visit Type: "",ABM(3),?40,""|"""

 +5        SET ABMZ(5)="W !,""Bill From: "",ABM(4),"" Thru: "",ABM(5),?40,""|"""

 +6        QUIT 

 +7       ;

 +8       ; *********************************************************************

INS       ;EP - Entry Point from ABMDE0A for Insurer display

 +1        SET ABMZ(ABM("C"))="W !,""________ Pg-2 (Billing Entity) _________|"""

 +2        DO CNT

 +3        IF '$DATA(ABM("I1"))

               Begin DoDot:1

 +4                SET ABM("I1")="NO COVERAGE FOUND"

 +5                SET ABM("I1S")=""

               End DoDot:1

 +6        SET ABMZ(ABM("C"))="W !,ABM(""I1""),?30,ABM(""I1S""),?40,""|"""

 +7        DO CNT

 +8       ;

I2        ;

 +1        IF $DATA(ABM("I2"))

               IF ABM("I2")]""

                   Begin DoDot:1

 +2                    SET ABMZ(ABM("C"))="W !,ABM(""I2""),?30,ABM(""I2S""),?40,""|"""

 +3                    DO CNT

                   End DoDot:1

 +4       ;

I3        ;

 +1        IF $DATA(ABM("I3"))

               IF ABM("I3")]""

                   Begin DoDot:1

 +2                    SET ABMZ(ABM("C"))="W !,ABM(""I3""),?30,ABM(""I3S""),?40,""|"""

 +3                    DO CNT

                   End DoDot:1

 +4        QUIT 

 +5       ;

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

QUES      ;EP - Entry Point from ABMDE0A for questions display

 +1        SET ABMZ(ABM("C"))="W !,""___________ Pg-3 (Questions) ___________|"""

 +2        DO CNT

 +3        SET ABMZ(ABM("C"))="W !,""Release Info: "",ABM(""RELS""),?20,""Assign Benef: "",ABM(""ASGN""),?40,""|"""

 +4        DO CNT

 +5        QUIT 

 +6       ;

 +7       ; *********************************************************************

CNT       ;

 +1        SET ABM("C")=ABM("C")+1

 +2        QUIT