IBTRKR41 ;ALB/AAS - CLAIMS TRACKING - ADD/TRACK OUTPATIENT ENCOUNTERS ;13-AUG-93
Source file <IBTRKR41.m>
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 | 3 | IBCCPT1 IBCU81 IBTRKR4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
OPCHK | ; -- check and add rx
|
|
OPCHKQ | ||
BULL | ; -- send bulletin
|
|
BULLQ | ||
CL(IBOEDATA,IBR) | ; check out classification questions for encounter
; this new check will look at the V POV level then to the Visit level ; as necessary to determine if it relates or not. This will indicate ; if the WHOLE visit is not billable, otherwise it will say it is ; (even if just part is billable). ; call with the zero node of 409.68 in IBOEDATA ; assumes DFN and IBDT defined ; pass in IBR by ref to get values back |
|
CLQ | ||
RNB(IBDATA,IBARR) | ; find rnb's
; pass in PCE 800 data (visit or v pov) to find any reasons not billalbe ; IBARR = classifications that could apply to patient ; the RNB number returned is from the IBARR number (SDCO21 array) |
|
REL(IBRNB) | ; kills of tmp if related and set IBRMARK
|
|
CLDATA | ; classification data
; format is: SCDO21 array^vpov/vcpt/visit 800 piece^reason not billable |
Name | Field # of Occurrence |
---|---|
$$ENCL^IBAMTS2 | CL+17 |
$$SWSTAT^IBBAPI | OPCHK+2 |
$$INSURED^IBCNS1 | OPCHK+20 |
$$PTCOV^IBCNSU3 | OPCHK+25 |
$$PTFTF^IBCNSU31 | OPCHK+22 |
$$NBCT^IBEFUNC | OPCHK+34 |
$$NBST^IBEFUNC | OPCHK+35 |
$$RPT^IBEFUNC | OPCHK+28 |
$$BDSRC^IBEFUNC3 | OPCHK+15 |
$$DAT1^IBOUTL | BULL+5, BULL+6 |
$$SCE^IBSDU | OPCHK+10 |
SEND^IBTRKR31 | BULL+17 |
OPT^IBTUTL1 | OPCHK+38 |
ENCEVENT^PXKENC | CL+28 |
CL^SDCO21 | CL+13 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(40.7 - [#40.7] | OPCHK+11 |
^IBT(356 - [#356] | OPCHK+17 |
^SD(409.1 - [#409.1] | OPCHK+12 |
^TMP("PXKENC" | CL+30, CL+33, CL+36, CL+39, CL+42, CL+45, CL+46, CL+50, CLQ!, REL+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | OPCHK+13*, OPCHK+14, OPCHK+17, OPCHK+20, OPCHK+22, OPCHK+25, OPCHK+38, OPCHKQ!, CL+13 |
IBANY | OPCHK+25, OPCHKQ! |
IBAPPT | OPCHK+1~, OPCHK+12*, OPCHK+28 |
IBARR | CL+9~, CL+13, CL+30, CL+33, RNB~ |
IBARR( | RNB+5 |
>> IBCNT | BULL+9 |
>> IBCNT1 | OPCHK+40*, BULL+10 |
>> IBCNT2 | OPCHK+39*, BULL+11 |
IBCPT | CL+9~, CL+36*, CL+39, CL+42, CL+45*, CL+46, REL+1 |
IBDATA | RNB~, RNB+5 |
>> IBDT | OPCHK+5, OPCHK+17, OPCHK+20, OPCHK+22, OPCHK+25, OPCHK+38, CL+13 |
IBDX | CL+9~, CL+33*, CL+46*, CL+47 |
IBDX( | CL+33*, CL+39, CL+42 |
IBENCL | CL+9~, CL+17*, CL+18, CL+19, CL+20, CL+21, CL+22, CL+23, CL+24, CL+25 |
>> IBMESS | BULL+7 |
>> IBOE | OPCHK+10, OPCHK+38, CL+16, CL+17 |
IBOEDATA | OPCHK+10*, OPCHK+11, OPCHK+12, OPCHK+13, OPCHK+15, OPCHK+28, OPCHK+31, OPCHK+34, OPCHK+35, OPCHKQ! , CL~, CL+10 |
>> IBOESTAT | OPCHK+10* |
>> IBOETYP | OPCHK+17, OPCHK+38 |
IBP | CL+9~, CL+36*, CL+39, CL+42, CL+46* |
IBPCEX | CL+9~, CL+10*, CL+16, CL+28, CL+30, CL+33, CL+36, CL+39, CL+42, CL+45 , CL+46, CL+50, REL+1 |
IBR | CL~, CL+50*, RNB+4~*, RNB+5*, RNB+6 |
IBRMARK | OPCHK+7!, OPCHK+22*, OPCHK+25*, OPCHK+28*, OPCHK+31*, OPCHK+34*, OPCHK+35*, OPCHK+38, OPCHK+39, OPCHK+40 , OPCHKQ!, CL+9~, CL+10*, CL+18*, CL+19*, CL+20*, CL+21*, CL+22*, CL+23*, CL+24* , CL+25*, CL+50*, CLQ+1, REL+2* |
IBRNB | REL~ |
IBSERV | OPCHK+1~, OPCHK+11*, OPCHK+25 |
IBSWINFO | OPCHK+2~*, OPCHK+5 |
>> IBT( | BULL+4*, BULL+7* |
>> IBT(1 | BULL+3* |
>> IBT(10 | BULL+14* |
>> IBT(11 | BULL+15* |
>> IBT(12 | BULL+16* |
>> IBT(2 | BULL+5* |
>> IBT(3 | BULL+6* |
>> IBT(4 | BULL+8* |
>> IBT(5 | BULL+9* |
>> IBT(6 | BULL+10* |
>> IBT(7 | BULL+11* |
>> IBT(8 | BULL+12* |
>> IBT(9 | BULL+13* |
>> IBTALK | OPCHK+8, OPCHK+38 |
>> IBTRKR | OPCHK+20 |
>> IBTSBDT | BULL+5 |
>> IBTSEDT | BULL+6 |
IBVRNB | CL+9~, CL+30*, CL+39, CL+47 |
IBVSIT | OPCHK+15*, OPCHK+38, OPCHKQ! |
IBX | RNB+4~, RNB+5* |
VA | OPCHKQ! |
VAEL | OPCHKQ! |
X | OPCHK+34*, OPCHK+35*, OPCHKQ! |
>> XMSUB | BULL+2* |
Y | OPCHK+1~, OPCHKQ! |
Y0 | OPCHK+1~ |
>> ZTQUEUED | OPCHK+8, OPCHK+38 |
Name | Field # of Occurrence |
---|---|
$T(CLDATA+(3) | RNB+5, REL+2 |