- ABME5CRC ; IHS/ASDST/DMJ - 837 CRC Segment
- ;;2.6;IHS 3P BILLING SYSTEM;**6,8**;NOV 12, 2009
- ;Transaction Set Header
- ;
- EP(ABMTYP) ;EP - START HERE
- ;ABMTYP = type of CRC to create
- K ABMREC("CRC"),ABMR("CRC")
- S ABME("RTYPE")="CRC"
- D LOOP
- K ABME,ABM
- Q
- LOOP ;LOOP HERE
- F I=10:10:80 D
- .D @I
- .I $D(^ABMEXLM("AA",+$G(ABMP("INS")),+$G(ABMP("EXP")),ABME("RTYPE"),I)) D @(^(I))
- .I $G(ABMREC("CRC"))'="" S ABMREC("CRC")=ABMREC("CRC")_"*"
- .S ABMREC("CRC")=$G(ABMREC("CRC"))_ABMR("CRC",I)
- Q
- 10 ;segment
- S ABMR("CRC",10)="CRC"
- Q
- 20 ;CRC01 - Code Category
- I ABMTYP="AMB" S ABMR("CRC",20)="07"
- I ABMTYP="VIS" S ABMR("CRC",20)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8)),U,21)
- I $G(ABMSPIEN)'="" S ABMR("CRC",20)="ZZ"
- Q
- 30 ;CRC02 - Yes/No Condition or Response Code
- S ABMR("CRC",30)=""
- I ABMTYP="AMB" S ABMR("CRC",30)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,15)
- I ABMTYP="VIS" S ABMR("CRC",30)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8)),U,22)
- I +$G(ABMSPIEN)'=0 S ABMR("CRC",30)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,0)),U,2)
- Q
- 40 ;CRC03 - Condition Indicator
- S ABMR("CRC",40)=""
- I ABMTYP="AMB",(ABMR("CRC",30)="Y") D
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,0))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",40)=$P($G(^ABMCNDIN($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- I ABMTYP="VIS" D
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,0))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",40)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- I +$G(ABMSPIEN)'=0 D
- .I ABMR("CRC",30)="N" S ABMR("CRC",40)="NU" Q
- .S ABMRIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,0))
- .Q:+ABMRIEN=0
- .S ABMR("CRC",40)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- Q
- 50 ;CRC04 - Condition Indicator
- S ABMR("CRC",50)=""
- I ABMTYP="AMB",(ABMR("CRC",30)="Y") D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",50)=$P($G(^ABMCNDIN($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- I ABMTYP="VIS" D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",50)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- I +$G(ABMSPIEN)'=0 D
- .Q:+$G(ABMRIEN)=0
- .S ABMRIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
- .Q:+ABMRIEN=0
- .S ABMR("CRC",50)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- Q
- 60 ;CRC05 - Condition Indicator
- S ABMR("CRC",60)=""
- I ABMTYP="AMB",(ABMR("CRC",30)="Y") D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",60)=$P($G(^ABMCNDIN($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- I ABMTYP="VIS" D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",60)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- I +$G(ABMSPIEN)'=0 D
- .Q:+$G(ABMRIEN)=0
- .S ABMRIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
- .Q:+ABMRIEN=0
- .S ABMR("CRC",60)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- Q
- 70 ;CRC06 - Condition Indicator
- S ABMR("CRC",70)=""
- I ABMTYP="AMB",(ABMR("CRC",30)="Y") D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",70)=$P($G(^ABMCNDIN($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- I ABMTYP="VIS" D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",70)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- Q
- 80 ;CRC07 - Condition Indicator
- S ABMR("CRC",80)=""
- I ABMTYP="AMB",(ABMR("CRC",30)="Y") D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",80)=$P($G(^ABMCNDIN($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- I ABMTYP="VIS" D
- .Q:+ABMCIEN=0
- .S ABMCIEN=$O(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- .Q:+ABMCIEN=0
- .S ABMR("CRC",80)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- Q
- ABME5CRC ; IHS/ASDST/DMJ - 837 CRC Segment
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**6,8**;NOV 12, 2009
- +2 ;Transaction Set Header
- +3 ;
- EP(ABMTYP) ;EP - START HERE
- +1 ;ABMTYP = type of CRC to create
- +2 KILL ABMREC("CRC"),ABMR("CRC")
- +3 SET ABME("RTYPE")="CRC"
- +4 DO LOOP
- +5 KILL ABME,ABM
- +6 QUIT
- LOOP ;LOOP HERE
- +1 FOR I=10:10:80
- Begin DoDot:1
- +2 DO @I
- +3 IF $DATA(^ABMEXLM("AA",+$GET(ABMP("INS")),+$GET(ABMP("EXP")),ABME("RTYPE"),I))
- DO @(^(I))
- +4 IF $GET(ABMREC("CRC"))'=""
- SET ABMREC("CRC")=ABMREC("CRC")_"*"
- +5 SET ABMREC("CRC")=$GET(ABMREC("CRC"))_ABMR("CRC",I)
- End DoDot:1
- +6 QUIT
- 10 ;segment
- +1 SET ABMR("CRC",10)="CRC"
- +2 QUIT
- 20 ;CRC01 - Code Category
- +1 IF ABMTYP="AMB"
- SET ABMR("CRC",20)="07"
- +2 IF ABMTYP="VIS"
- SET ABMR("CRC",20)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8)),U,21)
- +3 IF $GET(ABMSPIEN)'=""
- SET ABMR("CRC",20)="ZZ"
- +4 QUIT
- 30 ;CRC02 - Yes/No Condition or Response Code
- +1 SET ABMR("CRC",30)=""
- +2 IF ABMTYP="AMB"
- SET ABMR("CRC",30)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,15)
- +3 IF ABMTYP="VIS"
- SET ABMR("CRC",30)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8)),U,22)
- +4 IF +$GET(ABMSPIEN)'=0
- SET ABMR("CRC",30)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,0)),U,2)
- +5 QUIT
- 40 ;CRC03 - Condition Indicator
- +1 SET ABMR("CRC",40)=""
- +2 IF ABMTYP="AMB"
- IF (ABMR("CRC",30)="Y")
- Begin DoDot:1
- +3 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,0))
- +4 IF +ABMCIEN=0
- QUIT
- +5 SET ABMR("CRC",40)=$PIECE($GET(^ABMCNDIN($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- End DoDot:1
- +6 IF ABMTYP="VIS"
- Begin DoDot:1
- +7 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,0))
- +8 IF +ABMCIEN=0
- QUIT
- +9 SET ABMR("CRC",40)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- End DoDot:1
- +10 IF +$GET(ABMSPIEN)'=0
- Begin DoDot:1
- +11 IF ABMR("CRC",30)="N"
- SET ABMR("CRC",40)="NU"
- QUIT
- +12 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,0))
- +13 IF +ABMRIEN=0
- QUIT
- +14 SET ABMR("CRC",40)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- End DoDot:1
- +15 QUIT
- 50 ;CRC04 - Condition Indicator
- +1 SET ABMR("CRC",50)=""
- +2 IF ABMTYP="AMB"
- IF (ABMR("CRC",30)="Y")
- Begin DoDot:1
- +3 IF +ABMCIEN=0
- QUIT
- +4 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- +5 IF +ABMCIEN=0
- QUIT
- +6 SET ABMR("CRC",50)=$PIECE($GET(^ABMCNDIN($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- End DoDot:1
- +7 IF ABMTYP="VIS"
- Begin DoDot:1
- +8 IF +ABMCIEN=0
- QUIT
- +9 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- +10 IF +ABMCIEN=0
- QUIT
- +11 SET ABMR("CRC",50)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- End DoDot:1
- +12 IF +$GET(ABMSPIEN)'=0
- Begin DoDot:1
- +13 IF +$GET(ABMRIEN)=0
- QUIT
- +14 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
- +15 IF +ABMRIEN=0
- QUIT
- +16 SET ABMR("CRC",50)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- End DoDot:1
- +17 QUIT
- 60 ;CRC05 - Condition Indicator
- +1 SET ABMR("CRC",60)=""
- +2 IF ABMTYP="AMB"
- IF (ABMR("CRC",30)="Y")
- Begin DoDot:1
- +3 IF +ABMCIEN=0
- QUIT
- +4 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- +5 IF +ABMCIEN=0
- QUIT
- +6 SET ABMR("CRC",60)=$PIECE($GET(^ABMCNDIN($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- End DoDot:1
- +7 IF ABMTYP="VIS"
- Begin DoDot:1
- +8 IF +ABMCIEN=0
- QUIT
- +9 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- +10 IF +ABMCIEN=0
- QUIT
- +11 SET ABMR("CRC",60)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- End DoDot:1
- +12 IF +$GET(ABMSPIEN)'=0
- Begin DoDot:1
- +13 IF +$GET(ABMRIEN)=0
- QUIT
- +14 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
- +15 IF +ABMRIEN=0
- QUIT
- +16 SET ABMR("CRC",60)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
- End DoDot:1
- +17 QUIT
- 70 ;CRC06 - Condition Indicator
- +1 SET ABMR("CRC",70)=""
- +2 IF ABMTYP="AMB"
- IF (ABMR("CRC",30)="Y")
- Begin DoDot:1
- +3 IF +ABMCIEN=0
- QUIT
- +4 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- +5 IF +ABMCIEN=0
- QUIT
- +6 SET ABMR("CRC",70)=$PIECE($GET(^ABMCNDIN($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- End DoDot:1
- +7 IF ABMTYP="VIS"
- Begin DoDot:1
- +8 IF +ABMCIEN=0
- QUIT
- +9 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- +10 IF +ABMCIEN=0
- QUIT
- +11 SET ABMR("CRC",70)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- End DoDot:1
- +12 QUIT
- 80 ;CRC07 - Condition Indicator
- +1 SET ABMR("CRC",80)=""
- +2 IF ABMTYP="AMB"
- IF (ABMR("CRC",30)="Y")
- Begin DoDot:1
- +3 IF +ABMCIEN=0
- QUIT
- +4 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN))
- +5 IF +ABMCIEN=0
- QUIT
- +6 SET ABMR("CRC",80)=$PIECE($GET(^ABMCNDIN($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),14,ABMCIEN,0)),0)),U)
- End DoDot:1
- +7 IF ABMTYP="VIS"
- Begin DoDot:1
- +8 IF +ABMCIEN=0
- QUIT
- +9 SET ABMCIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN))
- +10 IF +ABMCIEN=0
- QUIT
- +11 SET ABMR("CRC",80)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),8.5,ABMCIEN,0)),U)
- End DoDot:1
- +12 QUIT
