IBACCWLEE4 ;EDE/TPF - ACC (Automated Community Care) Encounters - Action Item Expand Encounter Display Formats ; 12-SEP-2023 ; 12-SEP-2023
Source file <IBACCWLEE4.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 |
|---|---|---|
| DIAGBLD(IBIFN,IBLN,VALMCNT) | ;
|
|
| DIAGSET(STR,LN,COL,WD,RV) | ; set up TMP array with screen data
|
|
| PROCBLD(IBIFN,IBLN,VALMCNT) | ;
|
|
| PROCSETLN(STR,IBX,COL,WD) | ;
|
|
| PROCSET(STR,LN) | ; set up TMP array with screen data
|
|
| PROCSETQ | ||
| PRINT2 | ;Print the detail line for a first party bill - IB*2*516
|
|
| STAT(RCIBFN) | ;AR Status
|
|
| DATE(X) | ; Convert FileMan date to mm/dd/yy
|
|
| EMPL(DFN) | ; returns employer name
|
|
| SET(IBT,IBD,IBLN,IBLR) | ;
|
|
| SET1(STR,LN,COL,WD,RV) | ; set up TMP array with screen data
|
|
| SET2(TTL,DATA,LN,LR) | ;EP -
|
|
| SLINE(IBD,DATA,COL,WD) | ; format a single line with multiple data fields
|
|
| SETN(TTL,LN,LR,RV) | ;EP -
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | PRINT2+7 |
| $$BDATE^IBACSV | DIAGBLD+2, PROCBLD+14 |
| $$ICD9^IBACSV | DIAGBLD+10, PROCBLD+42 |
| F^IBCEF | PROCBLD+2, PROCBLD+7 |
| $$PRCD^IBCEF1 | PROCBLD+15 |
| SET^IBCSC4D | DIAGBLD+4 |
| $$MODLST^IBEFUNC2 | PROCBLD+22 |
| $$DATE^IBJU1 | PROCBLD+20, PROCBLD+24 |
| $$SETSTR^VALM1 | PROCSETLN+1, EMPL+18, SET1+2 |
| CNTRL^VALM10 | EMPL+19, SET1+3 |
| SET^VALM10 | DIAGSET+1, PROCSET+2, EMPL+19, SET1+3 |
| FileNo | Call Tags |
|---|---|
| ^IB - [#350] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | PROCBLD+28 |
| ^DPT - [#2] | EMPL+1 |
| ^IBE(353.1 - [#353.1] | PROCBLD+33 |
| ^IBE(353.2 - [#353.2] | PROCBLD+36 |
| ^PRCA(430 - [#430] | PRINT2+8, PRINT2+11, STAT+3 |
| ^PRCA(430.3 - [#430.3] | STAT+3 |
| ^SC - [#44] | PROCBLD+30 |
| ^TMP("IBRBF" | PRINT2+4 |
| Name | Line Occurrences |
|---|---|
| $$DIAGSET | DIAGBLD+5, DIAGBLD+9 |
| $$PROCSET | PROCBLD+5, PROCBLD+11, PROCBLD+27, PROCBLD+29, PROCBLD+31, PROCBLD+34, PROCBLD+37, PROCBLD+40 |
| $$PROCSETLN | PROCBLD+19, PROCBLD+20, PROCBLD+23, PROCBLD+24, PROCBLD+27, PROCBLD+29, PROCBLD+31, PROCBLD+33, PROCBLD+34, PROCBLD+36 , PROCBLD+37, PROCBLD+38, PROCBLD+43, PROCBLD+44 |
| $$SET | PRINT2+12 |
| $$SET2 | SET+1 |
| $$SLINE | PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+9, PRINT2+10, PRINT2+11 |
| SET1 | EMPL+5, EMPL+11, SET2+2, SETN+2 |
| Name | Field # of Occurrence |
|---|---|
| ^(7 | PRINT2+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COL | DIAGSET~, PROCSETLN~, PROCSETLN+1, EMPL+18, EMPL+19, SET1~, SET1+2, SET1+3, SLINE~, SLINE+1 |
| DATA | EMPL+5, SET2~, SET2+2, SLINE~, SLINE+1 |
| DFN | EMPL~, EMPL+1 |
| IB | PROCBLD+1~ |
| IBADX | DIAGBLD+1~, DIAGBLD+4, DIAGBLD+5 |
| IBADX( | DIAGBLD+9, DIAGBLD+10 |
| >> IBCIFN | PRINT2+4, PRINT2+7 |
| IBCNT | DIAGBLD+1~, DIAGBLD+8*, DIAGBLD+10*, DIAGBLD+11 |
| IBD | PROCBLD+1~, PROCBLD+19*, PROCBLD+20*, PROCBLD+23*, PROCBLD+24*, PROCBLD+26*, PROCBLD+27, PROCBLD+28*, PROCBLD+29, PROCBLD+30* , PROCBLD+31, PROCBLD+33*, PROCBLD+34*, PROCBLD+36*, PROCBLD+37*, PROCBLD+38*, PROCBLD+41*, PROCBLD+43*, PROCBLD+44*, PRINT2+4* , PRINT2+5*, PRINT2+6*, PRINT2+7*, PRINT2+9*, PRINT2+10*, PRINT2+11*, PRINT2+12, SET~, SET+1, SLINE~ , SLINE+1*, SLINE+2 |
| IBDAT | PRINT2+1~, PRINT2+4*, PRINT2+5, PRINT2+6, PRINT2+8, PRINT2+9, PRINT2+10 |
| IBDATE | DIAGBLD+1~, DIAGBLD+2*, DIAGBLD+10, PROCBLD+12~, PROCBLD+14*, PROCBLD+15, PROCBLD+42 |
| IBDXI | PROCBLD+1~ |
| IBDXI( | PROCBLD+8*, PROCBLD+41 |
| IBFN | PRINT2+1~, PRINT2+8*, PRINT2+11 |
| IBI | DIAGBLD+1~, DIAGBLD+6*, DIAGBLD+9*, DIAGBLD+10, PROCBLD+1~, PROCBLD+8*, PROCBLD+10*, PROCBLD+11*, PROCBLD+13, PROCBLD+22 , PROCSET+1~ |
| IBIFN | DIAGBLD~, DIAGBLD+2, DIAGBLD+4, PROCBLD~, PROCBLD+2, PROCBLD+7, PROCBLD+14, PRINT2+4 |
| IBJ | PROCBLD+1~, PROCBLD+40* |
| IBLN | DIAGBLD~, DIAGBLD+5*, DIAGBLD+7*, DIAGBLD+9*, DIAGBLD+13, PROCBLD~, PROCBLD+5*, PROCBLD+11*, PROCBLD+27*, PROCBLD+29* , PROCBLD+31*, PROCBLD+34*, PROCBLD+37*, PROCBLD+40*, PROCBLD+46, PRINT2+12*, SET~, SET+1, SET+2 |
| IBLR | PRINT2+3*, SET~, SET+1 |
| >> IBNC( | EMPL+11, SETN+2 |
| IBPRC | PROCBLD+1~, PROCBLD+15*, PROCBLD+16, PROCBLD+19, PROCBLD+23 |
| IBSTR | DIAGBLD+1~, DIAGBLD+5*, DIAGBLD+9, DIAGBLD+11*, PROCBLD+1~, PROCBLD+3*, PROCBLD+5*, PROCBLD+11, PROCBLD+16*, PROCBLD+19* , PROCBLD+20*, PROCBLD+22*, PROCBLD+23*, PROCBLD+24*, PROCBLD+27*, PROCBLD+29*, PROCBLD+31*, PROCBLD+33*, PROCBLD+34*, PROCBLD+36* , PROCBLD+37*, PROCBLD+38*, PROCBLD+40*, PROCBLD+43*, PROCBLD+44* |
| IBSW | PRINT2+2~ |
| IBSW( | EMPL+5, SET2+2 |
| IBSW(1 | PRINT2+3* |
| IBT | PROCBLD+1~, PROCBLD+16*, PROCBLD+19*, PROCBLD+20*, PROCBLD+23*, PROCBLD+24*, PROCBLD+26*, PROCBLD+27, PROCBLD+29, PROCBLD+31 , PROCBLD+33*, PROCBLD+34*, PROCBLD+36*, PROCBLD+37*, PROCBLD+38*, PROCBLD+40*, PROCBLD+43*, PROCBLD+44*, PRINT2+12, SET~ , SET+1 |
| IBTC | PRINT2+2~ |
| IBTC( | EMPL+5, SET2+2 |
| IBTC(1 | PRINT2+3* |
| IBTW | PRINT2+2~ |
| IBTW( | EMPL+5, SET2+2 |
| IBTW(1 | PRINT2+3* |
| IBX | DIAGBLD+1~, DIAGBLD+10*, DIAGBLD+11, PROCBLD+1~, PROCBLD+8*, PROCBLD+13*, PROCBLD+14, PROCBLD+15, PROCBLD+18, PROCBLD+20 , PROCBLD+24, PROCBLD+26, PROCBLD+28, PROCBLD+30, PROCBLD+32, PROCBLD+35, PROCBLD+38, PROCBLD+40, PROCSETLN~, PROCSETLN+1* , PROCSETLN+2, PROCSET+1~, PRINT2+5*, PRINT2+6*, PRINT2+7*, PRINT2+9*, PRINT2+10*, PRINT2+11*, EMPL+17~*, EMPL+18* , EMPL+19, SET1+1~*, SET1+2*, SET1+3 |
| IBXDATA | PROCBLD+1~ |
| IBY | PROCBLD+1~, PROCBLD+26*, PROCBLD+28*, PROCBLD+30*, PROCBLD+32*, PROCBLD+33*, PROCBLD+34, PROCBLD+35*, PROCBLD+36*, PROCBLD+37 , PROCBLD+40*, PROCBLD+41*, PROCBLD+42*, PROCBLD+43, PROCBLD+44, EMPL+4~, EMPL+5*, EMPL+10~, EMPL+11*, SET2+1~ , SET2+2*, SETN+1~, SETN+2* |
| IBZDX | PROCBLD+1~ |
| IBZDX( | PROCBLD+8, PROCBLD+42 |
| IBZPRC | PROCBLD+1~ |
| IBZPRC( | PROCBLD+11, PROCBLD+13, PROCBLD+22 |
| IBZPRC(0 | PROCBLD+5 |
| >> IORVOFF | EMPL+19, SET1+3 |
| >> IORVON | EMPL+19, SET1+3 |
| LN | DIAGSET~, DIAGSET+1, DIAGSET+2*, DIAGSET+3, PROCSET~, PROCSET+2, PROCSET+3*, PROCSETQ, EMPL+5, EMPL+6* , EMPL+7, EMPL+11, EMPL+12*, EMPL+13, EMPL+14, EMPL+17, EMPL+19, SET+1~*, SET+3, SET1~ , SET1+1, SET1+3, SET2~, SET2+2, SET2+3*, SET2+4, SETN~, SETN+2, SETN+3*, SETN+4 |
| LR | EMPL+5, EMPL+11, SET2~, SET2+2, SETN~, SETN+2 |
| RCIBFN | STAT~, STAT+1, STAT+3 |
| RCSTAT | STAT+2~, STAT+3*, STAT+4 |
| RV | DIAGSET~, EMPL+11, EMPL+19, SET1~, SET1+3, SETN~, SETN+2 |
| STR | DIAGSET~, DIAGSET+1, PROCSETLN~, PROCSETLN+1, PROCSET~, PROCSET+2, EMPL+18, SET1~, SET1+2 |
| TTL | EMPL+5, EMPL+11, SET2~, SET2+2, SETN~, SETN+2 |
| U | DIAGBLD+11, PROCBLD+8, PROCBLD+14, PROCBLD+15, PROCBLD+16, PROCBLD+19, PROCBLD+20, PROCBLD+22, PROCBLD+23, PROCBLD+24 , PROCBLD+26, PROCBLD+28, PROCBLD+30, PROCBLD+32, PROCBLD+33, PROCBLD+34, PROCBLD+35, PROCBLD+36, PROCBLD+37, PROCBLD+38 , PROCBLD+40, PROCBLD+43, PROCBLD+44, EMPL+1 |
| >> VALMAR | EMPL+17, SET1+1 |
| VALMCNT | DIAGBLD~, DIAGBLD+13*, PROCBLD~, PROCBLD+46*, EMPL+13*, SET+2* |
| WD | DIAGSET~, PROCSETLN~, PROCSETLN+1, EMPL+18, EMPL+19, SET1~, SET1+2, SET1+3, SLINE~, SLINE+1 |
| X | DATE~, DATE+1 |