IBJTEA ;ALB/ARH-TPI PATIENT ELIGIBLITY SCREEN ;16-FEB-1995
Source file <IBJTEA.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 | IBJT PT ELIGIBILITY IBJT PT ELIGIBILITY SCREEN IBNCPDPL |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJ TP CLAIMS INFO
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| INITQ | ||
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| BLD | ; DFN, required, uses Statment From date of the bill if available, DT if not
|
|
| BLDQ | ||
| SET(TTL,DATA,LN,LR) | ;
|
|
| SET1(STR,LN,COL,WD,RV) | ; set up TMP array with screen data
|
| Name | Field # of Occurrence |
|---|---|
| $$LST^DGMTU | BLD+8, BLD+13 |
| $$BIL^DGMTUB | BLD+17 |
| $$INSURED^IBCNS1 | BLD+21 |
| HDR^IBJTU1 | HDR+1 |
| $$DATE^IBJU1 | BLD+12, BLD+15 |
| PRTCL^IBJU1 | INIT+3 |
| ELIG^VADPT | BLD+31 |
| SVC^VADPT | BLD+22 |
| EN^VALM | EN+1 |
| $$SETSTR^VALM1 | SET1+2 |
| CLEAR^VALM1 | EXIT+2 |
| CNTRL^VALM10 | SET1+3 |
| SET^VALM10 | SET1+3 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(31 - [#31] | BLD+42 |
| ^DPT - [#2] | BLD+40, BLD+41, BLD+42 |
| ^TMP("IBJTEA" | INIT+1!, EXIT+1!, SET1+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COL | SET1~, SET1+2, SET1+3 |
| DATA | SET~, SET+2 |
| >> DFN | HDR+1, INIT+2, BLD+1, BLD+8, BLD+13, BLD+17, BLD+21, BLD+40, BLD+41, BLD+42 |
| IBCNT | BLD+2~ |
| IBD | BLD+2~, BLD+9*, BLD+10*, BLD+11, BLD+12*, BLD+14*, BLD+15*, BLD+17*, BLD+21*, BLD+23* , BLD+24*, BLD+29*, BLD+32*, BLD+34*, BLD+35*, BLD+37*, BLD+39*, BLD+40*, BLD+43*, BLD+44 |
| IBDT | BLD+2~ |
| IBDTE | BLD+2~ |
| IBDU | BLD+2~ |
| IBGRPB | BLD+2~, BLD+6*, BLD+19 |
| IBGRPE | BLD+2~, BLD+19*, BLD+27 |
| IBI | BLD+2~, BLD+33*, BLD+34, BLD+41*, BLD+42 |
| >> IBIFN | HDR+1, INIT+3 |
| IBLN | BLD+2~, BLD+3*, BLD+6, BLD+11*, BLD+12*, BLD+14*, BLD+15*, BLD+17*, BLD+19*, BLD+21* , BLD+23*, BLD+24*, BLD+27*, BLD+29*, BLD+32*, BLD+34*, BLD+35*, BLD+37*, BLD+39*, BLD+40* , BLD+44*, BLD+64 |
| IBLR | BLD+2~, BLD+6*, BLD+11, BLD+12, BLD+14, BLD+15, BLD+19*, BLD+21, BLD+23, BLD+24 , BLD+28*, BLD+29, BLD+32, BLD+34, BLD+35, BLD+37, BLD+39, BLD+40, BLD+44 |
| IBSW | BLD+2~ |
| IBSW( | SET+2 |
| IBSW(1 | BLD+4* |
| IBSW(2 | BLD+4* |
| IBSW(4 | BLD+4* |
| IBSW(5 | BLD+28* |
| IBT | BLD+2~, BLD+9*, BLD+11, BLD+12*, BLD+14*, BLD+15*, BLD+17*, BLD+21*, BLD+23*, BLD+24* , BLD+29*, BLD+32*, BLD+33*, BLD+34*, BLD+35*, BLD+37*, BLD+38*, BLD+39, BLD+40, BLD+44* |
| IBTC | BLD+2~ |
| IBTC( | SET+2 |
| IBTC(1 | BLD+4* |
| IBTC(2 | BLD+4* |
| IBTC(4 | BLD+4* |
| IBTC(5 | BLD+28* |
| IBTW | BLD+2~ |
| IBTW( | SET+2 |
| IBTW(1 | BLD+4* |
| IBTW(2 | BLD+4* |
| IBTW(4 | BLD+4* |
| IBTW(5 | BLD+28* |
| IBX | BLD+2~, BLD+8*, BLD+9, BLD+10, BLD+12, BLD+13*, BLD+14, BLD+15, BLD+42*, BLD+43 , SET1+1~*, SET1+2*, SET1+3 |
| IBY | BLD+2~, BLD+42*, BLD+43, SET+1~, SET+2* |
| >> IORVOFF | SET1+3 |
| >> IORVON | SET1+3 |
| LN | SET~, SET+2, SET+3*, SET+4, SET1~, SET1+1, SET1+3 |
| LR | SET~, SET+2 |
| RV | SET1~, SET1+3 |
| STR | SET1~, SET1+2 |
| TTL | SET~, SET+2 |
| U | BLD+9, BLD+12, BLD+14, BLD+15, BLD+32, BLD+34, BLD+37, BLD+43 |
| VAEL | BLD+45! |
| VAEL(1 | BLD+32, BLD+33, BLD+34 |
| VAEL(3 | BLD+37 |
| VAEL(4 | BLD+39 |
| VAEL(8 | BLD+32 |
| VAERR | BLDQ! |
| >> VALMCNT | BLD+3*, BLD+27*, BLD+64* |
| >> VALMQUIT | INIT+2* |
| VASV | BLD+25! |
| VASV(2 | BLD+23 |
| VASV(3 | BLD+24 |
| WD | SET1~, SET1+2, SET1+3 |
| >> X | HELP+1* |
