ABMEH62 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD FB0 (Medical Segment) ;
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;
; IHS/SD/SDR - v2.5 p10 - IM20395
; Split out lines bundled by rev code
;
START ;START HERE
K ABMR(62),ABMREC(62)
D LOOP
S ABME("RTYPE")=62 D S90^ABMERUTL
S ABMEF("LINE")=ABMREC(62)
D WRITE^ABMEF19
Q
LOOP ;LOOP HERE
F I=10:10:360 D
.D @I
.I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),62,I)) D @(^(I))
.I '$G(ABMP("NOFMT")) S ABMREC(62)=$G(ABMREC(62))_ABMR(62,I)
Q
10 ;1-3 Record type
S ABMR(62,10)="FB0"
Q
20 ;4-5 Sequence
S ABMR(62,20)=ABME("S#")
S ABMR(62,20)=$$FMT^ABMERUTL(ABMR(62,20),"2NR")
Q
30 ;6-22 Patient Control Number
S ABMR(62,30)=ABMP("PCN")
S ABMR(62,30)=$$FMT^ABMERUTL(ABMR(62,30),17)
Q
40 ;23-39 Line Item Control #
S ABMR(62,40)=""
S ABMR(62,40)=$$FMT^ABMERUTL(ABMR(62,40),17)
Q
50 ;40-46 Purchase Service Charge
S ABMR(62,50)=""
S ABMR(62,50)=$$FMT^ABMERUTL(ABMR(62,50),"7NRJ2")
Q
60 ;47-53 Allowed Amount
S ABMR(62,60)=""
S ABMR(62,60)=$$FMT^ABMERUTL(ABMR(62,60),"7NRJ2")
Q
70 ;54-60 Deductible Amount
S ABMR(62,70)=""
S ABMR(62,70)=$$FMT^ABMERUTL(ABMR(62,70),"7NRJ2")
Q
80 ;61-67 Coinsurance Amount
S ABMR(62,80)=""
S ABMR(62,80)=$$FMT^ABMERUTL(ABMR(62,80),"7NRJ2")
Q
90 ;68-82 Ordering Provider ID
S ABMR(62,90)=$P(ABMRV(J,K,M),U,16)
S ABMR(62,90)=$$FMT^ABMERUTL(ABMR(62,90),15)
Q
100 ;83-84 Ordering Provider State
S ABMR(62,100)=""
S ABMR(62,100)=$$FMT^ABMERUTL(ABMR(62,100),2)
Q
110 ;85-99 Purchase Service Provider ID
S ABMR(62,110)=""
S ABMR(62,110)=$$FMT^ABMERUTL(ABMR(62,110),15)
Q
120 ;100-101 Purchase Service Provider State
S ABMR(62,120)=""
S ABMR(62,120)=$$FMT^ABMERUTL(ABMR(62,120),2)
Q
130 ;102-105 Pen Grams of Protein
S ABMR(62,130)=""
S ABMR(62,130)=$$FMT^ABMERUTL(ABMR(62,130),"4NR")
Q
140 ;106-109 Pen Calories
S ABMR(62,140)=""
S ABMR(62,140)=$$FMT^ABMERUTL(ABMR(62,140),"4NR")
Q
150 ;110-120 National Drug Code
S ABMR(62,150)=$TR($P(ABMRV(J,K,M),U,15),"-","")
S ABMR(62,150)=$$FMT^ABMERUTL(ABMR(62,150),11)
Q
160 ;121-127 National Drug Units
D
.N X
.S X=$P(ABMRV(J,K,M),U,5)+.5\1
.S:'X X=1
.S ABMR(62,160)=X
S ABMR(62,160)=$$FMT^ABMERUTL(ABMR(62,160),"7NR")
Q
170 ;128-142 Prescription #
S ABMR(62,170)=$P(ABMRV(J,K,M),U,13)
S ABMR(62,170)=$$FMT^ABMERUTL(ABMR(62,170),15)
Q
180 ;143-150 Prescription Date
S ABMR(62,180)=$$Y2KD2^ABMDUTL($P(ABMRV(J,K,M),U,10))
S ABMR(62,180)=$$FMT^ABMERUTL(ABMR(62,180),8)
Q
190 ;151-152 Prescription # of Months
S ABMR(62,190)=""
S ABMR(62,190)=$$FMT^ABMERUTL(ABMR(62,190),"2NR")
Q
200 ;153-153 Special Pricing Indicator
S ABMR(62,200)=""
S ABMR(62,200)=$$FMT^ABMERUTL(ABMR(62,200),1)
Q
210 ;154-154 Copay Status Indicator
S ABMR(62,210)=""
S ABMR(62,210)=$$FMT^ABMERUTL(ABMR(62,210),1)
Q
220 ;155-155 EPSDT Indicator
S ABMR(62,220)=""
S ABMR(62,220)=$$FMT^ABMERUTL(ABMR(62,220),1)
Q
230 ;156-156 Family Planning Indicator
S ABMR(62,230)=""
S ABMR(62,230)=$$FMT^ABMERUTL(ABMR(62,230),1)
Q
240 ;157-157 DME Charge Indicator
S ABMR(62,240)=""
S ABMR(62,240)=$$FMT^ABMERUTL(ABMR(62,240),1)
Q
250 ;158-172 HPSA Facility ID
S ABMR(62,250)=""
S ABMR(62,250)=$$FMT^ABMERUTL(ABMR(62,250),15)
Q
260 ;173-181 HPSA Facility Zip
S ABMR(62,260)=""
S ABMR(62,260)=$$FMT^ABMERUTL(ABMR(62,260),9)
Q
270 ;182-214 Purchase Service Name
S ABMR(62,270)=""
S ABMR(62,270)=$$FMT^ABMERUTL(ABMR(62,270),33)
Q
280 ;215-244 Purchase Service Address1
S ABMR(62,280)=""
S ABMR(62,280)=$$FMT^ABMERUTL(ABMR(62,280),30)
Q
290 ;245-274 Purchase Service Address2
S ABMR(62,290)=""
S ABMR(62,290)=$$FMT^ABMERUTL(ABMR(62,290),30)
Q
300 ;275-294 Purchase Service City
S ABMR(62,300)=""
S ABMR(62,300)=$$FMT^ABMERUTL(ABMR(62,300),20)
Q
310 ;295-303 Purchase Service Zip
S ABMR(62,310)=""
S ABMR(62,310)=$$FMT^ABMERUTL(ABMR(62,310),9)
Q
320 ;304-313 Purchase Service Phone
S ABMR(62,320)=""
S ABMR(62,320)=$$FMT^ABMERUTL(ABMR(62,320),10)
Q
330 ;314-316 Drug Days Supply
S ABMR(62,330)=$P(ABMRV(J,K,M),U,14)
S ABMR(62,330)=$$FMT^ABMERUTL(ABMR(62,330),"3NR")
Q
340 ;317-317 Refill Indicator
S ABMR(62,340)="N"
S:$P(ABMRV(J,K,M),U,17) ABMR(62,340)="Y"
S ABMR(62,340)=$$FMT^ABMERUTL(ABMR(62,340),1)
Q
350 ;318-318 Brand Need Indicator
S ABMR(62,350)=""
S ABMR(62,350)=$$FMT^ABMERUTL(ABMR(62,350),1)
Q
360 ;319-320 Filler (Local)
S ABMR(62,360)=""
S ABMR(62,360)=$$FMT^ABMERUTL(ABMR(62,360),2)
Q
EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
;X=data element, Y=bill internal entry number
S ABMP("BDFN")=ABMY D SET^ABMERUTL
I '$G(ABMP("NOFMT")) S ABMP("FMT")=0
D @ABMX
S Y=ABMR(62,ABMX)
I $D(ABMP("FMT")) S ABMP("FMT")=1
K ABMR(62,ABMX),ABME,ABMX,ABMY,ABMZ,ABM
Q Y
ABMEH62 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD FB0 (Medical Segment) ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;
+3 ; IHS/SD/SDR - v2.5 p10 - IM20395
+4 ; Split out lines bundled by rev code
+5 ;
START ;START HERE
+1 KILL ABMR(62),ABMREC(62)
+2 DO LOOP
+3 SET ABME("RTYPE")=62
DO S90^ABMERUTL
+4 SET ABMEF("LINE")=ABMREC(62)
+5 DO WRITE^ABMEF19
+6 QUIT
LOOP ;LOOP HERE
+1 FOR I=10:10:360
Begin DoDot:1
+2 DO @I
+3 IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),62,I))
DO @(^(I))
+4 IF '$GET(ABMP("NOFMT"))
SET ABMREC(62)=$GET(ABMREC(62))_ABMR(62,I)
End DoDot:1
+5 QUIT
10 ;1-3 Record type
+1 SET ABMR(62,10)="FB0"
+2 QUIT
20 ;4-5 Sequence
+1 SET ABMR(62,20)=ABME("S#")
+2 SET ABMR(62,20)=$$FMT^ABMERUTL(ABMR(62,20),"2NR")
+3 QUIT
30 ;6-22 Patient Control Number
+1 SET ABMR(62,30)=ABMP("PCN")
+2 SET ABMR(62,30)=$$FMT^ABMERUTL(ABMR(62,30),17)
+3 QUIT
40 ;23-39 Line Item Control #
+1 SET ABMR(62,40)=""
+2 SET ABMR(62,40)=$$FMT^ABMERUTL(ABMR(62,40),17)
+3 QUIT
50 ;40-46 Purchase Service Charge
+1 SET ABMR(62,50)=""
+2 SET ABMR(62,50)=$$FMT^ABMERUTL(ABMR(62,50),"7NRJ2")
+3 QUIT
60 ;47-53 Allowed Amount
+1 SET ABMR(62,60)=""
+2 SET ABMR(62,60)=$$FMT^ABMERUTL(ABMR(62,60),"7NRJ2")
+3 QUIT
70 ;54-60 Deductible Amount
+1 SET ABMR(62,70)=""
+2 SET ABMR(62,70)=$$FMT^ABMERUTL(ABMR(62,70),"7NRJ2")
+3 QUIT
80 ;61-67 Coinsurance Amount
+1 SET ABMR(62,80)=""
+2 SET ABMR(62,80)=$$FMT^ABMERUTL(ABMR(62,80),"7NRJ2")
+3 QUIT
90 ;68-82 Ordering Provider ID
+1 SET ABMR(62,90)=$PIECE(ABMRV(J,K,M),U,16)
+2 SET ABMR(62,90)=$$FMT^ABMERUTL(ABMR(62,90),15)
+3 QUIT
100 ;83-84 Ordering Provider State
+1 SET ABMR(62,100)=""
+2 SET ABMR(62,100)=$$FMT^ABMERUTL(ABMR(62,100),2)
+3 QUIT
110 ;85-99 Purchase Service Provider ID
+1 SET ABMR(62,110)=""
+2 SET ABMR(62,110)=$$FMT^ABMERUTL(ABMR(62,110),15)
+3 QUIT
120 ;100-101 Purchase Service Provider State
+1 SET ABMR(62,120)=""
+2 SET ABMR(62,120)=$$FMT^ABMERUTL(ABMR(62,120),2)
+3 QUIT
130 ;102-105 Pen Grams of Protein
+1 SET ABMR(62,130)=""
+2 SET ABMR(62,130)=$$FMT^ABMERUTL(ABMR(62,130),"4NR")
+3 QUIT
140 ;106-109 Pen Calories
+1 SET ABMR(62,140)=""
+2 SET ABMR(62,140)=$$FMT^ABMERUTL(ABMR(62,140),"4NR")
+3 QUIT
150 ;110-120 National Drug Code
+1 SET ABMR(62,150)=$TRANSLATE($PIECE(ABMRV(J,K,M),U,15),"-","")
+2 SET ABMR(62,150)=$$FMT^ABMERUTL(ABMR(62,150),11)
+3 QUIT
160 ;121-127 National Drug Units
+1 Begin DoDot:1
+2 NEW X
+3 SET X=$PIECE(ABMRV(J,K,M),U,5)+.5\1
+4 IF 'X
SET X=1
+5 SET ABMR(62,160)=X
End DoDot:1
+6 SET ABMR(62,160)=$$FMT^ABMERUTL(ABMR(62,160),"7NR")
+7 QUIT
170 ;128-142 Prescription #
+1 SET ABMR(62,170)=$PIECE(ABMRV(J,K,M),U,13)
+2 SET ABMR(62,170)=$$FMT^ABMERUTL(ABMR(62,170),15)
+3 QUIT
180 ;143-150 Prescription Date
+1 SET ABMR(62,180)=$$Y2KD2^ABMDUTL($PIECE(ABMRV(J,K,M),U,10))
+2 SET ABMR(62,180)=$$FMT^ABMERUTL(ABMR(62,180),8)
+3 QUIT
190 ;151-152 Prescription # of Months
+1 SET ABMR(62,190)=""
+2 SET ABMR(62,190)=$$FMT^ABMERUTL(ABMR(62,190),"2NR")
+3 QUIT
200 ;153-153 Special Pricing Indicator
+1 SET ABMR(62,200)=""
+2 SET ABMR(62,200)=$$FMT^ABMERUTL(ABMR(62,200),1)
+3 QUIT
210 ;154-154 Copay Status Indicator
+1 SET ABMR(62,210)=""
+2 SET ABMR(62,210)=$$FMT^ABMERUTL(ABMR(62,210),1)
+3 QUIT
220 ;155-155 EPSDT Indicator
+1 SET ABMR(62,220)=""
+2 SET ABMR(62,220)=$$FMT^ABMERUTL(ABMR(62,220),1)
+3 QUIT
230 ;156-156 Family Planning Indicator
+1 SET ABMR(62,230)=""
+2 SET ABMR(62,230)=$$FMT^ABMERUTL(ABMR(62,230),1)
+3 QUIT
240 ;157-157 DME Charge Indicator
+1 SET ABMR(62,240)=""
+2 SET ABMR(62,240)=$$FMT^ABMERUTL(ABMR(62,240),1)
+3 QUIT
250 ;158-172 HPSA Facility ID
+1 SET ABMR(62,250)=""
+2 SET ABMR(62,250)=$$FMT^ABMERUTL(ABMR(62,250),15)
+3 QUIT
260 ;173-181 HPSA Facility Zip
+1 SET ABMR(62,260)=""
+2 SET ABMR(62,260)=$$FMT^ABMERUTL(ABMR(62,260),9)
+3 QUIT
270 ;182-214 Purchase Service Name
+1 SET ABMR(62,270)=""
+2 SET ABMR(62,270)=$$FMT^ABMERUTL(ABMR(62,270),33)
+3 QUIT
280 ;215-244 Purchase Service Address1
+1 SET ABMR(62,280)=""
+2 SET ABMR(62,280)=$$FMT^ABMERUTL(ABMR(62,280),30)
+3 QUIT
290 ;245-274 Purchase Service Address2
+1 SET ABMR(62,290)=""
+2 SET ABMR(62,290)=$$FMT^ABMERUTL(ABMR(62,290),30)
+3 QUIT
300 ;275-294 Purchase Service City
+1 SET ABMR(62,300)=""
+2 SET ABMR(62,300)=$$FMT^ABMERUTL(ABMR(62,300),20)
+3 QUIT
310 ;295-303 Purchase Service Zip
+1 SET ABMR(62,310)=""
+2 SET ABMR(62,310)=$$FMT^ABMERUTL(ABMR(62,310),9)
+3 QUIT
320 ;304-313 Purchase Service Phone
+1 SET ABMR(62,320)=""
+2 SET ABMR(62,320)=$$FMT^ABMERUTL(ABMR(62,320),10)
+3 QUIT
330 ;314-316 Drug Days Supply
+1 SET ABMR(62,330)=$PIECE(ABMRV(J,K,M),U,14)
+2 SET ABMR(62,330)=$$FMT^ABMERUTL(ABMR(62,330),"3NR")
+3 QUIT
340 ;317-317 Refill Indicator
+1 SET ABMR(62,340)="N"
+2 IF $PIECE(ABMRV(J,K,M),U,17)
SET ABMR(62,340)="Y"
+3 SET ABMR(62,340)=$$FMT^ABMERUTL(ABMR(62,340),1)
+4 QUIT
350 ;318-318 Brand Need Indicator
+1 SET ABMR(62,350)=""
+2 SET ABMR(62,350)=$$FMT^ABMERUTL(ABMR(62,350),1)
+3 QUIT
360 ;319-320 Filler (Local)
+1 SET ABMR(62,360)=""
+2 SET ABMR(62,360)=$$FMT^ABMERUTL(ABMR(62,360),2)
+3 QUIT
EX(ABMX,ABMY,ABMZ) ;EXTRINSIC FUNCTION HERE
+1 ;X=data element, Y=bill internal entry number
+2 SET ABMP("BDFN")=ABMY
DO SET^ABMERUTL
+3 IF '$GET(ABMP("NOFMT"))
SET ABMP("FMT")=0
+4 DO @ABMX
+5 SET Y=ABMR(62,ABMX)
+6 IF $DATA(ABMP("FMT"))
SET ABMP("FMT")=1
+7 KILL ABMR(62,ABMX),ABME,ABMX,ABMY,ABMZ,ABM
+8 QUIT Y
