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

BMEMED0.m

Go to the documentation of this file. 
  1. BMEMED0 ; 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 BMEMED 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=^BMEGMED(BMEIFN)
  1.  S BMEFNAME=$E(BMEREC,131,140),BMELNAME=$E(BMEREC,108,130)
  1.  S BMEFNAME=$P(BMEFNAME," ",1),BMELNAME=$P(BMELNAME," ",1) ;Strip out spaces in both names
  1.  S BMEMFULN=BMELNAME_","_BMEFNAME
  1.  S BMECITY=$E(BMEREC,286,305),BMESTATE=$E(BMEREC,306,307)
  1.  S BMECITY=$P(BMECITY," ",1) S RES=BMECITY_", "_BMESTATE
  1.  S BMESEX=$E(BMEREC,142,142),BMEMDOB=$E(BMEREC,143,150),BMEMRATE=$E(BMEREC,355,358)
  1.  S BMENUM=$E(BMEREC,18,26),BMECOVTP=$E(BMEREC,106,107),BMERESCE=$E(BMEREC,17,17)
  1.  S BMEMZIP=$E(BMEREC,223,227) ;Get Medicaid File Zip code
  1.  S BMEMCNTY=$E(BMEREC,91,105) S BMEMCTYN=$P(BMEMCNTY," ",1) ;Strip out spaces
  1.  ;
  1.  ;NEED TO GET COUNTY IEN FOR CHECK - THE "B" IS AN IEN ON PTR.
  1.  Q:$L(BMEMCTYN)=0  ;Quit if No Medicaid County Name
  1.  S BMESCNTY=$O(^BMECTY("C",BMEMCTYN,0)) ;Check to see if AHCCCS County Name is in the (COUNTY SCREEN) File
  1.  S BMEMSSN=$E(BMEREC,27,35)
  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
  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_";2////"_BMERESCE_";.09////"_BMEMEED
  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
  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.  ;N X,Y S X=$E(BMEREC,406,411) D ^%DT Q Y
  1.  N X,Y S BMEYYYY=$E(BMEREC,347,350),BMEMMDD=$E(BMEREC,351,354)
  1.  S BMEMEBD=BMEMMDD_BMEYYYY
  1.  S X=BMEMEBD D ^%DT Q Y
  1.  ;
  1. ERD() ; -- Med Enrollment Dt 
  1.  ;N X,Y S X=$E(BMEREC,406,411) D ^%DT Q Y
  1.  N X,Y S BMEYYYY=$E(BMEREC,347,350),BMEMMDD=$E(BMEREC,351,354)
  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.  ;