IB20P385 ;OAK/ELZ - POST INIT ROUTINE FOR IB*2*385 ;5/15/2013
Source file <IB20P385.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENV | ;
; need to make sure we can find the CD entry for 354.1 before we can ; install. |
|
| POST | ;
|
|
| CDFIX | ; - need to find the CD entry in file 354.1 and update the code so it is
; a 2 digit code, going to use 70 since IB ignores that code if passed ; in by the DG package |
|
| KIDSVFA | ; - entry for KIDS doing the VFA clean-up to know to output status bar
|
|
| VFA | ; - clean up since VFA is effective in the past
|
|
| CANCEL(DFN,IBXX) | ; cancel charges from date of last active exemption
|
|
| CANCELQ | ||
| MES(X,T) | ; - display message
|
|
| RESTART | ; - unadvertised entry to restart process from last XTMP patient
|
|
| DFN(DFN) | ; saves DFN into XTMP
|
|
| UP354(DA,IBDT,IBSTAT,IBEXREA) | ; -- calling out separate to update 354
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(354 - [#354] | Classic Fileman Calls |
| ^IBA(354.1 - [#354.1] | Classic Fileman Calls |
| ^IBE(354.2 - [#354.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IB("APTDT" | CANCEL+9, CANCEL+15, CANCEL+16 |
| ^IBA(354 - [#354] | VFA+15, VFA+18, VFA+23 |
| ^IBA(354.1 - [#354.1] | VFA+37, VFA+38 |
| ^IBE(354.2 - [#354.2] | VFA+7 |
| ^XTMP("IB20P385" | VFA+11, VFA+12*, VFA+18, RESTART+3!, DFN+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | VFA+1~, VFA+38*, CANCEL+2~, UP354~ |
| DFN | VFA+1~, VFA+18*, VFA+23, VFA+26, VFA+29, VFA+30, VFA+31, VFA+34, VFA+37, VFA+38 , VFA+42, VFA+43, VFA+45, CANCEL~, CANCEL+9, CANCEL+15, CANCEL+16, CANCEL+19, DFN~, DFN+1 |
| DIC | ENV+3~, ENV+4*, CDFIX+3~, CDFIX+5* |
| DIC(0 | ENV+4*, CDFIX+5* |
| DIE | VFA+1~, VFA+39*, CANCEL+2~, UP354+1~, UP354+2* |
| DLAYGO | CANCEL+3~ |
| DR | VFA+1~, VFA+39*, CANCEL+3~, UP354+1~, UP354+3* |
| DT | VFA+12, CANCEL+6 |
| ERR | CANCEL+3~ |
| IBA | POST+1~, VFA+8, VFA+11 |
| IBA(1 | VFA+8*, VFA+11* |
| IBA(2 | VFA+8*, VFA+11* |
| IBAFY | CANCEL+3~ |
| IBARCAN | CANCEL+3~, CANCEL+19* |
| IBATYP | CANCEL+2~ |
| IBBDT | CANCEL+1~, CANCEL+5*, CANCEL+9, CANCEL+14, CANCEL+19 |
| IBCHRG | CANCEL+2~ |
| IBCRES | CANCEL+2~ |
| IBCT | VFA+1~, VFA+5*, VFA+21* |
| IBDATE | VFA+1~, VFA+37*, VFA+38, CANCEL+1~, CANCEL+14*, CANCEL+15*, CANCEL+16 |
| IBDT | VFA+1~, VFA+29*, VFA+30*, VFA+31, VFA+34, VFA+37, VFA+42, VFA+43, UP354~ |
| IBDUZ | CANCEL+2~ |
| IBE | VFA+1~, VFA+7*, VFA+8, VFA+26, VFA+30, VFA+31 |
| IBEDT | CANCEL+1~, CANCEL+6*, CANCEL+9, CANCEL+15, CANCEL+19 |
| IBEXREA | UP354~ |
| IBFAC | CANCEL+2~ |
| IBFDA | CDFIX+3~, VFA+1~ |
| IBFDA( | CDFIX+7* |
| IBFOUND | CANCEL+1~, CANCEL+14*, CANCEL+19 |
| IBIL | CANCEL+2~ |
| IBKIDS | KIDSVFA+1~, KIDSVFA+2*, VFA+21, RESTART+1~, RESTART+2* |
| IBLAST | CANCEL+1~ |
| IBN | CANCEL+2~ |
| IBND | CANCEL+2~ |
| IBNN | CANCEL+1~, CANCEL+16* |
| IBNOW | CANCEL+3~ |
| IBOK | VFA+1~, VFA+29*, VFA+30*, VFA+31 |
| IBPARDT | CANCEL+1~ |
| IBPARNT | CANCEL+1~ |
| IBPARNT1 | CANCEL+1~ |
| IBSEQNO | CANCEL+2~ |
| IBSITE | CANCEL+3~ |
| IBSTAT | UP354~ |
| IBUNIT | CANCEL+2~ |
| IBUP | VFA+1~, VFA+15*, VFA+21 |
| IBWHER | CANCEL+3~ |
| IBXX | CANCEL~, CANCEL+5, CANCEL+19 |
| IBYCHK | CANCEL+3~ |
| IBZ354 | VFA+1~, VFA+23*, VFA+26, VFA+29 |
| T | MES~, MES+1 |
| X | ENV+3~, ENV+4*, CDFIX+3~, CDFIX+5*, CANCEL+1~, CANCEL+9*, MES~, MES+2! |
| >> XPDIDTOT | VFA+15* |
| >> XPDQUIT | ENV+5* |
| Y | ENV+3~, ENV+5, CDFIX+3~, CDFIX+6, CDFIX+7, CANCEL+1~, CANCEL+12* |
