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

ABMM2PH1.m

Go to the documentation of this file.
  1. ABMM2PH1 ;IHS/SD/SDR - MU Patient Volume Hospital Report ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;**11,12,15**;NOV 12, 2009;Build 251
  1. ;IHS/SD/SDR - 2.6*12 - Included numerator and msgs about numerator and denominator.
  1. ;IHS/SD/SDR - 2.6*15 - HEAT161159 - Changed PT LST to sort differently so there won't be duplicate vsts on pt lst.
  1. ;IHS/SD/SDR - 2.6*15 - HEAT164125 - Added Medicaid State to patient list output
  1. ;IHS/SD/SDR - 2.6*15 - HEAT188548 - Format visit date to 4 digits
  1. ;
  1. MET ;EP
  1. W !!,"Patient Volume: ",+$P($G(^XTMP("ABM-PVH2",$J,"LOC TOP",ABMVLOC)),U)_"%"
  1. ;
  1. S ABMLOC=$$GET1^DIQ(9999999.06,ABMVLOC,.02,"E")
  1. ;W !!,"Total Patient Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-DENOM",ABMSDT,ABMVLOC)),8) ;abm*2.6*12
  1. W !!,"Total Patient Encounters (Denominator) "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-DENOM",ABMSDT,ABMVLOC)),8) ;abm*2.6*12
  1. W !,"Total Numerator Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM",ABMSDT,ABMVLOC)),8) ;abm*2.6*12
  1. W !,"Total Medicaid Paid Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM PD",ABMSDT,ABMVLOC,"MCD")),8)
  1. W !,"Total Medicaid Zero Paid Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ZEROPD",ABMSDT,ABMVLOC,"MCD")),8)
  1. W !,"Total Medicaid Enrolled (Not Billed) Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ENR",ABMSDT,ABMVLOC,"MCD")),8) ;abm*2.6*12
  1. W !,"Total Kidscare/Chip Paid Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM PD",ABMSDT,ABMVLOC,"CHIP")),8)
  1. W !,"Total Kidscare/Chip Zero Paid Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ZEROPD",ABMSDT,ABMVLOC,"CHIP")),8)
  1. ;W !,"Total Kidscare/Chip Enrolled Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ENR",ABMSDT,ABMVLOC,"CHIP")),8) ;abm*2.6*12
  1. W !,"Total Kidscare/Chip Enrolled (Not Billed) Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ENR",ABMSDT,ABMVLOC,"CHIP")),8) ;abm*2.6*12
  1. ;W !,"Total Other Encounters "_ABMLOC_": ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC ENC CNT",ABMSDT,ABMVLOC,"OTHR")),8) ;abm*2.6*12
  1. W !,"Total Other Encounters "_ABMLOC_" (*not included in numerator): ",?70,$J(+$G(^XTMP("ABM-PVH2",$J,"LOC ENC CNT",ABMSDT,ABMVLOC,"OTHR")),8) ;abm*2.6*12
  1. Q
  1. NOTMET ;EP
  1. W !!,"The Patient Volume Threshold (10% for Hospitals) was not met for the"
  1. W !,$S(("^A^B^C^"[("^"_ABMY("90")_"^")):"MU Qualification year",1:"timeframe entered")_". Details for the volumes that were achieved are"
  1. W !,"provided for your information."
  1. W !!,"Highest Patient Volume Met: ",+$P($G(^XTMP("ABM-PVH2",$J,"LOC TOP",ABMVLOC)),U)
  1. W !,"First Day Highest Patient Volume Achieved: ",$$SDT^ABMDUTL(ABMSDT)
  1. S ABMTHPV=0
  1. S:ABMSDT ABMTHPV=+$G(^XTMP("ABM-PVH2",$J,"LOC-DENOM",ABMSDT,ABMVLOC))
  1. S ABMMHPV=0
  1. S:ABMSDT ABMMHPV=+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM",ABMSDT,ABMVLOC))
  1. W !!,"Total Patient Encounters of First Highest Patient Volume Period: ",ABMTHPV
  1. W !,"Total Hospital"_$S(+$G(ABMER)=1:"/ER",1:"")_" Encounters of First Highest Patient Volume Period: ",ABMMHPV
  1. S ABMCNT=0
  1. K ABMLN
  1. ;
  1. I +$G(ABMY("TVDTS"))'=0 D
  1. .S ABMCNT=0
  1. .S ABMDT=0
  1. .F S ABMDT=$O(^XTMP("ABM-PVH2",$J,"LOC PERCENT",ABMDT)) Q:'ABMDT D
  1. ..S ABMCNT=ABMCNT+1
  1. ..S ABMPRC($G(^XTMP("ABM-PVH2",$J,"LOC PERCENT",ABMDT,ABMVLOC)),ABMCNT)=ABMDT
  1. ..S ABMP=""
  1. ..S ABMSAV=ABMCNT-ABMY("TVDTS")
  1. ..F S ABMP=$O(ABMPRC(ABMP)) Q:ABMP="" D
  1. ...S ABMCNT=0,ABMC=0
  1. ...F S ABMCNT=$O(ABMPRC(ABMP,ABMCNT)) Q:'ABMCNT D Q:(ABMC=ABMSAV)
  1. ....K ^XTMP("ABM-PVH2",$J,"LOC PERCENT",$G(ABMPRC(ABMP,ABMCNT)))
  1. ....S ABMC=ABMC+1
  1. ;
  1. D NMHDR
  1. S ABMSDT=0
  1. S ABMDTCNT=0
  1. F S ABMSDT=$O(^XTMP("ABM-PVH2",$J,"LOC-DENOM",ABMSDT)) Q:'ABMSDT D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. .I ABMY("90")'="A"&(ABMY("SDT")'=ABMSDT) Q ;only calculate whole year for automated
  1. .I $Y+5>IOSL D HD^ABMM2PV3,NMHDR Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. .S ABMDTCNT=+$G(ABMDTCNT)+1
  1. .I +$G(ABMP("EDT"))=0 D
  1. ..S X1=ABMSDT
  1. ..S X2=89
  1. ..D C^%DTC
  1. ..S ABMEDT=X
  1. .I +$G(ABMP("EDT"))'=0 S ABMEDT=ABMP("EDT")
  1. .I (+$G(ABMEDT)>((ABMY("QYR")-1700)_"0930")) Q
  1. .S ABMPD=$TR($P($$MDT^ABMDUTL(ABMSDT),"-",1,2),"-"," ")_"-"_$TR($P($$MDT^ABMDUTL(ABMEDT),"-",1,2),"-"," ") ;report period
  1. .S ABMRT=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC PERCENT",ABMSDT,ABMVLOC)),5)_"%" ;rate
  1. .S ABMDEN=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-DENOM",ABMSDT,ABMVLOC)),6) ;denominator
  1. .S ABMNUM=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM",ABMSDT,ABMVLOC)),6) ;numerator
  1. .S ABMMCDPD=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM PD",ABMSDT,ABMVLOC,"MCD")),6)
  1. .S ABMSCHPD=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM PD",ABMSDT,ABMVLOC,"CHIP")),6)
  1. .S ABMMCDZP=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ZEROPD",ABMSDT,ABMVLOC,"MCD")),6)
  1. .S ABMMCDEN=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ENR",ABMSDT,ABMVLOC,"MCD")),6)
  1. .S ABMSCHZP=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ZEROPD",ABMSDT,ABMVLOC,"CHIP")),6)
  1. .S ABMSCHEN=$J(+$G(^XTMP("ABM-PVH2",$J,"LOC-NUM ENR",ABMSDT,ABMVLOC,"CHIP")),6)
  1. .W !,ABMPD,?15,ABMRT,?20,ABMDEN,?28,ABMNUM,?35,ABMMCDPD,?41,ABMMCDZP,?50,ABMMCDEN,?57,ABMSCHPD,?63,ABMSCHZP,?73,ABMSCHEN
  1. I ABMDTCNT=0 D
  1. .W !!, "<< NO DATA FOUND FOR SELECTION >>"
  1. Q
  1. NMHDR ;EP
  1. W !
  1. F ABM=1:1:80 W "="
  1. W !,"HOSPITAL"_$S($G(ABMER)=1:"/ER",1:"")_" PATIENT VOLUME - QUALIFICATION YEAR ",ABMY("QYR")
  1. W !,"Report Period",?15,"Rate",?21,"Denom-",?30,"Numer-",?38,"Mcd",?44,"Mcd",?52,"Mcd",?58,"Schip",?64,"Schip",?73,"Schip"
  1. W !?21,"inator",?30,"ator",?37,"Paid",?42,"ZeroPd",?49,"Enrolled",?59,"Paid",?64,"ZeroPd",?71,"Enrolled"
  1. W !
  1. F ABM=1:1:80 W "="
  1. Q
  1. PATIENT ;EP
  1. S ABM("PG")=1
  1. D HDR^ABMM2PV3
  1. D PTHDR
  1. ;start old abm*2.6*15 HEAT161159
  1. ;S ABMITYP=""
  1. ;F S ABMITYP=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP)) Q:ABMITYP="" D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;.S ABMINS=""
  1. ;.F S ABMINS=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS)) Q:ABMINS="" D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;..S ABMPTL=""
  1. ;..F S ABMPTL=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL)) Q:ABMPTL="" D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;...S ABMPTF=""
  1. ;...F S ABMPTF=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF)) Q:ABMPTF="" D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;....S ABMVDT=0
  1. ;....F S ABMVDT=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT)) Q:'ABMVDT D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;.....S ABMVDFN=0
  1. ;.....F S ABMVDFN=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)) Q:'ABMVDFN D
  1. ;......S ABMPT=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)),U,2)
  1. ;......S ABMTRIEN=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)),U,3)
  1. ;......S IENS=ABMVLOC_","_ABMPT_","
  1. ;......S ABMHRN=$$GET1^DIQ(9000001.41,IENS,.02)
  1. ;......W !,$E(ABMPTL_", "_ABMPTF,1,16) ;pt name
  1. ;......W ?18,ABMHRN ;HRN
  1. ;......W ?25,$E($$GET1^DIQ(9000010,ABMVDFN,.07,"E"),1,3) ;Category
  1. ;......W ?29,$E($$GET1^DIQ(9000010,ABMVDFN,.08,"E"),1,8) ;clinic
  1. ;......W ?39,$S(ABMITYP="X":"",1:ABMITYP) ;insurer type
  1. ;......W ?42,$S(ABMINS="NO BILL":"",1:$E(ABMINS,1,10)) ;insurer
  1. ;......W ?53,$$CDT^ABMDUTL(ABMVDT) ;visit date
  1. ;......W ?70,$S(+ABMTRIEN:$$SDTO^ABMDUTL(ABMTRIEN),1:"") ;dt paid
  1. ;......I $P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)),U,4)'="" W ?79,$P(^(ABMVDFN),U,4)
  1. ;......I $Y+5>IOSL D HD^ABMM2PV3,PTHDR Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;end old start new HEAT161159
  1. S ABMVDT=0
  1. F S ABMVDT=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT)) Q:'ABMVDT D Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. .S ABMVDFN=0
  1. .F S ABMVDFN=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)) Q:'ABMVDFN D
  1. ..S ABMPT=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,2)
  1. ..S ABMTRIEN=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,3)
  1. ..S ABMPTL=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,10)
  1. ..S ABMPTF=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,11)
  1. ..S ABMITYP=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,8) ;abm*2.6*15
  1. ..S ABMINS=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,9) ;abm*2.6*15
  1. ..S IENS=ABMVLOC_","_ABMPT_","
  1. ..S ABMHRN=$$GET1^DIQ(9000001.41,IENS,.02)
  1. ..W !,$E(ABMPTL_", "_ABMPTF,1,16) ;pt name
  1. ..W ?18,ABMHRN ;HRN
  1. ..W ?25,$E($$GET1^DIQ(9000010,ABMVDFN,.07,"E"),1,3) ;Category
  1. ..W ?29,$E($$GET1^DIQ(9000010,ABMVDFN,.08,"E"),1,8) ;clinic
  1. ..W ?39,$S(ABMITYP="X":"",1:ABMITYP) ;insurer type
  1. ..W ?42,$S(ABMINS="NO BILL":"",1:$E(ABMINS,1,10)) ;insurer
  1. ..W ?53,$$CDT^ABMDUTL(ABMVDT) ;visit date
  1. ..W ?70,$S(+ABMTRIEN:$$SDTO^ABMDUTL(ABMTRIEN),1:"") ;dt paid
  1. ..I $P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,4)'="" W ?79,$P(^(ABMVDFN),U,4)
  1. ..I $Y+5>IOSL D HD^ABMM2PV3,PTHDR Q:(IOST["C")&((+$G(Y)=0)!($D(DIRUT)!$D(DIROUT)!$D(DTOUT)!$D(DUOUT)))
  1. ;end new HEAT161159
  1. Q
  1. PTHSTFL ;EP
  1. S ABMSDT=$P($G(^XTMP("ABM-PVH2",$J,"LOC TOP")),U,2)
  1. K ABMDCNT
  1. D OPEN^%ZISH("ABM",ABMPATH,ABMFN,"W")
  1. Q:POP
  1. U IO
  1. S ABM("PG")=1
  1. D HDR^ABMM2PV3
  1. S ABMPMET=0
  1. W !,"Visit Location"_U_"Patient"_U_"Chart#"_U_"Policy Holder ID"_U_"Serv Cat"_U_"Clinic"_U_"InsType"_U_"BilledTo"
  1. W U_"DateOfService"_U_"DatePaid"_U_"Medicaid/SchipPaid"_U_"Bill#"_U_"Payment"_U_"Primary POV"_U_"PRVT"_U_"MCR"_U_"MCD"_U_"CHIP"_U_"NEEDY INDIV"
  1. W U_"MCD ST" ;abm*2.6*15 HEAT164125
  1. Q:ABMSDT=""
  1. S ABMVLOC=0
  1. F S ABMVLOC=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC)) Q:'ABMVLOC D
  1. .;start old abm*2.6*15 HEAT161159
  1. .;S ABMITYP=""
  1. .;F S ABMITYP=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP)) Q:ABMITYP="" D
  1. .;.S ABMINS=""
  1. .;.F S ABMINS=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS)) Q:ABMINS="" D
  1. .;..S ABMPTL=""
  1. .;..F S ABMPTL=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL)) Q:ABMPTL="" D
  1. .;...S ABMPTF=""
  1. .;...F S ABMPTF=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF)) Q:ABMPTF="" D
  1. .;....S ABMVDT=0
  1. .;....F S ABMVDT=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT)) Q:'ABMVDT D
  1. .;.....S ABMP("VDT")=ABMVDT
  1. .;.....S ABMVDFN=0
  1. .;.....F S ABMVDFN=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)) Q:'ABMVDFN D
  1. .;......I +$G(^XTMP("ABM-PVP2",$J,"DUPS",ABMVDFN))=1 S ABMDCNT=+$G(ABMDCNT)+1
  1. .;......S ^XTMP("ABM-PVP2",$J,"DUPS",ABMVDFN)=1
  1. .;......S ABMPT=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)),U,2)
  1. .;......S ABMTRIEN=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN)),U,3)
  1. .;......S IENS=ABMVLOC_","_ABMPT_","
  1. .;......S ABMHRN=$$GET1^DIQ(9000001.41,IENS,.02)
  1. .;......W !,$$GET1^DIQ(9999999.06,ABMVLOC,".02","E")
  1. .;......W U_ABMPTL_", "_ABMPTF ;pt name
  1. .;......W U_ABMHRN ;HRN
  1. .;......K ABML
  1. .;......D ELGCHK^ABMM2PV3
  1. .;......S ABMMIEN=0
  1. .;......K ABMMCDN
  1. .;......I ($G(ABML("MCD"))!($G(ABML("CHIP")))) D
  1. .;.......S ABMMIEN=+$G(ABMP("SAVE"))
  1. .;.......I ABMMIEN D
  1. .;........S ABMMCDN=$P($G(^AUPNMCD(ABMMIEN,0)),U,3)
  1. .;.......I 'ABMMIEN D PRVTCHIP^ABMM2PV3
  1. .;......I $G(ABMMCDN)'="" W U_ABMMCDN ;Medicaid # - policy holder ID
  1. .;......I 'ABMMIEN W U
  1. .;......W U_$$GET1^DIQ(9000010,ABMVDFN,.07,"E") ;Category
  1. .;......W U_$$GET1^DIQ(9000010,ABMVDFN,.08,"E") ;clinic
  1. .;......W U_$S(ABMITYP="X":"",1:ABMITYP) ;insurer type
  1. .;......W U_$S(ABMINS="NO BILL":"NOT BILLED",1:$E(ABMINS,1,10)) ;insurer
  1. .;......W U_$$CDT^ABMDUTL(ABMVDT) ;visit date
  1. .;......W U_$S(+ABMTRIEN:$$SDTO^ABMDUTL(ABMTRIEN),1:"") ;dt paid
  1. .;......S ABMREC=$G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMITYP,ABMINS,ABMPTL,ABMPTF,ABMVDT,ABMVDFN))
  1. .;......D ELGCHK^ABMM2PV3
  1. .;......W U_$P($G(ABMREC),U,4)
  1. .;......W U_$P($G(ABMREC),U,5)
  1. .;......W U_$P($G(ABMREC),U,6)
  1. .;......W U_$P($G(ABMREC),U,7)
  1. .;......W U_ABMPI_U_ABMMCR_U_ABMMCD_U_ABMCHIP_U_ABMNI
  1. .;end old start new HEAT161159
  1. .S ABMVDT=0
  1. .F S ABMVDT=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT)) Q:'ABMVDT D
  1. ..S ABMP("VDT")=ABMVDT
  1. ..S ABMVDFN=0
  1. ..F S ABMVDFN=$O(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)) Q:'ABMVDFN D
  1. ...I +$G(^XTMP("ABM-PVP2",$J,"DUPS",ABMVDFN))=1 S ABMDCNT=+$G(ABMDCNT)+1
  1. ...S ^XTMP("ABM-PVP2",$J,"DUPS",ABMVDFN)=1
  1. ...S ABMPT=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,2)
  1. ...S ABMTRIEN=$P($G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN)),U,3)
  1. ...S ABMREC=$G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN))
  1. ...S ABMITYP=$P(ABMREC,U,8)
  1. ...S ABMINS=$P(ABMREC,U,9)
  1. ...S ABMPTL=$P(ABMREC,U,10)
  1. ...S ABMPTF=$P(ABMREC,U,11)
  1. ...S IENS=ABMVLOC_","_ABMPT_","
  1. ...S ABMHRN=$$GET1^DIQ(9000001.41,IENS,.02)
  1. ...W !,$$GET1^DIQ(9999999.06,ABMVLOC,".02","E")
  1. ...W U_ABMPTL_", "_ABMPTF ;pt name
  1. ...W U_ABMHRN ;HRN
  1. ...K ABML
  1. ...D ELGCHK^ABMM2PV3
  1. ...S ABMMIEN=0
  1. ...K ABMMCDN
  1. ...I ($G(ABML("MCD"))!($G(ABML("CHIP")))) D
  1. ....S ABMMIEN=+$G(ABMP("SAVE"))
  1. ....I ABMMIEN D
  1. .....S ABMMCDN=$P($G(^AUPNMCD(ABMMIEN,0)),U,3)
  1. ....I 'ABMMIEN D PRVTCHIP^ABMM2PV3
  1. ...I $G(ABMMCDN)'="" W U_ABMMCDN ;Medicaid # - policy holder ID
  1. ...I 'ABMMIEN W U
  1. ...W U_$$GET1^DIQ(9000010,ABMVDFN,.07,"E") ;Category
  1. ...W U_$$GET1^DIQ(9000010,ABMVDFN,.08,"E") ;clinic
  1. ...W U_$S(ABMITYP="X":"",1:ABMITYP) ;insurer type
  1. ...W U_$S(ABMINS="NO BILL":"NOT BILLED",1:$E(ABMINS,1,10)) ;insurer
  1. ...;W U_$$CDT^ABMDUTL(ABMVDT) ;visit date ;abm*2.6*15 HEAT188548
  1. ...W U_$$BDT^ABMDUTL(ABMVDT) ;visit date ;abm*2.6*15 HEAT188548
  1. ...W U_$S(+ABMTRIEN:$$SDTO^ABMDUTL(ABMTRIEN),1:"") ;dt paid
  1. ...S ABMREC=$G(^XTMP("ABM-PVH2",$J,"PT LST",ABMSDT,ABMVLOC,ABMVDT,ABMVDFN))
  1. ...D ELGCHK^ABMM2PV3
  1. ...W U_$P($G(ABMREC),U,4)
  1. ...W U_$P($G(ABMREC),U,5)
  1. ...W U_$P($G(ABMREC),U,6)
  1. ...W U_$P($G(ABMREC),U,7)
  1. ...W U_ABMPI_U_ABMMCR_U_ABMMCD_U_ABMCHIP_U_ABMNI
  1. ...W U_$G(ABMP("STATE")) ;abm*2.6*15 HEAT164125
  1. ;end new HEAT161159
  1. I +$G(ABMDCNT)>0 W !!,"Duplicate visits for this period: "_ABMDCNT
  1. D CLOSE^%ZISH("ABM")
  1. Q
  1. PTHDR ;
  1. W !,"VISIT LOCATION: ",$$GET1^DIQ(9999999.06,ABMVLOC,.02,"E"),!
  1. F ABM=1:1:80 W "="
  1. W !,?25,"Ser",?39,"I.",?42,"Billed",?53,"Date of",?70,"Date"
  1. W !,"PATIENT NAME",?18,"CHART#",?25,"Cat",?29,"Clinic",?39,"T.",?42,"To",?53,"Service",?70,"Paid",!
  1. F ABM=1:1:80 W "="
  1. Q