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

ABMP2611.m

Go to the documentation of this file.
  1. ABMP2611 ; IHS/SD/SDR - 3P BILLING 2.6 Patch 11 POST INIT ;
  1. ;;2.6;IHS Third Party Billing;**11**;NOV 12, 2009;Build 133
  1. ;
  1. Q
  1. POST ;
  1. D ICDEFFDT ;re-populate ICD10 effective date with 10/1/14
  1. D ERRORCD ;create new claim editor error codes
  1. D EXP34 ;add new export mode 34 ADA-2012
  1. D ECODES ;add new 3P Codes entries
  1. D QUES28 ;add question 28 to export mode 27
  1. ;
  1. Q:(+$O(^ABMDCODE("AC","H","08",0))'=0)
  1. K DIC,X
  1. S DIC="^ABMDCODE("
  1. S DIC(0)="ML"
  1. S X="08"
  1. S DIC("DR")=".02///H"
  1. S DIC("DR")=DIC("DR")_";.03///TRIBAL 638 PROVIDER-BASED FACILITY"
  1. K DD,DO
  1. D FILE^DICN
  1. Q
  1. ICDEFFDT ;
  1. D BMES^XPDUTL("Auto-populating ICD-10 EFFECTIVE DATE with 10/1/2014 for all insurers...")
  1. S ABMHOLD=DUZ(2)
  1. S DUZ(2)=0
  1. F S DUZ(2)=$O(^ABMNINS(DUZ(2))) Q:'DUZ(2) D
  1. .S ABMDA=0
  1. .F S ABMDA=$O(^ABMNINS(DUZ(2),ABMDA)) Q:'ABMDA D
  1. ..S DIE="^ABMNINS("_DUZ(2)_","
  1. ..S DA=ABMDA
  1. ..S DR=".12////3141001"
  1. ..D ^DIE
  1. Q
  1. ERRORCD ;
  1. ;HEAT81017
  1. ;244 - No providers on claim
  1. K DIC,X
  1. S DIC="^ABMDERR("
  1. S DIC(0)="LM"
  1. S DINUM=244
  1. S X="No Providers on claim"
  1. S DIC("DR")=".02///Add some type of provider"
  1. S DIC("DR")=DIC("DR")_";.03///E"
  1. K DD,DO
  1. D FILE^DICN
  1. D SITE(244)
  1. Q
  1. ;
  1. SITE(ABMX) ;
  1. S DUZHOLD=DUZ(2)
  1. S DUZ(2)=0
  1. F S DUZ(2)=$O(^ABMDCLM(DUZ(2))) Q:'+DUZ(2) D
  1. .S DIC(0)="LX"
  1. .S DA(1)=ABMX
  1. .S DIC="^ABMDERR("_DA(1)_",31,"
  1. .S DIC("P")=$P(^DD(9002274.04,31,0),U,2)
  1. .S DINUM=DUZ(2)
  1. .S X=$P($G(^DIC(4,DUZ(2),0)),U)
  1. .S DIC("DR")=".03////"_$S(ABMX=243:"W",1:"E")
  1. .D ^DIC
  1. .K DA,DIC,DINUM
  1. S DUZ(2)=DUZHOLD
  1. K DUZHOLD,DLAYGO,ABMX
  1. Q
  1. EXP34 ;
  1. K DIC,DR,DINUM,DLAYGO,DIE
  1. S DIC="^ABMDEXP("
  1. S DIC(0)="LM"
  1. S DLAYGO=9002274
  1. S X="ADA-2012",DINUM=34
  1. K DD,DO
  1. D ^DIC
  1. Q:Y<0
  1. S DA=+Y
  1. S DIE="^ABMDEXP("
  1. S DR=".04////ABMDF34;.05////ABMDF34X;.06///C;.07///ADA Claim Form dated 2012;.08///1,2,3,4,9,32,33;.11////ABMDES4;.15///H"
  1. D ^DIE
  1. Q
  1. QUES28 ;EP
  1. S ABMQUES=$P($G(^ABMDEXP(27,0)),U,8)
  1. S DIE="^ABMDEXP("
  1. S DA=27
  1. S DR=".08////"_ABMQUES_",28"
  1. D ^DIE
  1. Q
  1. ECODES ;
  1. K DIC,X
  1. F ABMI=1:1 S ABMLN=$P($T(ECODETXT+ABMI),";;",2) Q:ABMLN="END" D
  1. .S ABMCODE=$P(ABMLN,U)
  1. .I $D(^ABMDCODE("AC",$P(ABMLN,U,2),ABMCODE)) D Q
  1. ..S DA=$O(^ABMDCODE("AC",$P(ABMLN,U,2),ABMCODE,0))
  1. ..S $P(^ABMDCODE(DA,0),U,2)=$P(ABMLN,U,2),$P(^(0),U,3)=$P(ABMLN,U,3),$P(^(0),U,4)=$P(ABMLN,U,4)
  1. .S ABMDESC=$P(ABMLN,U,3)
  1. .S ABMINAC=$P(ABMLN,U,4)
  1. .S DIC="^ABMDCODE("
  1. .S DIC(0)="ML"
  1. .S X=ABMCODE
  1. .S DIC("DR")=".02///"_$P(ABMLN,U,2)
  1. .S DIC("DR")=DIC("DR")_";.03///"_ABMDESC
  1. .S DIC("DR")=DIC("DR")_";.04///"_ABMINAC
  1. .K DD,DO
  1. .D FILE^DICN
  1. VALUE23 ;
  1. ;now check for duplicate entries for value code 23
  1. S ABM=0
  1. F ABMI=0:1 S ABM=$O(^ABMDCODE("AC","V",23,ABM)) Q:'ABM
  1. I ABMI<2 Q
  1. S DA=9999
  1. S ABMI=ABMI-1
  1. F ABM=1:1:ABMI D
  1. .S DIE="^ABMDCODE("
  1. .S DA=$O(^ABMDCODE("AC","V",23,DA),-1)
  1. .S DR=".04////1"
  1. .D ^DIE
  1. ;
  1. Q
  1. ECODETXT ;
  1. ;;03^H^SCHOOL
  1. ;;05^N^BORN INSIDE THIS HOSPITAL
  1. ;;06^N^BORN OUTSIDE THIS HOSPITAL
  1. ;;5^T^TRAUMA
  1. ;;01^N^NORMAL BIRTH^1
  1. ;;02^N^PREMARTURE BIRTH^1
  1. ;;03^N^SICK BABY^1
  1. ;;04^N^EXTRAMURAL BIRTH^1
  1. ;;1^A^NON-HEALTH CARE FACILITY POINT OF ORIGIN
  1. ;;2^A^CLINIC OR PHYSICIAN'S OFFICE
  1. ;;3^A^HMO REFERRAL^1
  1. ;;5^A^TRANSFER FROM SKILLED NURSING/INTERMEDIATE CARE/ASSISTING LIVING FAC
  1. ;;7^A^EMERGENCY ROOM^1
  1. ;;9^A^INFORMATION NOT AVAILABLE
  1. ;;A^A^Transfer from a Critical Access Hospital
  1. ;;B^A^Transfer from Another Home Health Agency
  1. ;;D^A^TRANSFER FROM ONE UNIT TO ANOTHER, SAME HOSP, SEPARATE CLAIM TO PAYER
  1. ;;E^A^TRANSFER FROM AMBULATORY SURGERY CENTER
  1. ;;F^A^TRANSFER FROM HOSPICE FACILITY
  1. ;;10^P^DISCHARGED TO MENTAL HEALTH FACILITY
  1. ;;30^P^Still Patient
  1. ;;43^P^Discharged/transferred to a Federal Health Care Facility
  1. ;;51^P^Hospice - Medical Facility (Certified) Providing Hospice Level of Care
  1. ;;61^P^Discharged/transferred to a Hospital-Based Medicare Approved Swing Bed
  1. ;;62^P^Discharged/transf to IRF incl Rehab Distinct Part Units of a Hospital
  1. ;;63^P^Discharged/transf to a Medicare Certified Long Term Care Hosp (LTCH)
  1. ;;64^P^Discharged/transf to a Nursing Fac Cert under Medicaid, not Medicare
  1. ;;65^P^Discharged/transf to a Psych Hosp or Psych Distinct Part Unit of Hosp
  1. ;;66^P^Discharged/transf to a Critical Access Hospital (CAH)
  1. ;;70^P^Discharged/transf to another Type of Health Care Inst not Defined
  1. ;;72^P^Discharged/Transferred/Referred to this Facility for Outpatient Svcs^1
  1. ;;01^P^Discharged to Home or Self Care (Routine Discharge)
  1. ;;02^P^Discharged/transferred to a Short-Term General Hospital for Inpt Care
  1. ;;03^P^Dischrgd/trans to SNF with Medicare Cert, Anticipation of Skilled Care
  1. ;;04^P^Discharged/transf to Facility that Provides Custodial/Supportive Care
  1. ;;05^P^Discharged/transf to a Designated Cancer Center or Children's Hospital
  1. ;;06^P^Discharged/transf to Home Under Care of an Org Home Hlth Svc Org
  1. ;;07^P^Left Against medical Advice or Discontinued Care
  1. ;;08^P^Discharged/Transferred to home under care of Home IV Provider^1
  1. ;;04^C^Information Only Bill
  1. ;;06^C^ESRD Patient in 1st 30 Months of Entitlement Cov by Employer Grp Ins
  1. ;;08^C^Beneficiary wouldn't Provide Information Concerning Other Ins Coverage
  1. ;;10^C^Patient/Spouse is Employed but NO Employee Group Health Plan Exists
  1. ;;11^C^Disabled Beneficiary but NO LGHP
  1. ;;30^C^Qualifying Clinical Trials
  1. ;;37^C^Ward Accommodation - Patient Request
  1. ;;44^C^Inpatient Admission Changed to Outpatient
  1. ;;45^C^Ambiguous Gender Category
  1. ;;48^C^Psychiatric Residential Tx Centers for Children & Adolescents (RTC)
  1. ;;47^C^Transfer from another Home Health Agency
  1. ;;49^C^Product Replacement within Product Lifecycle
  1. ;;50^C^Product Replacement for Known Recall of Product
  1. ;;51^C^Attestation of Unrelated Outpatient Nondiagnostic services
  1. ;;52^C^Out of Hospice Service Area
  1. ;;55^C^SNF Bed Not Available^1
  1. ;;58^C^Terminated Medicare Advantage Enrollee
  1. ;;59^C^Non-primary ESRD Facility
  1. ;;78^C^New Coverage not Implemented by Managed Care Plan
  1. ;;80^C^Home Dialysis - Nursing Facility
  1. ;;A7^C^INDUCED ABORTION DANGER TO LIFE^1
  1. ;;A8^C^INDUCED ABORTION VICTIM RAPE/INCEST^1
  1. ;;AA^C^Abortion Performed due to Rape
  1. ;;AB^C^Abortion Performed due to Incest
  1. ;;AC^C^Abortion Performed-Serious Fetal Genetic Defect/Deformity/Abnormality
  1. ;;AD^C^Abortion Performed due to Life Endangering Physical Condition
  1. ;;AE^C^Abortion Performed-Physical Health of Mother not Life Endangering
  1. ;;AF^C^Abortion Performed-Emotional/psychological Health of the Mother
  1. ;;AG^C^Abortion Performed due to Social or Economic Reasons
  1. ;;AH^C^Elective Abortion
  1. ;;AI^C^Sterilization
  1. ;;AJ^C^Payer Responsible for Co-Payment
  1. ;;AK^C^Air Ambulance Required
  1. ;;AL^C^Specialized Treatment/bed Unavailable - Alternate Facility Transport
  1. ;;AM^C^Non-emergency Medically Necessary Stretcher Transport Required
  1. ;;AN^C^Preadmission Screening not Required
  1. ;;B0^C^Medicare Coordinated Care Demonstration Claim
  1. ;;B1^C^Beneficiary is Ineligible for Demonstration Program
  1. ;;B2^C^Critical Access Hospital Ambulance Attestation
  1. ;;B3^C^Pregnancy Indicator
  1. ;;B4^C^Admission Unrelated to Discharge on Same Day
  1. ;;BP^C^Gulf Oil Spill of 2010
  1. ;;D4^C^CHANGE IN CLINICAL CODES (ICD) FOR DIAGNOSIS AND/OR PROCEDURE
  1. ;;DR^C^Disaster Related
  1. ;;H0^C^Delayed Filing-Statement of Intent Submitted
  1. ;;H2^C^Discharge by a Hospice Provider for Cause
  1. ;;H3^C^Reoccurrence of GI Bleed Comorbid Category
  1. ;;H4^C^Reoccurrence of Pneumonia Comorbid Category
  1. ;;H5^C^Reoccurrence of Pericarditis Comorbid Category
  1. ;;P1^C^Do Not Resuscitate Order (DNR)
  1. ;;P7^C^Direct Inpatient Admission from Emergency Room
  1. ;;W0^C^United Mine Workers of America (UMWA) Demonstration Indicator
  1. ;;W2^C^Duplicate of Original Bill
  1. ;;W3^C^Level I Appeal
  1. ;;W4^C^Level II Appeal
  1. ;;W5^C^Level III Appeal
  1. ;;01^O^Accident/Medical Coverage
  1. ;;04^O^ACCIDENT/EMPLOYMENT RELATED
  1. ;;05^O^Accident/No Medical or Liability Coverage
  1. ;;16^O^Date of Last Therapy
  1. ;;31^O^Date Beneficiary Notified Of Intent To Bill Accommodations
  1. ;;38^O^Date Treatment Started for Home IV Therapy
  1. ;;39^O^Date Discharged on a Continuous Course of IV Therapy
  1. ;;50^O^Assessment Date
  1. ;;51^O^Date of Last Kt/V Reading
  1. ;;52^O^Medical Certification/recertification Date
  1. ;;54^O^Physician Follow-Up date
  1. ;;55^O^Date of Death
  1. ;;A4^O^Split Bill Date
  1. ;;E1^O^Birthdate-Insured D^1
  1. ;;E2^O^Effective Date-Insured D Policy^1
  1. ;;E3^O^Benefits Exhausted^1
  1. ;;F1^O^Birthdate - Insured E^1
  1. ;;F2^O^Effective Date - Insured E Policy^1
  1. ;;F3^O^Benefits Exhausted^1
  1. ;;G1^O^Birthdate - Insured F^1
  1. ;;G2^O^Effective Date - Insured F Policy^1
  1. ;;G3^O^Benefits Exhausted^1
  1. ;;79^S^Payer Code
  1. ;;80^S^Prior Same-SNF Stay Date for Payment Ban Purposes
  1. ;;81^S^Antepartum Days at Reduced Level of Care
  1. ;;M3^S^ICF Level of Care
  1. ;;M4^S^Residential Level of Care
  1. ;;04^V^Professional Component Charges which are Combined Billed
  1. ;;07^V^MEDICARE PART A CASH DEDUCTIBLE^1
  1. ;;21^V^CATASTROPHIC
  1. ;;25^V^Offset to the Patient-Payment Amount - Prescription Drugs
  1. ;;26^V^Offset to the Patient-Payment Amount - Hearing and Ear Services
  1. ;;27^V^Offset to the Patient-Payment Amount - Vision and Eye Services
  1. ;;28^V^Offset to the Patient-Payment Amount - Dental Services
  1. ;;29^V^Offset to the Patient-Payment Amount - Chiropractic Services
  1. ;;33^V^Offset to the Patient-Payment Amount - Podiatric Services
  1. ;;34^V^Offset to the Patient-Payment Amount - Other Medical Service
  1. ;;35^V^Offset to the Patient-Payment Amount - Health Insurance Premiums
  1. ;;37^V^Units of Blood Furnished
  1. ;;39^V^Units of Blood Replaced
  1. ;;44^V^Amt Prov Agreed to Accept fr 1st Payer, Amt < Chrgs Higher than Pymnt
  1. ;;54^V^Newborn Birth Weight in Grams
  1. ;;55^V^Eligibility Threshold for Charity Care
  1. ;;59^V^Oxygen Saturation
  1. ;;66^V^Medicaid Spend Down Amount
  1. ;;69^V^State Charity Care Percent
  1. ;;73^V^Drug Deductible^1
  1. ;;74^V^Drug Coinsurance^1
  1. ;;81^V^NON-COVERED DAYS
  1. ;;510^V^OUTPATIENT FACILITY CHARGE^1
  1. ;;636^V^JCODES^1
  1. ;;A0^V^Special ZIP Code Reporting
  1. ;;A7^V^Co-payment Payer A
  1. ;;A8^V^Patient Weight
  1. ;;A9^V^Patient Height
  1. ;;AA^V^Regulatory Surcharges/Assessments/Allow/Hlth Cre Related Taxes Payer A
  1. ;;AB^V^Other Assessments or Allowance (e.g., Medical Education) Payer A
  1. ;;B7^V^Co-Payment Payer B
  1. ;;BA^V^Regulatory Surcharges/Assessments/Allow/Hlth Cre Related Taxes Payer B
  1. ;;BB^V^Other Assessments or Allowance (e.g., Medical Education) Payer B
  1. ;;C7^V^Co-Payment Payer C
  1. ;;CA^V^Regulatory Surcharges/Assessments/Allow/Hlth Cre Related Taxes Payer C
  1. ;;CB^V^Other Assessments or Allowance (e.g., Medical Education) Payer C
  1. ;;D4^V^Clinical Trial Number Assigned by NLM/NIH
  1. ;;D5^V^Last Kt/V Reading
  1. ;;E1^V^Deductible Payer D^1
  1. ;;E2^V^Coinsurance Payer D^1
  1. ;;E3^V^Estimated Responsibility Payer D^1
  1. ;;F1^V^Deductible Payer E^1
  1. ;;F2^V^Coinsurance Payer E^1
  1. ;;F3^V^Estimated Responsibility Payer E^1
  1. ;;FC^V^Patient Paid Amount
  1. ;;FD^V^Credit Received from the Manufacturer for a Replaced Medical Device
  1. ;;G1^V^Deductible Payer F^1
  1. ;;G2^V^Coinsurance Payer F^1
  1. ;;G3^V^Estimated Responsibility Payer F^1
  1. ;;G8^V^Facility where Inpatient Hospice Service is Delivered
  1. ;;Y1^V^Part A Demonstration Payment
  1. ;;Y2^V^Part B Demonstration Payment
  1. ;;Y3^V^Part B Coinsurance
  1. ;;Y4^V^Conventional Provider Payment Amount for Non-Demonstration Claims
  1. ;;END