©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
IBCD2 ;ALB/ARH - AUTOMATED BILLER (CREATE - SETUP/GATHER DATA FIELDS) ; 8/6/93
Source file <IBCD2.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 5 | ^IBCD3 ($$CHKSYS,$$RXRF)^IBCD4 INPT^IBCD5 ($$BDT,$$SC)^IBCU3 $$ETXT^IBEFUNC |
| IFCAP | 1 | SETUP^PRCASVC3 |
| Registration | 1 | $$SITE^VASITE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QUIT | ||
| CONT | ||
| ARSET() | ; set up entry for new bill in AR returns IFN, bill number
|
|
| ARSETQ | ||
| CHK() | ;other checks
|
|
| CREATE | ;set up a bill, required: IBCT(IBTRN),IBDFN,IBSTDT
|
|
| FIND | ;
|
|
| EXIT | ||
| TBILL(TRN,IFN) | ;
|
|
| TERR(TRN,IFN,ER) | ;
|
|
| RXRF | ||
| OUTPT | ||
| TEABD(TRN,IBDT) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | OUTPT, RXRF |
| ^DGCR(399 - [#399] | TBILL+1 |
| ^DGCR(399.3 - [#399.3] | CREATE+9 |
| ^DPT - [#2] | CHK+1 |
| ^IBE(350.9 - [#350.9] | CREATE+2, ARSET+3 |
| ^IBE(356.6 - [#356.6] | CREATE+12 |
| ^IBT(356 - [#356] | CREATE+3, OUTPT+4, RXRF+4, TBILL+1 |
| ^IBT(356.2 - [#356.2] | CREATE+10 |
| ^TMP( | FIND+2, FIND+3, FIND+4, FIND+5 |
| ^TMP("IBCE" | TERR+1, TERR+2* |
| ^TMP("IBEABD" | TEABD+1* |
| ^TMP("IBILL" | TBILL+2* |
| Name | Line Occurrences |
|---|---|
| $$ARSET | CREATE+6 |
| $$CHK | CREATE+4 |
| ARSETQ | ARSET+5, ARSET+6 |
| CONT | CREATE+13, CREATE+14, CREATE+15 |
| CREATE | FIND+4 |
| EXIT | FIND+1 |
| OUTPT | CREATE+15 |
| QUIT | CREATE+3, CREATE+4, CREATE+6, CREATE+16 |
| RXRF | CREATE+14 |
| TBILL | CONT+9 |
| TEABD | CONT+8 |
| TERR | FIND+1, CREATE+3, CREATE+4, CREATE+6, CONT+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | EXIT!, CREATE+8* |
| DT | TERR+1, TERR+2 |
| ER | TERR~, TERR+2 |
| IB | CREATE+1!, QUIT! |
| IB( | CREATE+7*, CREATE+8*, CREATE+9*, CONT*, CONT+2*, OUTPT*, OUTPT+1*, OUTPT+3*, OUTPT+5*, RXRF* , RXRF+1*, RXRF+3*, RXRF+5*, RXRF+6* |
| IB(151 | OUTPT+3*, RXRF+3* |
| IB(152 | OUTPT+3*, OUTPT+5*, RXRF+3*, RXRF+6* |
| IB(163 | CREATE+10* |
| IB(43 | OUTPT+5* |
| IBCT | FIND+4, FIND+5!, EXIT!, CREATE+1 |
| IBCT( | FIND+5*, CONT+6, OUTPT+4, RXRF+4 |
| IBCT(0 | CREATE+2 |
| IBDFN | FIND+3*, FIND+4, FIND+5, EXIT!, CREATE+8, CONT, CONT+2, CHK+1 |
| IBDIV | CREATE+2*, QUIT!, OUTPT, RXRF |
| IBDT | TEABD~, TEABD+1* |
| IBI | OUTPT+5*, OUTPT+6!, RXRF+6*, RXRF+7! |
| >> IBIFN | CREATE+7*, CONT, CONT+7, CONT+9 |
| IBRX | RXRF+4*, RXRF+5, RXRF+7! |
| IBS | FIND+2*, FIND+3, FIND+4, FIND+5, EXIT! |
| IBSP | CREATE+2*, QUIT! |
| IBSTDT | FIND+4*, FIND+5, EXIT! |
| IBTF | FIND+5*, EXIT!, CREATE+8 |
| IBTRN | FIND+5*, EXIT!, CREATE+2*, CREATE+3, CREATE+4, CREATE+6, CREATE+10, CONT+6*, CONT+7, CONT+8 , CONT+9, QUIT! |
| IBTRND | CREATE+3*, CREATE+4, QUIT! |
| IBTRNX | OUTPT+4*, OUTPT+6!, RXRF+4*, RXRF+7! |
| IBTYPE | CREATE+4*, CREATE+12, QUIT! |
| IBX | FIND+1*, FIND+2*, EXIT!, CREATE+4*, CREATE+6*, CREATE+7, CREATE+10*, CREATE+12*, CREATE+13, CREATE+14 , CREATE+15, CONT*, QUIT!, OUTPT+4*, OUTPT+5, OUTPT+6!, RXRF+5*, RXRF+6, RXRF+7! |
| IBY | QUIT! |
| IFN | TERR~, TERR+1*, TERR+2, TBILL~, TBILL+1, TBILL+2 |
| PRCASV | ARSETQ! |
| PRCASV("ARBIL" | ARSET+5, ARSET+7 |
| PRCASV("ARREC" | ARSET+6, ARSET+7 |
| PRCASV("SER" | ARSET+3* |
| PRCASV("SITE" | ARSET+3* |
| TRN | TEABD~, TEABD+1, TERR~, TERR+1*, TERR+2, TBILL~, TBILL+1, TBILL+2 |
| U | FIND+1, CREATE+2, CREATE+4, CREATE+6, CREATE+7, CREATE+10, CREATE+12, OUTPT, OUTPT+4, RXRF , RXRF+5, ARSET+3, ARSET+5, ARSET+6, ARSET+7 |
| X | EXIT!, QUIT!, ARSET+2~*, ARSET+5*, ARSET+6*, ARSET+7*, ARSETQ+1, CHK+1~*, CHK+2, TERR+1~* , TERR+2 |
| Y | QUIT! |