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

ABMUB92.m

Go to the documentation of this file.
  1. ABMUB92 ;IHS/ASDST/LSL - Update UB92 codes
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. ; IHS/ASDS/LSL - 05/22/00 - V2.4 Patch 1 - NOIS XAA-0500-200043
  1. ; Created routine to update 3P CODE file with new UB codes.
  1. ; Cannot send a new global (3P CODES) because site may have
  1. ; already added codes. The IEN's will not match.
  1. ;
  1. Q
  1. START ;
  1. ; A = ADMISSION SOURCE
  1. ; B = BILL TYPE
  1. ; C = CONDITION
  1. ; D = DENIAL REASON
  1. ; H = HCFA POS
  1. ; I = SPECIAL PROGRAM
  1. ; N = NEWBORN
  1. ; O = OCCURANCE
  1. ; P = PATIENT DISCHARGE STATUS
  1. ; R = RELATIONSHIP TO INSURED
  1. ; S = OCCURANCE SPAN
  1. ; T = ADMISSION TYPE
  1. ; V = VALUE
  1. ; X = PSRO APRROVAL
  1. ;
  1. F ABM="A","B","C","D","H","I","N","O","P","R","S","T","V","X" D DETAIL
  1. K ABMCODE,DA,DR,DIK,DIE,ABM,DIC,ABMC,ABMCNT,X,DD,DO,ABMDESC
  1. Q
  1. ;
  1. DETAIL ;
  1. ; If code is one digit numeric, place 0 before code
  1. S ABMCODE=0
  1. F S ABMCODE=$O(^ABMDCODE("AC",ABM,ABMCODE)) Q:$L(ABMCODE)>1!(ABMCODE="") D
  1. . Q:+ABMCODE<1 ; Not numeric
  1. . S ABMDA=0
  1. . F S ABMDA=$O(^ABMDCODE("AC",ABM,ABMCODE,ABMDA)) Q:'+ABMDA D
  1. . . S ABMC="0"_ABMCODE
  1. . . S DA=ABMDA
  1. . . S DIE="^ABMDCODE("
  1. . . S DR=".01///"_ABMC
  1. . . D ^DIE
  1. . . S DA=ABMDA
  1. . . S DIK="^ABMDCODE("
  1. . . S DIK(1)=".02^AC"
  1. . . D EN1^DIK ; Set additional AC X-ref
  1. ;
  1. ; Add new codes to file
  1. S DIC="^ABMDCODE("
  1. S DIC(0)="L"
  1. S ABMCNT=0
  1. F D Q:$P($T(@ABM+ABMCNT),";;",2)="END"
  1. . S ABMCNT=ABMCNT+1
  1. . Q:$P($T(@ABM+ABMCNT),";;",2)="END"
  1. . S X=$P($T(@ABM+ABMCNT),";;",2)
  1. . S ABMDESC=$P($T(@ABM+ABMCNT),";;",3)
  1. . Q:$D(^ABMDCODE("AC",ABM,X))=10
  1. . S DIC("DR")=".02////"_ABM_";.03////"_$E(ABMDESC,1,70)
  1. . K DD,DO
  1. . D FILE^DICN
  1. K DIC
  1. Q
  1. ;
  1. FIX ;
  1. ; Get x-ref on single digit numeric back
  1. F ABM="A","B","C","D","H","I","N","O","P","R","S","T","V","X" D
  1. . S ABMCODE=0
  1. . F S ABMCODE=$O(^ABMDCODE("AC",ABM,ABMCODE)) Q:ABMCODE="" D
  1. . . Q:$E(ABMCODE)'=0
  1. . . S ABMDA=0
  1. . . F S ABMDA=$O(^ABMDCODE("AC",ABM,ABMCODE,ABMDA)) Q:'+ABMDA D
  1. . . . S ^ABMDCODE("AC",ABM,+ABMCODE,ABMDA)=""
  1. Q
  1. ;
  1. A ; Admission Source Codes
  1. ;;A;;Transfer from a Critical Assess Hospital
  1. ;;B;;Transfer from Another Home Health Agency
  1. ;;END
  1. ;
  1. B ; Bill Type
  1. ;;END
  1. ;
  1. C ; Condition codes
  1. ;;09;;Neither Patient Nor Spouse Is Employed
  1. ;;10;;Patient/Spouse is Employed by NO Employee Group Health Plan Exists
  1. ;;11;;Disables Beneficiary but NO LGHP
  1. ;;17;;Patient is Homeless
  1. ;;19;;Child Retains Mother's Name
  1. ;;20;;Beneficiary Requested Billing
  1. ;;21;;Billing for Denial Notice
  1. ;;22;;Patient on Multiple Drug Regimen
  1. ;;23;;Home Caregiver Available
  1. ;;24;;Home IV Patient Also Receiving HHA Services
  1. ;;25;;Patient is Non-US Resident
  1. ;;26;;VA Eligible Patient Chooses to Rec Svcs in a Medicare Certified Fac
  1. ;;27;;Patient Ref to a Sole Community Hospital for a Diagnostic Lab Test
  1. ;;28;;Patient and/or Spouse's EGHP is Secondary to Medicare
  1. ;;29;;Disabled Beneficiary and/or Family Member's LGHP is 2nd to Medicare
  1. ;;37;;Ward Accomodation - Patient Request
  1. ;;38;;Semi-Private Room Not Available
  1. ;;39;;Private Room Medically Necessity
  1. ;;41;;Partial Hospitalization
  1. ;;42;;Continuing Care Not Related to Inpatient Admission
  1. ;;43;;Continuing Care Not Provided Within Prescribed Post-Discharge Window
  1. ;;46;;Non-Availability Statement on File
  1. ;;48;;Psychiatirc Residential Tx Centers for Children & Adolescents (RTC)
  1. ;;55;;SNF Bed Not Available
  1. ;;56;;Medical Appropriateness
  1. ;;57;;SNF Readmission
  1. ;;60;;Day Outlier
  1. ;;61;;Cost Outlier
  1. ;;66;;Provider Does not Wish Cost Outlier Payment
  1. ;;67;;Beneficiary Elects not to use Life Time Reserve (LTR) Days
  1. ;;68;;Beneficiary Elects to use Life Time Reserve (LTR) Days
  1. ;;69;;IME Payment Only Bill
  1. ;;70;;Self-Administered EPO
  1. ;;71;;Full Care in Unit
  1. ;;72;;Self-Care in Unit
  1. ;;73;;Self-Care Training
  1. ;;74;;Home
  1. ;;75;;Home - 100% Reimbursement
  1. ;;76;;Back-up in Facility Dialysis
  1. ;;77;;Provider Accepts Payment by a Primary Payer as Payment in Full
  1. ;;78;;New Coverage Not Implemented by HMO
  1. ;;79;;CORF Services Provided Offsite
  1. ;;END
  1. ;
  1. D ; Denial Reasons
  1. ;;END
  1. ;
  1. H ; HCFA POS
  1. ;;END
  1. ;
  1. I ; Special Program
  1. ;;END
  1. ;
  1. N ; Newborn
  1. ;;END
  1. ;
  1. O ; Occurance Codes
  1. ;;09;;Start of Infertility Treatment Cycle
  1. ;;12;;Date of Onset Dependent Individual
  1. ;;17;;Date Outpatient Occupational Therapy Plan Established/Last Reviewed
  1. ;;27;;Date Home Health Plan Established or Last Reviewed
  1. ;;28;;Date Comprehensive Outpatient Rehab Plan Established/Last Reviewed
  1. ;;29;;Date Outpatient Physical Therapy Plan Established/Last Reviewed
  1. ;;30;;Date Outpatient Plan Established or Last Reviewed
  1. ;;31;;Date Beneficiary Notified of Intent to Bill Accomodations
  1. ;;32;;Date Beneficiary Notified of Intent to Bill Procedures or Treatments
  1. ;;33;;1st Date of Medicare Coordination period for ESRD Ben Covered by EGHP
  1. ;;34;;Date of Election of Extended Care Facilities
  1. ;;35;;Date Treatment started for PT
  1. ;;36;;Date of Inpatient Hospital Discharge for Covered Transplant Patients
  1. ;;37;;Date of Inpt Hospital Discharge for Non-Covered Transplant Patient
  1. ;;43;;Scheduled Date of Cancelled Surgery
  1. ;;44;;Date Treatment started for OT
  1. ;;45;;Date Treatment started for ST
  1. ;;46;;Date Treatment started for Cardiac Rehab
  1. ;;47;;Date Cost Outlier Status Begins
  1. ;;A1;;Birthdate - Insured A
  1. ;;A2;;Effective Date - Insured A Policy
  1. ;;A3;;Benefits Exhausted
  1. ;;B1;;Birthdate - Insured B
  1. ;;B2;;Effective Date - Insured B Policy
  1. ;;B3;;Benefits Exhausted
  1. ;;C1;;Birthdate - Insured C
  1. ;;C2;;Effective Date - Insured C Policy
  1. ;;C3;;Benefits Exhausted
  1. ;;E1;;Birthdate - Insured D
  1. ;;E2;;Effective Date - Insured D Policy
  1. ;;E3;;Benefits Exhausted
  1. ;;F1;;Birthdate - Insured E
  1. ;;F2;;Effective Date - Insured E Policy
  1. ;;F3;;Benefits Exhausted
  1. ;;G1;;Birthdate - Insured F
  1. ;;G2;;Effective Date - Insured F Policy
  1. ;;G3;;Benefits Exhausted
  1. ;;END
  1. ;
  1. P ; Patient Discharge Status
  1. ;;08;;Discharged/Transferred to home under care of Home IV Provider
  1. ;;09;;Admitted as an inpatient to this hospital
  1. ;;40;;Expired at home
  1. ;;41;;Expired in a medical facility
  1. ;;42;;Expired - Place Unknown
  1. ;;50;;Hospice - Home
  1. ;;51;;Hospice - Medical Facility
  1. ;;61;;Discharged/Transferred to Swing Bed (In house)
  1. ;;71;;Discharged/Transferred to another facility for Outpatient Services
  1. ;;72;;Discharged/Transferred/Referred to this Facility for Outpatient Svcs
  1. ;;END
  1. ;
  1. R ; Relationship to Insured
  1. ;;END
  1. ;
  1. S ; Occurance Span codes
  1. ;;77;;Provider Liability Period
  1. ;;78;;SNF Prior Stay Dates
  1. ;;M0;;PRO/UR Approved Stay Dates
  1. ;;M1;;Provider Liability - No Utilization
  1. ;;M2;;Inpatient Respite Dates
  1. ;;END
  1. ;
  1. T ; Admission Type
  1. ;;END
  1. ;
  1. V ; Value codes
  1. ;;37;;Pints of Blood Furnished
  1. ;;38;;Blood Deductible
  1. ;;39;;Pints of Blood Replaced
  1. ;;41;;Black Lung
  1. ;;42;;VA
  1. ;;43;;Disabled Beneficiary Under Age 65 with LGHP
  1. ;;45;;Accident Hour
  1. ;;46;;Number of Grace Days
  1. ;;47;;Any Liability
  1. ;;48;;Hemoglobin Reading
  1. ;;49;;Hematocrit Reading
  1. ;;50;;Physical Therapy Visit
  1. ;;51;;Occupational Therapy Visit
  1. ;;52;;Speech Therapy Visit
  1. ;;53;;Cardiac Rehab Visits
  1. ;;56;;Skilled Nurse - Home Visit Hours (HHA only)
  1. ;;57;;Home Health Aide - Home Visit Hours (HHA only)
  1. ;;58;;Arterial Blood Gas (PO2/PA2)
  1. ;;59;;Oxygen Saturaton
  1. ;;60;;HHA Branch
  1. ;;61;;Location Where Service is Furnished (HHA and Hospice)
  1. ;;67;;Peritoneal Dialysis
  1. ;;68;;EPO-Drug
  1. ;;73;;Drug Deductible
  1. ;;74;;Drug Coinsurance
  1. ;;A1;;Deductible Payer A
  1. ;;A2;;Coinsurance Payer A
  1. ;;A3;;Estimated Responsibility Payer A
  1. ;;A4;;Covered Self-Administrable Drugs - Emergency
  1. ;;A5;;Covered Self-Administrable Drugs - Not Self-Administrable
  1. ;;A6;;Covered Self-Administrable Drugs - Diagnostic Study and Other
  1. ;;B1;;Deductible Payer B
  1. ;;B2;;Coinsurance Payer B
  1. ;;B3;;Estimated Responsibility Payer B
  1. ;;C1;;Deductible Payer C
  1. ;;C2;;Coinsurance Payer C
  1. ;;C3;;Estimated Responsibility Payer C
  1. ;;D3;;Patient Estimated Responsibility
  1. ;;E1;;Deductible Payer D
  1. ;;E2;;Coinsurance Payer D
  1. ;;E3;;Estimated Responsibility Payer D
  1. ;;F1;;Deductible Payer E
  1. ;;F2;;Coinsurance Payer E
  1. ;;F3;;Estimated Responsibility Payer E
  1. ;;G1;;Deductible Payer F
  1. ;;G2;;Coinsurance Payer F
  1. ;;G3;;Estimated Responsibility Payer F
  1. ;;END
  1. ;
  1. X ; PSRO Approval
  1. ;;C1;;Approved as Billed
  1. ;;C2;;Automatic Approval as Billed Based on Focused Review
  1. ;;C3;;Partial Approval
  1. ;;C4;;Admission/Services Denied
  1. ;;C5;;Post Payment Review Applicable
  1. ;;C6;;Admission Preauthorization
  1. ;;C7;;Extended Authorization
  1. ;;END