ABMEH90.m

ABMEH90 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD XA0 (Claim Trailer) ;    

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

 ;Original;DMJ;08/18/95 10:11 AM

START ;START HERE

 K ABMREC(90)

 S ABME("RTYPE")=90

 D SET^ABMERUTL,LOOP

 F I="RTOT","DTOT" D

 .S ABMRT(95,I)=+$G(ABMRT(95,I))+$G(ABMRT(90,I))

 S ABMRT(95,"CTOT")=+$G(ABMRT(95,"CTOT"))+1

 K ABM,ABME,ABMRT(90)

 Q

LOOP ;LOOP HERE

 F I=10:10:250 D

 .D @I

 .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),90,I)) D @(^(I))

 .I '$G(ABMP("NOFMT")) S ABMREC(90)=$G(ABMREC(90))_ABMR(90,I)

 Q

10 ;1-3 Record ID

 S ABMR(90,10)="XA0"

 Q

20 ;4-5 Filler 

 S ABMR(90,20)=""

 S ABMR(90,20)=$$FMT^ABMERUTL(ABMR(90,20),2)

 Q

30 ;6-22 Patient Control Number

 S ABMR(90,30)=ABMP("PCN")

 S ABMR(90,30)=$$FMT^ABMERUTL(ABMR(90,30),17)

 Q

40 ;

 S ABMR(90,40)=""

 Q

50 ;23-24 Record Type Cxx Count

 S ABMR(90,50)=$$FMT^ABMERUTL(+$G(ABMRT(90,50)),"2NR")

 Q

60 ;25-26 Record Type Dxx Count

 S ABMR(90,60)=$$FMT^ABMERUTL(+$G(ABMRT(90,60)),"2NR")

 Q

70 ;27-28 Record Type Exx Count

 S ABMR(90,70)=$$FMT^ABMERUTL(+$G(ABMRT(90,70)),"2NR")

 Q

80 ;29-30 Record Type Fxx Count

 S ABMR(90,80)=$$FMT^ABMERUTL(+$G(ABMRT(90,90)),"2NR")

 Q

90 ;31-32 Record Type Gxx Count

 S ABMR(90,90)=$$FMT^ABMERUTL(+$G(ABMRT(90,100)),"2NR")

 Q

100 ;33-34 Record Type Hxx Count

 S ABMR(90,100)=$$FMT^ABMERUTL(+$G(ABMRT(90,120)),"2NR")

 Q

110 ;35-37 Physical Record Count

 S ABMR(90,110)=$$FMT^ABMERUTL(+$G(ABMRT(90,40)),"3NR")

 Q

120 ;38-77 Reserved

 S ABMR(90,120)=""

 S ABMR(90,120)=$$FMT^ABMERUTL(ABMR(90,120),40)

 Q

130 ;78-84 Total Claim Charges

 S ABMR(90,130)=$$FMT^ABMERUTL(+$G(ABMRT(90,150)),"7NRJ2")

 Q

140 ;85-91 Total Disallowed Cost Cont Chgs

 S ABMR(90,140)=""

 S ABMR(90,140)=$$FMT^ABMERUTL(ABMR(90,140),"7NRJ2")

 Q

150 ;92-98 Total Disallowed Other Charges

 S ABMR(90,150)=""

 S ABMR(90,150)=$$FMT^ABMERUTL(ABMR(90,150),"7NRJ2")

 Q

160 ;99-105 Total Allowed Amount

 S ABMR(90,160)=+$G(ABMRT(90,150))-ABMR(90,140)-ABMR(90,150)

 S ABMR(90,160)=$$FMT^ABMERUTL(ABMR(90,160),"7NRJ2")

 Q

170 ;106-112 Total Deductible Amount

 S ABMR(90,170)=""

 S ABMR(90,170)=$$FMT^ABMERUTL(ABMR(90,170),"7NRJ2")

 Q

180 ;113-119 Total Coinsurance Amount

 S ABMR(90,180)=""

 S ABMR(90,180)=$$FMT^ABMERUTL(ABMR(90,180),"7NRJ2")

 Q

190 ;120-126 Total Payor Amount Paid

 S ABMR(90,190)=$G(ABMP("PAYED"))

 S ABMR(90,190)=$$FMT^ABMERUTL(ABMR(90,190),"7NRJ2")

 Q

