IBNCPDR4 ;ALB/BDB - ROI MANAGEMENT, ROI CHECK ;30-NOV-07
Source file <IBNCPDR4.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 |
|---|---|---|
| ROICHK(IBPAT,IBDRUG,IBINS,IBDT) | ;Check for ROI
; Function returns: ; 0 - if no ROI on file ; 1 - if ROI on file, new ROI added, or the Date of Service ; is on or after the Mission Act implementation date ; 2 - if not needed, passes checks |
|
| ROICLN(IBTRN,IBRX,IBFIL) | ;Clean NB reason, set CT ROI flag to 'obtained'
; Clean ROI non-billable reason on Claims Tracking 356 |
|
| ROI(IBDFN,IBDRUG,IBINS,IBADT) | ; -- Check for ROI on file
; Function returns: ; 1 = if ROI on file or Date of Service is on or after ; Mission Act implementation date ; 0 = if no ROI on file |
|
| ROIQ | ;
|
|
| AD(IBDFN,IBDRUG,IBINS,IBDT) | ; -- Add tracking entry
; Function returns 1 if ROI added, 0 if not added |
|
| ADDQ | ||
| ROI399(IBIFN) | ; -- ROI Complete? in Bill/Claims (#399;157)
; Check drugs that contain the sensitive diagnosis drug field=1, ; Claims Tracking ROI file (#356.25) to see if an ROI is on file ; ; input - IBIFN = IEN of the Bill/Claims file (#399) ; output - 0 = sensitive diagnosis drug and no ROI on file ; 1 = default, sensitive diagnosis drug and ROI on file, ; or DOS is on or after Mission Act implementation date |
|
| ROI399Q | ;
|
|
| MACHK(IBDOS) | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | AD+5, AD+11 |
| ^%ZTLOAD | AD+20 |
| EN^DDIOL | ROICHK+19, ROICHK+20, ROICHK+21, ROICHK+22, ROICHK+23, ROICHK+29, ROICHK+30, ROICHK+31, AD+5, AD+6 , AD+11, AD+12 |
| FILE^DICN | AD+17 |
| ^DIE | ROICLN+13, ROI+21 |
| ^DIR | ROICHK+29, AD+4, AD+10 |
| PAUSE^IBNCPBB | AD+15 |
| $$SENS^IBNCPDR | ROICHK+17, ROI399+18 |
| $$MACHK^IBNCPDR4 | ROICHK+13, ROI+14, ROI399+20 |
| $$ROICHK^IBNCPDR4 | ROI399+21 |
| $$DAT1^IBOUTL | ROICHK+23 |
| ZERO^IBRXUTL | ROI399+17 |
| DATA^PSS50 | ROICHK+16 |
| $$KCHK^XUSRB | ROICHK+24 |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^IBT(356.25 - [#356.25] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ROI399+10, ROI399+11 |
| ^DIC(36 - [#36] | ROICHK+22 |
| ^DPT - [#2] | ROICHK+20 |
| ^IBA(362.4 - [#362.4] | ROI399+14, ROI399+15 |
| ^IBE(356.8 - [#356.8] | ROICLN+12 |
| ^IBT(356 - [#356] | ROICLN+7, ROICLN+12 |
| ^IBT(356.25 - [#356.25] | ROI+17, ROI+18, ROI+19, AD+15, AD+16 |
| ^TMP($J | ROICHK+15!, ROICHK+21, ROICHK+25!, ROI399+17! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | AD+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %DT | AD+5*, AD+11* |
| D | ROICHK+11~, ROI399+9~ |
| D0 | ROICHK+11~, ROI399+9~ |
| DA | ROICHK+11~, ROICLN+6~, ROICLN+13*, ROI+21*, AD+2~, ROI399+9~ |
| DE | ROI399+9~ |
| DI | ROICHK+11~, ROI399+9~ |
| DIC | ROICHK+11~, AD+2~, AD+17*, ROI399+9~ |
| DIC("DR" | AD+17* |
| DIC(0 | AD+17* |
| DIE | ROICHK+11~, ROICLN+6~, ROICLN+13*, ROI+21*, ROI399+9~ |
| DIR | ROICHK+29!, AD+2~, AD+4!, AD+10! |
| DIR("?" | ROICHK+28*, AD+4*, AD+10* |
| DIR("A" | ROICHK+26*, AD+4*, AD+10* |
| DIR("B" | ROICHK+27* |
| DIR(0 | ROICHK+26*, AD+4*, AD+10* |
| DISYS | ROI399+9~ |
| DL | ROI399+9~ |
| >> DLAYGO | AD+17* |
| DLB | ROI399+9~ |
| DQ | ROICHK+11~, ROI399+9~ |
| DR | ROICHK+11~, ROICLN+6~, ROICLN+9*, ROICLN+12*, ROI+21*, AD+2~, ROI399+9~ |
| DTOUT | AD+2~, AD+4, AD+10, AD+18 |
| DUOUT | AD+2~, AD+4, AD+10, AD+18 |
| DUZ | AD+17 |
| DV | ROI399+9~ |
| DW | ROI399+9~ |
| IBADT | ROI~, ROI+14, ROI+18 |
| IBDFN | ROI~, ROI+17, AD~, AD+17, ROI399+8~, ROI399+10*, ROI399+21 |
| IBDOS | MACHK~, MACHK+1, MACHK+2 |
| IBDRUG | ROICHK~, ROICHK+14, ROICHK+16, ROICHK+17, ROICHK+21, ROICHK+31, ROI~, ROI+17, AD~, AD+17 , ROI399+8~, ROI399+16*, ROI399+17, ROI399+18, ROI399+21 |
| IBDT | ROICHK~, ROICHK+13, ROICHK+14, ROICHK+23, ROICHK+31, AD~, AD+6, AD+12, ROI399+8~, ROI399+16* , ROI399+20, ROI399+21 |
| IBEFFDT | AD+2~, AD+7*, AD+17 |
| IBEXPDT | AD+2~, AD+13*, AD+17 |
| IBFIL | ROICLN~, ROICLN+7 |
| IBFLG | ROI+11~, ROI+12*, ROI+14*, ROI+17, ROI+20*, ROIQ+1 |
| IBIFN | ROI399~, ROI399+10, ROI399+11, ROI399+14 |
| IBINS | ROICHK~, ROICHK+14, ROICHK+22, ROICHK+31, ROI~, ROI+17, AD~, AD+17, ROI399+8~, ROI399+11* , ROI399+12, ROI399+21 |
| IBNCRPR | AD+19~* |
| IBPAT | ROICHK~, ROICHK+14, ROICHK+20, ROICHK+31 |
| IBQUIT | AD+2~, AD+3*, AD+4, AD+7*, AD+8, AD+9*, AD+10, AD+13*, AD+14, AD+15* , AD+18*, ADDQ |
| IBROI | ROI+11~, ROI+17*, ROI+18, ROI+19, ROI+21 |
| IBRX | ROICLN~, ROICLN+7 |
| IBRXIEN | ROI399+8~, ROI399+15* |
| IBTRN | ROICLN~, ROICLN+7*, ROICLN+8, ROICLN+12, ROICLN+13 |
| IBX | ROI399+8~, ROI399+14*, ROI399+15 |
| IBY0 | ROI399+8~, ROI399+15*, ROI399+16 |
| ROIQ | ROI399+8~, ROI399+12*, ROI399+13*, ROI399+22*, ROI399Q+1 |
| U | ROICHK+20, ROICHK+22, ROICLN+12, ROI+18, ROI+19, ROI399+10, ROI399+11, ROI399+15, ROI399+16 |
| X | ROICHK+11~, AD+2~, AD+5*, AD+11*, AD+16*, ROI399+9~ |
| Y | ROICHK+11~, ROICHK+30, AD+2~, AD+5, AD+6, AD+7, AD+11, AD+12, AD+13, AD+18 , AD+19, ROI399+9~ |
| ZTDESC | AD+19*, AD+20! |
| >> ZTDTH | AD+19* |
| ZTIO | AD+19*, AD+20! |
| ZTRTN | AD+19*, AD+20! |
| ZTSAVE | AD+20! |
| ZTSAVE("IBNCRPR" | AD+19* |
| ZTSK | AD+20! |
