©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
ABSPDB1F ; IHS/OIT/CASSevern/Pieran ran 1/19/2011 - Handling of outgoing NCPDP Billing "B1" Claims for D.0 (Helper subroutines)
Source file <ABSPDB1F.m>
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPDB1 ABSPDB2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKDUROVR(IEN59,SPECIAL) | ;EP CALLED FROM ABSPDB1,ABSPDB2 -- Check for manual Over-Rides
|
|
| ADDSEG(SPECIAL,ADDSEG) | ;EP CALLED FROM ABSPDB1,ABSPDB2 -- Add segment if we have a field in that segment to send
|
|
| CHECKOVER(IEN59,SPECIAL) | ;EP CALLED FROM ABSPDB1,ABSPDB2 -- Check for manual Over-Rides
|
|
| CHKDIAGOVR(IEN59,SPECIAL) | ;EP CALLED FROM ABSPDB1,ABSPDB2 -- Check for manual Over-Rides
|
| Name | Field # of Occurrence |
|---|---|
| GETS^DIQ | CHECKOVER+5, CHKDUROVR+5, CHKDIAGOVR+5 |
| FileNo | Call Tags |
|---|---|
| ^ABSP(9002313.473 - [#9002313.473] | GETS^DIQ |
| ^ABSP(9002313.491 - [#9002313.491] | GETS^DIQ |
| ^ABSP(9002313.511 - [#9002313.511] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPT - [#9002313.59] | CHECKOVER+2, CHKDUROVR+2, CHKDIAGOVR+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDSEG | ADDSEG~ |
| ADDSEG("ADDOC" | ADDSEG+23* |
| ADDSEG("CLINICAL" | ADDSEG+22* |
| ADDSEG("COB" | ADDSEG+17* |
| ADDSEG("COMPOUND" | ADDSEG+21* |
| ADDSEG("COUPON" | ADDSEG+20* |
| ADDSEG("DURRPPS" | ADDSEG+19* |
| ADDSEG("FACILITY" | ADDSEG+24* |
| ADDSEG("NARRATIVE" | ADDSEG+13* |
| ADDSEG("PROVIDER" | ADDSEG+16* |
| ADDSEG("WORKCOMP" | ADDSEG+18* |
| DIAG | CHKDIAGOVR+6~, CHKDIAGOVR+10*, CHKDIAGOVR+13 |
| DO | CHECKOVER+1~, CHECKOVER+4*, CHECKOVER+5, CHKDUROVR+1~, CHKDUROVR+4*, CHKDUROVR+5, CHKDIAGOVR+1~, CHKDIAGOVR+4*, CHKDIAGOVR+5 |
| DUR | CHKDUROVR+6~, CHKDUROVR+10*, CHKDUROVR+13 |
| FIELD | CHECKOVER+1~, CHECKOVER+9*, CHECKOVER+11, CHKDUROVR+1~, CHKDUROVR+9*, CHKDUROVR+10, CHKDUROVR+11*, CHKDUROVR+12, CHKDUROVR+13, CHKDIAGOVR+1~ , CHKDIAGOVR+9*, CHKDIAGOVR+10, CHKDIAGOVR+11*, CHKDIAGOVR+12, CHKDIAGOVR+13 |
| I | CHECKOVER+6~, CHECKOVER+7*, CHECKOVER+8*, CHECKOVER+9, CHECKOVER+10, CHKDUROVR+6~, CHKDUROVR+7*, CHKDUROVR+8*, CHKDUROVR+10, CHKDUROVR+11 , CHKDUROVR+12, CHKDIAGOVR+6~, CHKDIAGOVR+7*, CHKDIAGOVR+8*, CHKDIAGOVR+10, CHKDIAGOVR+11, CHKDIAGOVR+12 |
| IEN59 | CHECKOVER~, CHECKOVER+2, CHKDUROVR~, CHKDUROVR+2, CHKDIAGOVR~, CHKDIAGOVR+2 |
| NCODE | ADDSEG+1~, ADDSEG+11*, ADDSEG+12*, ADDSEG+13, ADDSEG+15 |
| NCTEST | ADDSEG+14~, ADDSEG+15*, ADDSEG+16, ADDSEG+17, ADDSEG+18, ADDSEG+19, ADDSEG+20, ADDSEG+21, ADDSEG+22, ADDSEG+23 , ADDSEG+24 |
| OVRARRAY | CHECKOVER+1~, CHKDUROVR+1~, CHKDIAGOVR+1~ |
| OVRARRAY( | CHECKOVER+8, CHECKOVER+9, CHECKOVER+10, CHKDUROVR+8, CHKDUROVR+10, CHKDUROVR+11, CHKDUROVR+12, CHKDIAGOVR+8, CHKDIAGOVR+10, CHKDIAGOVR+11 , CHKDIAGOVR+12 |
| OVRREC | CHECKOVER+1~, CHECKOVER+2*, CHECKOVER+3, CHECKOVER+4, CHKDUROVR+1~, CHKDUROVR+2*, CHKDUROVR+3, CHKDUROVR+4, CHKDIAGOVR+1~, CHKDIAGOVR+2* , CHKDIAGOVR+3, CHKDIAGOVR+4 |
| SEG | ADDSEG+1~ |
| SEG("ADDOC" | ADDSEG+8*, ADDSEG+23 |
| SEG("CLINICAL" | ADDSEG+7*, ADDSEG+22 |
| SEG("COB" | ADDSEG+2*, ADDSEG+17 |
| SEG("COMPOUND" | ADDSEG+6*, ADDSEG+21 |
| SEG("COUPON" | ADDSEG+5*, ADDSEG+20 |
| SEG("DURRPPS" | ADDSEG+4*, ADDSEG+19 |
| SEG("FACILITY" | ADDSEG+9*, ADDSEG+24 |
| SEG("PROVIDER" | ADDSEG+10*, ADDSEG+16 |
| SEG("WORKCOMP" | ADDSEG+3*, ADDSEG+18 |
| SPECIAL | ADDSEG~, CHECKOVER~, CHKDUROVR~, CHKDIAGOVR~ |
| SPECIAL( | ADDSEG+12, CHECKOVER+11*, CHKDUROVR+13*, CHKDIAGOVR+13* |
| >> SUPRESSG("Add | itional Doc" , ADDSEG+23! |
| >> SUPRESSG("COB" | ADDSEG+17! |
| >> SUPRESSG("Clinical" | ADDSEG+22! |
| >> SUPRESSG("Compound" | ADDSEG+21! |
| >> SUPRESSG("Coupon" | ADDSEG+20! |
| >> SUPRESSG("DURR/PPS" | ADDSEG+19! |
| >> SUPRESSG("Facility" | ADDSEG+24! |
| >> SUPRESSG("Narrative" | ADDSEG+13! |
| >> SUPRESSG("Provider" | ADDSEG+16! |
| >> SUPRESSG("Wor | kers Comp" , ADDSEG+18! |
| U | CHECKOVER+2, CHKDUROVR+2, CHKDIAGOVR+2 |
| VALUE | CHECKOVER+1~, CHECKOVER+10*, CHECKOVER+11, CHKDUROVR+1~, CHKDUROVR+12*, CHKDUROVR+13, CHKDIAGOVR+1~, CHKDIAGOVR+12*, CHKDIAGOVR+13 |