200 ;127-133 Patient Amount Payed

 S ABMR(90,200)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),9)),"^",9)

 S ABMR(90,200)=$$FMT^ABMERUTL(ABMR(90,200),"7NRJ2")

 Q

210 ;134-140 Total Purchase Service Charges     

 S ABMR(90,210)=""

 S ABMR(90,210)=$$FMT^ABMERUTL(ABMR(90,210),"7NRJ2")

 Q

220 ;141-156 Provider Discount Information

 S ABMR(90,220)=""

 S ABMR(90,220)=$$FMT^ABMERUTL(ABMR(90,220),16)

 Q

230 ;157-259 Remarks

 S ABMR(90,230)=""

 N I F I=1:1:4 D

 .Q:'$D(^ABMDBILL(DUZ(2),ABMP("BDFN"),61,I,0))

 .S:I>1 ABMR(90,230)=ABMR(90,230)_" "

 .S ABMR(90,230)=ABMR(90,230)_^ABMDBILL(DUZ(2),ABMP("BDFN"),61,I,0)

 S ABMR(90,230)=$$FMT^ABMERUTL(ABMR(90,230),103)

 Q

240 ;260-290 Filler (National)

 S ABMR(90,240)=""

 S ABMR(90,240)=$$FMT^ABMERUTL(ABMR(90,240),31)

 Q

250 ;291-320 Filler (Local)

 S ABMR(90,250)=""

 S ABMR(90,250)=$$FMT^ABMERUTL(ABMR(90,250),30)

 Q

ABMEH90   ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD XA0 (Claim Trailer) ;    

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

 +2       ;Original;DMJ;08/18/95 10:11 AM

START     ;START HERE

 +1        KILL ABMREC(90)

 +2        SET ABME("RTYPE")=90

 +3        DO SET^ABMERUTL

           DO LOOP

 +4        FOR I="RTOT","DTOT"

               Begin DoDot:1

 +5                SET ABMRT(95,I)=+$GET(ABMRT(95,I))+$GET(ABMRT(90,I))

               End DoDot:1

 +6        SET ABMRT(95,"CTOT")=+$GET(ABMRT(95,"CTOT"))+1

 +7        KILL ABM,ABME,ABMRT(90)

 +8        QUIT 

LOOP      ;LOOP HERE

 +1        FOR I=10:10:250

               Begin DoDot:1

 +2                DO @I

 +3                IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),90,I))

                       DO @(^(I))

 +4                IF '$GET(ABMP("NOFMT"))

                       SET ABMREC(90)=$GET(ABMREC(90))_ABMR(90,I)

               End DoDot:1

 +5        QUIT 

10        ;1-3 Record ID

 +1        SET ABMR(90,10)="XA0"

 +2        QUIT 

20        ;4-5 Filler 

 +1        SET ABMR(90,20)=""

 +2        SET ABMR(90,20)=$$FMT^ABMERUTL(ABMR(90,20),2)

 +3        QUIT 

30        ;6-22 Patient Control Number

 +1        SET ABMR(90,30)=ABMP("PCN")

 +2        SET ABMR(90,30)=$$FMT^ABMERUTL(ABMR(90,30),17)

 +3        QUIT 

40        ;

 +1        SET ABMR(90,40)=""

 +2        QUIT 

50        ;23-24 Record Type Cxx Count

 +1        SET ABMR(90,50)=$$FMT^ABMERUTL(+$GET(ABMRT(90,50)),"2NR")

 +2        QUIT 

60        ;25-26 Record Type Dxx Count

 +1        SET ABMR(90,60)=$$FMT^ABMERUTL(+$GET(ABMRT(90,60)),"2NR")

 +2        QUIT 

70        ;27-28 Record Type Exx Count

 +1        SET ABMR(90,70)=$$FMT^ABMERUTL(+$GET(ABMRT(90,70)),"2NR")

 +2        QUIT 

80        ;29-30 Record Type Fxx Count

 +1        SET ABMR(90,80)=$$FMT^ABMERUTL(+$GET(ABMRT(90,90)),"2NR")

 +2        QUIT 

90        ;31-32 Record Type Gxx Count

 +1        SET ABMR(90,90)=$$FMT^ABMERUTL(+$GET(ABMRT(90,100)),"2NR")

 +2        QUIT 

