IBCU63 ;ALB/AAS - BILLING UTILITY TO SET AMB SURG REV CODES ; 20-NOV-91
Source file <IBCU63.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 3 | ^IBAUTL1 $$FT^IBCU3 (FILE,SETREV)^IBCU62 |
CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
VA FileMan | 1 | ^DIK |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 2 | IBCU6 IBEFUNC1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
BLD | ||
STORREV | ;build revenue codes in bill
|
|
FILE | ;
|
|
STDATE() | ; -start date for basc billing
|
|
RX | ;add rx refill charges (adds default rx cpt for cms-1500)
|
|
END | ||
ALL | ;delete all revenue codes that may have been set up automatically
|
|
DEL | ||
CHG(IBSI,IBDT,IBRVCD) | ; returns charge for bedsection and date, rev cd optional
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | BLD, STORREV+1*, RX+2*, ALL+3, DEL |
^DGCR(399.1 - [#399.1] | STORREV+4, RX+4 |
^DGCR(399.5 - [#399.5] | CHG+3, CHG+4, CHG+5, CHG+8, CHG+9, CHG+10, CHG+11 |
^IBE(350.9 - [#350.9] | %+3, STDATE+1, RX+5, RX+7 |
^UTILITY($J | %+2!, BLD+4, BLD+5, STORREV+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | ALL+2!*, ALL+3* |
DA(1 | FILE+1*, ALL+2*, DEL |
>> DGAMNT | STORREV+3*, FILE+3, RX+9* |
DGASC | BLD*, STORREV+7! |
>> DGBILLBS | STORREV+4, FILE+3 |
>> DGBS | RX+4* |
>> DGBSI | STORREV+4*, RX+4*, RX+9 |
>> DGBSLOS | STORREV+2*, FILE+3, RX+3* |
DGDAT | BLD+1*, BLD+3, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7! |
DGDIV | BLD+1*, BLD+2, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7!, RX+5*, END! |
>> DGII | ALL+3* |
>> DGINPAR | %+3, RX+6 |
DGPROC | BLD*, BLD+1, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7!, FILE+3, RX+5*, END! |
DGRVCOD | %+3*, STORREV+4, STORREV+7!, FILE+3, RX+6*, RX+7*, RX+8, RX+9, END! |
>> DIK | DEL* |
IBACTDT | CHG+1~, CHG+3*, CHG+4, CHG+8*, CHG+9, CHG+10 |
IBAMNT | CHG+1~*, CHG+3, CHG+4, CHG+6*, CHG+8, CHG+9, CHG+10, CHG+12*, CHG+13 |
>> IBAUTO | FILE+3, ALL+2, ALL+5 |
>> IBCNT | RX+3 |
IBDA | CHG+1~, CHG+4*, CHG+5, CHG+10*, CHG+11 |
IBDT | CHG~, CHG+3, CHG+8 |
>> IBIDS( | %+1 |
>> IBIDS(151 | RX+9 |
>> IBIFN | BLD, STORREV+1, FILE+1, RX+2, RX+5, ALL+2, ALL+3, DEL |
IBQUIT | CHG+1~ |
IBRC | CHG+1~, CHG+4*, CHG+9*, CHG+10 |
IBRT | CHG+1~, CHG+5*, CHG+6, CHG+11*, CHG+12 |
IBRVCD | CHG~, CHG+4 |
IBSI | CHG~, CHG+3, CHG+4, CHG+8, CHG+9, CHG+10 |
U | CHG+6, CHG+12 |
X | STORREV+3*, STORREV+4*, RX+9*, ALL+3*, CHG+1~ |
>> Y | STORREV+3 |