- ABMDCCL2 ; IHS/ASDST/DMJ - Cancelled claims-132 Width ;
- ;;2.6;IHS 3P BILLING SYSTEM;**21**;NOV 12, 2009;Build 379
- ;Original;TMD;
- ;
- ;IHS/SD/SDR - v2.5 p10 - IM20215 - HRN not printing on report
- ;
- ;IHS/SD/SDR 2.6*21 HEAT140244 Once the original issue was fixed so this would print, it became obvious that the visit type
- ; description and the reason were running into each other. Fixed it so they had space between them.
- ;
- PRINT ;EP for printing data
- W:$D(ABM("PRINT",16)) @ABM("PRINT",16) S ABM("PG")=0 D HDB
- S (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0,(ABM("CANC"),ABM("LOC"),ABM("VT"))=""
- S ABM("Z")="TMP(""ABM-CC"","_$J,ABM="^"_ABM("Z")_")" I '$D(@ABM) Q
- F S ABM=$Q(@ABM) Q:ABM'[ABM("Z") D G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) XIT
- .I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) D SUBHD W " (cont)"
- .S ABM("T")=$P(ABM,"ABM-CC",2),ABM("TXT")=$P($P(ABM("T"),",",3,99),"""",2),ABM("TXT")=+$P(ABM("T"),",",3)_U_ABM("TXT")
- .S ABM("PDFN")=$G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0)) Q:ABM("PDFN")="" S ABM("CDT")=$P($G(^(1)),U,5)
- .I ABM("CANC")'=$P(ABM("TXT"),U) S ABM("CANC")="" D SUB,SUBHD S ABM("LOC")=""
- .I ABM("LOC")'=$P(ABM("TXT"),U,2) D SUB:ABM("LOC")]"" W:ABM("LOC")'="" ! W !?3,"Visit Location: ",$P(^DIC(4,$P(ABM("PDFN"),U,3),0),U) S ABM("VT")=""
- .S ABM("CANC")=$P(ABM("TXT"),U)
- .S ABM("LOC")=$P(ABM("TXT"),U,2)
- .I ABM("VT")'=$P(ABM("TXT"),U,3) D SUB2:ABM("VT")]"" W:ABM("VT")]"" ! W !?7,$S(ABMY("SORT")="C":" Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,3),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,3),0),U))
- .S ABM("VT")=$P(ABM("TXT"),U,3)
- .W !
- .W $E($P(^DPT($P(ABM("PDFN"),U),0),U),1,35) ;pat name
- .W ?37,$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,$P(ABM("PDFN"),U,3),0)),U,2) ;HRN
- .W ?47,$E($P(^AUTNINS($P(ABM("PDFN"),U,8),0),U),1,24) ;ins
- .W ?73,$P(ABM("TXT"),U,5) ;claim number
- .W ?81,$$SDT^ABMDUTL($P($G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0)),U,2)) ;visit date
- .I ABMY("SORT")="VT" W:+$P(ABM("PDFN"),U,10) ?92,$E($P(^DIC(40.7,$P(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0),U,6),0),U),1,18) ;clinic
- .;E W ?92,$P(^ABMDVTYP($P(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0),U,7),0),U) ;visit ;abm*2.6*21 IHS/SD/SDR HEAT140244
- .E W ?92,$E($P(^ABMDVTYP($P(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0),U,7),0),U),1,15) ;visit ;abm*2.6*21 IHS/SD/SDR HEAT140244
- .;W ?102,$E($P($G(^ABMCCLMR($P($G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),1)),U,8),0)),U),1,30) ;reason ;abm*2.6*21 IHS/SD/SDR HEAT140244
- .W ?108,$E($P($G(^ABMCCLMR($P($G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),1)),U,8),0)),U),1,23) ;reason ;abm*2.6*21 IHS/SD/SDR HEAT140244
- .S ABM("CNT1")=ABM("CNT1")+1,ABM("CNT2")=ABM("CNT2")+1,ABM("CNT")=ABM("CNT")+1,ABM("TOT")=ABM("TOT")+ABM("T")
- .S ABM("TOT1")=ABM("TOT1")+ABM("T"),ABM("TOT2")=ABM("TOT2")+ABM("T")
- D SUB
- Q
- ;
- HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- HDB S ABM("PG")=ABM("PG")+1,ABM("I")="" D WHD^ABMDRHD
- W !,?47,"Active",?73,"Claim",?81,"Visit"
- W !?5,"Patient",?37,"HRN",?47,"Insurer",?73,"Number",?81,"Date",?94,$S(ABMY("SORT")="VT":"Clinic",1:"Visit Type"),?110,"Reason"
- S $P(ABM("LINE"),"-",132)="" W !,ABM("LINE") K ABM("LINE")
- Q
- ;
- SUBHD W !!,"Cancelling Official: ",$P(^VA(200,$P($G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),1)),U,4),0),U)
- Q
- ;
- SUB2 Q:'ABM("CNT2")
- W !?32,"------",?121,"----------"
- W !?5,"Sub-total:",?32,ABM("CNT2"),?121,$J($FN(ABM("TOT2"),",",2),10)
- S ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
- Q
- ;
- SUB Q:'ABM("CNT1") D SUB2:ABM("CNT1")'=ABM("CNT2")
- W !?32,"------"
- W !?9,"Total:",?32,ABM("CNT1")
- S ABM("CNT1")=0,ABM("TOT1")=0,ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
- Q
- XIT ;EXIT POINT
- Q
- ABMDCCL2 ; IHS/ASDST/DMJ - Cancelled claims-132 Width ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**21**;NOV 12, 2009;Build 379
- +2 ;Original;TMD;
- +3 ;
- +4 ;IHS/SD/SDR - v2.5 p10 - IM20215 - HRN not printing on report
- +5 ;
- +6 ;IHS/SD/SDR 2.6*21 HEAT140244 Once the original issue was fixed so this would print, it became obvious that the visit type
- +7 ; description and the reason were running into each other. Fixed it so they had space between them.
- +8 ;
- PRINT ;EP for printing data
- +1 IF $DATA(ABM("PRINT",16))
- WRITE @ABM("PRINT",16)
- SET ABM("PG")=0
- DO HDB
- +2 SET (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0
- SET (ABM("CANC"),ABM("LOC"),ABM("VT"))=""
- +3 SET ABM("Z")="TMP(""ABM-CC"","_$JOB
- SET ABM="^"_ABM("Z")_")"
- IF '$DATA(@ABM)
- QUIT
- +4 FOR
- SET ABM=$QUERY(@ABM)
- IF ABM'[ABM("Z")
- QUIT
- Begin DoDot:1
- +5 IF $Y>(IOSL-5)
- DO HD
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- DO SUBHD
- WRITE " (cont)"
- +6 SET ABM("T")=$PIECE(ABM,"ABM-CC",2)
- SET ABM("TXT")=$PIECE($PIECE(ABM("T"),",",3,99),"""",2)
- SET ABM("TXT")=+$PIECE(ABM("T"),",",3)_U_ABM("TXT")
- +7 SET ABM("PDFN")=$GET(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),0))
- IF ABM("PDFN")=""
- QUIT
- SET ABM("CDT")=$PIECE($GET(^(1)),U,5)
- +8 IF ABM("CANC")'=$PIECE(ABM("TXT"),U)
- SET ABM("CANC")=""
- DO SUB
- DO SUBHD
- SET ABM("LOC")=""
- +9 IF ABM("LOC")'=$PIECE(ABM("TXT"),U,2)
- IF ABM("LOC")]""
- DO SUB
- IF ABM("LOC")'=""
- WRITE !
- WRITE !?3,"Visit Location: ",$PIECE(^DIC(4,$PIECE(ABM("PDFN"),U,3),0),U)
- SET ABM("VT")=""
- +10 SET ABM("CANC")=$PIECE(ABM("TXT"),U)
- +11 SET ABM("LOC")=$PIECE(ABM("TXT"),U,2)
- +12 IF ABM("VT")'=$PIECE(ABM("TXT"),U,3)
- IF ABM("VT")]""
- DO SUB2
- IF ABM("VT")]""
- WRITE !
- WRITE !?7,$SELECT(ABMY("SORT")="C":" Clinic: "_$PIECE(^DIC(40.7,$PIECE(ABM("TXT"),U,3),0),U),1:"Visit Type: "_$PIECE(^ABMDVTYP($PIECE(ABM("TXT"),U,3),0),U))
- +13 SET ABM("VT")=$PIECE(ABM("TXT"),U,3)
- +14 WRITE !
- +15 ;pat name
- WRITE $EXTRACT($PIECE(^DPT($PIECE(ABM("PDFN"),U),0),U),1,35)
- +16 ;HRN
- WRITE ?37,$PIECE($GET(^AUPNPAT($PIECE(ABM("PDFN"),U),41,$PIECE(ABM("PDFN"),U,3),0)),U,2)
- +17 ;ins
- WRITE ?47,$EXTRACT($PIECE(^AUTNINS($PIECE(ABM("PDFN"),U,8),0),U),1,24)
- +18 ;claim number
- WRITE ?73,$PIECE(ABM("TXT"),U,5)
- +19 ;visit date
- WRITE ?81,$$SDT^ABMDUTL($PIECE($GET(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),0)),U,2))
- +20 ;clinic
- IF ABMY("SORT")="VT"
- IF +$PIECE(ABM("PDFN"),U,10)
- WRITE ?92,$EXTRACT($PIECE(^DIC(40.7,$PIECE(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),0),U,6),0),U),1,18)
- +21 ;E W ?92,$P(^ABMDVTYP($P(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),0),U,7),0),U) ;visit ;abm*2.6*21 IHS/SD/SDR HEAT140244
- +22 ;visit ;abm*2.6*21 IHS/SD/SDR HEAT140244
- IF '$TEST
- WRITE ?92,$EXTRACT($PIECE(^ABMDVTYP($PIECE(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),0),U,7),0),U),1,15)
- +23 ;W ?102,$E($P($G(^ABMCCLMR($P($G(^ABMCCLMS(DUZ(2),$P(ABM("TXT"),U,5),1)),U,8),0)),U),1,30) ;reason ;abm*2.6*21 IHS/SD/SDR HEAT140244
- +24 ;reason ;abm*2.6*21 IHS/SD/SDR HEAT140244
- WRITE ?108,$EXTRACT($PIECE($GET(^ABMCCLMR($PIECE($GET(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),1)),U,8),0)),U),1,23)
- +25 SET ABM("CNT1")=ABM("CNT1")+1
- SET ABM("CNT2")=ABM("CNT2")+1
- SET ABM("CNT")=ABM("CNT")+1
- SET ABM("TOT")=ABM("TOT")+ABM("T")
- +26 SET ABM("TOT1")=ABM("TOT1")+ABM("T")
- SET ABM("TOT2")=ABM("TOT2")+ABM("T")
- End DoDot:1
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- GOTO XIT
- +27 DO SUB
- +28 QUIT
- +29 ;
- HD DO PAZ^ABMDRUTL
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- HDB SET ABM("PG")=ABM("PG")+1
- SET ABM("I")=""
- DO WHD^ABMDRHD
- +1 WRITE !,?47,"Active",?73,"Claim",?81,"Visit"
- +2 WRITE !?5,"Patient",?37,"HRN",?47,"Insurer",?73,"Number",?81,"Date",?94,$SELECT(ABMY("SORT")="VT":"Clinic",1:"Visit Type"),?110,"Reason"
- +3 SET $PIECE(ABM("LINE"),"-",132)=""
- WRITE !,ABM("LINE")
- KILL ABM("LINE")
- +4 QUIT
- +5 ;
- SUBHD WRITE !!,"Cancelling Official: ",$PIECE(^VA(200,$PIECE($GET(^ABMCCLMS(DUZ(2),$PIECE(ABM("TXT"),U,5),1)),U,4),0),U)
- +1 QUIT
- +2 ;
- SUB2 IF 'ABM("CNT2")
- QUIT
- +1 WRITE !?32,"------",?121,"----------"
- +2 WRITE !?5,"Sub-total:",?32,ABM("CNT2"),?121,$JUSTIFY($FNUMBER(ABM("TOT2"),",",2),10)
- +3 SET ABM("CNT2")=0
- SET ABM("TOT2")=0
- SET ABM("I")=""
- +4 QUIT
- +5 ;
- SUB IF 'ABM("CNT1")
- QUIT
- IF ABM("CNT1")'=ABM("CNT2")
- DO SUB2
- +1 WRITE !?32,"------"
- +2 WRITE !?9,"Total:",?32,ABM("CNT1")
- +3 SET ABM("CNT1")=0
- SET ABM("TOT1")=0
- SET ABM("CNT2")=0
- SET ABM("TOT2")=0
- SET ABM("I")=""
- +4 QUIT
- XIT ;EXIT POINT
- +1 QUIT
