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

ABME8CAS.m

Go to the documentation of this file.
  1. ABME8CAS ; IHS/ASDST/DMJ - 837 CAS Segment
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;Transaction Set Header
  1. ;
  1. ; IHS/SD/SDR - v2.5 p13 - IM25471
  1. ; Added code for CO when SAR=A2
  1. ;
  1. EP ;EP - START HERE
  1. ; for consistency with other routines
  1. K ABMREC("CAS"),ABMR("CAS")
  1. S ABME("RTYPE")="CAS"
  1. S ABMCNT=1
  1. D LOOP
  1. K ABME,ABM
  1. Q
  1. LOOP ;LOOP HERE
  1. F I=10:10:200 D
  1. .D @I
  1. .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
  1. .I $G(ABMREC("CAS"))'="" S ABMREC("CAS")=ABMREC("CAS")_"*"
  1. .S ABMREC("CAS")=$G(ABMREC("CAS"))_ABMR("CAS",I)
  1. Q
  1. 10 ;segment
  1. S ABMR("CAS",10)="CAS"
  1. Q
  1. 20 ;CAS01 - Claim Adjustment Group Code
  1. S ABMR("CAS",20)=""
  1. S ABMR("CAS",20)=ABML
  1. Q
  1. 30 ;CAS02 - Claim Adjustment Reason Code
  1. S ABMR("CAS",30)=""
  1. S ABMR("CAS",30)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 40 ;CAS03 - Monetary Amount
  1. S ABMR("CAS",40)=""
  1. S ABMR("CAS",40)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 50 ;CAS04 - Quantity
  1. S ABMR("CAS",50)=""
  1. S ABMR("CAS",50)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q
  1. 60 ;CAS05 - Claim Adjustment Reason Code
  1. S ABMR("CAS",60)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",60)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 70 ;CAS06 - Monetary Amount
  1. S ABMR("CAS",70)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",70)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 80 ;CAS07 - Quantity
  1. S ABMR("CAS",80)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",80)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q
  1. 90 ;CAS08 - Claim Adjustment Reason Code
  1. S ABMR("CAS",90)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",90)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 100 ;CAS09 - Monetary Amount
  1. S ABMR("CAS",100)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",100)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 110 ;CAS10 - Quantity
  1. S ABMR("CAS",110)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",110)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q
  1. 120 ;CAS11 - Claim Adjustment Reason Code
  1. S ABMR("CAS",120)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",120)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 130 ;CAS12 - Monetary Amount
  1. S ABMR("CAS",130)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",130)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 140 ;CAS13 - Quantity
  1. S ABMR("CAS",140)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",140)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q
  1. 150 ;CAS14 - Claim Adjustment Reason Code
  1. S ABMR("CAS",150)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",150)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 160 ;CAS15 - Monetary Amount
  1. S ABMR("CAS",160)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",160)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 170 ;CAS16 - Quantity
  1. S ABMR("CAS",170)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",170)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q
  1. 180 ;CAS17 - Claim Adjustment Reason Code
  1. S ABMR("CAS",180)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",180)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U)
  1. Q
  1. 190 ;CAS18 - Monetary Amount
  1. S ABMR("CAS",190)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",190)=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. I ABML="PR" S ABMF2AMT=$FN($P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,2),"-")
  1. Q
  1. 200 ;CAS19 - Quantity
  1. S ABMR("CAS",200)=""
  1. Q:'$D(ABMP(+ABMLINE,ABML,ABMCNT))
  1. S ABMR("CAS",200)=$P($G(ABMP(+ABMLINE,ABML,ABMCNT)),U,3)
  1. S ABMCNT=ABMCNT+1
  1. Q