IBCEP2A ;ALB/TMP - EDI UTILITIES for provider ID ;25-APR-01
Source file <IBCEP2A.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 |
|---|---|---|
| ALT(IBPERF,IBSRC,IBALT,IBINS4,IBPTYP) | ; set source level to next higher level
; or set the alternate type and source if performing provider id ; alternate type and source exist ; IBPERF = 1 if performing provider id is requested ; IBINS4 = '4' node of insurance co (file 36) ; Pass IBPTYP by reference to get alternate provider id type ; Pass IBALT by reference. Set to 1 if alternate id is to be used next |
|
| ALTQ | ||
| IDSET(IBPTYP,IBINS4,IBPERF,IBSPEC,IBSRC,IBUP) | ; set variables for provider id type search
|
|
| CAREST(IBIFN) | ; Return state file ien of state where care was performed
; IBIFN = ien of bill in file 399 |
|
| CARESTX | ;
|
|
| RECALCA(IBIFN) | ; Recalculate all performing provider id's on bill IBIFN
; IBIFN = ien of bill entry (file 399) |
|
| RECALC(IBDA,IBSEQ,IBX,IBD) | ; Recalculate id #, if possible - called
; from input transforms in subfile 399.0222, fields .05-.07 ; IBDA = DA array of the provider entry (file 399.0222) ; IBSEQ = the numeric COB sequence of the provider id (1-3) ; IBX = the current value of the id in the subfile ; IBD = flag that if set to 1 will suppress the display text |
|
| RECALCQ | ||
| PERFPRV(IBIFN) | ; Returns the variable pointer of the 'performing provider'
; (attending or rendering) for a bill IBIFN |
|
| INSPAR(IBIFN,SEQ) | ;
|
|
| GETTYP(IBXIEN,IBCOBN,IBFUNC) | ; Function returns provider id type for insurance co
; with COB of IBCOBN on claim ien IBXIEN in first ^ pc and 1 in second ; ^ piece if the id is required ; ; IBFUNC=1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;6:ASSISTANT SURGEON;9:OTHER ; |
|
| UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IBCU,IBT) | ; Match most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 *** |
|
| UNIQ1Q | ||
| UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IBCU,IBT) | ; Match on most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 *** |
|
| UNIQ2Q |
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | RECALCA+4, RECALCA+7, RECALCA+13, RECALCA+16, RECALCA+17, RECALC+9, RECALC+11, RECALC+12, INSPAR+6, INSPAR+8 , INSPAR+9, INSPAR+10, INSPAR+11, INSPAR+12 |
| ^DIE | RECALCA+15 |
| $$COBN^IBCEF | INSPAR+3, GETTYP+8 |
| $$FT^IBCEF | PERFPRV+3, GETTYP+11, UNIQ1+9, UNIQ2+7 |
| $$INPAT^IBCEF | UNIQ1+12, UNIQ2+10 |
| $$ISRX^IBCEF1 | UNIQ1+12, UNIQ2+10 |
| $$GETID^IBCEP2 | RECALC+10 |
| GETPRV^IBCEU | PERFPRV+4 |
| $$EXPAND^IBTRE | RECALCA+11, INSPAR+9, INSPAR+10, INSPAR+11 |
| $$PRIM^VASITE | CAREST+15, CAREST+16 |
| $$SITE^VASITE | CAREST+17, CAREST+18, CAREST+19 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | CAREST+6, CAREST+11, RECALCA+8, RECALCA+10, RECALC+8, INSPAR+4, GETTYP+9 |
| ^DIC(36 - [#36] | INSPAR+4, INSPAR+7, GETTYP+14, GETTYP+15, GETTYP+16 |
| ^DIC(4 - [#4] | CAREST+20 |
| ^IBA(355.9 - [#355.9] | UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27 |
| ^IBA(355.91 - [#355.91] | UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25 |
| ^IBA(355.93 - [#355.93] | CAREST+8 |
| ^IBE(355.97 - [#355.97] | IDSET+2 |
| ^XUSEC("IB SUPERVISOR" | RECALCA+7 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RECALCA+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | GETTYP+6~, GETTYP+7*, GETTYP+14*, GETTYP+15, GETTYP+16, GETTYP+17 |
| DA | RECALCA+2~, RECALCA+9*, RECALCA+12 |
| DA(1 | RECALCA+6*, RECALCA+15 |
| DIE | RECALCA+2~, RECALCA+15* |
| DIR | RECALCA+2~ |
| DR | RECALCA+2~, RECALCA+15* |
| DT | CAREST+13, CAREST+18 |
| DUZ | RECALCA+7 |
| EVDT | CAREST+2~, CAREST+12*, CAREST+13*, CAREST+15, CAREST+17 |
| IB0 | CAREST+2~, CAREST+11*, CAREST+12, CAREST+14 |
| IBALT | ALT~, ALT+10* |
| IBCOBN | GETTYP~, GETTYP+8*, GETTYP+9 |
| IBCU | UNIQ1~, UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~, UNIQ2+13, UNIQ2+17, UNIQ2+21 , UNIQ2+25 |
| IBD | RECALC~, RECALC+9, RECALC+11, RECALC+12 |
| IBDA | RECALC~, RECALC+8 |
| IBDA(1 | RECALC+8, RECALC+10 |
| IBDIV | CAREST+2~, CAREST+14*, CAREST+15*, CAREST+16*, CAREST+17, CAREST+18 |
| IBFUNC | GETTYP~, GETTYP+14, GETTYP+15, GETTYP+16 |
| IBID | UNIQ1+6~, UNIQ1+7*, UNIQ1+15*, UNIQ1+16, UNIQ1+19*, UNIQ1+20, UNIQ1+23*, UNIQ1+24, UNIQ1+27*, UNIQ1Q , UNIQ2+5~, UNIQ2+6*, UNIQ2+13*, UNIQ2+14, UNIQ2+17*, UNIQ2+18, UNIQ2+21*, UNIQ2+22, UNIQ2+25*, UNIQ2Q |
| IBIFN | CAREST~, CAREST+6, CAREST+11, RECALCA~, RECALCA+6, RECALCA+8, RECALCA+10, PERFPRV~, PERFPRV+3, PERFPRV+4 , INSPAR~, INSPAR+3, INSPAR+4, UNIQ1~, UNIQ1+9, UNIQ1+12, UNIQ2~, UNIQ2+7, UNIQ2+10 |
| IBINS | UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~, UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25 |
| IBINS4 | ALT~, ALT+8, ALT+10, IDSET~, IDSET+4 |
| IBP | RECALCA+2~, RECALCA+8*, RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, PERFPRV+2~, PERFPRV+4 |
| IBP( | PERFPRV+5 |
| IBPERF | ALT~, ALT+8, IDSET~, IDSET+3 |
| IBPN | RECALC+7~, RECALC+8*, RECALC+9, RECALC+10 |
| IBPROV | UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27 |
| IBPT | PERFPRV+2~, PERFPRV+3*, PERFPRV+4, PERFPRV+5 |
| IBPTYP | ALT~, ALT+10*, IDSET~, IDSET+2, UNIQ1~, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2~ , UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25 |
| IBQ | PERFPRV+2~ |
| IBSEQ | RECALCA+2~, RECALCA+11*, RECALCA+13, RECALCA+16, RECALCA+17, RECALC~, RECALC+10 |
| IBSPEC | IDSET~, IDSET+2*, IDSET+3 |
| IBSRC | ALT~, ALT+8*, ALT+9*, ALT+10*, ALTQ, IDSET~, IDSET+4* |
| IBT | UNIQ1~, UNIQ1+15*, UNIQ1+19*, UNIQ1+23*, UNIQ1+27*, UNIQ2~, UNIQ2+13*, UNIQ2+17*, UNIQ2+21*, UNIQ2+25* |
| IBU2 | CAREST+2~, CAREST+6*, CAREST+7 |
| IBUNIT | UNIQ1~, UNIQ2~, UNIQ2+6*, UNIQ2+13, UNIQ2+17, UNIQ2+21, UNIQ2+25 |
| IBUP | IDSET~, IDSET+4* |
| IBX | RECALCA+2~, RECALCA+12*, RECALCA+13, RECALCA+14, RECALCA+15, RECALCA+16, RECALC~, RECALC+12, RECALC+13*, RECALCQ , UNIQ1+6~, UNIQ1+8*, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+5~ |
| IBXIEN | GETTYP~, GETTYP+8, GETTYP+9, GETTYP+11 |
| IBZ | RECALCA+2~, RECALCA+8*, RECALCA+9, RECALC+7~, RECALC+10*, RECALC+11, RECALC+12, RECALC+13 |
| IBZ0 | RECALCA+2~, RECALCA+10*, RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, RECALCA+15 |
| INST | CAREST+2~, CAREST+17*, CAREST+18*, CAREST+19*, CAREST+20 |
| NVAFAC | CAREST+2~, CAREST+7*, CAREST+8 |
| Q | UNIQ1+6~, UNIQ1+15*, UNIQ1+19*, UNIQ1+23*, UNIQ1+27*, UNIQ2+5~, UNIQ2+13*, UNIQ2+17*, UNIQ2+21*, UNIQ2+25* |
| R | GETTYP+6~, GETTYP+7*, GETTYP+15*, GETTYP+16*, GETTYP+17 |
| SEQ | INSPAR~, INSPAR+3*, INSPAR+4, INSPAR+7 |
| STATE | CAREST+2~, CAREST+3*, CAREST+8*, CAREST+20*, CARESTX+1 |
| U | ALT+8, ALT+10, IDSET+3, IDSET+4, CAREST+7, CAREST+8, CAREST+12, CAREST+14, CAREST+20, RECALCA+8 , RECALCA+11, RECALCA+12, RECALCA+13, RECALCA+14, RECALC+8, PERFPRV+5, INSPAR+7, INSPAR+10, INSPAR+11, GETTYP+14 , GETTYP+15, GETTYP+16, GETTYP+17, UNIQ1+8, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+13, UNIQ2+17 , UNIQ2+21, UNIQ2+25 |
| X | RECALCA+2~, INSPAR+2 |
| Y | RECALCA+2~ |
| Z | IDSET+1~, IDSET+3*, IDSET+4, PERFPRV+2~, PERFPRV+3*, INSPAR+1~, INSPAR+4*, INSPAR+5, INSPAR+7, GETTYP+6~ , GETTYP+9*, GETTYP+10, GETTYP+14, GETTYP+15, GETTYP+16 |
| Z0 | INSPAR+1~, INSPAR+7*, INSPAR+8, GETTYP+6~, GETTYP+11*, GETTYP+13, GETTYP+14, GETTYP+15, GETTYP+16, UNIQ1+6~ , UNIQ1+9*, UNIQ1+11, UNIQ1+12*, UNIQ1+15, UNIQ1+23, UNIQ2+5~, UNIQ2+7*, UNIQ2+9, UNIQ2+10*, UNIQ2+13 , UNIQ2+21 |
| Z1 | UNIQ1+6~, UNIQ1+12*, UNIQ1+15, UNIQ1+19, UNIQ2+5~, UNIQ2+10*, UNIQ2+13, UNIQ2+17 |
| Z2 | UNIQ1+6~, UNIQ1+12*, UNIQ1+15, UNIQ1+19, UNIQ1+23, UNIQ1+27, UNIQ2+5~, UNIQ2+10*, UNIQ2+13, UNIQ2+17 , UNIQ2+21, UNIQ2+25 |
| Z4 | INSPAR+1~, INSPAR+4*, INSPAR+9, INSPAR+10, INSPAR+11 |
