©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BARDMAN3 ; IHS/SD/LSL - A/R Debt Collection Process (3) ;
Source file <BARDMAN3.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Accounts Receivable | 1 | SBR^BARUTL |
| Third Party Billing | 1 | ($$FNM,$$LNM,$$MI)^ABMUTLN |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TSELFILE | ; EP
; Build temp global of self pay starts records ; ------------------------------------------------ ; File layout ; --------------- ; 1 - 5 Client Number TSI Assigned Number ; 6 - 35 Patient Name (Last, First I) ; 36 - 65 Optional Address (If 2 line street addr) ; 66 - 95 Street Address ; 96 - 110 City ; 111 - 112 State ; 113 - 117 Zip Code ; 118 - 118 Service code (always 1) ; 119 - 138 Transmittal Number (AR bill - strip dashes) ; 139 - 144 Date last pay/charge (use DOS) ; 145 - 152 Amount Due ; ------------------------------------------------ |
|
| SSELFILE | ; EP
; Build temp global of self pay stops records ; ------------------------------------------------ ; File layout ; --------------- ; 1 - 5 Client Number TSI Assigned Number ; 6 - 25 Transmittal number (AR bill - strip dashes) ; 26 - 26 Code (5=Paid, 1=Cancel, A=adjusted) ; 27 - 34 New Balance (AR Bill balance) ; ------------------------------------------------ |
|
| SINSFILE | ; EP
; Build temp global of insurer stops records ; ------------------------------------------------ ; File layout ; --------------- ; 1 - 5 Client Number TSI Assigned Number ; 6 - 25 Transmittal number (AR bill - strip dashes) ; 26 - 26 Code (5=Paid, 1=Cancel, A=adjusted) ; 27 - 34 New Balance (AR Bill balance) ; ------------------------------------------------ |
|
| PAD(BARVAR,BARLNG) | ; EP
; Right justify, zero fill value BARVAR for length BARLNG |
|
| LJ(BARVAR,BARLNG) | ; EP
; Left justify, space fill value BARVAR for length BARLNG |
|
| TINSFILE | ; EP
; Build temp global of insurer starts records ; ------------------------------------------------ ; File layout ; --------------- ; 1 - 5 Client Number TSI Assigned Number ; 6 - 35 Insurance Company Name (AR Account) ; 36 - 65 Optional Address ; 66 - 95 Street Address ; 96 - 110 City ; 111 - 112 State ; 113 - 117 Zip Code ; 118 - 121 Zip Code Extension ; 122 - 151 Policy Number ; 152 - 171 Claim Number (AR Bill - with dashes) ; 172 - 201 Insured's Name ; 202 - 210 Insured's SS # ; 211 - 240 Patient Name ; 241 - 260 Transmittal Number (AR Bill - strip dashes) ; 261 - 261 Service Code (1) ; 262 - 267 Date of Service (MMDDYY) ; 268 - 275 Charges ; 276 - 281 Date of Service 2 (MMDDYY) ; 282 - 289 Charges 2 ; 290 - 295 Date of Service 3 (MMDDYY) ; 296 - 303 Charges 3 ; 304 - 309 Date of Service 4 (MMDDYY) ; 310 - 317 Charges 4 ; 318 - 323 Date of Service 5 (MMDDYY) ; 324 - 331 Charges 5 |
| Name | Field # of Occurrence |
|---|---|
| $$FNM^ABMUTLN | TINSFILE+52 |
| $$LNM^ABMUTLN | TINSFILE+51 |
| $$MI^ABMUTLN | TINSFILE+53 |
| SBR^BARUTL | TINSFILE+47 |
| $$GET1^DIQ | TSELFILE+18, TSELFILE+23, TSELFILE+24, TSELFILE+25, TSELFILE+28, TSELFILE+29, TSELFILE+30, TINSFILE+36, TINSFILE+37, TINSFILE+38 , TINSFILE+39, TINSFILE+40, TINSFILE+41, TINSFILE+49, TINSFILE+55, TINSFILE+58 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^BARBL(2906 - [#90050.01] | GET1^DIQ |
| ^AUTNINS - [#9999999.18] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BARBL( | TINSFILE+74 |
| ^BARSSELF($J | SSELFILE+16*, SSELFILE+17*, SSELFILE+18*, SSELFILE+19* |
| ^BARSTART($J | TINSFILE+83*, TINSFILE+84*, TINSFILE+85*, TINSFILE+86*, TINSFILE+87*, TINSFILE+88*, TINSFILE+89*, TINSFILE+90*, TINSFILE+91*, TINSFILE+92* , TINSFILE+93*, TINSFILE+94*, TINSFILE+95*, TINSFILE+96*, TINSFILE+97*, TINSFILE+98*, TINSFILE+99*, TINSFILE+100*, TINSFILE+101*, TINSFILE+102* , TINSFILE+103*, TINSFILE+104*, TINSFILE+105*, TINSFILE+106*, TINSFILE+107* |
| ^BARSTOPS($J | SINSFILE+16*, SINSFILE+17*, SINSFILE+18*, SINSFILE+19* |
| ^BARTSELF( | TSELFILE+39 |
| ^BARTSELF($J | TSELFILE+47*, TSELFILE+48*, TSELFILE+49*, TSELFILE+50*, TSELFILE+51*, TSELFILE+52*, TSELFILE+53*, TSELFILE+54*, TSELFILE+55*, TSELFILE+56* , TSELFILE+57* |
| Name | Line Occurrences |
|---|---|
| $$LJ | SSELFILE+11, SINSFILE+11, TSELFILE+21, TSELFILE+24, TSELFILE+26, TSELFILE+28, TSELFILE+33, TINSFILE+36, TINSFILE+38, TINSFILE+39 , TINSFILE+50, TINSFILE+56, TINSFILE+61, TINSFILE+64, TINSFILE+68 |
| $$PAD | SSELFILE+14, SINSFILE+14, TSELFILE+42, TSELFILE+43, TINSFILE+77 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABMP | TINSFILE+35! |
| ABMP("PNUM" | TINSFILE+48 |
| >> BARACT | SSELFILE+18, SINSFILE+18 |
| >> BARADDR | TSELFILE+24*, TSELFILE+49, TSELFILE+50 |
| >> BARADDR2 | TSELFILE+25*, TSELFILE+26*, TSELFILE+49, TSELFILE+50 |
| >> BARBAL | SSELFILE+14*, SSELFILE+19, SINSFILE+14*, SINSFILE+19, TSELFILE+43*, TSELFILE+57 |
| >> BARBL | SSELFILE+16, SSELFILE+17, SSELFILE+18, SSELFILE+19, SINSFILE+16, SINSFILE+17, SINSFILE+18, SINSFILE+19, TSELFILE+18, TSELFILE+23 , TSELFILE+39, TSELFILE+47, TSELFILE+48, TSELFILE+49, TSELFILE+50, TSELFILE+51, TSELFILE+52, TSELFILE+53, TSELFILE+54, TSELFILE+55 , TSELFILE+56, TSELFILE+57, TINSFILE+36, TINSFILE+37, TINSFILE+47, TINSFILE+49, TINSFILE+55, TINSFILE+58, TINSFILE+74, TINSFILE+83 , TINSFILE+84, TINSFILE+85, TINSFILE+86, TINSFILE+87, TINSFILE+88, TINSFILE+89, TINSFILE+90, TINSFILE+91, TINSFILE+92, TINSFILE+93 , TINSFILE+94, TINSFILE+95, TINSFILE+96, TINSFILE+97, TINSFILE+98, TINSFILE+99, TINSFILE+100, TINSFILE+101, TINSFILE+102, TINSFILE+103 , TINSFILE+104, TINSFILE+105, TINSFILE+106, TINSFILE+107 |
| >> BARBLNM | SSELFILE+11*, SSELFILE+12*, SSELFILE+17, SINSFILE+11*, SINSFILE+12*, SINSFILE+17, TSELFILE+33*, TSELFILE+34*, TSELFILE+55, TINSFILE+68* , TINSFILE+69*, TINSFILE+96 |
| >> BARBLNMD | TINSFILE+64*, TINSFILE+65*, TINSFILE+92 |
| >> BARCHGFL | TINSFILE+81*, TINSFILE+101, TINSFILE+103, TINSFILE+105, TINSFILE+107 |
| >> BARCHRG | TSELFILE+39*, TSELFILE+40, TSELFILE+41*, TSELFILE+42*, TINSFILE+74*, TINSFILE+75, TINSFILE+76*, TINSFILE+77*, TINSFILE+99 |
| >> BARCITY | TSELFILE+28*, TSELFILE+51 |
| >> BARDOS | TSELFILE+36*, TSELFILE+37*, TSELFILE+56, TINSFILE+71*, TINSFILE+72*, TINSFILE+98 |
| >> BARDOSFL | TINSFILE+80*, TINSFILE+100, TINSFILE+102, TINSFILE+104, TINSFILE+106 |
| >> BARIADDR | TINSFILE+38*, TINSFILE+86 |
| >> BARICITY | TINSFILE+39*, TINSFILE+87 |
| >> BARIIEN | TINSFILE+37*, TINSFILE+38, TINSFILE+39, TINSFILE+40, TINSFILE+41 |
| >> BARINSN | TINSFILE+36*, TINSFILE+84 |
| >> BARINUM | SINSFILE+16, TINSFILE+83 |
| >> BARIST | TINSFILE+40*, TINSFILE+88 |
| >> BARIZIP | TINSFILE+41*, TINSFILE+42, TINSFILE+43*, TINSFILE+45*, TINSFILE+89 |
| BARLNG | PAD~, PAD+3, PAD+5, LJ~, LJ+2, LJ+3, LJ+4, LJ+6 |
| >> BARPAT | TSELFILE+18*, TSELFILE+19*, TSELFILE+20*, TSELFILE+21*, TSELFILE+48, TINSFILE+58*, TINSFILE+59*, TINSFILE+60*, TINSFILE+61*, TINSFILE+95 |
| >> BARPFNM | TINSFILE+52*, TINSFILE+54 |
| >> BARPLNM | TINSFILE+51*, TINSFILE+54 |
| >> BARPMI | TINSFILE+53*, TINSFILE+54 |
| >> BARPNAM | TINSFILE+54*, TINSFILE+55*, TINSFILE+56*, TINSFILE+93 |
| >> BARPOLN | TINSFILE+48*, TINSFILE+49*, TINSFILE+50*, TINSFILE+91 |
| >> BARPTIEN | TSELFILE+23*, TSELFILE+24, TSELFILE+25, TSELFILE+28, TSELFILE+29, TSELFILE+30 |
| >> BARSBR | TINSFILE+51, TINSFILE+52, TINSFILE+53 |
| >> BARSNUM | SSELFILE+16, TSELFILE+47 |
| >> BARSP | TSELFILE+45*, TSELFILE+49, TINSFILE+79*, TINSFILE+85 |
| >> BARSPACE | LJ+4*, LJ+5 |
| >> BARSTATE | TSELFILE+29*, TSELFILE+52 |
| BARVAR | PAD~, PAD+4*, PAD+5*, PAD+6, LJ~, LJ+2, LJ+3*, LJ+5*, LJ+6*, LJ+7 |
| >> BARX | TSELFILE+40*, TSELFILE+41, TINSFILE+75*, TINSFILE+76 |
| BARZERO | PAD+2!, PAD+3*, PAD+4 |
| >> BARZEXT | TINSFILE+42*, TINSFILE+44*, TINSFILE+90 |
| >> BARZIP | TSELFILE+30*, TSELFILE+31*, TSELFILE+53 |
| DUZ(2 | TSELFILE+39, TINSFILE+47, TINSFILE+74 |
| U | TSELFILE+39, TINSFILE+74 |