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

ABMER40.m

Go to the documentation of this file. 
  1. ABMER40 ; IHS/ASDST/DMJ - UB92 EMC RECORD 40 (Claim Data) ; 
  1.  ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1.  ;Original;DMJ;08/18/95 10:39 AM
  1.  ;
  1.  ; IHS/SD/SDR - v2.5 p11 - NPI
  1.  ;
  1. START ;START HERE
  1.  K ABMR(40),ABMREC(40)
  1.  S ABME("RTYPE")=40
  1.  D SET^ABMERUTL
  1.  S ABME("S#")=1
  1.  D LOOP
  1.  D S90^ABMERUTL
  1.  K ABM
  1.  Q
  1.  ;
  1. LOOP ;LOOP HERE
  1.  D ^ABMER40A
  1.  F I=180:10:340 D
  1.  .D @I
  1.  .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),40,I)) D @(^(I))
  1.  .I '$G(ABMP("NOFMT")) S ABMREC(40,ABME("S#"))=$G(ABMREC(40,ABME("S#")))_ABMR(40,I)
  1.  Q
  1.  ;
  1. 180 ;Occurrence Code 6 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  ; form locator #33b
  1.  D GET51
  1.  S ABMR(40,180)=$P($G(ABM(51,6)),U)
  1.  S ABMR(40,180)=$$FMT^ABMERUTL(ABMR(40,180),"2")
  1.  Q
  1.  ;
  1. 190 ;Occurrence Date 6 (SOURCE: FILE=9002274.4051, FIELD=.02)     
  1.  ; form locator #33b
  1.  D GET51
  1.  S Y=$P($G(ABM(51,6)),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,190)=Y
  1.  S ABMR(40,190)=$$FMT^ABMERUTL(ABMR(40,190),"6")
  1.  Q
  1.  ;
  1. 200 ;Occurrence Code 7 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  ; form locator #34b
  1.  D GET51
  1.  S ABMR(40,200)=$P($G(ABM(51,7)),U)
  1.  S ABMR(40,200)=$$FMT^ABMERUTL(ABMR(40,200),"2")
  1.  Q
  1.  ;
  1. 210 ;Occurrence Date 7 (SOURCE: FILE=9002274.4051, FIELD=.02)
  1.  ; form locator #34b
  1.  D GET51
  1.  S Y=$P($G(ABM(51,7)),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,210)=Y
  1.  S ABMR(40,210)=$$FMT^ABMERUTL(ABMR(40,210),"6")
  1.  Q
  1.  ;
  1. 220 ;Occurrence Code 8 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  ; form locator #35b
  1.  D GET51
  1.  S ABMR(40,220)=$P($G(ABM(51,8)),U)
  1.  S ABMR(40,220)=$$FMT^ABMERUTL(ABMR(40,220),"2")
  1.  Q
  1.  ;
  1. 230 ;Occurrence Date 8 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  ; form locator #35b
  1.  D GET51
  1.  S Y=$P($G(ABM(51,8)),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,230)=Y
  1.  S ABMR(40,230)=$$FMT^ABMERUTL(ABMR(40,230),"6")
  1.  Q
  1.  ;
  1. 240 ;Occurrence Code 9 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  D GET51
  1.  S ABMR(40,240)=$P($G(ABM(51,9)),U)
  1.  S ABMR(40,240)=$$FMT^ABMERUTL(ABMR(40,240),"2")
  1.  Q
  1.  ;
  1. 250 ;Occurrence Date 9 (SOURCE: FILE=9002274.4051, FIELD=.02)
  1.  D GET51
  1.  S Y=$P($G(ABM(51,9)),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,250)=Y
  1.  S ABMR(40,250)=$$FMT^ABMERUTL(ABMR(40,250),"6")
  1.  Q
  1.  ;
  1. 260 ;Occurrence Code 10 (SOURCE: FILE=9002274.4051, FIELD=.01)
  1.  D GET51
  1.  S ABMR(40,260)=$P($G(ABM(51,10)),U)
  1.  S ABMR(40,260)=$$FMT^ABMERUTL(ABMR(40,260),"2")
  1.  Q
  1.  ;
  1. 270 ;Occurrence Date 10 (SOURCE FILE=9002274.4051, FIELD=.02)
  1.  D GET51
  1.  S Y=$P($G(ABM(51,10)),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,270)=Y
  1.  S ABMR(40,270)=$$FMT^ABMERUTL(ABMR(40,270),"6")
  1.  Q
  1.  ;
  1. 280 ;Occurrence Span Code 1 (SOURCE: FILE=9002274.4057, FIELD=.01)
  1.  ; form locator #35a
  1.  D GET57
  1.  S ABMR(40,280)=$P(ABM(57,1),U)
  1.  S ABMR(40,280)=$$FMT^ABMERUTL(ABMR(40,280),2)
  1.  Q
  1.  ;
  1. 290 ;Occurrence Span From Date 1 (SOURCE: FILE=9002274.4057, FIELD=.02)
  1.  ; form locator #35a
  1.  D GET57
  1.  S Y=$P(ABM(57,1),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,290)=Y
  1.  S ABMR(40,290)=$$FMT^ABMERUTL(ABMR(40,290),"6")
  1.  Q
  1.  ;
  1. 300 ;Occurrence Span Through Date 1 (SOURCE: FILE=9002274.4057, FIELD=.03)
  1.  ; form locator #35a
  1.  D GET57
  1.  S Y=$P(ABM(57,1),"^",3)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,300)=Y
  1.  S ABMR(40,300)=$$FMT^ABMERUTL(ABMR(40,300),"6")
  1.  Q
  1.  ;
  1. 310 ;Occurrence Span Code 2 (SOURCE: FILE=9002274.4057, FIELD=.01)
  1.  ; form locator #36a
  1.  D GET57
  1.  S ABMR(40,310)=$P(ABM(57,2),U)
  1.  S ABMR(40,310)=$$FMT^ABMERUTL(ABMR(40,310),2)
  1.  Q
  1.  ;
  1. 320 ;Occurrence Span From Date 2 (SOURCE: FILE=9002274.4057, FIELD=.02)
  1.  ; form locator #36a
  1.  D GET57
  1.  S Y=$P(ABM(57,2),"^",2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,320)=Y
  1.  S ABMR(40,320)=$$FMT^ABMERUTL(ABMR(40,320),"6")
  1.  Q
  1.  ;
  1. 330 ;Occurrence Span Through Date 2 (SOURCE: FILE=9002274.4057, FIELD=.03)
  1.  ; form locator #36a
  1.  D GET57
  1.  S Y=$P(ABM(57,2),"^",3)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,330)=Y
  1.  S ABMR(40,330)=$$FMT^ABMERUTL(ABMR(40,330),"6")
  1.  Q
  1.  ;
  1. 340 ;Filler (National Use)
  1.  S ABMR(40,340)=""
  1.  S ABMR(40,340)=$$FMT^ABMERUTL(ABMR(40,340),3)
  1.  Q
  1.  ;
  1. 350 ;Occurrence Span Code 3 (SOURCE: FILE=9002274.4057, FIELD=.01)
  1.  ; form locator #35b
  1.  D GET57
  1.  S ABMR(40,350)=$P($G(ABM(57,3)),U)
  1.  S ABMR(40,350)=$$FMT^ABMERUTL(ABMR(40,350),2)
  1.  Q
  1.  ;
  1. 360 ;Occurrence Span From Date 2 (SOURCE: FILE=9002274.4057, FIELD=.02)
  1.  ; form locator #35b
  1.  D GET57
  1.  S Y=$P($G(ABM(57,3)),U,2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,360)=Y
  1.  S ABMR(40,360)=$$FMT^ABMERUTL(ABMR(40,360),"6")
  1.  Q
  1.  ;
  1. 370 ;Occurrence Span Through Date 2 (SOURCE: FILE=9002274.4057, FIELD=.03)
  1.  ; form locator #35b
  1.  D GET57
  1.  S Y=$P($G(ABM(57,3)),U,3)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,370)=Y
  1.  S ABMR(40,370)=$$FMT^ABMERUTL(ABMR(40,370),"6")
  1.  Q
  1.  ;
  1. 380 ;Occurrence Span Code 2 (SOURCE: FILE=9002274.4057, FIELD=.01)
  1.  ; form locator #36b
  1.  D GET57
  1.  S ABMR(40,380)=$P($G(ABM(57,4)),U)
  1.  S ABMR(40,380)=$$FMT^ABMERUTL(ABMR(40,380),2)
  1.  Q
  1.  ;
  1. 390 ;Occurrence Span From Date 2 (SOURCE: FILE=9002274.4057, FIELD=.02)
  1.  ; form locator #36b
  1.  D GET57
  1.  S Y=$P($G(ABM(57,4)),U,2)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,390)=Y
  1.  S ABMR(40,390)=$$FMT^ABMERUTL(ABMR(40,390),"6")
  1.  Q
  1.  ;
  1. 400 ;Occurrence Span Through Date 2 (SOURCE: FILE=9002274.4057, FIELD=.03)
  1.  ; form locator #36b
  1.  D GET57
  1.  S Y=$P($G(ABM(57,4)),U,3)
  1.  D DFMT^ABMERUTL
  1.  S ABMR(40,400)=Y
  1.  S ABMR(40,400)=$$FMT^ABMERUTL(ABMR(40,400),"6")
  1.  Q
  1.  ;
  1. DIQ1 ;PULL POLICY HOLDER DATA VIA DIQ1
  1.  Q:$D(ABM(9002274.4,ABMP("BDFN"),ABME("FLD")))
  1.  N I
  1.  S DIQ="ABM("
  1.  S DIQ(0)="EI"
  1.  S DIC="^ABMDBILL(DUZ(2),"
  1.  S DA=ABMP("BDFN")
  1.  S DR=".02;.54;.55;.56;.58;.76;.77;.78;.79"
  1.  D EN^DIQ1
  1.  K DIQ
  1.  Q
  1.  ;
  1. EX(ABMX,ABMY) ;EXTRINSIC FUNCTION HERE
  1.  ;
  1.  ;  INPUT: ABMX = data element
  1.  ;            Y = bill internal entry number
  1.  ;
  1.  ; OUTPUT:    Y = bill internal entry number
  1.  ;
  1.  S ABMP("BDFN")=ABMY
  1.  D SET^ABMERUTL
  1.  I '$G(ABMP("NOFMT")) S ABMP("FMT")=0
  1.  D @ABMX
  1.  S Y=ABMR(40,ABMX)
  1.  I $D(ABMP("FMT")) S ABMP("FMT")=1
  1.  K ABMR(40,ABMX),ABME,ABMX,ABMY,ABMZ,ABM
  1.  Q Y
  1.  ;
  1. GET51 ;GET OCCURANCE CODES
  1.  Q:$D(ABM(51))
  1.  N I
  1.  S I=0,CNT=0
  1.  F  S I=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),51,I)) Q:'I  D
  1.  .S CNT=CNT+1
  1.  .S ABM(51,CNT)=^ABMDBILL(DUZ(2),ABMP("BDFN"),51,I,0)
  1.  .S $P(ABM(51,CNT),U)=$P($G(^ABMDCODE(+ABM(51,CNT),0)),U)
  1.  .S:$L(ABM(51,CNT))=1 ABM(51,CNT)="0"_ABM(51,CNT)
  1.  F I=1:1:10 I '$D(ABM(51,I)) S ABM(51,I)=""
  1.  Q
  1.  ;
  1. GET57 ;GET OCCURRENCE SPAN CODES
  1.  Q:$D(ABM(57))
  1.  N I
  1.  S I=0,CNT=0
  1.  F  S I=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),57,I)) Q:'I  D
  1.  .S CNT=CNT+1
  1.  .S ABM(57,CNT)=^ABMDBILL(DUZ(2),ABMP("BDFN"),57,I,0)
  1.  .S $P(ABM(57,CNT),U)=$P($G(^ABMDCODE(+ABM(57,CNT),0)),U)
  1.  F I=1,2 I '$D(ABM(57,I)) S ABM(57,I)=""
  1.  Q