Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABMEFB0

ABMEFB0.m

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