ABMDE301 ; IHS/ASDST/DMJ - Page 3 - QUESTIONS - Display (cont) ;
;;2.6;IHS 3P BILLING SYSTEM;**6,13,14**;NOV 12, 2009;Build 238
; Split from ABMDE30 due to routine size
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Hearing and Vision Prescription Date
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added start/end disability dates
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Assumed/Relinquished Care dates
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added property/casualty date of 1st contact
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Patient Paid Amount
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Spinal Manipulation Cond Code Ind
; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Vision Condition Info
;IHS/SD/SDR - 2.6*13 - Added Inital Treatment Date for exp mode 35
;IHS/SD/SDR - 2.6*13 - Added Acute Manifestation Date to Spinal Manipulation Code
;IHS/SD/SDR - 2.6*13 - Added EXP35 FL17 provider questions
;IHS/SD/SDR - 2.6*14 - HEAT163697 - Added message NO NPI ENTERED for question 44
;
; *********************************************************************
W30 ;EP Hospice Employed Provider
W "Hospice Employed Prov...: "
S ABM(30)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,15)
W ABM(30)
Q
W31 ;EP Delayed Reason Code
W "Delayed Reason Code.....: "
S ABM(31)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16)
I ABM(31) D
.W $P(^ABMDCODE(+ABM(31),0),U)," "
.W $P(^ABMDCODE(+ABM(31),0),U,3)
Q
W32 ;Number of Enclosures - Radiographs/Oral Images/Model(s)
W "Number of Enclosures....: "
S ABM(32)=+$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,17) ;Radiographs
S ABM(32)=ABM(32)+($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,18)) ;+Oral Images
S ABM(32)=ABM(32)+($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,19)) ;+Models
W ABM(32)
Q
W33 ; Other Dental Charges
W "Other Dental Charges....: "
S ABM(33)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,21)
W $FN(ABM(33),",",2)
Q
;
W34 ;Reference Lab CLIA#
W "Reference Lab CLIA#.....: "
S ABM(34)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,23)
Q:ABM(34)=""
Q:$G(^ABMRLABS(ABM(34),0))=""
W:$G(ABM(34))'="" $P($G(^ABMRLABS(ABM(34),0)),U,2)," ",$P($G(^AUTTVNDR($P($G(^ABMRLABS(ABM(34),0)),U),0)),U)
Q
W35 ;In-House CLIA#
W "In-House CLIA#..........: "
S ABM(35)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,22)
W:$G(ABM(35))'="" ABM(35)
Q
;start new code abm*2.6*6 5010
W36 ;Hearing and Vision Prescription Date
;W "Hearing/Vision Prescription Date: " ;abm*2.6*13
W "Hearing/Vision Prescription Date.....: " ;abm*2.6*13
S ABM(36)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,14)
W:$G(ABM(36))'="" $$SDT^ABMDUTL(ABM(36))
Q
W37 ;Start/End Disability Dates
;W "Start/End Disability Dates: " ;abm*2.6*13
W "Start/End Disability Dates...........: " ;abm*2.6*13
S ABM(37)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,15)
W:$G(ABM(37))'="" " ST: "_$$SDT^ABMDUTL(ABM(37))
S ABM(37)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,16)
W:$G(ABM(37))'="" " END: "_$$SDT^ABMDUTL(ABM(37))
Q
W38 ;Assumed/Relinquished Care Dates
W "Assumed/Relinquished Care Dates: "
S ABM(38)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,19)
W:$G(ABM(38))'="" " Assumed: "_$$SDT^ABMDUTL(ABM(38))
S ABM(38)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,21)
W:$G(ABM(38))'="" " Relinq'ed: "_$$SDT^ABMDUTL(ABM(38))
Q
W39 ;Property/Casualty Date of 1st contact
W "Property/Casualty Date of 1st Contact: "
S ABM(39)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,22)
W:$G(ABM(39))'="" $$SDT^ABMDUTL(ABM(39))
Q
W40 ;Patient Paid Amount
;W "Patient Paid Amount: " ;abm*2.6*13
W "Patient Paid Amount.....:" ;abm*2.6*13
S ABM(40)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,23)
W:$G(ABM(40))'="" $J($FN(ABM(40),",",2),10)
Q
W41 ;Spinal Manipulation Service Info
;W "Spinal Manipulation Cond Code Ind: " ;abm*2.6*13
W "Spinal Manipulation Cond Code Ind....: " ;abm*2.6*13
S ABM(41)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,24)
W:$G(ABM(41))'="" ABM(41)
;start new abm*2.6*13
S ABM("41B")=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,27)
I ("^A^M^"[("^"_$G(ABM(41))_"^"))&($G(ABM("41B"))'="") W ?50,"Acute Date: ",$$SDT^ABMDUTL(ABM("41B"))
;end new abm*2.6*13
Q
W42 ;Vision Condition Info
W "Vision Condition Info: "
S ABM(42)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,21)
W:$G(ABM(42))'="" ABM(42)
S ABM(42)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,22)
W:$G(ABM(42))'="" " CERT: ",ABM(42)
I $D(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,0)) D
.S ABM("VIEN")=0
.W " COND IND: "
.F S ABM("VIEN")=$O(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,ABM("VIEN"))) Q:'ABM("VIEN") D
..I ABM("VIEN")'=1 W ","
..W $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,ABM("VIEN"),0)),U)
Q
;end new code 5010
;start new code abm*2.6*13 question 43
W43 ;Initial Treatment Date
W "Initial Treatment Date..: "
S ABM(43)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,23)
W:$G(ABM(43))'="" $$SDT^ABMDUTL(ABM(43))
Q
W44 ;EXP35 FL17 Provider
W "Ord/Ref/Sup Phys (FL17).: "
S ABM(44)=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,24) ;name
W:$G(ABM(44))'="" ABM(44)
I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,25)'="" D
.S ABMPT=$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,25)
.W " ("_$S(ABMPT="DN":"referring",ABMPT="DK":"ordering",ABMPT="DQ":"supervising",1:"")_")"
I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)'="" W " "_$P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)
I $P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)=""&($P($G(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,24)'="") W " <NO NPI ENTERED>" ;abm*2.6*14 HEAT163697
Q
;end new code abm*2.6*13
ABMDE301 ; IHS/ASDST/DMJ - Page 3 - QUESTIONS - Display (cont) ;
+1 ;;2.6;IHS 3P BILLING SYSTEM;**6,13,14**;NOV 12, 2009;Build 238
+2 ; Split from ABMDE30 due to routine size
+3 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Hearing and Vision Prescription Date
+4 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added start/end disability dates
+5 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Assumed/Relinquished Care dates
+6 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added property/casualty date of 1st contact
+7 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Patient Paid Amount
+8 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Spinal Manipulation Cond Code Ind
+9 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added Vision Condition Info
+10 ;IHS/SD/SDR - 2.6*13 - Added Inital Treatment Date for exp mode 35
+11 ;IHS/SD/SDR - 2.6*13 - Added Acute Manifestation Date to Spinal Manipulation Code
+12 ;IHS/SD/SDR - 2.6*13 - Added EXP35 FL17 provider questions
+13 ;IHS/SD/SDR - 2.6*14 - HEAT163697 - Added message NO NPI ENTERED for question 44
+14 ;
+15 ; *********************************************************************
W30 ;EP Hospice Employed Provider
+1 WRITE "Hospice Employed Prov...: "
+2 SET ABM(30)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,15)
+3 WRITE ABM(30)
+4 QUIT
W31 ;EP Delayed Reason Code
+1 WRITE "Delayed Reason Code.....: "
+2 SET ABM(31)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,16)
+3 IF ABM(31)
Begin DoDot:1
+4 WRITE $PIECE(^ABMDCODE(+ABM(31),0),U)," "
+5 WRITE $PIECE(^ABMDCODE(+ABM(31),0),U,3)
End DoDot:1
+6 QUIT
W32 ;Number of Enclosures - Radiographs/Oral Images/Model(s)
+1 WRITE "Number of Enclosures....: "
+2 ;Radiographs
SET ABM(32)=+$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,17)
+3 ;+Oral Images
SET ABM(32)=ABM(32)+($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,18))
+4 ;+Models
SET ABM(32)=ABM(32)+($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,19))
+5 WRITE ABM(32)
+6 QUIT
W33 ; Other Dental Charges
+1 WRITE "Other Dental Charges....: "
+2 SET ABM(33)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,21)
+3 WRITE $FNUMBER(ABM(33),",",2)
+4 QUIT
+5 ;
W34 ;Reference Lab CLIA#
+1 WRITE "Reference Lab CLIA#.....: "
+2 SET ABM(34)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,23)
+3 IF ABM(34)=""
QUIT
+4 IF $GET(^ABMRLABS(ABM(34),0))=""
QUIT
+5 IF $GET(ABM(34))'=""
WRITE $PIECE($GET(^ABMRLABS(ABM(34),0)),U,2)," ",$PIECE($GET(^AUTTVNDR($PIECE($GET(^ABMRLABS(ABM(34),0)),U),0)),U)
+6 QUIT
W35 ;In-House CLIA#
+1 WRITE "In-House CLIA#..........: "
+2 SET ABM(35)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),9)),U,22)
+3 IF $GET(ABM(35))'=""
WRITE ABM(35)
+4 QUIT
+5 ;start new code abm*2.6*6 5010
W36 ;Hearing and Vision Prescription Date
+1 ;W "Hearing/Vision Prescription Date: " ;abm*2.6*13
+2 ;abm*2.6*13
WRITE "Hearing/Vision Prescription Date.....: "
+3 SET ABM(36)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,14)
+4 IF $GET(ABM(36))'=""
WRITE $$SDT^ABMDUTL(ABM(36))
+5 QUIT
W37 ;Start/End Disability Dates
+1 ;W "Start/End Disability Dates: " ;abm*2.6*13
+2 ;abm*2.6*13
WRITE "Start/End Disability Dates...........: "
+3 SET ABM(37)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,15)
+4 IF $GET(ABM(37))'=""
WRITE " ST: "_$$SDT^ABMDUTL(ABM(37))
+5 SET ABM(37)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,16)
+6 IF $GET(ABM(37))'=""
WRITE " END: "_$$SDT^ABMDUTL(ABM(37))
+7 QUIT
W38 ;Assumed/Relinquished Care Dates
+1 WRITE "Assumed/Relinquished Care Dates: "
+2 SET ABM(38)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,19)
+3 IF $GET(ABM(38))'=""
WRITE " Assumed: "_$$SDT^ABMDUTL(ABM(38))
+4 SET ABM(38)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,21)
+5 IF $GET(ABM(38))'=""
WRITE " Relinq'ed: "_$$SDT^ABMDUTL(ABM(38))
+6 QUIT
W39 ;Property/Casualty Date of 1st contact
+1 WRITE "Property/Casualty Date of 1st Contact: "
+2 SET ABM(39)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,22)
+3 IF $GET(ABM(39))'=""
WRITE $$SDT^ABMDUTL(ABM(39))
+4 QUIT
W40 ;Patient Paid Amount
+1 ;W "Patient Paid Amount: " ;abm*2.6*13
+2 ;abm*2.6*13
WRITE "Patient Paid Amount.....:"
+3 SET ABM(40)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,23)
+4 IF $GET(ABM(40))'=""
WRITE $JUSTIFY($FNUMBER(ABM(40),",",2),10)
+5 QUIT
W41 ;Spinal Manipulation Service Info
+1 ;W "Spinal Manipulation Cond Code Ind: " ;abm*2.6*13
+2 ;abm*2.6*13
WRITE "Spinal Manipulation Cond Code Ind....: "
+3 SET ABM(41)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,24)
+4 IF $GET(ABM(41))'=""
WRITE ABM(41)
+5 ;start new abm*2.6*13
+6 SET ABM("41B")=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),7)),U,27)
+7 IF ("^A^M^"[("^"_$GET(ABM(41))_"^"))&($GET(ABM("41B"))'="")
WRITE ?50,"Acute Date: ",$$SDT^ABMDUTL(ABM("41B"))
+8 ;end new abm*2.6*13
+9 QUIT
W42 ;Vision Condition Info
+1 WRITE "Vision Condition Info: "
+2 SET ABM(42)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,21)
+3 IF $GET(ABM(42))'=""
WRITE ABM(42)
+4 SET ABM(42)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,22)
+5 IF $GET(ABM(42))'=""
WRITE " CERT: ",ABM(42)
+6 IF $DATA(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,0))
Begin DoDot:1
+7 SET ABM("VIEN")=0
+8 WRITE " COND IND: "
+9 FOR
SET ABM("VIEN")=$ORDER(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,ABM("VIEN")))
IF 'ABM("VIEN")
QUIT
Begin DoDot:2
+10 IF ABM("VIEN")'=1
WRITE ","
+11 WRITE $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8.5,ABM("VIEN"),0)),U)
End DoDot:2
End DoDot:1
+12 QUIT
+13 ;end new code 5010
+14 ;start new code abm*2.6*13 question 43
W43 ;Initial Treatment Date
+1 WRITE "Initial Treatment Date..: "
+2 SET ABM(43)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,23)
+3 IF $GET(ABM(43))'=""
WRITE $$SDT^ABMDUTL(ABM(43))
+4 QUIT
W44 ;EXP35 FL17 Provider
+1 WRITE "Ord/Ref/Sup Phys (FL17).: "
+2 ;name
SET ABM(44)=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,24)
+3 IF $GET(ABM(44))'=""
WRITE ABM(44)
+4 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,25)'=""
Begin DoDot:1
+5 SET ABMPT=$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,25)
+6 WRITE " ("_$SELECT(ABMPT="DN":"referring",ABMPT="DK":"ordering",ABMPT="DQ":"supervising",1:"")_")"
End DoDot:1
+7 IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)'=""
WRITE " "_$PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)
+8 ;abm*2.6*14 HEAT163697
IF $PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,26)=""&($PIECE($GET(^ABMDCLM(DUZ(2),ABMP("CDFN"),8)),U,24)'="")
WRITE " <NO NPI ENTERED>"
+9 QUIT
+10 ;end new code abm*2.6*13
