IBCF23A ;ALB/ARH - HCFA 1500 19-90 DATA - Split from IBCF23 ;12-JUN-93
Source file <IBCF23A.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 3 | $$PRCD^IBCEF1 $$DATE^IBCF23 $$GETMOD^IBEFUNC |
Kernel | 1 | $$INSTALDT^XPDUTL |
VA FileMan | 1 | $$GET1^DIQ |
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 | 1 | IBCF23 |
Name | Comments | DBIA/ICR reference |
---|---|---|
B24 | ; set individual entries in print array, external format
; IBAUX = additional data for EDI output ; IBRXF = array of RX procedures |
|
AUXOK(IBSS,IBSS1) | ; Check all other flds are the same to combine procs
; IBSS = subscript of IBCP to check for dups to combine - pass by ref ; IBSS(IBSS,"AUX-X",n) = all the previously extracted line items for the ; same set of basic data, but having different "AUX" data ; IBSS1 = the "AUX" data of the current IBCP entry |
|
PRC | ; Extract procedure data for HCFA 1500
; IBRC(IBSS) = #rev codes with same billing criteria (IBSS) ; IBLINK('CP' ien,'RC' ien) = IBSS including modifiers,rx seq in pc 7,8 ; IBLINK1(IBSS, 'RC' ien) = auto (1)^ 'CP' ien (soft link) |
|
IBSS(IBI,IBDXI,IBLN) | ; Creates index sequence for procedure
|
|
IBSSX | ;
|
|
IBNWPTCH(IBIFN,IBPATCH) | ;
|
FileNo | Call Tags |
---|---|
^IBA(364 - [#364] | GET1^DIQ |
^IBA(364.1 - [#364.1] | GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |
399.0304 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399 - [#399] | B24+24, PRC+10, PRC+11, IBSS+18, IBSS+24 |
^DGCR(399.2 - [#399.2] | B24+12, B24+13 |
^IBA(364 - [#364] | IBNWPTCH+13 |
^IBE(353.1 - [#353.1] | B24+9 |
^IBE(353.2 - [#353.2] | B24+9 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
IBARY | IBNWPTCH+5~, IBNWPTCH+7 |
IBARY("" | IBNWPTCH+9 |
>> IBAUX | B24+16 |
>> IBAUXLN | PRC+10*, PRC+17 |
IBBDT | IBNWPTCH+5~, IBNWPTCH+17*, IBNWPTCH+18 |
IBBN | IBNWPTCH+5~, IBNWPTCH+13*, IBNWPTCH+15*, IBNWPTCH+17 |
>> IBCHARG | B24+13, B24+14, PRC+27, PRC+31*, PRC+32, PRC+35*, PRC+36, PRC+43*, PRC+44*, PRC+46 , PRC+47, PRC+52*, PRC+53*, PRC+55 |
>> IBCP( | AUXOK+12, AUXOK+13, AUXOK+14, AUXOK+15, PRC+17*, PRC+18*, PRC+20*, PRC+21*, PRC+22*, PRC+32* , PRC+36*, PRC+41, PRC+42, PRC+45, PRC+46*, PRC+47*, PRC+51, PRC+54*, PRC+55* |
IBCPLINK | B24+6~, B24+19*, B24+20, B24+24 |
IBD1 | B24+6~, B24+7*, B24+8*, B24+9 |
IBD2 | B24+6~, B24+7*, B24+8*, B24+9 |
>> IBDEN | B24+27 |
>> IBDEN1 | B24+28 |
>> IBDEND | B24+29 |
IBDENLN | PRC+8~, PRC+10!*, PRC+21 |
IBDENLN("DEN1" | PRC+11*, PRC+22 |
>> IBDT1 | B24+7 |
>> IBDT2 | B24+7 |
IBDXI | PRC+15, IBSS~ |
IBDXI( | IBSS+6, IBSS+7 |
IBEFN | IBNWPTCH+5~, IBNWPTCH+13*, IBNWPTCH+14, IBNWPTCH+15 |
>> IBEMG | B24+14 |
>> IBFLD(24 | B24+9*, B24+11*, B24+12*, B24+13*, B24+14*, B24+15*, B24+16*, B24+17*, B24+20*, B24+24* , B24+27*, B24+28*, B24+29* |
IBI | B24+7*, B24+9, B24+11, B24+12, B24+13, B24+14, B24+15, B24+16, B24+17, B24+20 , B24+24, B24+27, B24+28, B24+29, PRC+10*, PRC+11, PRC+15, PRC+16, PRC+18, PRC+27 , PRC+29, PRC+32, PRC+34, IBSS~, IBSS+4, IBSS+11, IBSS+12, IBSS+13, IBSS+14, IBSS+15 , IBSS+16, IBSS+18, IBSS+24 |
IBIDT | IBNWPTCH+5~, IBNWPTCH+9*, IBNWPTCH+18 |
IBIFN | B24+24, PRC+10, PRC+11, IBSS+4, IBSS+11, IBSS+12, IBSS+13, IBSS+14, IBSS+15, IBSS+16 , IBSS+18, IBSS+24, IBNWPTCH~, IBNWPTCH+11 |
IBITEM | PRC+25~, PRC+29*, PRC+32 |
IBJ | IBSS+1~, IBSS+3*, IBSS+6*, IBSS+7* |
>> IBK | PRC+34* |
>> IBLINK( | PRC+34 |
>> IBLINK1( | PRC+47!, PRC+54! |
>> IBLINKRX( | PRC+27, PRC+29, PRC+32! |
IBLN | PRC+10*, PRC+14, PRC+15, PRC+16, IBSS~, IBSS+3, IBSS+6, IBSS+7, IBSS+8 |
IBLN1 | PRC+8~, PRC+10*, PRC+20 |
IBLPAR | IBSS+1~, IBSS+18*, IBSS+22!, IBSS+24*, IBSS+26! |
IBLPAR( | IBSS+25 |
IBLPAR("CMN" | IBSS+19 |
IBLPAR("CMN-10126" | IBSS+20 |
IBLPAR("CMN-484" | IBSS+21 |
IBLPI | IBSS+1~, IBSS+2*, IBSS+25* |
>> IBMIN | B24+14 |
>> IBNWPTCH | IBSS+6, IBSS+7, IBSS+9 |
IBP | PRC+8~, PRC+41*, PRC+43 |
IBP(0 | PRC+40!, PRC+41, PRC+43* |
IBPATCH | IBNWPTCH~, IBNWPTCH+7 |
IBPC | IBSS+1~, IBSS+2*, IBSS+3* |
>> IBPCHG | B24+14 |
>> IBPDT | PRC+14*, PRC+17, PRC+36 |
IBPFN | IBNWPTCH+5~, IBNWPTCH+11*, IBNWPTCH+13 |
>> IBPO | AUXOK+12, AUXOK+13, AUXOK+14, AUXOK+15, PRC+16*, PRC+17, PRC+18, PRC+20, PRC+21, PRC+22 , PRC+28, PRC+36*, PRC+41*, PRC+42, PRC+45, PRC+46, PRC+47, PRC+51*, PRC+54, PRC+55 |
>> IBPO1 | PRC+28*, PRC+32 |
IBPR | PRC+8~ |
IBPROC | B24+7*, B24+10, B24+11, B24+12, B24+18! |
>> IBRC( | PRC+30, PRC+31*, PRC+34, PRC+35*, PRC+43, PRC+44*, PRC+45*, PRC+52, PRC+53* |
>> IBREV | B24+12, B24+13 |
>> IBRV | PRC+29*, PRC+30, PRC+31, PRC+34*, PRC+35, PRC+43*, PRC+44, PRC+45, PRC+47, PRC+52* , PRC+53, PRC+54 |
>> IBRV1 | PRC+34*, PRC+35 |
>> IBRXF | B24+13, B24+17 |
IBSS | B24+7, B24+9, B24+14, B24+19, AUXOK~, AUXOK+9, AUXOK+11, AUXOK+16, PRC+15*, PRC+17 , PRC+26, PRC+36*, PRC+42*, PRC+43*, IBSS+1~, IBSS+3*, IBSS+4*, IBSS+6*, IBSS+7*, IBSS+8* , IBSS+11*, IBSS+12*, IBSS+13*, IBSS+14*, IBSS+15*, IBSS+16*, IBSS+19*, IBSS+20*, IBSS+21*, IBSS+25* , IBSSX+1 |
IBSS( | AUXOK+9, AUXOK+11, AUXOK+16* |
IBSS("L" | B24+15, B24+18! |
IBSS1 | AUXOK~, AUXOK+9, AUXOK+16 |
>> IBUNIT | B24+14 |
IBX | B24+6~, IBSS+1~, IBSS+7*, IBSS+25*, IBNWPTCH+5~, IBNWPTCH+6*, IBNWPTCH+8*, IBNWPTCH+18*, IBNWPTCH+19 |
>> IBXIEN | B24+8, B24+12 |
IBZ | PRC+25~, PRC+26*, PRC+27, PRC+29, PRC+32 |
Q1 | PRC+13~ |
U | B24+7, B24+9, B24+11, B24+12, B24+13, B24+14, B24+15, B24+16, B24+19, B24+20 , B24+24, PRC+14, PRC+16, PRC+26, PRC+31, PRC+32, PRC+34, PRC+35, PRC+36, PRC+41 , PRC+42, PRC+43, PRC+44, PRC+46, PRC+51, PRC+53, PRC+55, IBSS+3, IBSS+4, IBSS+6 , IBSS+7, IBSS+8, IBSS+11, IBSS+12, IBSS+13, IBSS+14, IBSS+15, IBSS+16, IBSS+19, IBSS+20 , IBSS+21, IBSS+25 |
XIEN | AUXOK+8~, AUXOK+11*, AUXOK+12, AUXOK+13, AUXOK+14, AUXOK+15 |
Z | B24+6~, B24+15*, AUXOK+8~, AUXOK+9*, AUXOK+13*, AUXOK+14*, AUXOK+15*, AUXOK+16, AUXOK+17, PRC+13~ , PRC+45*, PRC+47*, PRC+54* |
Z0 | AUXOK+8~, AUXOK+16*, PRC+13~ |
Z1 | AUXOK+8~, AUXOK+15*, PRC+13~ |