- ABMDE3X ; IHS/ASDST/DMJ - Edit Page 3 - ERROR CHK ;
- ;;2.6;IHS 3P BILLING SYSTEM;**6,8,10,13,14**;NOV 12, 2009;Build 238
- ;
- ; 03/10/04 V2.5 Patch 5 - 837 Modifications - Added errror code 192 for imprecise accident dates
- ; IHS/SD/SDR - v2.5 p5 - 5/17/2004 - Added code to check for error 193
- ; IHS/SD/SDR - v2.5 p6 - 7/16/04 - Modified code for 193; added code for 201 and 202
- ; IHS/SD/SDR - v2.5 p8 - IM15677 - Modified to only display error 193 when export mode is 837
- ; IHS/SD/SDR - v2.5 p8 - IM12246/IM17548 - Added code for 199 and 200
- ; IHS/SD/SDR - v2.5 p9 - IM19291 - Error 215 added for Supervising Provider UPIN
- ; IHS/SD/SDR - v2.5 p9 - IM16729 - Correction ot taxonomy lookup (<SUBSCRIPT>ABMDE3X+29^ABMDE3X
- ; IHS/SD/SDR - v2.5 p9 - IM18516 - Delayed Reason Code
- ; IHS/SD/SDR - v2.5 p11 - NPI
- ; IHS/SD/SDR -v2.5 p12 - IM23474 - Added warning if clinic is ER and admitting DX is missing
- ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added warning 238 if both disability dates aren't populated
- ;IHS/SD/SDR - 2.6*13 - Added check for new export mode 35
- ;IHS/SD/SDR - 2.6*14 - ICD10 - admit dx error checks (245 and 246) if wrong code set is used.
- ;
- ; Rel of info, Assign of Benefits
- D QUES^ABMDE3:'$D(ABM("QU"))
- I $D(ABM("QU",1)),$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),$P(^(7),U,4)'="Y" S ABME(58)=""
- I $D(ABM("QU",2)),$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),$P(^(7),U,5)'="Y" S ABME(59)=""
- ;start new abm*2.6*14 ICD10 admit dx
- I $D(ABM("QU",24)) D
- .Q:(+$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9)=0) ;no admit dx
- .I ((ABMP("ICD10")>ABMP("VDT"))&($P($$DX^ABMCVAPI($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9),ABMP("VDT")),U,20)=30)) S ABME(245)="" ;should be ICD9, but is ICD10
- .I ((ABMP("ICD10")<ABMP("VDT"))&($P($$DX^ABMCVAPI($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9),ABMP("VDT")),U,20)'=30)) S ABME(246)="" ;should be ICD10, but is ICD9
- ;end new ICD10 admit dx
- ; Having a date of accident and accident type determine Accident Related
- I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,3) D
- .I ($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,3)=5)&($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,2)=""!($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,4)="")!($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,16)="")) S ABME(19)="" ;abm*2.6*10 HEAT72979
- .I +$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,2),$E($P(^(8),U,2),6,7)="00" S ABME(192)=""
- I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,8)'="" D
- .;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23) D ;abm*2.6*8 5010
- .I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33) D ;abm*2.6*8 5010
- ..I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,11)'="",(($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)="")&($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,14)="")&($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,15)="")) S ABME(193)=""
- ..I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)'="" D ;Person class
- ...I $G(^ABMPTAX("AUSC",$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)))="" S ABME(201)=""
- ..I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,14)'="" D ;Provider Class
- ...S ABMPTAX=$P($G(^DIC(7,$P(^ABMDCLM(DUZ(2),ABMP("CDFN"),8),U,14),9999999)),U)
- ...I $G(ABMPTAX)="" S ABME(202)=""
- ...I $G(ABMPTAX),$G(^ABMPTAX("A7",ABMPTAX))="" S ABME(202)=""
- .;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29) D ;abm*2.6*8 5010
- .;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33) D ;abm*2.6*8 5010 ;abm*2.6*13 export mode 35
- .I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33)!(ABMP("EXP")=35) D ;abm*2.6*8 5010 ;abm*2.6*13 export mode 35
- ..S ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
- ..I ABMNPIU="N"!(ABMNPIU="B"),$D(ABM("QU",12)),($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,17)="") S ABME(223)="" ;Ref prv NPI missing
- ..I ABMNPIU="N"!(ABMNPIU="B"),$D(ABM("QU",25)),($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,12)'=""),($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,25)="") S ABME(224)="" ;sup prv NPI missing
- S ABMLABT=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),37,0)) ;check for lab charges
- I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,8)="",(+ABMLABT>0),(ABMP("EXP")=22!(ABMP("EXP")=23)) S ABME(199)=""
- I ($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,22)="")&($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,23)="") D
- .I ABMP("EXP")'=3,(ABMP("EXP")'=14),(ABMP("EXP")'=22),(ABMP("EXP")'=23),(ABMP("EXP")'=25) Q
- .I +ABMLABT>0 S ABME(200)=""
- S ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
- I ABMNPIU'="N",($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,12)'=""),($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,24)=""),("^3^14^15^22"[ABMP("EXP")) S ABME(215)=""
- I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16)'="" D
- .I $P($G(^ABMDCODE($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16),0)),U)=11 S ABME(198)=""
- .I '$D(^ABMDCLM(DUZ(2),ABMP("CDFN"),61,0)) S ABME(214)="" ;no remarks to go w/delayed reason code
- I $P($G(^DIC(40.7,ABMP("CLN"),0)),U)="EMERGENCY MEDICINE",($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9)="") S ABME(230)=""
- ;start new code abm*2.6*6 5010
- S ABMP("DISSTDT")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,15)
- S ABMP("DISENDDT")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,16)
- I $G(ABMP("DISSTDT"))'=""&($G(ABMP("DISENDDT"))="") S ABME(238)=""
- I $G(ABMP("DISSTDT"))=""&($G(ABMP("DISENDDT"))'="") S ABME(238)=""
- ;end new code 5010
- ;
- XIT Q
- ERR D ABMDE3X
- S ABME("TITL")="PAGE 3 - QUESTIONS"
- G XIT
- ABMDE3X ; IHS/ASDST/DMJ - Edit Page 3 - ERROR CHK ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**6,8,10,13,14**;NOV 12, 2009;Build 238
- +2 ;
- +3 ; 03/10/04 V2.5 Patch 5 - 837 Modifications - Added errror code 192 for imprecise accident dates
- +4 ; IHS/SD/SDR - v2.5 p5 - 5/17/2004 - Added code to check for error 193
- +5 ; IHS/SD/SDR - v2.5 p6 - 7/16/04 - Modified code for 193; added code for 201 and 202
- +6 ; IHS/SD/SDR - v2.5 p8 - IM15677 - Modified to only display error 193 when export mode is 837
- +7 ; IHS/SD/SDR - v2.5 p8 - IM12246/IM17548 - Added code for 199 and 200
- +8 ; IHS/SD/SDR - v2.5 p9 - IM19291 - Error 215 added for Supervising Provider UPIN
- +9 ; IHS/SD/SDR - v2.5 p9 - IM16729 - Correction ot taxonomy lookup (<SUBSCRIPT>ABMDE3X+29^ABMDE3X
- +10 ; IHS/SD/SDR - v2.5 p9 - IM18516 - Delayed Reason Code
- +11 ; IHS/SD/SDR - v2.5 p11 - NPI
- +12 ; IHS/SD/SDR -v2.5 p12 - IM23474 - Added warning if clinic is ER and admitting DX is missing
- +13 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added warning 238 if both disability dates aren't populated
- +14 ;IHS/SD/SDR - 2.6*13 - Added check for new export mode 35
- +15 ;IHS/SD/SDR - 2.6*14 - ICD10 - admit dx error checks (245 and 246) if wrong code set is used.
- +16 ;
- +17 ; Rel of info, Assign of Benefits
- +18 IF '$DATA(ABM("QU"))
- DO QUES^ABMDE3
- +19 IF $DATA(ABM("QU",1))
- IF $DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),7))
- IF $PIECE(^(7),U,4)'="Y"
- SET ABME(58)=""
- +20 IF $DATA(ABM("QU",2))
- IF $DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),7))
- IF $PIECE(^(7),U,5)'="Y"
- SET ABME(59)=""
- +21 ;start new abm*2.6*14 ICD10 admit dx
- +22 IF $DATA(ABM("QU",24))
- Begin DoDot:1
- +23 ;no admit dx
- IF (+$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9)=0)
- QUIT
- +24 ;should be ICD9, but is ICD10
- IF ((ABMP("ICD10")>ABMP("VDT"))&($PIECE($$DX^ABMCVAPI($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9),ABMP("VDT")),U,20)=30))
- SET ABME(245)=""
- +25 ;should be ICD10, but is ICD9
- IF ((ABMP("ICD10")<ABMP("VDT"))&($PIECE($$DX^ABMCVAPI($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9),ABMP("VDT")),U,20)'=30))
- SET ABME(246)=""
- End DoDot:1
- +26 ;end new ICD10 admit dx
- +27 ; Having a date of accident and accident type determine Accident Related
- +28 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,3)
- Begin DoDot:1
- +29 ;abm*2.6*10 HEAT72979
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,3)=5)&($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,2)=""!($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,4)="")!($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,16)=""))
- SET ABME(19)=""
- +30 IF +$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,2)
- IF $EXTRACT($PIECE(^(8),U,2),6,7)="00"
- SET ABME(192)=""
- End DoDot:1
- +31 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,8)'=""
- Begin DoDot:1
- +32 ;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23) D ;abm*2.6*8 5010
- +33 ;abm*2.6*8 5010
- IF ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33)
- Begin DoDot:2
- +34 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,11)'=""
- IF (($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)="")&($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,14)="")&($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,15)=""))
- SET ABME(193)=""
- +35 ;Person class
- IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)'=""
- Begin DoDot:3
- +36 IF $GET(^ABMPTAX("AUSC",$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,13)))=""
- SET ABME(201)=""
- End DoDot:3
- +37 ;Provider Class
- IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,14)'=""
- Begin DoDot:3
- +38 SET ABMPTAX=$PIECE($GET(^DIC(7,$PIECE(^ABMDCLM(DUZ(2),ABMP("CDFN"),8),U,14),9999999)),U)
- +39 IF $GET(ABMPTAX)=""
- SET ABME(202)=""
- +40 IF $GET(ABMPTAX)
- IF $GET(^ABMPTAX("A7",ABMPTAX))=""
- SET ABME(202)=""
- End DoDot:3
- End DoDot:2
- +41 ;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29) D ;abm*2.6*8 5010
- +42 ;I ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33) D ;abm*2.6*8 5010 ;abm*2.6*13 export mode 35
- +43 ;abm*2.6*8 5010 ;abm*2.6*13 export mode 35
- IF ABMP("EXP")=21!(ABMP("EXP")=22)!(ABMP("EXP")=23)!(ABMP("EXP")=27)!(ABMP("EXP")=28)!(ABMP("EXP")=29)!(ABMP("EXP")=31)!(ABMP("EXP")=32)!(ABMP("EXP")=33)!(ABMP("EXP")=35)
- Begin DoDot:2
- +44 SET ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
- +45 ;Ref prv NPI missing
- IF ABMNPIU="N"!(ABMNPIU="B")
- IF $DATA(ABM("QU",12))
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,17)="")
- SET ABME(223)=""
- +46 ;sup prv NPI missing
- IF ABMNPIU="N"!(ABMNPIU="B")
- IF $DATA(ABM("QU",25))
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,12)'="")
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,25)="")
- SET ABME(224)=""
- End DoDot:2
- End DoDot:1
- +47 ;check for lab charges
- SET ABMLABT=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),37,0))
- +48 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,8)=""
- IF (+ABMLABT>0)
- IF (ABMP("EXP")=22!(ABMP("EXP")=23))
- SET ABME(199)=""
- +49 IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,22)="")&($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,23)="")
- Begin DoDot:1
- +50 IF ABMP("EXP")'=3
- IF (ABMP("EXP")'=14)
- IF (ABMP("EXP")'=22)
- IF (ABMP("EXP")'=23)
- IF (ABMP("EXP")'=25)
- QUIT
- +51 IF +ABMLABT>0
- SET ABME(200)=""
- End DoDot:1
- +52 SET ABMNPIU=$$NPIUSAGE^ABMUTLF(ABMP("LDFN"),ABMP("INS"))
- +53 IF ABMNPIU'="N"
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,12)'="")
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,24)="")
- IF ("^3^14^15^22"[ABMP("EXP"))
- SET ABME(215)=""
- +54 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16)'=""
- Begin DoDot:1
- +55 IF $PIECE($GET(^ABMDCODE($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16),0)),U)=11
- SET ABME(198)=""
- +56 ;no remarks to go w/delayed reason code
- IF '$DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),61,0))
- SET ABME(214)=""
- End DoDot:1
- +57 IF $PIECE($GET(^DIC(40.7,ABMP("CLN"),0)),U)="EMERGENCY MEDICINE"
- IF ($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),5)),U,9)="")
- SET ABME(230)=""
- +58 ;start new code abm*2.6*6 5010
- +59 SET ABMP("DISSTDT")=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,15)
- +60 SET ABMP("DISENDDT")=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,16)
- +61 IF $GET(ABMP("DISSTDT"))'=""&($GET(ABMP("DISENDDT"))="")
- SET ABME(238)=""
- +62 IF $GET(ABMP("DISSTDT"))=""&($GET(ABMP("DISENDDT"))'="")
- SET ABME(238)=""
- +63 ;end new code 5010
- +64 ;
- XIT QUIT
- ERR DO ABMDE3X
- +1 SET ABME("TITL")="PAGE 3 - QUESTIONS"
- +2 GOTO XIT
