IBCECOB6 ;YMG/BP - IB COB MANAGEMENT SCREEN ;26-Dec-2007
Source file <IBCECOB6.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 6 | $$FIND1^DIC FILE^DICN ^DIE ^DIK CLEAN^DILF $$GET1^DIQ |
| Integrated Billing | 3 | BLD^IBCECOB1 SEL^IBCECOB2 BLD^IBJTTC |
| List Manager | 3 | EN^VALM ($$SETFLD,CLEAR,PAUSE)^VALM1 (CLEAN,FLDCTRL,SET)^VALM10 |
| Kernel | 2 | ($$FMTE,$$NOW)^XLFDT DISP^XQORM1 |
| Accounts Receivable | 1 | $$BN1^PRCAFN |
| 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 | 6 | IBCEM ENTER COMMENTS IBCEM ENTER COMMENTS 1 IBCEM MRA COMMENTS IBCEM MRA STATUS IBCEM VIEW COMMENTS IBJTA1 |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; view MRA comments - entry point from MRA Worklist
|
|
| HDR | ; header code
|
|
| INIT | ; init variables and list array
|
|
| HELP | ; help code
|
|
| EXIT | ; exit code
|
|
| CMNTW | ; enter MRA comments - entry point from MRA Worklist screen
; we need to select a claim and set IBIFN |
|
| CMNTV | ; enter MRA comments - entry point from View MRA Comments screen
; IBIFN should already be defined, only need to set a flag used to rebuild list of comments |
|
| CMNT | ; enter MRA comments, called from entry points CMNTV and CMNTW above. Also called from ARCA^IBJTA1 (TPJI)
|
|
| STATUS | ; change MRA review status
|
|
| STATUSX | ;
|
|
| EOBCM | ; init variables and list array for new EOB Claim Comments IB*2.0*432
; loop through all available comments |
|
| EOCMT | ; IB*2.0*432 - edit new EOB comments
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | EXIT+5, EXIT+6 |
| FILE^DICN | CMNT+8, EOCMT+2 |
| ^DIE | CMNT+14, STATUS+6, EOCMT+8 |
| ^DIK | CMNT+11, EOCMT+5 |
| CLEAN^DILF | INIT+33, CMNT+18, STATUS+6, EOCMT+12 |
| $$GET1^DIQ | INIT+16, EXIT+9, EXIT+10, EOBCM+5 |
| BLD^IBCECOB1 | CMNT+14, STATUS+8, EOCMT+8 |
| SEL^IBCECOB2 | EN+3, CMNTW+4, STATUS+2 |
| BLD^IBJTTC | INIT+4 |
| $$BN1^PRCAFN | EXIT+12 |
| EN^VALM | EN+4 |
| $$SETFLD^VALM1 | INIT+8, INIT+16, INIT+27, EOBCM+5, EOBCM+16 |
| CLEAR^VALM1 | EXIT+16 |
| PAUSE^VALM1 | CMNT+4, STATUS+5 |
| CLEAN^VALM10 | EXIT+16, CMNT+16, EOCMT+10 |
| FLDCTRL^VALM10 | INIT+9, INIT+17, EOBCM+6 |
| SET^VALM10 | INIT+9, INIT+15, INIT+17, INIT+27, EOBCM+4, EOBCM+6, EOBCM+16 |
| $$FMTE^XLFDT | INIT+16, EOBCM+5 |
| $$NOW^XLFDT | CMNT+7, EOCMT+1 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^SD(409.61 - [#409.61] | FIND1^DIC |
| 409.621 | FIND1^DIC, GET1^DIQ |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CMLN | INIT+1~, INIT+19*, INIT+20, EOBCM+8*, EOBCM+9 |
| CMSTR | INIT+1~, INIT+20*, INIT+23, INIT+24, INIT+27*, EOBCM+9*, EOBCM+12, EOBCM+13, EOBCM+16* |
| COL | EXIT+1~, EXIT+9*, EXIT+11, EXIT+13 |
| DA | CMNT+1~, CMNT+9*, CMNT+11, CMNT+14*, STATUS+1~, STATUS+6*, EOCMT+3*, EOCMT+5, EOCMT+8* |
| DA(1 | CMNT+7*, EOCMT+1* |
| DD | CMNT+1~ |
| DIC | CMNT+1~, CMNT+7*, CMNT+11, EOCMT+1*, EOCMT+5 |
| DIC("DR" | CMNT+7*, EOCMT+1* |
| DIC(0 | CMNT+7*, EOCMT+1* |
| DIE | CMNT+14*, STATUS+1~, STATUS+6*, EOCMT+8* |
| DIK | CMNT+1~, CMNT+11*, EOCMT+5* |
| DLAYGO | CMNT+1~, CMNT+7*, EOCMT+1* |
| DO | CMNT+7!, EOCMT+1! |
| DR | CMNT+14*, STATUS+1~, STATUS+6*, EOCMT+8* |
| I | INIT+1~, INIT+14*, INIT+19, INIT+20, EXIT+1~, EXIT+13*, EOBCM+3*, EOBCM+8, EOBCM+9 |
| IB0 | INIT+1~, INIT+14*, EOBCM+3* |
| IBDA | EN+1~, EN+3, CMNTW+2~, CMNTW+4, STATUS+1~, STATUS+2 |
| IBDA( | EN+3, CMNTW+4, STATUS+2 |
| IBDA(0 | EN+3, CMNTW+4, STATUS+2 |
| IBDATE | INIT+1~, INIT+13*, INIT+14, INIT+16, EOBCM+2*, EOBCM+3, EOBCM+5 |
| IBDUZ | INIT+1~, INIT+14*, INIT+16, EOBCM+3*, EOBCM+5 |
| IBIFN | EN+1~, EN+3*, EN+4, HDR+1, INIT+7, INIT+13, INIT+14, INIT+19, INIT+20, EXIT+12 , CMNTW+2~, CMNTW+4*, CMNTV+3, CMNT+4, CMNT+7, CMNT+11, CMNT+14, CMNT+19, STATUS+1~, STATUS+2* , STATUS+5, STATUS+6, STATUS+9, EOBCM+2, EOBCM+3, EOBCM+8, EOBCM+9, EOCMT+1, EOCMT+5, EOCMT+8 , EOCMT+13 |
| >> IBMRANOT | HDR+1, HDR+2, INIT+4, EXIT+4, CMNT+6, CMNT+14, STATUS+6, EOCMT+8 |
| IBWRKLST | EXIT+1~, EXIT+4*, EXIT+5 |
| >> IOINHI | INIT+9 |
| >> IOINORM | INIT+9 |
| LEN | INIT+1~, INIT+24*, INIT+27, EOBCM+13*, EOBCM+16 |
| LN | INIT+1~, INIT+2*, INIT+9, INIT+10, INIT+15*, INIT+17*, INIT+27*, INIT+32, EXIT+1~, EXIT+12* , EXIT+13, EOBCM+4*, EOBCM+6*, EOBCM+16* |
| MAX | INIT+1~, INIT+21*, INIT+24, INIT+25, EOBCM+10*, EOBCM+13, EOBCM+14 |
| MRAFLG | CMNTW+2~, CMNTW+3*, CMNTV+2~, CMNTV+3*, CMNT+14, EOCMT+8 |
| POS | INIT+1~, INIT+24*, INIT+25*, INIT+27, EOBCM+13*, EOBCM+14*, EOBCM+16 |
| SEL | STATUS+1~ |
| STR | INIT+1~, INIT+8*, INIT+9, INIT+16*, INIT+17, INIT+27*, EXIT+1~, EXIT+12*, EXIT+13, EOBCM+5* , EOBCM+6, EOBCM+16* |
| U | HDR+1, INIT+14, INIT+21, EXIT+12, EOBCM+3, EOBCM+10 |
| >> VALM("TITLE" | HDR+2* |
| >> VALMBCK | EN+5*, CMNTW+5*, CMNTV+4*, STATUSX+1* |
| >> VALMBG | INIT+32* |
| >> VALMCNT | INIT+10*, INIT+32* |
| >> VALMDDF("MESSAGE" | INIT+21, EOBCM+10 |
| >> VALMHDR(1 | HDR+1* |
| >> VALMY("" | EXIT+12 |
| VCFLG | CMNTV+2~, CMNTV+3*, CMNT+14, CMNT+16, EOCMT+8, EOCMT+10 |
| WIDTH | EXIT+1~, EXIT+10*, EXIT+11, EXIT+12 |
| X | HELP+1*, CMNT+1~, CMNT+7*, EOCMT+1* |
| Y | CMNT+1~, CMNT+9, EOCMT+3 |
| Z0 | EXIT+1~, EXIT+3*, EXIT+5*, EXIT+6, EXIT+7 |
| Z1 | EXIT+1~, EXIT+3*, EXIT+6*, EXIT+7 |
| Z2 | EXIT+1~, EXIT+3*, EXIT+7*, EXIT+8, EXIT+9, EXIT+10 |