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

ABMURCN2.m

Go to the documentation of this file. 
  1. ABMURCN2 ; IHS/SD/SDR - 3PB/UFMS Reconcile Sessions Option (2)   
  1.  ;;2.6;IHS Third Party Billing;**1,11**;NOV 12, 2009;Build 133
  1.  ;split routine from ABMURCON
  1.  ; IHS/SD/SDR - abm*2.6*1 - Added fields (3PMS10019):
  1.  ;   FIXPMS10001 and FIXPMS10011 - Date of Service
  1.  ;   FIXPMS10026 - Visit type
  1.  ;   FIXPMS10027 - Insurer Type
  1.  ;
  1. RECORD ;EP
  1.  D GETBILL^ABMUCUTL(ABMPREC)
  1.  S ABMEXCLD=$$BILL^ABMUEAPI($P(ABMPREC,U,2),$P(ABMPREC,U,3))  ;exclude table entry?
  1.  I ABMEXCLD<1 D BATCH^ABMURCON,BILL^ABMURCON Q  ;flag as excluded data in batch/on bill & quit
  1.  I $P($G(^ABMDPARM($P(ABMPREC,U,2),1,4)),U,14)=0 S ABMEXCLD=0 D BATCH^ABMURCON,BILL^ABMURCON Q  ;if do not export, flag as excluded data in batch/on bill & quit
  1.  S ABMCNT=ABMCNT+1
  1.  ;CAN#
  1.  ;returns-budget act(10) & cost center(3)
  1.  S ABMCAN=$$EP^ABMUCAPI(ABMP("ITYP"),ABMCLN,ABMDTAPP,ABMSASUF)
  1.  S ABMREC=ABMRECT_$$FMT^ABMERUTL(ABMPASUF_ABMSASUF_$S(+$G(ABMUAOF)'=0:$P($G(^AUTTLOC(ABMP("LDFN"),0)),U,7),1:"")_ABMP("BDFN"),40)  ;inv#
  1.  S ABMREC=ABMREC_$$SDT^ABMDUTL(ABMDTAPP)  ;Dt/Tm Approved (MM/DD/YYYY) from 3P Bill file
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMTAXID,10)  ;TAX ID (.11)-Insurer file
  1.  S ABMDESC=ABMPASUF_ABMSASUF_$S(+$G(ABMUAOF)'=0:$P($G(^AUTTLOC(ABMP("LDFN"),0)),U,7),1:"")_ABMPBNUM
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMDESC,100)  ;<parASUFAC><satASUFAC>3P BILL#
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL($TR($J(ABMP("BAMT"),".",2),"."),"20NR")  ;bill amount
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL("","10R")  ;CAN-don't send; calculated by IE
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMTCODE,"10R")
  1.  S ABMREC=ABMREC_ABMOCL
  1.  S ABMREC=ABMREC_ABMCAN  ;this is actually ba/cc
  1.  ;start old code abm*2.6*11 Update insurer type groupings
  1.  ;I "^R^MD^MH^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="MCR"
  1.  ;I "^D^K^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="MCD"
  1.  ;I "^H^M^P^F^T^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="PRV"
  1.  ;I "^W^C^N^G^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="OTH"
  1.  ;end old code start new code
  1.  I "^R^MD^MH^MC^MMC^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="MCR"
  1.  I "^D^K^FPL^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="MCD"
  1.  I "^H^M^P^F^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="PRV"
  1.  I "^W^C^N^I^T^G^SEP^TSI^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="OTH"
  1.  I "^V^"[("^"_ABMP("ITYP")_"^") S ABMPTIN="VET"
  1.  ;end new code
  1.  S ABMPTIN=ABMSASUF_ABMPTIN
  1.  ;
  1.  K DIC,DIE,X,Y,DA
  1.  S DIE="^ABMDBILL("_$P(ABMPREC,U,2)_","
  1.  S DA=$P(ABMPREC,U,3)
  1.  S DR=".114////"_ABMPTIN
  1.  D ^DIE
  1.  ;
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMPTIN,10)
  1.  S ABMREC=ABMREC_$$SDT^ABMDUTL(ABMP("DOS"))  ;DOS - abm*2.6*2 FIXPMS10011
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMP("VTYP"),50)  ;visit type - abm*2.6*2 FIXPMS10026
  1.  S ABMREC=ABMREC_$$FMT^ABMERUTL(ABMP("ITYP"),10)  ;ins type - abm*2.6*2 FIXPMS10027
  1.  S ^ABMUFMS($J,ABMCNT)=ABMREC
  1.  S ABMTOT=+$G(ABMTOT)+(ABMP("BAMT"))
  1.  D BATCH^ABMURCON  ;put bill into batch file
  1.  D BILL^ABMURCON  ;put entry in bill mult for transmit dt
  1.  Q