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

EASEZF5.m

Go to the documentation of this file.
  1. EASEZF5 ;ALB/jap - Filing 1010EZ Data to Patient Database ;10/31/00 13:07
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**51**;Mar 15, 2001
  1. ;
  1. IBINS(EASAPP,EASDFN) ;setup for call to IB API
  1. ;
  1. N DATANM,X,IBDATA,OK,PARTA,PARTB,LSTNM,FRSTNM
  1. ;file Medicare data
  1. K IBDATA
  1. S DATANM="MEDICARE PART A EFFECTIVE DATE" S PARTA=$$GET(DATANM)
  1. S IBDATA("M","PART A")=PARTA
  1. S DATANM="MEDICARE PART B EFFECTIVE DATE" S PARTB=$$GET(DATANM)
  1. S IBDATA("M","PART B")=PARTB
  1. I (PARTA'="")!(PARTB'="") D
  1. .S IBDATA("M","DFN")=EASDFN
  1. .S IBDATA("M","SOURCE")=1
  1. .S DATANM="MEDICARE CLAIM NUMBER" S X=$$GET(DATANM)
  1. .S IBDATA("M","HICN")=X
  1. .S DATANM="SIGNEE ON MEDICARE CARD" S X=$$GET(DATANM)
  1. .S IBDATA("M","NAME")=X
  1. .S OK=$$BUFF^IBCNBES1(.IBDATA)
  1. ;
  1. ;applicant health insurance
  1. K IBDATA
  1. S DATANM="APPLICANT INSURANCE COMPANY" S X=$$GET(DATANM)
  1. I X'="" D
  1. .S IBDATA(1,20.01)=X
  1. .S DATANM="APPLICANT INSURANCE GROUP CODE" S X=$$GET(DATANM)
  1. .S IBDATA(1,40.03)=X
  1. .S DATANM="APPLICANT INSURANCE POLICY HOLDER" S X=$$GET(DATANM)
  1. .S IBDATA(1,60.07)=X
  1. .S IBDATA(1,60.05)=$$INSREL(IBDATA(1,60.07))
  1. .S X=IBDATA(1,60.05) S IBDATA(1,60.06)=$S(X="v":"01",X="s":"02",1:"09")
  1. .S DATANM="APPLICANT INSURANCE POLICY NUMBER" S X=$$GET(DATANM)
  1. .S IBDATA(1,60.04)=X
  1. .S DATANM="APPLICANT INSURANCE ADDRESS" S X=$$GET(DATANM)
  1. .S IBDATA(1,21.01)=X
  1. .S DATANM="APPLICANT INSURANCE CITY" S X=$$GET(DATANM)
  1. .S IBDATA(1,21.04)=X
  1. .S DATANM="APPLICANT INSURANCE STATE" S X=$$GET(DATANM)
  1. .S IBDATA(1,21.05)=X
  1. .S DATANM="APPLICANT INSURANCE ZIP" S X=$$GET(DATANM)
  1. .S IBDATA(1,21.06)=X
  1. .S X=$$INSPH^EASEZT2(EASAPP,"APPLICANT",1)
  1. .S IBDATA(1,20.02)=X
  1. .S IBDATA(1,.03)=1
  1. .S IBDATA(1,60.01)=EASDFN
  1. .S OK=$$BUFF^IBCNBES1(.IBDATA)
  1. ;applicant additional health insurance
  1. K IBDATA
  1. F MM=1:1 S DATANM="OTHER(N) INSURANCE COMPANY" S X=$$GET(DATANM,MM) Q:(X="") D
  1. .S IBDATA(1,20.01)=X
  1. .S DATANM="OTHER(N) INSURANCE GROUP CODE" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,40.03)=X
  1. .S DATANM="OTHER(N) INSURANCE POLICY HOLDER" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,60.07)=X
  1. .S IBDATA(1,60.05)=$$INSREL(IBDATA(1,60.07))
  1. .S X=IBDATA(1,60.05) S IBDATA(1,60.06)=$S(X="v":"01",X="s":"02",1:"09")
  1. .S DATANM="OTHER(N) INSURANCE POLICY NUMBER" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,60.04)=X
  1. .S DATANM="OTHER(N) INSURANCE ADDRESS" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,21.01)=X
  1. .S DATANM="OTHER(N) INSURANCE CITY" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,21.04)=X
  1. .S DATANM="OTHER(N) INSURANCE STATE" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,21.05)=X
  1. .S DATANM="OTHER(N) INSURANCE ZIP" S X=$$GET(DATANM,MM)
  1. .S IBDATA(1,21.06)=X
  1. .S X=$$INSPH^EASEZT2(EASAPP,"OTHER(N)",MM)
  1. .S IBDATA(1,20.02)=X
  1. .S IBDATA(1,.03)=1
  1. .S IBDATA(1,60.01)=EASDFN
  1. .S OK=$$BUFF^IBCNBES1(.IBDATA)
  1. ;
  1. ;spouse health insurance
  1. ;retain for backward compatibility
  1. K IBDATA
  1. S DATANM="SPOUSE INSURANCE COMPANY" S X=$$GET(DATANM)
  1. I X'="" D
  1. .S IBDATA(2,20.01)=X
  1. .S DATANM="SPOUSE INSURANCE GROUP CODE" S X=$$GET(DATANM)
  1. .S IBDATA(2,40.03)=X
  1. .S DATANM="SPOUSE INSURANCE POLICY HOLDER" S X=$$GET(DATANM)
  1. .S IBDATA(2,60.07)=X
  1. .S DATANM="SPOUSE INSURANCE POLICY NUMBER" S X=$$GET(DATANM)
  1. .S IBDATA(2,60.04)=X
  1. .S IBDATA(2,60.05)="s"
  1. .S IBDATA(2,.03)=1
  1. .S IBDATA(2,60.06)="02"
  1. .S IBDATA(2,60.01)=EASDFN
  1. .S OK=$$BUFF^IBCNBES1(.IBDATA)
  1. ;
  1. ;update field #.3192 in file #2 for Reg. screen 5
  1. S X=$P($G(^DPT(EASDFN,.31)),U,11) I ((X="")!(X="U")) S $P(^DPT(EASDFN,.31),U,11)="N"
  1. Q
  1. ;
  1. GET(DATANM,MM) ;get 1010EZ data as needed by IB
  1. ;
  1. N KEY,XDATA
  1. I '$G(MM) S MM=1
  1. S KEY=+$$KEY711^EASEZU1(DATANM)
  1. S XDATA=$P($$DATA712^EASEZU1(EASAPP,KEY,MM),U,1)
  1. I DATANM["DATE",XDATA'="" D
  1. .S X=XDATA D ^%DT S XDATA=$P(Y,".",1)
  1. S XDATA=$$UC^EASEZT1(XDATA)
  1. Q XDATA
  1. ;
  1. INSREL(INSNM) ;
  1. N FRSTNM,LSTNM
  1. I INSNM="" Q ""
  1. S DATANM="APPLICANT LAST NAME" S LSTNM=$$GET(DATANM)
  1. S DATANM="APPLICANT FIRST NAME" S FRSTNM=$$GET(DATANM)
  1. I INSNM[LSTNM,INSNM[FRSTNM Q "v"
  1. S DATANM="SPOUSE LAST NAME" S LSTNM=$$GET(DATANM)
  1. S DATANM="SPOUSE FIRST NAME" S FRSTNM=$$GET(DATANM)
  1. I INSNM[LSTNM,INSNM[FRSTNM Q "s"
  1. Q "o"