IBCEP5C ;ALB/TMP - EDI UTILITIES for provider ID ;02-NOV-00
Source file <IBCEP5C.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 |
|---|---|---|
| COMBOK(IBFILE,IBDAT,IBALL,IBF) | ; Generic ask if conflict, should id rec still
; be added? ; IBFILE = 355.9 or 355.91 for the file being edited ; IBDAT = var ptr prov ien (355.9) ^ pc to check ^ ; ins co ien or *ALL* ^ care unit or *N/A* ^ ; form type code ^ care type code ^ prov id type ptr ; IBALL = flag: ; 0 = Individual entry selected - check for existing ALL entry ; 1 = 'ALL' selected - check for existing individual ones ; IBF = 1 if deleting from ins co-related options, "" ; from provider-related options ; Returns 1 if ok to continue, 0 if not |
|
| CAREUN | ;Called from NEWID^IBCEP5B to check for existing record combination
|
|
| DEL(IBFILE,IBDA,IBF) | ; Delete prov specific ID's
; IBFILE = 355.9 or 355.91 for the file ; IBDA = ien of entry in file IBFILE ; IBF = 1 if deleting from ins co-related options, "" ; from prov-related options |
|
| DELQ | ||
| CUCHK(IBDA,IB0) | ;Called from CHG^IBCEP5B to check for existing combination
; during edit ; IBDA = the ien of the record being edited ; IB0 = Proposed changed 0 node of the entry in the file ; FUNCTION RETURNS 0 if no duplicate found, 1 if record already exists |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA( | COMBOK+23, COMBOK+33, COMBOK+34, DEL+6, DEL+11, DEL+22, DEL+25, DELQ |
| ^IBA(355.9 - [#355.9] | CAREUN+18, CUCHK+12 |
| ^IBA(355.91 - [#355.91] | CAREUN+9, CUCHK+7 |
| ^IBA(355.96 - [#355.96] | CAREUN+5, CAREUN+6, CAREUN+7, CAREUN+8, CAREUN+14, CAREUN+15, CAREUN+16, CAREUN+17 |
| ^TMP("IB_EDITED_IDS" | DEL+24*, DEL+25* |
| Name | Line Occurrences |
|---|---|
| DELQ | DEL+7, DEL+20 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | DEL+5~, DEL+26* |
| DIK | DEL+5~, DEL+26* |
| DIR | COMBOK+13~, COMBOK+54!, CAREUN+1~, CAREUN+10!, CAREUN+19!, DEL+5~, DEL+9, DEL+10!, DEL+19!, CUCHK+5~ , CUCHK+14! |
| DIR("?" | COMBOK+49*, COMBOK+50*, COMBOK+51*, COMBOK+52* |
| DIR("A" | COMBOK+48*, CAREUN+10*, CAREUN+19*, DEL+13*, DEL+15*, DEL+16*, DEL+17*, CUCHK+14* |
| DIR("B" | COMBOK+52*, DEL+17* |
| DIR(0 | COMBOK+42*, CAREUN+10*, CAREUN+19*, DEL+18*, CUCHK+14* |
| IB0 | DEL+5~, DEL+11*, DEL+13, DEL+14, DEL+15, DEL+16, CUCHK~, CUCHK+7, CUCHK+10, CUCHK+11 , CUCHK+12 |
| IB3559 | CAREUN+10!, CAREUN+19! |
| IB3559( | CAREUN+3, CAREUN+5, CAREUN+6, CAREUN+7, CAREUN+8, CAREUN+9, CAREUN+12, CAREUN+14, CAREUN+15, CAREUN+16 , CAREUN+17, CAREUN+18 |
| IB35591 | CAREUN+10!, CAREUN+19! |
| IB35591( | CAREUN+3*, CAREUN+4*, CAREUN+5*, CAREUN+6*, CAREUN+7*, CAREUN+8*, CAREUN+9, CAREUN+12*, CAREUN+13*, CAREUN+14* , CAREUN+15*, CAREUN+16*, CAREUN+17*, CAREUN+18 |
| IBALL | COMBOK~, COMBOK+14*, COMBOK+20, COMBOK+30, COMBOK+44, COMBOK+45, COMBOK+51 |
| IBCUCHK | CUCHK+5~, CUCHK+6*, CUCHK+7*, CUCHK+12*, CUCHK+13, CUCHK+15 |
| IBD | COMBOK+13~, COMBOK+15*, COMBOK+17, COMBOK+18, COMBOK+24, COMBOK+25, COMBOK+27, COMBOK+28, COMBOK+35, COMBOK+44 , COMBOK+51 |
| IBD( | COMBOK+18*, COMBOK+24, COMBOK+25, COMBOK+44 |
| IBD(4 | COMBOK+40, COMBOK+41 |
| IBDA | DEL~, DEL+6, DEL+11, DEL+21, DEL+22, DEL+24, DEL+25, DEL+26, DELQ, CUCHK~ , CUCHK+7, CUCHK+12 |
| IBDAT | COMBOK~, COMBOK+15, COMBOK+17, COMBOK+18, COMBOK+23, COMBOK+33 |
| IBDD | COMBOK+13~, COMBOK+15*, COMBOK+24, COMBOK+25, COMBOK+35 |
| IBF | COMBOK~, COMBOK+39, DEL~, DEL+17 |
| IBFILE | COMBOK~, COMBOK+23, COMBOK+33, COMBOK+34, COMBOK+35, COMBOK+39, CAREUN+2, CAREUN+11, DEL~, DEL+6 , DEL+11, DEL+13, DEL+14, DEL+22, DEL+24, DEL+25, DEL+26, DELQ, CUCHK+7, CUCHK+8 |
| >> IBINS | CAREUN+5, CAREUN+6, CAREUN+7, CAREUN+8, CAREUN+9, CAREUN+14, CAREUN+15, CAREUN+16, CAREUN+17, CAREUN+18 |
| IBLAST | DEL+5~, DEL+14, DEL+15, DEL+16 |
| IBOK | COMBOK+13~, COMBOK+14*, COMBOK+55*, COMBOK+56 |
| >> IBPRV | CAREUN+18 |
| >> IBPTYP | CAREUN+5, CAREUN+6, CAREUN+7, CAREUN+8, CAREUN+9, CAREUN+14, CAREUN+15, CAREUN+16, CAREUN+17, CAREUN+18 |
| IBSPEC | COMBOK+13~, COMBOK+19!, COMBOK+27*, COMBOK+28*, COMBOK+35*, COMBOK+37, COMBOK+46 |
| IBWHAT | COMBOK+38~, COMBOK+39*, COMBOK+45, COMBOK+51 |
| IBX | DEL+5~, DEL+12*, DEL+13*, DEL+14 |
| NEXTONE | DEL+23~*, DEL+24, DEL+25 |
| Q | COMBOK+13~, COMBOK+53* |
| TEXT | COMBOK+38~ |
| TEXT( | COMBOK+47*, COMBOK+53 |
| TEXT(1 | COMBOK+43* |
| TEXT(2 | COMBOK+44* |
| TEXT(3 | COMBOK+45* |
| TEXT(4 | COMBOK+46*, COMBOK+47 |
| U | COMBOK+15, COMBOK+17, COMBOK+18, COMBOK+23, COMBOK+24, COMBOK+27, COMBOK+33, COMBOK+35, COMBOK+44, DEL+13 , DEL+14, DEL+15, DEL+16, DEL+22, DEL+24, CUCHK+7, CUCHK+10, CUCHK+11, CUCHK+12 |
| X | COMBOK+13~, DEL+5~, CUCHK+5~, CUCHK+9~, CUCHK+10*, CUCHK+12 |
| X0 | COMBOK+21~, COMBOK+23*, COMBOK+24, COMBOK+26*, COMBOK+27, COMBOK+31~, COMBOK+34*, COMBOK+35, COMBOK+38~, COMBOK+40* , COMBOK+44 |
| X1 | COMBOK+21~, COMBOK+22*, COMBOK+23*, COMBOK+24, COMBOK+25, COMBOK+31~, COMBOK+32*, COMBOK+33*, COMBOK+34, COMBOK+38~ , COMBOK+41*, COMBOK+44, COMBOK+45, CUCHK+9~, CUCHK+11*, CUCHK+12 |
| X1( | COMBOK+24*, COMBOK+26 |
| X1(0 | COMBOK+25*, COMBOK+28 |
| Y | COMBOK+13~, COMBOK+55, DEL+5~, DEL+20, CUCHK+5~ |
| Z | COMBOK+13~, COMBOK+16*, COMBOK+17, COMBOK+18, DEL+5~, DEL+6*, CUCHK+5~, CUCHK+7*, CUCHK+12* |
| Z( | COMBOK+17*, COMBOK+24, COMBOK+25, COMBOK+35 |
| Z(2 | COMBOK+23, COMBOK+33 |
| Z(3 | COMBOK+23, COMBOK+33, COMBOK+35 |
| Z(6 | COMBOK+23, COMBOK+33 |