©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
IBTUTL1 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93
Source file <IBTUTL1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 2 | $$INSURED^IBCNS1 ($$EABD,ADDT)^IBTUTL |
| VA Fileman | 2 | ^DIE EN^DIQ1 |
| Registration | 1 | PID^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REFILLQ | ||
| PRODAQ | ||
| REFILL(DFN,IBETYP,IBTDT,IBRXN,IBRXN1,IBRMARK) | ; -- add refill
|
|
| PROQ | ||
| PT(DFN) | ; -- format patient name - last 4 for output
|
|
| OPT(DFN,IBETYP,IBTDT,ENCTR,IBRMARK,IBVSIT) | ; -- add outpatient care entries
|
|
| PRO(DFN,IBTDT,IBPRO,IBRMARK) | ; -- add prosthetic entries
|
|
| PRODATA(IBDA) | ; -- return data from prosthetics file
|
|
| OPTQ | ||
| DIQ | ||
| PTQ |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | OPT+12, PT+3 |
| ^IBE(356.6 - [#356.6] | OPT+9, PRO+7 |
| ^IBT(356 - [#356] | OPT+10, OPT+15, OPT+19, REFILL+9, REFILL+13, REFILL+17, PRO+8, PRO+12, PRO+16 |
| ^RMPR(660 | PRODATA+4 |
| Name | Line Occurrences |
|---|---|
| OPTQ | OPT+10, OPT+14, OPT+15 |
| PRODAQ | PRODATA+3, PRODATA+5 |
| PROQ | PRO+8, PRO+10, PRO+12 |
| PTQ | PT+1 |
| REFILLQ | REFILL+9, REFILL+11, REFILL+13 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | OPT+12, PT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | OPT+8~, OPT+13*, OPT+18!, REFILL+8~, REFILL+12*, REFILL+16!, PRO+5~, PRO+11*, PRO+15!, PRODATA+1~ , DIQ+1* |
| DFN | OPT~, OPT+10, OPT+12, OPT+16, REFILL~, REFILL+9, REFILL+14, PRO~, PRO+13, PT~ , PT+1, PT+3 |
| DIC | OPT+8~, REFILL+8~, PRO+5~, PRODATA+1~, DIQ* |
| DIE | OPT+8~, OPT+13*, OPT+18!, REFILL+8~, REFILL+12*, REFILL+16!, PRO+5~, PRO+11*, PRO+15!, PRODATA+1~ |
| >> DIQ | DIQ+1* |
| >> DIQ(0 | DIQ+1* |
| DR | OPT+8~, OPT+16*, OPT+17*, OPT+18!, REFILL+8~, REFILL+14*, REFILL+15*, REFILL+16!, PRO+5~, PRO+13* , PRO+14*, PRO+15!, PRODATA+1~, DIQ* |
| DUZ | OPT+16, REFILL+14, PRO+13 |
| ENCTR | OPT~, OPT+12*, OPT+16 |
| IBDA | PRODATA~, PRODATA+3, PRODATA+4, DIQ+1 |
| IBDA0 | PRODATA+1~, PRODATA+4*, PRODATA+5 |
| IBETYP | OPT~, OPT+9*, OPT+10, OPT+16, REFILL~, REFILL+9, REFILL+14, PRO+5~, PRO+7*, PRO+13 |
| IBPRO | PRO~, PRO+8, PRO+13 |
| IBRMARK | OPT~, OPT+17, REFILL~, REFILL+15, PRO~, PRO+14 |
| IBRMPR | PRODATA+2! |
| IBRXN | REFILL~, REFILL+14 |
| IBRXN1 | REFILL~, REFILL+14 |
| IBTDT | OPT~, OPT+10, OPT+12, OPT+16, REFILL~, REFILL+9, REFILL+14, PRO~, PRO+13 |
| >> IBTRN | OPT+10*, OPT+13, OPT+14, OPT+15, OPT+19, REFILL+9*, REFILL+11, REFILL+12, REFILL+13, REFILL+17 , PRO+8*, PRO+10, PRO+11, PRO+12, PRO+16 |
| IBVSIT | OPT~, OPT+16 |
| >> VA("BID" | PT+3 |
| >> VA("PID" | PT+2 |
| X | OPT+8~, OPT+10*, REFILL+8~, REFILL+9*, PRO+5~, PRO+8* |
| Y | OPT+8~, REFILL+8~, PRO+5~, PT+1*, PT+3*, PTQ |