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 |
| 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 |