100       ;33-34 Record Type Hxx Count

 +1        SET ABMR(90,100)=$$FMT^ABMERUTL(+$GET(ABMRT(90,120)),"2NR")

 +2        QUIT 

110       ;35-37 Physical Record Count

 +1        SET ABMR(90,110)=$$FMT^ABMERUTL(+$GET(ABMRT(90,40)),"3NR")

 +2        QUIT 

120       ;38-77 Reserved

 +1        SET ABMR(90,120)=""

 +2        SET ABMR(90,120)=$$FMT^ABMERUTL(ABMR(90,120),40)

 +3        QUIT 

130       ;78-84 Total Claim Charges

 +1        SET ABMR(90,130)=$$FMT^ABMERUTL(+$GET(ABMRT(90,150)),"7NRJ2")

 +2        QUIT 

140       ;85-91 Total Disallowed Cost Cont Chgs

 +1        SET ABMR(90,140)=""

 +2        SET ABMR(90,140)=$$FMT^ABMERUTL(ABMR(90,140),"7NRJ2")

 +3        QUIT 

150       ;92-98 Total Disallowed Other Charges

 +1        SET ABMR(90,150)=""

 +2        SET ABMR(90,150)=$$FMT^ABMERUTL(ABMR(90,150),"7NRJ2")

 +3        QUIT 

160       ;99-105 Total Allowed Amount

 +1        SET ABMR(90,160)=+$GET(ABMRT(90,150))-ABMR(90,140)-ABMR(90,150)

 +2        SET ABMR(90,160)=$$FMT^ABMERUTL(ABMR(90,160),"7NRJ2")

 +3        QUIT 

170       ;106-112 Total Deductible Amount

 +1        SET ABMR(90,170)=""

 +2        SET ABMR(90,170)=$$FMT^ABMERUTL(ABMR(90,170),"7NRJ2")

 +3        QUIT 

180       ;113-119 Total Coinsurance Amount

 +1        SET ABMR(90,180)=""

 +2        SET ABMR(90,180)=$$FMT^ABMERUTL(ABMR(90,180),"7NRJ2")

 +3        QUIT 

190       ;120-126 Total Payor Amount Paid

 +1        SET ABMR(90,190)=$GET(ABMP("PAYED"))

 +2        SET ABMR(90,190)=$$FMT^ABMERUTL(ABMR(90,190),"7NRJ2")

 +3        QUIT 

200       ;127-133 Patient Amount Payed

 +1        SET ABMR(90,200)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),9)),"^",9)

 +2        SET ABMR(90,200)=$$FMT^ABMERUTL(ABMR(90,200),"7NRJ2")

 +3        QUIT 

210       ;134-140 Total Purchase Service Charges     

 +1        SET ABMR(90,210)=""

 +2        SET ABMR(90,210)=$$FMT^ABMERUTL(ABMR(90,210),"7NRJ2")

 +3        QUIT 

220       ;141-156 Provider Discount Information

 +1        SET ABMR(90,220)=""

 +2        SET ABMR(90,220)=$$FMT^ABMERUTL(ABMR(90,220),16)

 +3        QUIT 

230       ;157-259 Remarks

 +1        SET ABMR(90,230)=""

 +2        NEW I

           FOR I=1:1:4

               Begin DoDot:1

 +3                IF '$DATA(^ABMDBILL(DUZ(2),ABMP("BDFN"),61,I,0))

                       QUIT 

 +4                IF I>1

                       SET ABMR(90,230)=ABMR(90,230)_" "

 +5                SET ABMR(90,230)=ABMR(90,230)_^ABMDBILL(DUZ(2),ABMP("BDFN"),61,I,0)

               End DoDot:1

 +6        SET ABMR(90,230)=$$FMT^ABMERUTL(ABMR(90,230),103)

 +7        QUIT 

240       ;260-290 Filler (National)

 +1        SET ABMR(90,240)=""

 +2        SET ABMR(90,240)=$$FMT^ABMERUTL(ABMR(90,240),31)

 +3        QUIT 

250       ;291-320 Filler (Local)

 +1        SET ABMR(90,250)=""

 +2        SET ABMR(90,250)=$$FMT^ABMERUTL(ABMR(90,250),30)

 +3        QUIT