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

BARADJRL.m

Go to the documentation of this file.
  1. BARADJRL ;IHS/SD/POT - CREATE ENTRY IN A/R EDI STND CLAIM ADJ REASON ;
  1. ;;1.8;IHS ACCOUNTS RECEIVABLE;**28**;OCT 26, 2005;Build 92
  1. ; IHS/SD/CPC HEAT326081 - V1.8 P28 - updated SARs
  1. ; code cloned from BARADJR7
  1. ;
  1. EN ; EP
  1. ; Change Name of these reasons
  1. S BARD=";;"
  1. S BARCNT=0
  1. D BMES^XPDUTL("Updating Adjustment Reasons to A/R Table Entry file Phase 2...")
  1. F D CHNGREA2 Q:BARVALUE="END"
  1. K DIC,DA,X,Y,DIE
  1. D ^BARVKL0
  1. D BMES^XPDUTL("SAR Codes Update Complete...")
  1. Q
  1. ; ********************************************************************
  1. CHNGREA2 ;
  1. S BARCNT=BARCNT+1
  1. S BARVALUE=$P($T(@4+BARCNT),BARD,2)
  1. Q:BARVALUE="END"
  1. K DIC,DA,X,Y,DIE
  1. S DIC="^BARTBL("
  1. S DIC(0)="M"
  1. S X=BARVALUE
  1. D ^DIC
  1. I +Y>0 D
  1. .K DIC,DIE,BARNAME
  1. .S DIE="^BARTBL("
  1. .S DA=+Y
  1. .S BARNAME=$P($T(@4+BARCNT),BARD,3)
  1. .S DR=".01////^S X=BARNAME"
  1. .D ^DIE
  1. .D MES^XPDUTL(BARVALUE_$S($L(BARVALUE)=2:" ",$L(BARVALUE)=1:" ",1:" ")_BARNAME)
  1. Q
  1. ; ********************************************************************
  1. ; STANDARD CODE ;; RPMS REASON
  1. ; ********************************************************************
  1. 4 ;;A/R Table Entry file - Edits DIE="^BARTBL("
  1. ;;900;;Clm Lacks Prior Pymt Info;;4;;D16
  1. ;;901;;Clm Den Inadq Level of Sublux;;4;;D1
  1. ;;902;;Claim lacks drug information;;4;;D2
  1. ;;903;;Clm Den Info Pt Equip Missing;;4;;D3
  1. ;;904;;Period of time missing;;4;;D4
  1. ;;905;;Clm Den Lacks Indvdl Lab Code;;4;;D5
  1. ;;906;;Clm Den No MR Copy Included;;4;;D6
  1. ;;907;;Clm Den Lacks Date of RecVisit;;4;;D7
  1. ;;908;;Clm Den Lacks Info Xray Avail;;4;;D8
  1. ;;909;;Clm Den Lacks Actual Lens Cost;;4;;D9
  1. ;;910;;Clm Den Pvdr Fin. Forms NOF;;4;;D10
  1. ;;911;;Clm Lacks Pcmkr Reg Form;;4;;D11
  1. ;;912;;Clm Den No Idtfr Who did DXtst;;4;;D12
  1. ;;913;;Clm Den Pvdr has Fin Interest;;4;;D13
  1. ;;914;;Clm Lacks TX Plan on File;;4;;D14
  1. ;;915;;Clm Lacks Sprvs MD Info;;4;;D15
  1. ;;919;;Penalty for interest pymt;;15;;225
  1. ;;922;;Provider Performance Bonus;;16;;161
  1. ;;927;;Clm/Svc invld noncoverd days;;4;;D17
  1. ;;928;;Clm/Svc missing DX info;;4;;D18
  1. ;;929;;Clm Lacks Supporting Dcmnt;;4;;D19
  1. ;;930;;DOS during lapse in coverage;;4;;200
  1. ;;931;;Pt resp thru set aside agreemt;;4;;201
  1. ;;932;;Non Cov Personal/Convenient;;4;;202
  1. ;;933;;Discontinued/Reduced Service;;4;;203
  1. ;;934;;Srvc Not Cov Under Ben Plan;;4;;204
  1. ;;935;;RX discount card proc fee;;3;;205
  1. ;;936;;NPI Missing;;21;;206
  1. ;;937;;Invalid NPI format;;21;;207
  1. ;;938;;NPI Not Matched;;21;;208
  1. ;;939;;Pt Resp. Bill Other Ins.;;4;;209
  1. ;;940;;Pymt Adj Precert Not Timely;;4;;210
  1. ;;941;;NDC not elg for rebate not cov;;4;;211
  1. ;;942;;Admin Surcharge Not Covered;;4;;212
  1. ;;943;;Non Compliant with Policy;;4;;213
  1. ;;944;;Work Comp Non-Compensable;;4;;214
  1. ;;945;;Subrogation of TP Settlement;;4;;215
  1. ;;946;;Findings of Review Org.;;4;;216
  1. ;;947;;Work Comp over UCR;;4;;217
  1. ;;948;;Work Comp entitlement to ben.;;4;;218
  1. ;;949;;Work Comp extent of injury;;4;;219
  1. ;;950;;Work Comp - Bill with Code;;4;;220
  1. ;;951;;Work Comp - Clm Under Invest;;21;;221
  1. ;;952;;Max Time/Hours for Provider;;4;;222
  1. ;;953;;Mandated Fed/State/Local Reg;;4;;223
  1. ;;954;;Pt ID compromised by ID theft;;4;;224
  1. ;;956;;Info req from prov not rec/suf;;4;;226
  1. ;;957;;Pymt Adj Pat. Infor Incmplt;;4;;227
  1. ;;958;;Req info not prov for proc;;4;;228
  1. ;;959;;Partial Chg Unall due to TOB;;4;;229
  1. ;;960;;No CPT/HCPCS to describe svc;;4;;230
  1. ;;961;;Proc not allowed same day/set;;4;;231
  1. ;;962;;Institutional Transfer Amt;;4;;232
  1. ;;963;;Hospital acquired condition;;4;;233
  1. ;;964;;Proc not paid seperately;;4;;234
  1. ;;965;;Sales Tax;;4;;235
  1. ;;966;;Proc/mod not comp,othr,NCCI;;4;;236
  1. ;;967;;Clm spans elig/inelg cov-PT;;4;;238
  1. ;;969;;Clm spans elig/inelg cov-rebi;;4;;239
  1. ;;970;;Clm/Svc miss svc/prod info;;4;;D20
  1. ;;971;;DX(s) missing or invalid;;4;;D21
  1. ;;972;;WC Pymt Adj Reason issue separ;;4;;D22
  1. ;;973;;Other primary coverage;;4;;D23
  1. ;;975;;Legislative/Regulatory Penalty;;15;;237
  1. ;;980;;Dx inconsist w pt's birth wt;;4;;240
  1. ;;981;;Low Income Subsidy copay amt;;14;;241
  1. ;;982;;Svcs not provided by netwk/pcp;;4;;242
  1. ;;983;;Svcs not auth'd by network/pcp;;4;;243
  1. ;;984;;Pmt reduced to zero due to lit;;21;;244
  1. ;;985;;Prov performance prog withhold;;15;;245
  1. ;;986;;Non-payable code for req'd rep;;4;;246
  1. ;;987;;Ded-Prof svc rendered in Inst;;13;;247
  1. ;;988;;Coins-Prof svc rendrd in Inst;;14;;248
  1. ;;989;;Clm identified as readmission;;4;;249
  1. ;;END