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

BME8340.m

Go to the documentation of this file.
  1. BME8340 ; IHS/PHXAO/TMJ - STUFF NO MATCH ENTRIES INTO MONTHLY TEMP FILE ;
  1. ;;1.0T1;MEDICAID ELIGIBILITY DOWNLOAD;;JUN 25, 2003
  1. ;
  1. ;This Routine is called from BME834 Routine when
  1. ;a NO MATCH Record is hit. This Routine populates the
  1. ;Temporary Monthly No Match File ^BMETMED(Global
  1. ;This File is utilized to manually compare and automatically update
  1. ;Patient Registration
  1. ;
  1. ;
  1. ; -- set up variables for stuff in AHCCCS Medicaid File
  1. SET S BMEREC=^BMEHOLD(BMEIFN,0)
  1. S BMEFNAME=$P($G(BMEREC),U,7),BMELNAME=$P($G(BMEREC),U,8)
  1. S BMEFNAME=$P(BMEFNAME," ",1),BMELNAME=$P(BMELNAME," ",1) ;Strip out spaces in both names
  1. S BMEMFULN=BMELNAME_","_BMEFNAME
  1. S BMECITY=$P($G(^BMEHOLD(BMEIFN,11)),U,6),BMESTATE=$P($G(^BMEHOLD(BMEIFN,11)),U,7)
  1. S BMECITY=$P(BMECITY," ",1) S RES=BMECITY_", "_BMESTATE
  1. S BMESEX=$P($G(BMEREC),U,6),BMEMDOB=$P($G(BMEREC),U,5),BMEMRATE=$P($G(BMEREC),U,7)
  1. S BMENUM=$P($G(BMEREC),U,3),BMECOVTP=$P($G(^BMEHOLD(BMEIFN,11)),U,3)
  1. S BMEMZIP=$P($G(^BMEHOLD(BMEIFN,11)),U,8) ;Get Medicaid File Zip code
  1. S BMEMCNTY=$P($G(BMEREC),U,14) ;834 Transaction passes 2 digit Code - not text
  1. ;
  1. ;NEED TO GET COUNTY IEN FOR CHECK - THE "B" IS AN IEN ON PTR.
  1. Q:BMEMCNTY="" ;Quit if No Medicaid County Number
  1. S BMESCNTY=$O(^BMECTY("D",BMEMCNTY,0)) ;Check to see if AHCCCS County Code is in the (COUNTY SCREEN) File
  1. S BMEMSSN=$P($G(BMEREC),U,2)
  1. ;
  1. I 'BMESCNTY Q ;Quit if Not in County Table
  1. ;
  1. DATE ;AHCCCS Dates (Y2K Conversion)
  1. S BMEMEBD=$$EBD ;AHCCCS Payment From Date/Beg
  1. ;S BMEMEED=$$EED ; AHCCCS Payment From/End - No Ending Date Available in 834 Transaction
  1. S BMEMDOB=$$DOB ;AHCCCS Date of Birth
  1. S BMEMERD=$$ERD ; Enrollment Date
  1. ;Q:"AIAN"'[RACE
  1. Q:BMEMEBD=-1 ;Quit if no AHCCCS Beg Elig Dt in MED File
  1. ;Q:BMEMEED=-1 ;Quit if no AHCCCS End Elig Dt in MED File
  1. ;
  1. D NEW
  1. Q
  1. ;
  1. NEW ; -- create new entry in local BME MEDICAID ELIGIBLE (NO MATCH) File-Global ^BMETMED(
  1. ;Do not stuff the Medicaid End Elig Dt (EED Variable)
  1. ;Only stuff the Mediciad Beg Elig Dt (EEB/ERD Variables)
  1. D ^XBFMK K DIADD,DINUM
  1. S X=BMEMEBD,DIC="^BMETMED(",DIC(0)="L",DLAYGO=90332
  1. ;S DIC("DR")=".02////"_BMEFNAME
  1. S DIC("DR")=".02////"_BMEMFULN_";.03////"_BMESEX_";.04///"_BMEMDOB_";.05////"_RES
  1. S DIC("DR")=DIC("DR")_";.06////"_BMENUM_";.08////"_BMECOVTP_";4////"_BMEMRATE
  1. S DIC("DR")=DIC("DR")_";1////"_BMEMSSN
  1. I BMESSNCK="Y" S DIC("DR")=DIC("DR")_";3///"_BMESSNCK
  1. I BMEMKID="Y" S DIC("DR")=DIC("DR")_";5///"_BMEMKID
  1. D FILE^DICN D ^XBFMK K DIADD,DINUM
  1. Q
  1. ;
  1. EED() ; -- eligibility end date -No Ending Date in 834 Transaction
  1. ;N X,Y S X=$E(BMEREC,406,411) D ^%DT Q Y
  1. ;N X,Y S BMEYYYY=$E(BMEREC,412,415),BMEMMDD=$E(BMEREC,416,419)
  1. ;S BMEMEED=BMEMMDD_BMEYYYY
  1. ;S X=BMEMEED D ^%DT Q Y
  1. ;
  1. EBD() ; -- eligibility begin date
  1. S BMEMEBD=$P($G(BMEREC),U,4) ;Enrollment Date
  1. N X,Y S BMEYYYY=$E(BMEMEBD,1,4),BMEMMDD=$E(BMEMEBD,5,8)
  1. S BMEMEBD=BMEMMDD_BMEYYYY
  1. S X=BMEMEBD D ^%DT Q Y
  1. ;
  1. ERD() ; -- Med Enrollment Dt
  1. S BMEMERD=$P($G(BMEREC),U,4) ;Enrollment Dt/Beg Dt
  1. N X,Y S BMEYYYY=$E(BMEMERD,1,4),BMEMMDD=$E(BMEMERD,5,8)
  1. S BMEMERD=BMEMMDD_BMEYYYY
  1. S X=BMEMERD D ^%DT Q Y
  1. ;
  1. DOB() ;Date of Birth Conversion
  1. N X,Y S BMEYYYY=$E(BMEMDOB,1,4),BMEMMDD=$E(BMEMDOB,5,8)
  1. S BMEMDOB=BMEMMDD_BMEYYYY
  1. S X=BMEMDOB D ^%DT Q Y
  1. ;