Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ABMDRXC1

ABMDRXC1.m

Go to the documentation of this file.
  1. ABMDRXC1 ; IHS/SD/SDR - Closed claims listing-80 Width ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. PRINT ;EP for printing data
  1. S ABM("PG")=0 D HDB
  1. S (ABM("CNT1"),ABM("CNT2"),ABM("CNT"),ABM("TOT1"),ABM("TOT2"),ABM("TOT"))=0
  1. S (ABM("CLOS"),ABM("LOC"),ABM("VT"))=""
  1. S ABM("Z")="TMP(""ABM-CLS"","_$J,ABM="^"_ABM("Z")_")" I '$D(@ABM) Q
  1. F S ABM=$Q(@ABM) Q:ABM'[ABM("Z") D G:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) XIT
  1. .I $Y>(IOSL-5) D HD Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT) D SUBHD W " (cont)"
  1. .S ABM("T")=$P(ABM,"ABM-CLS",2),ABM("TXT")=$P($P(ABM("T"),",",3,99),"""",2),ABM("TXT")=+$P(ABM("T"),",",3)_U_ABM("TXT")
  1. .S ABM("PDFN")=$P($G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)),U) Q:ABM("PDFN")=""
  1. .I ABM("CLOS")'=$P(ABM("TXT"),U,2) S ABM("CLOS")="" D SUB,SUBHD S ABM("LOC")=""
  1. .I ABM("LOC")'=$P(ABM("TXT"),U,3) D SUB:ABM("LOC")]"" W:(ABM("LOC")'="") ! W !?3,"Visit Location: ",$P(ABM("TXT"),U,3) S ABM("VT")=""
  1. .S ABM("CLOS")=$P(ABM("TXT"),U,2)
  1. .S ABM("LOC")=$P(ABM("TXT"),U,3)
  1. .I ABM("VT")'=$P(ABM("TXT"),U,4) D SUB2:ABM("VT")]"" W:ABM("VT")]"" ! W !?7,$S(ABMY("SORT")="C":" Clinic: "_$P(^DIC(40.7,$P(ABM("TXT"),U,4),0),U),1:"Visit Type: "_$P(^ABMDVTYP($P(ABM("TXT"),U,4),0),U))
  1. .S ABM("VT")=$P(ABM("TXT"),U,4)
  1. .W !
  1. .W $E($P(^DPT($P(ABM("PDFN"),U),0),U),1,16) ;pat name
  1. .S ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,ABM("LOC"),0)),U,2) ;HRN
  1. .S:ABM("HRN")="" ABM("HRN")=$P($G(^AUPNPAT($P(ABM("PDFN"),U),41,DUZ(2),0)),U,2) ;HRN
  1. .W ?18,ABM("HRN")
  1. .W ?25,$E($P(^AUTNINS($P($G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)),U,8),0),U),1,12) ;ins
  1. .W ?39,$P(ABM("TXT"),U,7) ;claim number
  1. .W ?47,$$SDT^ABMDUTL($P($G(^ABMDCLM(DUZ(2),+$P(ABM("TXT"),U,7),0)),U,2)) ;visit date
  1. .W:$P(ABM("TXT"),U,5)'="" ?59,$E($P($G(^ABMCLCLM($P(ABM("TXT"),U,5),0)),U),1,18) ;reason
  1. .S ABM("CNT1")=ABM("CNT1")+1,ABM("CNT2")=ABM("CNT2")+1,ABM("CNT")=ABM("CNT")+1,ABM("TOT")=ABM("TOT")+ABM("T")
  1. .S ABM("TOT1")=ABM("TOT1")+ABM("T"),ABM("TOT2")=ABM("TOT2")+ABM("T")
  1. D SUB
  1. Q
  1. ;
  1. HD D PAZ^ABMDRUTL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
  1. HDB S ABM("PG")=ABM("PG")+1,ABM("I")="" D WHD^ABMDRHD
  1. W !,"An ""*"" beside the claim number means the claim has been closed multiple times"
  1. W !?25,"Active",?39,"Claim",?50,"Visit"
  1. W !?2,"Patient",?18,"HRN",?25,"Insurer",?39,"Number",?50,"Date",?63,"Reason"
  1. W !,"-------------------------------------------------------------------------------"
  1. Q
  1. ;
  1. SUBHD ;
  1. W !!,"Closing Official: ",$P(^VA(200,$P(ABM("TXT"),U,2),0),U)
  1. Q
  1. ;
  1. SUB2 Q:'ABM("CNT2")
  1. W !?27,"------"
  1. W !?16,"Subcount:",?27,ABM("CNT2")
  1. S ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
  1. Q
  1. ;
  1. SUB Q:'ABM("CNT1") D SUB2:ABM("CNT1")'=ABM("CNT2")
  1. W !?27,"------"
  1. W !?19,"Count:",?27,ABM("CNT1")
  1. S ABM("CNT1")=0,ABM("TOT1")=0,ABM("CNT2")=0,ABM("TOT2")=0,ABM("I")=""
  1. Q
  1. XIT ;EXIT POINT
  1. Q