ABME8CRC ; IHS/ASDST/DMJ - 837 CRC Segment
;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
;Transaction Set Header
;
; IHS/SD/SDR v2.5 p8 - task 6
; Added code for ambulance
;
; IHS/SD/SDR - v2.5 p10 - IM20076
; Added code for EPSDT
;
EP ;EP - START HERE
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 $G(ABMP("CLIN"))="A3" S ABMR("CRC",20)="07"
I $G(ABMSPIEN)'="" S ABMR("CRC",20)="ZZ"
Q
30 ;CRC02 - Yes/No Condition or Response Code
S ABMR("CRC",30)=""
I $G(ABMP("CLIN"))="A3" S ABMR("CRC",30)=$P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,15)
I $G(ABMSPIEN)'="" 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 ABMR("CRC",30)="Y",(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 $G(ABMPSIEN)'="" 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 ABMR("CRC",30)="Y",(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 $G(ABMSPIEN)'="" 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 ABMR("CRC",30)="Y",(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 $G(ABMSPIEN)'="" 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 ABMR("CRC",30)="Y",(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)
Q
80 ;CRC07 - Condition Indicator
S ABMR("CRC",80)=""
I ABMR("CRC",30)="Y",(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)
Q
ABME8CRC ; IHS/ASDST/DMJ - 837 CRC Segment
+1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
+2 ;Transaction Set Header
+3 ;
+4 ; IHS/SD/SDR v2.5 p8 - task 6
+5 ; Added code for ambulance
+6 ;
+7 ; IHS/SD/SDR - v2.5 p10 - IM20076
+8 ; Added code for EPSDT
+9 ;
EP ;EP - START HERE
+1 KILL ABMREC("CRC"),ABMR("CRC")
+2 SET ABME("RTYPE")="CRC"
+3 DO LOOP
+4 KILL ABME,ABM
+5 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 $GET(ABMP("CLIN"))="A3"
SET ABMR("CRC",20)="07"
+2 IF $GET(ABMSPIEN)'=""
SET ABMR("CRC",20)="ZZ"
+3 QUIT
30 ;CRC02 - Yes/No Condition or Response Code
+1 SET ABMR("CRC",30)=""
+2 IF $GET(ABMP("CLIN"))="A3"
SET ABMR("CRC",30)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),12)),U,15)
+3 IF $GET(ABMSPIEN)'=""
SET ABMR("CRC",30)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,0)),U,2)
+4 QUIT
40 ;CRC03 - Condition Indicator
+1 SET ABMR("CRC",40)=""
+2 IF ABMR("CRC",30)="Y"
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 $GET(ABMPSIEN)'=""
Begin DoDot:1
+7 IF ABMR("CRC",30)="N"
SET ABMR("CRC",40)="NU"
QUIT
+8 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,0))
+9 IF +ABMRIEN=0
QUIT
+10 SET ABMR("CRC",40)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
End DoDot:1
+11 QUIT
50 ;CRC04 - Condition Indicator
+1 SET ABMR("CRC",50)=""
+2 IF ABMR("CRC",30)="Y"
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 $GET(ABMSPIEN)'=""
Begin DoDot:1
+8 IF +$GET(ABMRIEN)=0
QUIT
+9 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
+10 IF +ABMRIEN=0
QUIT
+11 SET ABMR("CRC",50)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
End DoDot:1
+12 QUIT
60 ;CRC05 - Condition Indicator
+1 SET ABMR("CRC",60)=""
+2 IF ABMR("CRC",30)="Y"
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 $GET(ABMSPIEN)'=""
Begin DoDot:1
+8 IF +$GET(ABMRIEN)=0
QUIT
+9 SET ABMRIEN=$ORDER(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN))
+10 IF +ABMRIEN=0
QUIT
+11 SET ABMR("CRC",60)=$PIECE($GET(^ABMDBILL(DUZ(2),ABMP("BDFN"),59,ABMSPIEN,1,ABMRIEN,0)),U)
End DoDot:1
+12 QUIT
70 ;CRC06 - Condition Indicator
+1 SET ABMR("CRC",70)=""
+2 IF ABMR("CRC",30)="Y"
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 QUIT
80 ;CRC07 - Condition Indicator
+1 SET ABMR("CRC",80)=""
+2 IF ABMR("CRC",30)="Y"
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 QUIT
